cmFortranParser: Revise indentation style to match rest of CMake
While at it, remove unused token CPP_TOENDL.
This commit is contained in:
Brad King
parent
f70c71c5a9
commit
8c65a5017f
@ -1,8 +1,8 @@
|
|||||||
/* A Bison parser, made by GNU Bison 3.0.2. */
|
/* A Bison parser, made by GNU Bison 3.0.4. */
|
||||||
|
|
||||||
/* Bison implementation for Yacc-like parsers in C
|
/* Bison implementation for Yacc-like parsers in C
|
||||||
|
|
||||||
Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
|
Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
|
||||||
|
|
||||||
This program is free software: you can redistribute it and/or modify
|
This program is free software: you can redistribute it and/or modify
|
||||||
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
||||||
@ -44,7 +44,7 @@
|
|||||||
#define YYBISON 1
|
#define YYBISON 1
|
||||||
|
|
||||||
/* Bison version. */
|
/* Bison version. */
|
||||||
#define YYBISON_VERSION "3.0.2"
|
#define YYBISON_VERSION "3.0.4"
|
||||||
|
|
||||||
/* Skeleton name. */
|
/* Skeleton name. */
|
||||||
#define YYSKELETON_NAME "yacc.c"
|
#define YYSKELETON_NAME "yacc.c"
|
||||||
@ -199,11 +199,10 @@ extern int cmFortran_yydebug;
|
|||||||
F90PPR_ENDIF = 280,
|
F90PPR_ENDIF = 280,
|
||||||
COMMA = 281,
|
COMMA = 281,
|
||||||
DCOLON = 282,
|
DCOLON = 282,
|
||||||
CPP_TOENDL = 283,
|
UNTERMINATED_STRING = 283,
|
||||||
UNTERMINATED_STRING = 284,
|
STRING = 284,
|
||||||
STRING = 285,
|
WORD = 285,
|
||||||
WORD = 286,
|
CPP_INCLUDE_ANGLE = 286
|
||||||
CPP_INCLUDE_ANGLE = 287
|
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
/* Tokens. */
|
/* Tokens. */
|
||||||
@ -232,23 +231,24 @@ extern int cmFortran_yydebug;
|
|||||||
#define F90PPR_ENDIF 280
|
#define F90PPR_ENDIF 280
|
||||||
#define COMMA 281
|
#define COMMA 281
|
||||||
#define DCOLON 282
|
#define DCOLON 282
|
||||||
#define CPP_TOENDL 283
|
#define UNTERMINATED_STRING 283
|
||||||
#define UNTERMINATED_STRING 284
|
#define STRING 284
|
||||||
#define STRING 285
|
#define WORD 285
|
||||||
#define WORD 286
|
#define CPP_INCLUDE_ANGLE 286
|
||||||
#define CPP_INCLUDE_ANGLE 287
|
|
||||||
|
|
||||||
/* Value type. */
|
/* Value type. */
|
||||||
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
||||||
typedef union YYSTYPE YYSTYPE;
|
|
||||||
union YYSTYPE
|
union YYSTYPE
|
||||||
{
|
{
|
||||||
#line 81 "cmFortranParser.y" /* yacc.c:355 */
|
#line 81 "cmFortranParser.y" /* yacc.c:355 */
|
||||||
|
|
||||||
char* string;
|
char* string;
|
||||||
|
|
||||||
#line 251 "cmFortranParser.cxx" /* yacc.c:355 */
|
#line 249 "cmFortranParser.cxx" /* yacc.c:355 */
|
||||||
};
|
};
|
||||||
|
|
||||||
|
typedef union YYSTYPE YYSTYPE;
|
||||||
# define YYSTYPE_IS_TRIVIAL 1
|
# define YYSTYPE_IS_TRIVIAL 1
|
||||||
# define YYSTYPE_IS_DECLARED 1
|
# define YYSTYPE_IS_DECLARED 1
|
||||||
#endif
|
#endif
|
||||||
@ -503,10 +503,10 @@ union yyalloc
|
|||||||
/* YYFINAL -- State number of the termination state. */
|
/* YYFINAL -- State number of the termination state. */
|
||||||
#define YYFINAL 2
|
#define YYFINAL 2
|
||||||
/* YYLAST -- Last index in YYTABLE. */
|
/* YYLAST -- Last index in YYTABLE. */
|
||||||
#define YYLAST 290
|
#define YYLAST 249
|
||||||
|
|
||||||
/* YYNTOKENS -- Number of terminals. */
|
/* YYNTOKENS -- Number of terminals. */
|
||||||
#define YYNTOKENS 33
|
#define YYNTOKENS 32
|
||||||
/* YYNNTS -- Number of nonterminals. */
|
/* YYNNTS -- Number of nonterminals. */
|
||||||
#define YYNNTS 16
|
#define YYNNTS 16
|
||||||
/* YYNRULES -- Number of rules. */
|
/* YYNRULES -- Number of rules. */
|
||||||
@ -517,7 +517,7 @@ union yyalloc
|
|||||||
/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
|
/* YYTRANSLATE[YYX] -- Symbol number corresponding to YYX as returned
|
||||||
by yylex, with out-of-bounds checking. */
|
by yylex, with out-of-bounds checking. */
|
||||||
#define YYUNDEFTOK 2
|
#define YYUNDEFTOK 2
|
||||||
#define YYMAXUTOK 287
|
#define YYMAXUTOK 286
|
||||||
|
|
||||||
#define YYTRANSLATE(YYX) \
|
#define YYTRANSLATE(YYX) \
|
||||||
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
|
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
|
||||||
@ -554,19 +554,19 @@ static const yytype_uint8 yytranslate[] =
|
|||||||
2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
|
2, 2, 2, 2, 2, 2, 1, 2, 3, 4,
|
||||||
5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
|
5, 6, 7, 8, 9, 10, 11, 12, 13, 14,
|
||||||
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
15, 16, 17, 18, 19, 20, 21, 22, 23, 24,
|
||||||
25, 26, 27, 28, 29, 30, 31, 32
|
25, 26, 27, 28, 29, 30, 31
|
||||||
};
|
};
|
||||||
|
|
||||||
#if YYDEBUG
|
#if YYDEBUG
|
||||||
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
|
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
|
||||||
static const yytype_uint16 yyrline[] =
|
static const yytype_uint8 yyrline[] =
|
||||||
{
|
{
|
||||||
0, 104, 104, 104, 106, 106, 108, 114, 124, 154,
|
0, 103, 103, 103, 105, 105, 108, 113, 120, 138,
|
||||||
165, 178, 189, 196, 203, 210, 216, 222, 228, 234,
|
146, 156, 164, 169, 174, 179, 184, 189, 194, 199,
|
||||||
239, 244, 249, 254, 258, 259, 260, 265, 265, 265,
|
203, 207, 211, 215, 218, 219, 220, 225, 225, 225,
|
||||||
266, 266, 267, 267, 268, 268, 269, 269, 270, 270,
|
226, 226, 227, 227, 228, 228, 229, 229, 230, 230,
|
||||||
271, 271, 272, 272, 273, 273, 274, 274, 277, 278,
|
231, 231, 232, 232, 233, 233, 234, 234, 237, 238,
|
||||||
279, 280, 281, 282, 283
|
239, 240, 241, 242, 243
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
@ -580,11 +580,10 @@ static const char *const yytname[] =
|
|||||||
"F90PPR_DEFINE", "CPP_DEFINE", "F90PPR_UNDEF", "CPP_UNDEF", "CPP_IFDEF",
|
"F90PPR_DEFINE", "CPP_DEFINE", "F90PPR_UNDEF", "CPP_UNDEF", "CPP_IFDEF",
|
||||||
"CPP_IFNDEF", "CPP_IF", "CPP_ELSE", "CPP_ELIF", "CPP_ENDIF",
|
"CPP_IFNDEF", "CPP_IF", "CPP_ELSE", "CPP_ELIF", "CPP_ENDIF",
|
||||||
"F90PPR_IFDEF", "F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE",
|
"F90PPR_IFDEF", "F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE",
|
||||||
"F90PPR_ELIF", "F90PPR_ENDIF", "COMMA", "DCOLON", "CPP_TOENDL",
|
"F90PPR_ELIF", "F90PPR_ENDIF", "COMMA", "DCOLON", "UNTERMINATED_STRING",
|
||||||
"UNTERMINATED_STRING", "STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept",
|
"STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept", "code", "stmt",
|
||||||
"code", "stmt", "assignment_stmt", "keyword_stmt", "include", "define",
|
"assignment_stmt", "keyword_stmt", "include", "define", "undef", "ifdef",
|
||||||
"undef", "ifdef", "ifndef", "if", "elif", "else", "endif", "other",
|
"ifndef", "if", "elif", "else", "endif", "other", "misc_code", YY_NULLPTR
|
||||||
"misc_code", YY_NULLPTR
|
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
@ -596,14 +595,14 @@ static const yytype_uint16 yytoknum[] =
|
|||||||
0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
|
0, 256, 257, 258, 259, 260, 261, 262, 263, 264,
|
||||||
265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
|
265, 266, 267, 268, 269, 270, 271, 272, 273, 274,
|
||||||
275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
|
275, 276, 277, 278, 279, 280, 281, 282, 283, 284,
|
||||||
285, 286, 287
|
285, 286
|
||||||
};
|
};
|
||||||
# endif
|
# endif
|
||||||
|
|
||||||
#define YYPACT_NINF -30
|
#define YYPACT_NINF -29
|
||||||
|
|
||||||
#define yypact_value_is_default(Yystate) \
|
#define yypact_value_is_default(Yystate) \
|
||||||
(!!((Yystate) == (-30)))
|
(!!((Yystate) == (-29)))
|
||||||
|
|
||||||
#define YYTABLE_NINF -1
|
#define YYTABLE_NINF -1
|
||||||
|
|
||||||
@ -614,17 +613,17 @@ static const yytype_uint16 yytoknum[] =
|
|||||||
STATE-NUM. */
|
STATE-NUM. */
|
||||||
static const yytype_int16 yypact[] =
|
static const yytype_int16 yypact[] =
|
||||||
{
|
{
|
||||||
-30, 41, -30, -30, -30, -30, -29, -30, -30, -30,
|
-29, 41, -29, -29, -29, -29, -28, -29, -29, -29,
|
||||||
-30, -30, -30, -30, -30, -30, -30, -30, -30, -30,
|
-29, -29, -29, -29, -29, -29, -29, -29, -29, -29,
|
||||||
-30, -30, -30, -30, -30, -30, 259, -30, -30, -30,
|
-29, -29, -29, -29, -29, -29, 219, -29, -29, -29,
|
||||||
-30, -28, -23, -18, -16, -13, -30, -30, -30, -30,
|
-29, -26, -22, -17, -15, -12, -29, -29, -29, -29,
|
||||||
2, -30, -30, -30, -30, -12, -9, -30, -30, 64,
|
2, -29, -29, -29, -29, -11, -8, -29, -29, 64,
|
||||||
-30, -30, -30, -30, -30, 71, 77, 83, 112, -30,
|
-29, -29, -29, -29, -29, 70, 75, 80, 108, -29,
|
||||||
-30, -30, -30, -30, -30, -30, -30, -30, 118, 124,
|
-29, -29, -29, -29, -29, -29, -29, -29, 113, 118,
|
||||||
130, -24, -30, 159, 165, -30, 171, 177, 206, 212,
|
123, -25, -29, 128, 156, -29, 161, 166, 171, 176,
|
||||||
218, -30, -30, -30, -30, -30, -30, -30, -1, 224,
|
204, -29, -29, -29, -29, -29, -29, -29, 3, 209,
|
||||||
-30, -30, -30, -30, -30, -30, -30, -30, -30, 253,
|
-29, -29, -29, -29, -29, -29, -29, -29, -29, 214,
|
||||||
-30
|
-29
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
|
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
|
||||||
@ -648,8 +647,8 @@ static const yytype_uint8 yydefact[] =
|
|||||||
/* YYPGOTO[NTERM-NUM]. */
|
/* YYPGOTO[NTERM-NUM]. */
|
||||||
static const yytype_int8 yypgoto[] =
|
static const yytype_int8 yypgoto[] =
|
||||||
{
|
{
|
||||||
-30, -30, -30, -30, -30, -30, -30, -30, -30, -30,
|
-29, -29, -29, -29, -29, -29, -29, -29, -29, -29,
|
||||||
-30, -30, -30, -30, -27, -30
|
-29, -29, -29, -29, -27, -29
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYDEFGOTO[NTERM-NUM]. */
|
/* YYDEFGOTO[NTERM-NUM]. */
|
||||||
@ -664,98 +663,88 @@ static const yytype_int8 yydefgoto[] =
|
|||||||
number is the opposite. If YYTABLE_NINF, syntax error. */
|
number is the opposite. If YYTABLE_NINF, syntax error. */
|
||||||
static const yytype_uint8 yytable[] =
|
static const yytype_uint8 yytable[] =
|
||||||
{
|
{
|
||||||
49, 41, 50, 88, 0, 59, 60, 61, 51, 55,
|
49, 41, 88, 50, 0, 59, 60, 61, 51, 55,
|
||||||
56, 57, 58, 52, 68, 53, 69, 70, 54, 71,
|
56, 57, 58, 52, 68, 53, 69, 70, 54, 71,
|
||||||
73, 74, 72, 76, 77, 78, 79, 80, 62, 63,
|
73, 74, 72, 76, 77, 78, 79, 80, 62, 63,
|
||||||
97, 64, 65, 66, 0, 0, 0, 0, 0, 0,
|
64, 65, 66, 97, 0, 0, 0, 0, 0, 0,
|
||||||
0, 2, 3, 0, 4, 89, 5, 6, 7, 8,
|
0, 2, 3, 0, 4, 89, 5, 6, 7, 8,
|
||||||
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
||||||
19, 20, 21, 22, 23, 24, 25, 75, 60, 61,
|
19, 20, 21, 22, 23, 24, 25, 75, 60, 61,
|
||||||
99, 0, 26, 27, 81, 60, 61, 0, 0, 0,
|
99, 26, 27, 81, 60, 61, 0, 0, 82, 60,
|
||||||
82, 60, 61, 0, 0, 0, 83, 60, 61, 0,
|
61, 0, 0, 83, 60, 61, 0, 0, 0, 0,
|
||||||
62, 63, 0, 64, 65, 66, 0, 62, 63, 0,
|
62, 63, 64, 65, 66, 0, 62, 63, 64, 65,
|
||||||
64, 65, 66, 62, 63, 0, 64, 65, 66, 62,
|
66, 62, 63, 64, 65, 66, 62, 63, 64, 65,
|
||||||
63, 0, 64, 65, 66, 84, 60, 61, 0, 0,
|
66, 84, 60, 61, 0, 0, 85, 60, 61, 0,
|
||||||
0, 85, 60, 61, 0, 0, 0, 86, 60, 61,
|
0, 86, 60, 61, 0, 0, 87, 60, 61, 0,
|
||||||
0, 0, 0, 87, 60, 61, 0, 0, 62, 63,
|
0, 90, 60, 61, 62, 63, 64, 65, 66, 62,
|
||||||
0, 64, 65, 66, 62, 63, 0, 64, 65, 66,
|
63, 64, 65, 66, 62, 63, 64, 65, 66, 62,
|
||||||
62, 63, 0, 64, 65, 66, 62, 63, 0, 64,
|
63, 64, 65, 66, 62, 63, 64, 65, 66, 91,
|
||||||
65, 66, 90, 60, 61, 0, 0, 0, 91, 60,
|
60, 61, 0, 0, 92, 60, 61, 0, 0, 93,
|
||||||
61, 0, 0, 0, 92, 60, 61, 0, 0, 0,
|
60, 61, 0, 0, 94, 60, 61, 0, 0, 95,
|
||||||
93, 60, 61, 0, 0, 62, 63, 0, 64, 65,
|
60, 61, 62, 63, 64, 65, 66, 62, 63, 64,
|
||||||
66, 62, 63, 0, 64, 65, 66, 62, 63, 0,
|
65, 66, 62, 63, 64, 65, 66, 62, 63, 64,
|
||||||
64, 65, 66, 62, 63, 0, 64, 65, 66, 94,
|
65, 66, 62, 63, 64, 65, 66, 96, 60, 61,
|
||||||
60, 61, 0, 0, 0, 95, 60, 61, 0, 0,
|
0, 0, 98, 60, 61, 0, 0, 100, 60, 61,
|
||||||
0, 96, 60, 61, 0, 0, 0, 98, 60, 61,
|
|
||||||
0, 0, 62, 63, 0, 64, 65, 66, 62, 63,
|
|
||||||
0, 64, 65, 66, 62, 63, 0, 64, 65, 66,
|
|
||||||
62, 63, 0, 64, 65, 66, 100, 60, 61, 0,
|
|
||||||
0, 0, 42, 43, 44, 0, 0, 0, 0, 0,
|
0, 0, 42, 43, 44, 0, 0, 0, 0, 0,
|
||||||
0, 0, 0, 0, 0, 0, 0, 0, 0, 62,
|
62, 63, 64, 65, 66, 62, 63, 64, 65, 66,
|
||||||
63, 0, 64, 65, 66, 45, 46, 0, 0, 47,
|
62, 63, 64, 65, 66, 45, 46, 0, 47, 48
|
||||||
48
|
|
||||||
};
|
};
|
||||||
|
|
||||||
static const yytype_int8 yycheck[] =
|
static const yytype_int8 yycheck[] =
|
||||||
{
|
{
|
||||||
27, 30, 30, 27, -1, 3, 4, 5, 31, 36,
|
27, 29, 27, 29, -1, 3, 4, 5, 30, 36,
|
||||||
37, 38, 39, 31, 41, 31, 43, 44, 31, 31,
|
37, 38, 39, 30, 41, 30, 43, 44, 30, 30,
|
||||||
47, 48, 31, 50, 51, 52, 53, 54, 26, 27,
|
47, 48, 30, 50, 51, 52, 53, 54, 26, 27,
|
||||||
31, 29, 30, 31, -1, -1, -1, -1, -1, -1,
|
28, 29, 30, 30, -1, -1, -1, -1, -1, -1,
|
||||||
-1, 0, 1, -1, 3, 72, 5, 6, 7, 8,
|
-1, 0, 1, -1, 3, 72, 5, 6, 7, 8,
|
||||||
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
||||||
19, 20, 21, 22, 23, 24, 25, 3, 4, 5,
|
19, 20, 21, 22, 23, 24, 25, 3, 4, 5,
|
||||||
97, -1, 31, 32, 3, 4, 5, -1, -1, -1,
|
97, 30, 31, 3, 4, 5, -1, -1, 3, 4,
|
||||||
3, 4, 5, -1, -1, -1, 3, 4, 5, -1,
|
5, -1, -1, 3, 4, 5, -1, -1, -1, -1,
|
||||||
26, 27, -1, 29, 30, 31, -1, 26, 27, -1,
|
26, 27, 28, 29, 30, -1, 26, 27, 28, 29,
|
||||||
29, 30, 31, 26, 27, -1, 29, 30, 31, 26,
|
30, 26, 27, 28, 29, 30, 26, 27, 28, 29,
|
||||||
27, -1, 29, 30, 31, 3, 4, 5, -1, -1,
|
30, 3, 4, 5, -1, -1, 3, 4, 5, -1,
|
||||||
-1, 3, 4, 5, -1, -1, -1, 3, 4, 5,
|
-1, 3, 4, 5, -1, -1, 3, 4, 5, -1,
|
||||||
-1, -1, -1, 3, 4, 5, -1, -1, 26, 27,
|
-1, 3, 4, 5, 26, 27, 28, 29, 30, 26,
|
||||||
-1, 29, 30, 31, 26, 27, -1, 29, 30, 31,
|
27, 28, 29, 30, 26, 27, 28, 29, 30, 26,
|
||||||
26, 27, -1, 29, 30, 31, 26, 27, -1, 29,
|
27, 28, 29, 30, 26, 27, 28, 29, 30, 3,
|
||||||
30, 31, 3, 4, 5, -1, -1, -1, 3, 4,
|
4, 5, -1, -1, 3, 4, 5, -1, -1, 3,
|
||||||
5, -1, -1, -1, 3, 4, 5, -1, -1, -1,
|
4, 5, -1, -1, 3, 4, 5, -1, -1, 3,
|
||||||
3, 4, 5, -1, -1, 26, 27, -1, 29, 30,
|
4, 5, 26, 27, 28, 29, 30, 26, 27, 28,
|
||||||
31, 26, 27, -1, 29, 30, 31, 26, 27, -1,
|
29, 30, 26, 27, 28, 29, 30, 26, 27, 28,
|
||||||
29, 30, 31, 26, 27, -1, 29, 30, 31, 3,
|
29, 30, 26, 27, 28, 29, 30, 3, 4, 5,
|
||||||
4, 5, -1, -1, -1, 3, 4, 5, -1, -1,
|
-1, -1, 3, 4, 5, -1, -1, 3, 4, 5,
|
||||||
-1, 3, 4, 5, -1, -1, -1, 3, 4, 5,
|
|
||||||
-1, -1, 26, 27, -1, 29, 30, 31, 26, 27,
|
|
||||||
-1, 29, 30, 31, 26, 27, -1, 29, 30, 31,
|
|
||||||
26, 27, -1, 29, 30, 31, 3, 4, 5, -1,
|
|
||||||
-1, -1, 3, 4, 5, -1, -1, -1, -1, -1,
|
-1, -1, 3, 4, 5, -1, -1, -1, -1, -1,
|
||||||
-1, -1, -1, -1, -1, -1, -1, -1, -1, 26,
|
26, 27, 28, 29, 30, 26, 27, 28, 29, 30,
|
||||||
27, -1, 29, 30, 31, 26, 27, -1, -1, 30,
|
26, 27, 28, 29, 30, 26, 27, -1, 29, 30
|
||||||
31
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
|
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
|
||||||
symbol of state STATE-NUM. */
|
symbol of state STATE-NUM. */
|
||||||
static const yytype_uint8 yystos[] =
|
static const yytype_uint8 yystos[] =
|
||||||
{
|
{
|
||||||
0, 34, 0, 1, 3, 5, 6, 7, 8, 9,
|
0, 33, 0, 1, 3, 5, 6, 7, 8, 9,
|
||||||
10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
|
10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
|
||||||
20, 21, 22, 23, 24, 25, 31, 32, 35, 36,
|
20, 21, 22, 23, 24, 25, 30, 31, 34, 35,
|
||||||
37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
|
36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
|
||||||
47, 30, 3, 4, 5, 26, 27, 30, 31, 47,
|
46, 29, 3, 4, 5, 26, 27, 29, 30, 46,
|
||||||
30, 31, 31, 31, 31, 47, 47, 47, 47, 3,
|
29, 30, 30, 30, 30, 46, 46, 46, 46, 3,
|
||||||
4, 5, 26, 27, 29, 30, 31, 48, 47, 47,
|
4, 5, 26, 27, 28, 29, 30, 47, 46, 46,
|
||||||
47, 31, 31, 47, 47, 3, 47, 47, 47, 47,
|
46, 30, 30, 46, 46, 3, 46, 46, 46, 46,
|
||||||
47, 3, 3, 3, 3, 3, 3, 3, 27, 47,
|
46, 3, 3, 3, 3, 3, 3, 3, 27, 46,
|
||||||
3, 3, 3, 3, 3, 3, 3, 31, 3, 47,
|
3, 3, 3, 3, 3, 3, 3, 30, 3, 46,
|
||||||
3
|
3
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
|
/* YYR1[YYN] -- Symbol number of symbol that rule YYN derives. */
|
||||||
static const yytype_uint8 yyr1[] =
|
static const yytype_uint8 yyr1[] =
|
||||||
{
|
{
|
||||||
0, 33, 34, 34, 35, 35, 36, 37, 37, 37,
|
0, 32, 33, 33, 34, 34, 35, 36, 36, 36,
|
||||||
37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
|
36, 36, 36, 36, 36, 36, 36, 36, 36, 36,
|
||||||
37, 37, 37, 37, 37, 37, 37, 38, 38, 38,
|
36, 36, 36, 36, 36, 36, 36, 37, 37, 37,
|
||||||
39, 39, 40, 40, 41, 41, 42, 42, 43, 43,
|
38, 38, 39, 39, 40, 40, 41, 41, 42, 42,
|
||||||
44, 44, 45, 45, 46, 46, 47, 47, 48, 48,
|
43, 43, 44, 44, 45, 45, 46, 46, 47, 47,
|
||||||
48, 48, 48, 48, 48
|
47, 47, 47, 47, 47
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
|
/* YYR2[YYN] -- Number of symbols on the right hand side of rule YYN. */
|
||||||
@ -1449,239 +1438,217 @@ yyreduce:
|
|||||||
switch (yyn)
|
switch (yyn)
|
||||||
{
|
{
|
||||||
case 6:
|
case 6:
|
||||||
#line 109 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 108 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
}
|
}
|
||||||
#line 1457 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1446 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 7:
|
case 7:
|
||||||
#line 115 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 113 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
if (cmFortranParserIsKeyword((yyvsp[-1].string), "interface"))
|
if (cmFortranParserIsKeyword((yyvsp[-1].string), "interface")) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, true);
|
cmFortranParser_SetInInterface(parser, true);
|
||||||
}
|
}
|
||||||
free((yyvsp[-1].string));
|
free((yyvsp[-1].string));
|
||||||
}
|
}
|
||||||
#line 1471 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1458 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 8:
|
case 8:
|
||||||
#line 125 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 120 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
if (cmFortranParserIsKeyword((yyvsp[-3].string), "use"))
|
if (cmFortranParserIsKeyword((yyvsp[-3].string), "use")) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
||||||
}
|
} else if (cmFortranParserIsKeyword((yyvsp[-3].string), "module")) {
|
||||||
else if (cmFortranParserIsKeyword((yyvsp[-3].string), "module"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleModule(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleModule(parser, (yyvsp[-2].string));
|
||||||
}
|
} else if (cmFortranParserIsKeyword((yyvsp[-3].string), "interface")) {
|
||||||
else if (cmFortranParserIsKeyword((yyvsp[-3].string), "interface"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, true);
|
cmFortranParser_SetInInterface(parser, true);
|
||||||
}
|
} else if (cmFortranParserIsKeyword((yyvsp[-2].string), "interface") &&
|
||||||
else if (cmFortranParserIsKeyword((yyvsp[-2].string), "interface") &&
|
cmFortranParserIsKeyword((yyvsp[-3].string), "end")) {
|
||||||
cmFortranParserIsKeyword((yyvsp[-3].string), "end"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, false);
|
cmFortranParser_SetInInterface(parser, false);
|
||||||
}
|
}
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1505 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1481 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 9:
|
case 9:
|
||||||
#line 155 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 138 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
if (cmFortranParserIsKeyword((yyvsp[-4].string), "use"))
|
if (cmFortranParserIsKeyword((yyvsp[-4].string), "use")) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
free((yyvsp[-4].string));
|
free((yyvsp[-4].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1520 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1494 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 10:
|
case 10:
|
||||||
#line 166 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 146 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
if (cmFortranParserIsKeyword((yyvsp[-6].string), "use") &&
|
if (cmFortranParserIsKeyword((yyvsp[-6].string), "use") &&
|
||||||
cmFortranParserIsKeyword((yyvsp[-4].string), "non_intrinsic") )
|
cmFortranParserIsKeyword((yyvsp[-4].string), "non_intrinsic") ) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleUse(parser, (yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
free((yyvsp[-6].string));
|
free((yyvsp[-6].string));
|
||||||
free((yyvsp[-4].string));
|
free((yyvsp[-4].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1537 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1509 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 11:
|
case 11:
|
||||||
#line 179 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 156 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
if (cmFortranParserIsKeyword((yyvsp[-3].string), "include"))
|
if (cmFortranParserIsKeyword((yyvsp[-3].string), "include")) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
|
#line 1522 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 12:
|
||||||
|
#line 164 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
|
{
|
||||||
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
|
cmFortranParser_RuleLineDirective(parser, (yyvsp[-2].string));
|
||||||
|
free((yyvsp[-2].string));
|
||||||
|
}
|
||||||
|
#line 1532 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 13:
|
||||||
|
#line 169 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
|
{
|
||||||
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
|
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
||||||
|
free((yyvsp[-2].string));
|
||||||
|
}
|
||||||
|
#line 1542 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 14:
|
||||||
|
#line 174 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
|
{
|
||||||
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
|
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
||||||
|
free((yyvsp[-2].string));
|
||||||
|
}
|
||||||
#line 1552 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1552 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 12:
|
|
||||||
#line 190 "cmFortranParser.y" /* yacc.c:1646 */
|
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleLineDirective(parser, (yyvsp[-2].string));
|
|
||||||
free((yyvsp[-2].string));
|
|
||||||
}
|
|
||||||
#line 1563 "cmFortranParser.cxx" /* yacc.c:1646 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 13:
|
|
||||||
#line 197 "cmFortranParser.y" /* yacc.c:1646 */
|
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
|
||||||
free((yyvsp[-2].string));
|
|
||||||
}
|
|
||||||
#line 1574 "cmFortranParser.cxx" /* yacc.c:1646 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 14:
|
|
||||||
#line 204 "cmFortranParser.y" /* yacc.c:1646 */
|
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
|
||||||
free((yyvsp[-2].string));
|
|
||||||
}
|
|
||||||
#line 1585 "cmFortranParser.cxx" /* yacc.c:1646 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 15:
|
case 15:
|
||||||
#line 211 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 179 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleDefine(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleDefine(parser, (yyvsp[-2].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1595 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1562 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 16:
|
case 16:
|
||||||
#line 217 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 184 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleUndef(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleUndef(parser, (yyvsp[-2].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1605 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1572 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 17:
|
case 17:
|
||||||
#line 223 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 189 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIfdef(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleIfdef(parser, (yyvsp[-2].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1615 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1582 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 18:
|
case 18:
|
||||||
#line 229 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 194 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIfndef(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleIfndef(parser, (yyvsp[-2].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1625 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1592 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 19:
|
case 19:
|
||||||
#line 235 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 199 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIf(parser);
|
cmFortranParser_RuleIf(parser);
|
||||||
}
|
}
|
||||||
#line 1634 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1601 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 20:
|
case 20:
|
||||||
#line 240 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 203 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElif(parser);
|
cmFortranParser_RuleElif(parser);
|
||||||
}
|
}
|
||||||
#line 1643 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1610 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 21:
|
case 21:
|
||||||
#line 245 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 207 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElse(parser);
|
cmFortranParser_RuleElse(parser);
|
||||||
}
|
}
|
||||||
#line 1652 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1619 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 22:
|
case 22:
|
||||||
#line 250 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 211 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleEndif(parser);
|
cmFortranParser_RuleEndif(parser);
|
||||||
}
|
}
|
||||||
#line 1661 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1628 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 23:
|
case 23:
|
||||||
#line 255 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 215 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
}
|
}
|
||||||
#line 1669 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1636 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 48:
|
case 48:
|
||||||
#line 277 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 237 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{ free ((yyvsp[0].string)); }
|
{ free ((yyvsp[0].string)); }
|
||||||
#line 1675 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1642 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 49:
|
case 49:
|
||||||
#line 278 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 238 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{ free ((yyvsp[0].string)); }
|
{ free ((yyvsp[0].string)); }
|
||||||
#line 1681 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1648 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|
||||||
#line 1685 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1652 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
default: break;
|
default: break;
|
||||||
}
|
}
|
||||||
/* User semantic actions sometimes alter yychar, and that requires
|
/* User semantic actions sometimes alter yychar, and that requires
|
||||||
@ -1911,6 +1878,6 @@ yyreturn:
|
|||||||
#endif
|
#endif
|
||||||
return yyresult;
|
return yyresult;
|
||||||
}
|
}
|
||||||
#line 286 "cmFortranParser.y" /* yacc.c:1906 */
|
#line 246 "cmFortranParser.y" /* yacc.c:1906 */
|
||||||
|
|
||||||
/* End of grammar */
|
/* End of grammar */
|
||||||
|
|||||||
@ -92,7 +92,6 @@ static bool cmFortranParserIsKeyword(const char* word,
|
|||||||
%token F90PPR_IFDEF F90PPR_IFNDEF F90PPR_IF
|
%token F90PPR_IFDEF F90PPR_IFNDEF F90PPR_IF
|
||||||
%token F90PPR_ELSE F90PPR_ELIF F90PPR_ENDIF
|
%token F90PPR_ELSE F90PPR_ELIF F90PPR_ENDIF
|
||||||
%token COMMA DCOLON
|
%token COMMA DCOLON
|
||||||
%token <string> CPP_TOENDL
|
|
||||||
%token <number> UNTERMINATED_STRING
|
%token <number> UNTERMINATED_STRING
|
||||||
%token <string> STRING WORD
|
%token <string> STRING WORD
|
||||||
%token <string> CPP_INCLUDE_ANGLE
|
%token <string> CPP_INCLUDE_ANGLE
|
||||||
@ -105,154 +104,115 @@ code: /* empty */ | code stmt;
|
|||||||
|
|
||||||
stmt: keyword_stmt | assignment_stmt;
|
stmt: keyword_stmt | assignment_stmt;
|
||||||
|
|
||||||
assignment_stmt: WORD ASSIGNMENT_OP other EOSTMT /* Ignore */
|
assignment_stmt:
|
||||||
{
|
WORD ASSIGNMENT_OP other EOSTMT {
|
||||||
free($1);
|
free($1);
|
||||||
}
|
}
|
||||||
|
|
||||||
keyword_stmt:
|
keyword_stmt:
|
||||||
WORD EOSTMT
|
WORD EOSTMT {
|
||||||
{
|
if (cmFortranParserIsKeyword($1, "interface")) {
|
||||||
if (cmFortranParserIsKeyword($1, "interface"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, true);
|
cmFortranParser_SetInInterface(parser, true);
|
||||||
}
|
}
|
||||||
free($1);
|
free($1);
|
||||||
}
|
}
|
||||||
| WORD WORD other EOSTMT
|
| WORD WORD other EOSTMT {
|
||||||
{
|
if (cmFortranParserIsKeyword($1, "use")) {
|
||||||
if (cmFortranParserIsKeyword($1, "use"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, $2);
|
cmFortranParser_RuleUse(parser, $2);
|
||||||
}
|
} else if (cmFortranParserIsKeyword($1, "module")) {
|
||||||
else if (cmFortranParserIsKeyword($1, "module"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleModule(parser, $2);
|
cmFortranParser_RuleModule(parser, $2);
|
||||||
}
|
} else if (cmFortranParserIsKeyword($1, "interface")) {
|
||||||
else if (cmFortranParserIsKeyword($1, "interface"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, true);
|
cmFortranParser_SetInInterface(parser, true);
|
||||||
}
|
} else if (cmFortranParserIsKeyword($2, "interface") &&
|
||||||
else if (cmFortranParserIsKeyword($2, "interface") &&
|
cmFortranParserIsKeyword($1, "end")) {
|
||||||
cmFortranParserIsKeyword($1, "end"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_SetInInterface(parser, false);
|
cmFortranParser_SetInInterface(parser, false);
|
||||||
}
|
}
|
||||||
free($1);
|
free($1);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| WORD DCOLON WORD other EOSTMT
|
| WORD DCOLON WORD other EOSTMT {
|
||||||
{
|
if (cmFortranParserIsKeyword($1, "use")) {
|
||||||
if (cmFortranParserIsKeyword($1, "use"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, $3);
|
cmFortranParser_RuleUse(parser, $3);
|
||||||
}
|
}
|
||||||
free($1);
|
free($1);
|
||||||
free($3);
|
free($3);
|
||||||
}
|
}
|
||||||
| WORD COMMA WORD DCOLON WORD other EOSTMT
|
| WORD COMMA WORD DCOLON WORD other EOSTMT {
|
||||||
{
|
|
||||||
if (cmFortranParserIsKeyword($1, "use") &&
|
if (cmFortranParserIsKeyword($1, "use") &&
|
||||||
cmFortranParserIsKeyword($3, "non_intrinsic") )
|
cmFortranParserIsKeyword($3, "non_intrinsic") ) {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleUse(parser, $5);
|
cmFortranParser_RuleUse(parser, $5);
|
||||||
}
|
}
|
||||||
free($1);
|
free($1);
|
||||||
free($3);
|
free($3);
|
||||||
free($5);
|
free($5);
|
||||||
}
|
}
|
||||||
| WORD STRING other EOSTMT /* Ignore */
|
| WORD STRING other EOSTMT {
|
||||||
{
|
if (cmFortranParserIsKeyword($1, "include")) {
|
||||||
if (cmFortranParserIsKeyword($1, "include"))
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
{
|
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, $2);
|
cmFortranParser_RuleInclude(parser, $2);
|
||||||
}
|
}
|
||||||
free($1);
|
free($1);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| CPP_LINE_DIRECTIVE STRING other EOSTMT
|
| CPP_LINE_DIRECTIVE STRING other EOSTMT {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleLineDirective(parser, $2);
|
cmFortranParser_RuleLineDirective(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| CPP_INCLUDE_ANGLE other EOSTMT
|
| CPP_INCLUDE_ANGLE other EOSTMT {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, $1);
|
cmFortranParser_RuleInclude(parser, $1);
|
||||||
free($1);
|
free($1);
|
||||||
}
|
}
|
||||||
| include STRING other EOSTMT
|
| include STRING other EOSTMT {
|
||||||
{
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser* parser =
|
|
||||||
cmFortran_yyget_extra(yyscanner);
|
|
||||||
cmFortranParser_RuleInclude(parser, $2);
|
cmFortranParser_RuleInclude(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| define WORD other EOSTMT
|
| define WORD other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleDefine(parser, $2);
|
cmFortranParser_RuleDefine(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| undef WORD other EOSTMT
|
| undef WORD other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleUndef(parser, $2);
|
cmFortranParser_RuleUndef(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| ifdef WORD other EOSTMT
|
| ifdef WORD other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIfdef(parser, $2);
|
cmFortranParser_RuleIfdef(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| ifndef WORD other EOSTMT
|
| ifndef WORD other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIfndef(parser, $2);
|
cmFortranParser_RuleIfndef(parser, $2);
|
||||||
free($2);
|
free($2);
|
||||||
}
|
}
|
||||||
| if other EOSTMT
|
| if other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIf(parser);
|
cmFortranParser_RuleIf(parser);
|
||||||
}
|
}
|
||||||
| elif other EOSTMT
|
| elif other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElif(parser);
|
cmFortranParser_RuleElif(parser);
|
||||||
}
|
}
|
||||||
| else other EOSTMT
|
| else other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElse(parser);
|
cmFortranParser_RuleElse(parser);
|
||||||
}
|
}
|
||||||
| endif other EOSTMT
|
| endif other EOSTMT {
|
||||||
{
|
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleEndif(parser);
|
cmFortranParser_RuleEndif(parser);
|
||||||
}
|
}
|
||||||
| WORD GARBAGE other EOSTMT /* Ignore */
|
| WORD GARBAGE other EOSTMT {
|
||||||
{
|
|
||||||
free($1);
|
free($1);
|
||||||
}
|
}
|
||||||
| GARBAGE other EOSTMT
|
| GARBAGE other EOSTMT
|
||||||
|
|||||||
@ -1,8 +1,8 @@
|
|||||||
/* A Bison parser, made by GNU Bison 3.0.2. */
|
/* A Bison parser, made by GNU Bison 3.0.4. */
|
||||||
|
|
||||||
/* Bison interface for Yacc-like parsers in C
|
/* Bison interface for Yacc-like parsers in C
|
||||||
|
|
||||||
Copyright (C) 1984, 1989-1990, 2000-2013 Free Software Foundation, Inc.
|
Copyright (C) 1984, 1989-1990, 2000-2015 Free Software Foundation, Inc.
|
||||||
|
|
||||||
This program is free software: you can redistribute it and/or modify
|
This program is free software: you can redistribute it and/or modify
|
||||||
it under the terms of the GNU General Public License as published by
|
it under the terms of the GNU General Public License as published by
|
||||||
@ -70,11 +70,10 @@ extern int cmFortran_yydebug;
|
|||||||
F90PPR_ENDIF = 280,
|
F90PPR_ENDIF = 280,
|
||||||
COMMA = 281,
|
COMMA = 281,
|
||||||
DCOLON = 282,
|
DCOLON = 282,
|
||||||
CPP_TOENDL = 283,
|
UNTERMINATED_STRING = 283,
|
||||||
UNTERMINATED_STRING = 284,
|
STRING = 284,
|
||||||
STRING = 285,
|
WORD = 285,
|
||||||
WORD = 286,
|
CPP_INCLUDE_ANGLE = 286
|
||||||
CPP_INCLUDE_ANGLE = 287
|
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
/* Tokens. */
|
/* Tokens. */
|
||||||
@ -103,23 +102,24 @@ extern int cmFortran_yydebug;
|
|||||||
#define F90PPR_ENDIF 280
|
#define F90PPR_ENDIF 280
|
||||||
#define COMMA 281
|
#define COMMA 281
|
||||||
#define DCOLON 282
|
#define DCOLON 282
|
||||||
#define CPP_TOENDL 283
|
#define UNTERMINATED_STRING 283
|
||||||
#define UNTERMINATED_STRING 284
|
#define STRING 284
|
||||||
#define STRING 285
|
#define WORD 285
|
||||||
#define WORD 286
|
#define CPP_INCLUDE_ANGLE 286
|
||||||
#define CPP_INCLUDE_ANGLE 287
|
|
||||||
|
|
||||||
/* Value type. */
|
/* Value type. */
|
||||||
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
|
||||||
typedef union YYSTYPE YYSTYPE;
|
|
||||||
union YYSTYPE
|
union YYSTYPE
|
||||||
{
|
{
|
||||||
#line 81 "cmFortranParser.y" /* yacc.c:1909 */
|
#line 81 "cmFortranParser.y" /* yacc.c:1909 */
|
||||||
|
|
||||||
char* string;
|
char* string;
|
||||||
|
|
||||||
#line 122 "cmFortranParserTokens.h" /* yacc.c:1909 */
|
#line 120 "cmFortranParserTokens.h" /* yacc.c:1909 */
|
||||||
};
|
};
|
||||||
|
|
||||||
|
typedef union YYSTYPE YYSTYPE;
|
||||||
# define YYSTYPE_IS_TRIVIAL 1
|
# define YYSTYPE_IS_TRIVIAL 1
|
||||||
# define YYSTYPE_IS_DECLARED 1
|
# define YYSTYPE_IS_DECLARED 1
|
||||||
#endif
|
#endif
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user