cmFortranParser: Simplify grammar by skipping unknown statements
Our Fortran grammar is a bare minimum to extract dependencies. Other statement syntax can be ignored, so simply skip to the end of unrecognized statements. This allows some of our existing productions to be dropped.
This commit is contained in:
Brad King
parent
f506489d1e
commit
1619fb46a8
|
|
@ -503,16 +503,16 @@ 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 249
|
#define YYLAST 216
|
||||||
|
|
||||||
/* YYNTOKENS -- Number of terminals. */
|
/* YYNTOKENS -- Number of terminals. */
|
||||||
#define YYNTOKENS 32
|
#define YYNTOKENS 32
|
||||||
/* YYNNTS -- Number of nonterminals. */
|
/* YYNNTS -- Number of nonterminals. */
|
||||||
#define YYNNTS 16
|
#define YYNNTS 14
|
||||||
/* YYNRULES -- Number of rules. */
|
/* YYNRULES -- Number of rules. */
|
||||||
#define YYNRULES 54
|
#define YYNRULES 49
|
||||||
/* YYNSTATES -- Number of states. */
|
/* YYNSTATES -- Number of states. */
|
||||||
#define YYNSTATES 101
|
#define YYNSTATES 91
|
||||||
|
|
||||||
/* 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. */
|
||||||
|
|
@ -561,12 +561,11 @@ static const yytype_uint8 yytranslate[] =
|
||||||
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
|
/* YYRLINE[YYN] -- Source line where rule number YYN was defined. */
|
||||||
static const yytype_uint8 yyrline[] =
|
static const yytype_uint8 yyrline[] =
|
||||||
{
|
{
|
||||||
0, 103, 103, 103, 105, 105, 108, 113, 120, 138,
|
0, 103, 103, 103, 106, 113, 131, 139, 149, 157,
|
||||||
146, 156, 164, 169, 174, 179, 184, 189, 194, 199,
|
162, 167, 172, 177, 182, 187, 192, 196, 200, 204,
|
||||||
203, 207, 211, 215, 218, 219, 220, 225, 225, 225,
|
208, 209, 214, 214, 214, 215, 215, 216, 216, 217,
|
||||||
226, 226, 227, 227, 228, 228, 229, 229, 230, 230,
|
217, 218, 218, 219, 219, 220, 220, 221, 221, 222,
|
||||||
231, 231, 232, 232, 233, 233, 234, 234, 237, 238,
|
222, 223, 223, 226, 227, 228, 229, 230, 231, 232
|
||||||
239, 240, 241, 242, 243
|
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
@ -582,8 +581,8 @@ static const char *const yytname[] =
|
||||||
"F90PPR_IFDEF", "F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE",
|
"F90PPR_IFDEF", "F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE",
|
||||||
"F90PPR_ELIF", "F90PPR_ENDIF", "COMMA", "DCOLON", "UNTERMINATED_STRING",
|
"F90PPR_ELIF", "F90PPR_ENDIF", "COMMA", "DCOLON", "UNTERMINATED_STRING",
|
||||||
"STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept", "code", "stmt",
|
"STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept", "code", "stmt",
|
||||||
"assignment_stmt", "keyword_stmt", "include", "define", "undef", "ifdef",
|
"include", "define", "undef", "ifdef", "ifndef", "if", "elif", "else",
|
||||||
"ifndef", "if", "elif", "else", "endif", "other", "misc_code", YY_NULLPTR
|
"endif", "other", "misc_code", YY_NULLPTR
|
||||||
};
|
};
|
||||||
#endif
|
#endif
|
||||||
|
|
||||||
|
|
@ -599,10 +598,10 @@ static const yytype_uint16 yytoknum[] =
|
||||||
};
|
};
|
||||||
# endif
|
# endif
|
||||||
|
|
||||||
#define YYPACT_NINF -29
|
#define YYPACT_NINF -34
|
||||||
|
|
||||||
#define yypact_value_is_default(Yystate) \
|
#define yypact_value_is_default(Yystate) \
|
||||||
(!!((Yystate) == (-29)))
|
(!!((Yystate) == (-34)))
|
||||||
|
|
||||||
#define YYTABLE_NINF -1
|
#define YYTABLE_NINF -1
|
||||||
|
|
||||||
|
|
@ -613,17 +612,16 @@ static const yytype_uint16 yytoknum[] =
|
||||||
STATE-NUM. */
|
STATE-NUM. */
|
||||||
static const yytype_int16 yypact[] =
|
static const yytype_int16 yypact[] =
|
||||||
{
|
{
|
||||||
-29, 41, -29, -29, -29, -29, -28, -29, -29, -29,
|
-34, 18, -34, 1, -34, -23, -34, -34, -34, -34,
|
||||||
-29, -29, -29, -29, -29, -29, -29, -29, -29, -29,
|
-34, -34, -34, -34, -34, -34, -34, -34, -34, -34,
|
||||||
-29, -29, -29, -29, -29, -29, 219, -29, -29, -29,
|
-34, -34, -34, -34, -34, 186, -34, -34, -22, -19,
|
||||||
-29, -26, -22, -17, -15, -12, -29, -29, -29, -29,
|
-13, -10, -8, -34, -34, -34, -34, -34, -34, -34,
|
||||||
2, -29, -29, -29, -29, -11, -8, -29, -29, 64,
|
17, 23, -34, -34, 41, -34, -34, -34, -34, -34,
|
||||||
-29, -29, -29, -29, -29, 70, 75, 80, 108, -29,
|
47, 52, 57, 85, 90, 31, -34, 95, 100, -34,
|
||||||
-29, -29, -29, -29, -29, -29, -29, -29, 113, 118,
|
-34, -34, -34, -34, -34, -34, -34, -34, 105, 133,
|
||||||
123, -25, -29, 128, 156, -29, 161, 166, 171, 176,
|
138, 143, 148, -34, -34, -34, -34, -34, 29, 153,
|
||||||
204, -29, -29, -29, -29, -29, -29, -29, 3, 209,
|
-34, -34, -34, -34, -34, -34, -34, -34, -34, 181,
|
||||||
-29, -29, -29, -29, -29, -29, -29, -29, -29, 214,
|
-34
|
||||||
-29
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
|
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
|
||||||
|
|
@ -631,31 +629,30 @@ static const yytype_int16 yypact[] =
|
||||||
means the default is an error. */
|
means the default is an error. */
|
||||||
static const yytype_uint8 yydefact[] =
|
static const yytype_uint8 yydefact[] =
|
||||||
{
|
{
|
||||||
2, 0, 1, 26, 25, 46, 0, 27, 28, 29,
|
2, 0, 1, 0, 20, 0, 22, 23, 24, 26,
|
||||||
31, 30, 33, 32, 34, 36, 38, 42, 40, 44,
|
25, 28, 27, 29, 31, 33, 37, 35, 39, 30,
|
||||||
35, 37, 39, 43, 41, 45, 0, 46, 3, 5,
|
32, 34, 38, 36, 40, 0, 41, 3, 0, 0,
|
||||||
4, 0, 0, 0, 0, 0, 46, 46, 46, 46,
|
0, 0, 0, 41, 41, 41, 41, 21, 41, 4,
|
||||||
0, 46, 7, 46, 46, 0, 0, 46, 46, 0,
|
0, 0, 41, 41, 0, 41, 41, 41, 41, 41,
|
||||||
46, 46, 46, 46, 46, 0, 0, 0, 0, 24,
|
0, 0, 0, 0, 0, 0, 41, 0, 0, 10,
|
||||||
51, 50, 53, 52, 54, 49, 48, 47, 0, 0,
|
46, 45, 48, 47, 49, 44, 43, 42, 0, 0,
|
||||||
0, 0, 46, 0, 0, 13, 0, 0, 0, 0,
|
0, 0, 0, 16, 17, 18, 19, 9, 0, 0,
|
||||||
0, 19, 20, 21, 22, 12, 6, 23, 0, 0,
|
8, 5, 11, 12, 13, 14, 15, 41, 6, 0,
|
||||||
11, 8, 14, 15, 16, 17, 18, 46, 9, 0,
|
7
|
||||||
10
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYPGOTO[NTERM-NUM]. */
|
/* YYPGOTO[NTERM-NUM]. */
|
||||||
static const yytype_int8 yypgoto[] =
|
static const yytype_int8 yypgoto[] =
|
||||||
{
|
{
|
||||||
-29, -29, -29, -29, -29, -29, -29, -29, -29, -29,
|
-34, -34, -34, -34, -34, -34, -34, -34, -34, -34,
|
||||||
-29, -29, -29, -29, -27, -29
|
-34, -34, -33, -34
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYDEFGOTO[NTERM-NUM]. */
|
/* YYDEFGOTO[NTERM-NUM]. */
|
||||||
static const yytype_int8 yydefgoto[] =
|
static const yytype_int8 yydefgoto[] =
|
||||||
{
|
{
|
||||||
-1, 1, 28, 29, 30, 31, 32, 33, 34, 35,
|
-1, 1, 27, 28, 29, 30, 31, 32, 33, 34,
|
||||||
36, 37, 38, 39, 40, 67
|
35, 36, 44, 67
|
||||||
};
|
};
|
||||||
|
|
||||||
/* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
|
/* YYTABLE[YYPACT[STATE-NUM]] -- What to do in state STATE-NUM. If
|
||||||
|
|
@ -663,99 +660,90 @@ 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, 88, 50, 0, 59, 60, 61, 51, 55,
|
50, 51, 52, 53, 37, 54, 38, 45, 0, 57,
|
||||||
56, 57, 58, 52, 68, 53, 69, 70, 54, 71,
|
58, 46, 68, 69, 70, 71, 72, 47, 2, 3,
|
||||||
73, 74, 72, 76, 77, 78, 79, 80, 62, 63,
|
48, 4, 49, 79, 5, 6, 7, 8, 9, 10,
|
||||||
64, 65, 66, 97, 0, 0, 0, 0, 0, 0,
|
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
|
||||||
0, 2, 3, 0, 4, 89, 5, 6, 7, 8,
|
21, 22, 23, 24, 59, 60, 61, 55, 25, 26,
|
||||||
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
73, 60, 61, 56, 89, 74, 60, 61, 78, 87,
|
||||||
19, 20, 21, 22, 23, 24, 25, 75, 60, 61,
|
75, 60, 61, 0, 0, 0, 0, 62, 63, 64,
|
||||||
99, 26, 27, 81, 60, 61, 0, 0, 82, 60,
|
65, 66, 0, 62, 63, 64, 65, 66, 62, 63,
|
||||||
61, 0, 0, 83, 60, 61, 0, 0, 0, 0,
|
64, 65, 66, 62, 63, 64, 65, 66, 76, 60,
|
||||||
62, 63, 64, 65, 66, 0, 62, 63, 64, 65,
|
61, 0, 0, 77, 60, 61, 0, 0, 80, 60,
|
||||||
|
61, 0, 0, 81, 60, 61, 0, 0, 82, 60,
|
||||||
|
61, 62, 63, 64, 65, 66, 62, 63, 64, 65,
|
||||||
66, 62, 63, 64, 65, 66, 62, 63, 64, 65,
|
66, 62, 63, 64, 65, 66, 62, 63, 64, 65,
|
||||||
66, 84, 60, 61, 0, 0, 85, 60, 61, 0,
|
66, 62, 63, 64, 65, 66, 83, 60, 61, 0,
|
||||||
0, 86, 60, 61, 0, 0, 87, 60, 61, 0,
|
0, 84, 60, 61, 0, 0, 85, 60, 61, 0,
|
||||||
0, 90, 60, 61, 62, 63, 64, 65, 66, 62,
|
0, 86, 60, 61, 0, 0, 88, 60, 61, 62,
|
||||||
63, 64, 65, 66, 62, 63, 64, 65, 66, 62,
|
63, 64, 65, 66, 62, 63, 64, 65, 66, 62,
|
||||||
63, 64, 65, 66, 62, 63, 64, 65, 66, 91,
|
63, 64, 65, 66, 62, 63, 64, 65, 66, 62,
|
||||||
60, 61, 0, 0, 92, 60, 61, 0, 0, 93,
|
63, 64, 65, 66, 90, 60, 61, 0, 0, 39,
|
||||||
60, 61, 0, 0, 94, 60, 61, 0, 0, 95,
|
0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
|
||||||
60, 61, 62, 63, 64, 65, 66, 62, 63, 64,
|
0, 0, 0, 0, 0, 0, 0, 62, 63, 64,
|
||||||
65, 66, 62, 63, 64, 65, 66, 62, 63, 64,
|
65, 66, 40, 41, 0, 42, 43
|
||||||
65, 66, 62, 63, 64, 65, 66, 96, 60, 61,
|
|
||||||
0, 0, 98, 60, 61, 0, 0, 100, 60, 61,
|
|
||||||
0, 0, 42, 43, 44, 0, 0, 0, 0, 0,
|
|
||||||
62, 63, 64, 65, 66, 62, 63, 64, 65, 66,
|
|
||||||
62, 63, 64, 65, 66, 45, 46, 0, 47, 48
|
|
||||||
};
|
};
|
||||||
|
|
||||||
static const yytype_int8 yycheck[] =
|
static const yytype_int8 yycheck[] =
|
||||||
{
|
{
|
||||||
27, 29, 27, 29, -1, 3, 4, 5, 30, 36,
|
33, 34, 35, 36, 3, 38, 29, 29, -1, 42,
|
||||||
37, 38, 39, 30, 41, 30, 43, 44, 30, 30,
|
43, 30, 45, 46, 47, 48, 49, 30, 0, 1,
|
||||||
47, 48, 30, 50, 51, 52, 53, 54, 26, 27,
|
30, 3, 30, 56, 6, 7, 8, 9, 10, 11,
|
||||||
28, 29, 30, 30, -1, -1, -1, -1, -1, -1,
|
12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
|
||||||
-1, 0, 1, -1, 3, 72, 5, 6, 7, 8,
|
22, 23, 24, 25, 3, 4, 5, 30, 30, 31,
|
||||||
9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
|
3, 4, 5, 30, 87, 3, 4, 5, 27, 30,
|
||||||
19, 20, 21, 22, 23, 24, 25, 3, 4, 5,
|
3, 4, 5, -1, -1, -1, -1, 26, 27, 28,
|
||||||
97, 30, 31, 3, 4, 5, -1, -1, 3, 4,
|
29, 30, -1, 26, 27, 28, 29, 30, 26, 27,
|
||||||
5, -1, -1, 3, 4, 5, -1, -1, -1, -1,
|
28, 29, 30, 26, 27, 28, 29, 30, 3, 4,
|
||||||
26, 27, 28, 29, 30, -1, 26, 27, 28, 29,
|
5, -1, -1, 3, 4, 5, -1, -1, 3, 4,
|
||||||
|
5, -1, -1, 3, 4, 5, -1, -1, 3, 4,
|
||||||
|
5, 26, 27, 28, 29, 30, 26, 27, 28, 29,
|
||||||
30, 26, 27, 28, 29, 30, 26, 27, 28, 29,
|
30, 26, 27, 28, 29, 30, 26, 27, 28, 29,
|
||||||
30, 3, 4, 5, -1, -1, 3, 4, 5, -1,
|
30, 26, 27, 28, 29, 30, 3, 4, 5, -1,
|
||||||
-1, 3, 4, 5, -1, -1, 3, 4, 5, -1,
|
-1, 3, 4, 5, -1, -1, 3, 4, 5, -1,
|
||||||
-1, 3, 4, 5, 26, 27, 28, 29, 30, 26,
|
-1, 3, 4, 5, -1, -1, 3, 4, 5, 26,
|
||||||
27, 28, 29, 30, 26, 27, 28, 29, 30, 26,
|
27, 28, 29, 30, 26, 27, 28, 29, 30, 26,
|
||||||
27, 28, 29, 30, 26, 27, 28, 29, 30, 3,
|
27, 28, 29, 30, 26, 27, 28, 29, 30, 26,
|
||||||
4, 5, -1, -1, 3, 4, 5, -1, -1, 3,
|
27, 28, 29, 30, 3, 4, 5, -1, -1, 3,
|
||||||
4, 5, -1, -1, 3, 4, 5, -1, -1, 3,
|
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1,
|
||||||
4, 5, 26, 27, 28, 29, 30, 26, 27, 28,
|
-1, -1, -1, -1, -1, -1, -1, 26, 27, 28,
|
||||||
29, 30, 26, 27, 28, 29, 30, 26, 27, 28,
|
29, 30, 26, 27, -1, 29, 30
|
||||||
29, 30, 26, 27, 28, 29, 30, 3, 4, 5,
|
|
||||||
-1, -1, 3, 4, 5, -1, -1, 3, 4, 5,
|
|
||||||
-1, -1, 3, 4, 5, -1, -1, -1, -1, -1,
|
|
||||||
26, 27, 28, 29, 30, 26, 27, 28, 29, 30,
|
|
||||||
26, 27, 28, 29, 30, 26, 27, -1, 29, 30
|
|
||||||
};
|
};
|
||||||
|
|
||||||
/* 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, 33, 0, 1, 3, 5, 6, 7, 8, 9,
|
0, 33, 0, 1, 3, 6, 7, 8, 9, 10,
|
||||||
10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
|
11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
|
||||||
20, 21, 22, 23, 24, 25, 30, 31, 34, 35,
|
21, 22, 23, 24, 25, 30, 31, 34, 35, 36,
|
||||||
36, 37, 38, 39, 40, 41, 42, 43, 44, 45,
|
37, 38, 39, 40, 41, 42, 43, 3, 29, 3,
|
||||||
46, 29, 3, 4, 5, 26, 27, 29, 30, 46,
|
26, 27, 29, 30, 44, 29, 30, 30, 30, 30,
|
||||||
29, 30, 30, 30, 30, 46, 46, 46, 46, 3,
|
44, 44, 44, 44, 44, 30, 30, 44, 44, 3,
|
||||||
4, 5, 26, 27, 28, 29, 30, 47, 46, 46,
|
4, 5, 26, 27, 28, 29, 30, 45, 44, 44,
|
||||||
46, 30, 30, 46, 46, 3, 46, 46, 46, 46,
|
44, 44, 44, 3, 3, 3, 3, 3, 27, 44,
|
||||||
46, 3, 3, 3, 3, 3, 3, 3, 27, 46,
|
3, 3, 3, 3, 3, 3, 3, 30, 3, 44,
|
||||||
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, 32, 33, 33, 34, 34, 35, 36, 36, 36,
|
0, 32, 33, 33, 34, 34, 34, 34, 34, 34,
|
||||||
36, 36, 36, 36, 36, 36, 36, 36, 36, 36,
|
34, 34, 34, 34, 34, 34, 34, 34, 34, 34,
|
||||||
36, 36, 36, 36, 36, 36, 36, 37, 37, 37,
|
34, 34, 35, 35, 35, 36, 36, 37, 37, 38,
|
||||||
38, 38, 39, 39, 40, 40, 41, 41, 42, 42,
|
38, 39, 39, 40, 40, 41, 41, 42, 42, 43,
|
||||||
43, 43, 44, 44, 45, 45, 46, 46, 47, 47,
|
43, 44, 44, 45, 45, 45, 45, 45, 45, 45
|
||||||
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. */
|
||||||
static const yytype_uint8 yyr2[] =
|
static const yytype_uint8 yyr2[] =
|
||||||
{
|
{
|
||||||
0, 2, 0, 2, 1, 1, 4, 2, 4, 5,
|
0, 2, 0, 2, 2, 4, 5, 7, 4, 4,
|
||||||
7, 4, 4, 3, 4, 4, 4, 4, 4, 3,
|
3, 4, 4, 4, 4, 4, 3, 3, 3, 3,
|
||||||
3, 3, 3, 4, 3, 1, 1, 1, 1, 1,
|
1, 2, 1, 1, 1, 1, 1, 1, 1, 1,
|
||||||
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
|
||||||
1, 1, 1, 1, 1, 1, 0, 2, 1, 1,
|
1, 0, 2, 1, 1, 1, 1, 1, 1, 1
|
||||||
1, 1, 1, 1, 1
|
|
||||||
};
|
};
|
||||||
|
|
||||||
|
|
||||||
|
|
@ -1437,16 +1425,8 @@ yyreduce:
|
||||||
YY_REDUCE_PRINT (yyn);
|
YY_REDUCE_PRINT (yyn);
|
||||||
switch (yyn)
|
switch (yyn)
|
||||||
{
|
{
|
||||||
case 6:
|
case 4:
|
||||||
#line 108 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 106 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
|
||||||
free((yyvsp[-3].string));
|
|
||||||
}
|
|
||||||
#line 1446 "cmFortranParser.cxx" /* yacc.c:1646 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 7:
|
|
||||||
#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);
|
||||||
|
|
@ -1454,11 +1434,11 @@ yyreduce:
|
||||||
}
|
}
|
||||||
free((yyvsp[-1].string));
|
free((yyvsp[-1].string));
|
||||||
}
|
}
|
||||||
#line 1458 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1438 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 8:
|
case 5:
|
||||||
#line 120 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 113 "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);
|
||||||
|
|
@ -1477,11 +1457,11 @@ yyreduce:
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1481 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1461 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 9:
|
case 6:
|
||||||
#line 138 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 131 "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);
|
||||||
|
|
@ -1490,11 +1470,11 @@ yyreduce:
|
||||||
free((yyvsp[-4].string));
|
free((yyvsp[-4].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1494 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1474 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 10:
|
case 7:
|
||||||
#line 146 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 139 "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") ) {
|
||||||
|
|
@ -1505,11 +1485,11 @@ yyreduce:
|
||||||
free((yyvsp[-4].string));
|
free((yyvsp[-4].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1509 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1489 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 11:
|
case 8:
|
||||||
#line 156 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 149 "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);
|
||||||
|
|
@ -1518,137 +1498,129 @@ yyreduce:
|
||||||
free((yyvsp[-3].string));
|
free((yyvsp[-3].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
#line 1522 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1502 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 12:
|
case 9:
|
||||||
#line 164 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 157 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleLineDirective(parser, (yyvsp[-2].string));
|
cmFortranParser_RuleLineDirective(parser, (yyvsp[-2].string));
|
||||||
free((yyvsp[-2].string));
|
free((yyvsp[-2].string));
|
||||||
}
|
}
|
||||||
|
#line 1512 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 10:
|
||||||
|
#line 162 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
|
{
|
||||||
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
|
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
||||||
|
free((yyvsp[-2].string));
|
||||||
|
}
|
||||||
|
#line 1522 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
|
break;
|
||||||
|
|
||||||
|
case 11:
|
||||||
|
#line 167 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
|
{
|
||||||
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
|
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
|
||||||
|
free((yyvsp[-2].string));
|
||||||
|
}
|
||||||
#line 1532 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1532 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 13:
|
case 12:
|
||||||
#line 169 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 172 "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 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 15:
|
|
||||||
#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 1562 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1542 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 16:
|
case 13:
|
||||||
#line 184 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 177 "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 1572 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1552 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 17:
|
case 14:
|
||||||
#line 189 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 182 "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 1582 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1562 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 18:
|
case 15:
|
||||||
#line 194 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 187 "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 1592 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1572 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 19:
|
case 16:
|
||||||
#line 199 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 192 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleIf(parser);
|
cmFortranParser_RuleIf(parser);
|
||||||
}
|
}
|
||||||
#line 1601 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1581 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 20:
|
case 17:
|
||||||
#line 203 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 196 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElif(parser);
|
cmFortranParser_RuleElif(parser);
|
||||||
}
|
}
|
||||||
#line 1610 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1590 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 21:
|
case 18:
|
||||||
#line 207 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 200 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleElse(parser);
|
cmFortranParser_RuleElse(parser);
|
||||||
}
|
}
|
||||||
#line 1619 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1599 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 22:
|
case 19:
|
||||||
#line 211 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 204 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
{
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleEndif(parser);
|
cmFortranParser_RuleEndif(parser);
|
||||||
}
|
}
|
||||||
#line 1628 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1608 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 23:
|
case 43:
|
||||||
#line 215 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 226 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{
|
|
||||||
free((yyvsp[-3].string));
|
|
||||||
}
|
|
||||||
#line 1636 "cmFortranParser.cxx" /* yacc.c:1646 */
|
|
||||||
break;
|
|
||||||
|
|
||||||
case 48:
|
|
||||||
#line 237 "cmFortranParser.y" /* yacc.c:1646 */
|
|
||||||
{ free ((yyvsp[0].string)); }
|
{ free ((yyvsp[0].string)); }
|
||||||
#line 1642 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1614 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case 49:
|
case 44:
|
||||||
#line 238 "cmFortranParser.y" /* yacc.c:1646 */
|
#line 227 "cmFortranParser.y" /* yacc.c:1646 */
|
||||||
{ free ((yyvsp[0].string)); }
|
{ free ((yyvsp[0].string)); }
|
||||||
#line 1648 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1620 "cmFortranParser.cxx" /* yacc.c:1646 */
|
||||||
break;
|
break;
|
||||||
|
|
||||||
|
|
||||||
#line 1652 "cmFortranParser.cxx" /* yacc.c:1646 */
|
#line 1624 "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
|
||||||
|
|
@ -1878,6 +1850,6 @@ yyreturn:
|
||||||
#endif
|
#endif
|
||||||
return yyresult;
|
return yyresult;
|
||||||
}
|
}
|
||||||
#line 246 "cmFortranParser.y" /* yacc.c:1906 */
|
#line 235 "cmFortranParser.y" /* yacc.c:1906 */
|
||||||
|
|
||||||
/* End of grammar */
|
/* End of grammar */
|
||||||
|
|
|
||||||
|
|
@ -102,14 +102,7 @@ static bool cmFortranParserIsKeyword(const char* word,
|
||||||
|
|
||||||
code: /* empty */ | code stmt;
|
code: /* empty */ | code stmt;
|
||||||
|
|
||||||
stmt: keyword_stmt | assignment_stmt;
|
stmt:
|
||||||
|
|
||||||
assignment_stmt:
|
|
||||||
WORD ASSIGNMENT_OP other EOSTMT {
|
|
||||||
free($1);
|
|
||||||
}
|
|
||||||
|
|
||||||
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);
|
||||||
|
|
@ -212,12 +205,8 @@ keyword_stmt:
|
||||||
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
|
||||||
cmFortranParser_RuleEndif(parser);
|
cmFortranParser_RuleEndif(parser);
|
||||||
}
|
}
|
||||||
| WORD GARBAGE other EOSTMT {
|
|
||||||
free($1);
|
|
||||||
}
|
|
||||||
| GARBAGE other EOSTMT
|
|
||||||
| EOSTMT
|
| EOSTMT
|
||||||
| error
|
| error EOSTMT /* tolerate unknown statements until their end */
|
||||||
;
|
;
|
||||||
|
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue