summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Source/cmDependsFortranParser.cxx198
-rw-r--r--Source/cmDependsFortranParser.y14
2 files changed, 104 insertions, 108 deletions
diff --git a/Source/cmDependsFortranParser.cxx b/Source/cmDependsFortranParser.cxx
index 3bb8404..bbc2ffd 100644
--- a/Source/cmDependsFortranParser.cxx
+++ b/Source/cmDependsFortranParser.cxx
@@ -530,11 +530,11 @@ union yyalloc
/* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS 29
/* YYNNTS -- Number of nonterminals. */
-#define YYNNTS 15
+#define YYNNTS 16
/* YYNRULES -- Number of rules. */
-#define YYNRULES 45
+#define YYNRULES 48
/* YYNRULES -- Number of states. */
-#define YYNSTATES 79
+#define YYNSTATES 82
/* YYTRANSLATE(YYLEX) -- Bison symbol number corresponding to YYLEX. */
#define YYUNDEFTOK 2
@@ -586,35 +586,36 @@ static const yytype_uint8 yyprhs[] =
29, 34, 39, 44, 49, 54, 58, 62, 66, 70,
75, 79, 81, 83, 85, 87, 89, 91, 93, 95,
97, 99, 101, 103, 105, 107, 109, 111, 113, 115,
- 116, 119, 121, 123, 125, 127
+ 117, 119, 121, 122, 125, 127, 129, 131, 133
};
/* YYRHS -- A `-1'-separated list of the rules' RHS. */
static const yytype_int8 yyrhs[] =
{
30, 0, -1, -1, 30, 31, -1, 33, -1, 32,
- -1, 28, 4, 42, 3, -1, 28, 3, -1, 28,
- 28, 42, 3, -1, 28, 27, 42, 3, -1, 6,
- 28, 42, 3, -1, 34, 28, 42, 3, -1, 35,
- 28, 42, 3, -1, 36, 28, 42, 3, -1, 37,
- 28, 42, 3, -1, 38, 42, 3, -1, 39, 42,
- 3, -1, 40, 42, 3, -1, 41, 42, 3, -1,
- 28, 5, 42, 3, -1, 5, 42, 3, -1, 3,
- -1, 1, -1, 10, -1, 9, -1, 12, -1, 11,
- -1, 13, -1, 19, -1, 14, -1, 20, -1, 15,
- -1, 21, -1, 17, -1, 23, -1, 16, -1, 22,
- -1, 18, -1, 24, -1, -1, 42, 43, -1, 28,
- -1, 27, -1, 5, -1, 4, -1, 26, -1
+ -1, 28, 4, 43, 3, -1, 28, 3, -1, 28,
+ 28, 43, 3, -1, 28, 27, 43, 3, -1, 34,
+ 27, 43, 3, -1, 35, 28, 43, 3, -1, 36,
+ 28, 43, 3, -1, 37, 28, 43, 3, -1, 38,
+ 28, 43, 3, -1, 39, 43, 3, -1, 40, 43,
+ 3, -1, 41, 43, 3, -1, 42, 43, 3, -1,
+ 28, 5, 43, 3, -1, 5, 43, 3, -1, 3,
+ -1, 1, -1, 6, -1, 7, -1, 8, -1, 10,
+ -1, 9, -1, 12, -1, 11, -1, 13, -1, 19,
+ -1, 14, -1, 20, -1, 15, -1, 21, -1, 17,
+ -1, 23, -1, 16, -1, 22, -1, 18, -1, 24,
+ -1, -1, 43, 44, -1, 28, -1, 27, -1, 5,
+ -1, 4, -1, 26, -1
};
/* YYRLINE[YYN] -- source line where rule number YYN was defined. */
static const yytype_uint16 yyrline[] =
{
0, 161, 161, 161, 163, 163, 165, 168, 178, 211,
- 222, 223, 229, 235, 241, 247, 252, 257, 262, 267,
- 268, 269, 270, 276, 276, 277, 277, 278, 278, 279,
- 279, 280, 280, 281, 281, 282, 282, 283, 283, 284,
- 284, 287, 288, 289, 290, 291
+ 212, 219, 225, 231, 237, 243, 248, 253, 258, 263,
+ 264, 265, 266, 271, 271, 271, 272, 272, 273, 273,
+ 274, 274, 275, 275, 276, 276, 277, 277, 278, 278,
+ 279, 279, 280, 280, 283, 284, 285, 286, 287
};
#endif
@@ -629,9 +630,9 @@ static const char *const yytname[] =
"CPP_IF", "CPP_ELSE", "CPP_ELIF", "CPP_ENDIF", "F90PPR_IFDEF",
"F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE", "F90PPR_ELIF",
"F90PPR_ENDIF", "CPP_TOENDL", "UNTERMINATED_STRING", "STRING", "WORD",
- "$accept", "code", "stmt", "assignment_stmt", "keyword_stmt", "define",
- "undef", "ifdef", "ifndef", "if", "elif", "else", "endif", "other",
- "misc_code", 0
+ "$accept", "code", "stmt", "assignment_stmt", "keyword_stmt", "include",
+ "define", "undef", "ifdef", "ifndef", "if", "elif", "else", "endif",
+ "other", "misc_code", 0
};
#endif
@@ -651,9 +652,9 @@ static const yytype_uint8 yyr1[] =
{
0, 29, 30, 30, 31, 31, 32, 33, 33, 33,
33, 33, 33, 33, 33, 33, 33, 33, 33, 33,
- 33, 33, 33, 34, 34, 35, 35, 36, 36, 37,
- 37, 38, 38, 39, 39, 40, 40, 41, 41, 42,
- 42, 43, 43, 43, 43, 43
+ 33, 33, 33, 34, 34, 34, 35, 35, 36, 36,
+ 37, 37, 38, 38, 39, 39, 40, 40, 41, 41,
+ 42, 42, 43, 43, 44, 44, 44, 44, 44
};
/* YYR2[YYN] -- Number of symbols composing right hand side of rule YYN. */
@@ -662,8 +663,8 @@ static const yytype_uint8 yyr2[] =
0, 2, 0, 2, 1, 1, 4, 2, 4, 4,
4, 4, 4, 4, 4, 3, 3, 3, 3, 4,
3, 1, 1, 1, 1, 1, 1, 1, 1, 1,
- 1, 1, 1, 1, 1, 1, 1, 1, 1, 0,
- 2, 1, 1, 1, 1, 1
+ 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
+ 1, 1, 0, 2, 1, 1, 1, 1, 1
};
/* YYDEFACT[STATE-NAME] -- Default rule to reduce with in state
@@ -671,43 +672,45 @@ static const yytype_uint8 yyr2[] =
means the default is an error. */
static const yytype_uint8 yydefact[] =
{
- 2, 0, 1, 22, 21, 39, 0, 24, 23, 26,
- 25, 27, 29, 31, 35, 33, 37, 28, 30, 32,
- 36, 34, 38, 0, 3, 5, 4, 0, 0, 0,
- 0, 39, 39, 39, 39, 0, 39, 7, 39, 39,
- 39, 39, 39, 39, 39, 39, 0, 0, 0, 0,
- 20, 44, 43, 45, 42, 41, 40, 0, 0, 0,
- 0, 0, 0, 0, 0, 0, 15, 16, 17, 18,
- 10, 6, 19, 9, 8, 11, 12, 13, 14
+ 2, 0, 1, 22, 21, 42, 23, 24, 25, 27,
+ 26, 29, 28, 30, 32, 34, 38, 36, 40, 31,
+ 33, 35, 39, 37, 41, 0, 3, 5, 4, 0,
+ 0, 0, 0, 0, 42, 42, 42, 42, 0, 7,
+ 42, 42, 42, 42, 42, 42, 42, 42, 42, 0,
+ 0, 0, 0, 20, 47, 46, 48, 45, 44, 43,
+ 0, 0, 0, 0, 0, 0, 0, 0, 0, 15,
+ 16, 17, 18, 6, 19, 9, 8, 10, 11, 12,
+ 13, 14
};
/* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int8 yydefgoto[] =
{
- -1, 1, 24, 25, 26, 27, 28, 29, 30, 31,
- 32, 33, 34, 35, 56
+ -1, 1, 26, 27, 28, 29, 30, 31, 32, 33,
+ 34, 35, 36, 37, 38, 59
};
/* YYPACT[STATE-NUM] -- Index in YYTABLE of the portion describing
STATE-NUM. */
-#define YYPACT_NINF -27
+#define YYPACT_NINF -26
static const yytype_int8 yypact[] =
{
- -27, 0, -27, -27, -27, -27, -26, -27, -27, -27,
- -27, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -27, -27, -27, 111, -27, -27, -27, -24, -21, -20,
- 19, -27, -27, -27, -27, 22, -27, -27, -27, -27,
- -27, -27, -27, -27, -27, -27, 26, 29, 32, 35,
- -27, -27, -27, -27, -27, -27, -27, 38, 41, 67,
- 70, 73, 76, 79, 82, 85, -27, -27, -27, -27,
- -27, -27, -27, -27, -27, -27, -27, -27, -27
+ -26, 0, -26, -26, -26, -26, -26, -26, -26, -26,
+ -26, -26, -26, -26, -26, -26, -26, -26, -26, -26,
+ -26, -26, -26, -26, -26, 111, -26, -26, -26, -25,
+ -24, 19, 23, 63, -26, -26, -26, -26, 22, -26,
+ -26, -26, -26, -26, -26, -26, -26, -26, -26, 26,
+ 29, 32, 35, -26, -26, -26, -26, -26, -26, -26,
+ 38, 41, 67, 70, 73, 76, 79, 82, 85, -26,
+ -26, -26, -26, -26, -26, -26, -26, -26, -26, -26,
+ -26, -26
};
/* YYPGOTO[NTERM-NUM]. */
static const yytype_int8 yypgoto[] =
{
- -27, -27, -27, -27, -27, -27, -27, -27, -27, -27,
- -27, -27, -27, 86, -27
+ -26, -26, -26, -26, -26, -26, -26, -26, -26, -26,
+ -26, -26, -26, -26, 83, -26
};
/* YYTABLE[YYPACT[STATE-NUM]]. What to do in state STATE-NUM. If
@@ -717,52 +720,53 @@ static const yytype_int8 yypgoto[] =
#define YYTABLE_NINF -1
static const yytype_uint8 yytable[] =
{
- 2, 3, 36, 4, 42, 5, 6, 43, 44, 7,
- 8, 9, 10, 11, 12, 13, 14, 15, 16, 17,
- 18, 19, 20, 21, 22, 50, 51, 52, 23, 66,
- 51, 52, 67, 51, 52, 68, 51, 52, 69, 51,
- 52, 70, 51, 52, 71, 51, 52, 45, 53, 54,
- 55, 0, 53, 54, 55, 53, 54, 55, 53, 54,
- 55, 53, 54, 55, 53, 54, 55, 53, 54, 55,
- 72, 51, 52, 73, 51, 52, 74, 51, 52, 75,
- 51, 52, 76, 51, 52, 77, 51, 52, 78, 51,
- 52, 0, 0, 53, 54, 55, 53, 54, 55, 53,
- 54, 55, 53, 54, 55, 53, 54, 55, 53, 54,
- 55, 53, 54, 55, 37, 38, 39, 46, 47, 48,
- 49, 0, 57, 0, 58, 59, 60, 61, 62, 63,
- 64, 65, 0, 0, 0, 0, 0, 0, 40, 41
+ 2, 3, 44, 4, 45, 5, 6, 7, 8, 9,
+ 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
+ 20, 21, 22, 23, 24, 53, 54, 55, 25, 69,
+ 54, 55, 70, 54, 55, 71, 54, 55, 72, 54,
+ 55, 73, 54, 55, 74, 54, 55, 46, 56, 57,
+ 58, 47, 56, 57, 58, 56, 57, 58, 56, 57,
+ 58, 56, 57, 58, 56, 57, 58, 56, 57, 58,
+ 75, 54, 55, 76, 54, 55, 77, 54, 55, 78,
+ 54, 55, 79, 54, 55, 80, 54, 55, 81, 54,
+ 55, 48, 0, 56, 57, 58, 56, 57, 58, 56,
+ 57, 58, 56, 57, 58, 56, 57, 58, 56, 57,
+ 58, 56, 57, 58, 39, 40, 41, 49, 50, 51,
+ 52, 0, 0, 60, 61, 62, 63, 64, 65, 66,
+ 67, 68, 0, 0, 0, 0, 0, 0, 42, 43
};
static const yytype_int8 yycheck[] =
{
- 0, 1, 28, 3, 28, 5, 6, 28, 28, 9,
+ 0, 1, 27, 3, 28, 5, 6, 7, 8, 9,
10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
20, 21, 22, 23, 24, 3, 4, 5, 28, 3,
4, 5, 3, 4, 5, 3, 4, 5, 3, 4,
5, 3, 4, 5, 3, 4, 5, 28, 26, 27,
- 28, -1, 26, 27, 28, 26, 27, 28, 26, 27,
+ 28, 28, 26, 27, 28, 26, 27, 28, 26, 27,
28, 26, 27, 28, 26, 27, 28, 26, 27, 28,
3, 4, 5, 3, 4, 5, 3, 4, 5, 3,
4, 5, 3, 4, 5, 3, 4, 5, 3, 4,
- 5, -1, -1, 26, 27, 28, 26, 27, 28, 26,
+ 5, 28, -1, 26, 27, 28, 26, 27, 28, 26,
27, 28, 26, 27, 28, 26, 27, 28, 26, 27,
- 28, 26, 27, 28, 3, 4, 5, 31, 32, 33,
- 34, -1, 36, -1, 38, 39, 40, 41, 42, 43,
- 44, 45, -1, -1, -1, -1, -1, -1, 27, 28
+ 28, 26, 27, 28, 3, 4, 5, 34, 35, 36,
+ 37, -1, -1, 40, 41, 42, 43, 44, 45, 46,
+ 47, 48, -1, -1, -1, -1, -1, -1, 27, 28
};
/* YYSTOS[STATE-NUM] -- The (internal number of the) accessing
symbol of state STATE-NUM. */
static const yytype_uint8 yystos[] =
{
- 0, 30, 0, 1, 3, 5, 6, 9, 10, 11,
- 12, 13, 14, 15, 16, 17, 18, 19, 20, 21,
- 22, 23, 24, 28, 31, 32, 33, 34, 35, 36,
- 37, 38, 39, 40, 41, 42, 28, 3, 4, 5,
- 27, 28, 28, 28, 28, 28, 42, 42, 42, 42,
- 3, 4, 5, 26, 27, 28, 43, 42, 42, 42,
- 42, 42, 42, 42, 42, 42, 3, 3, 3, 3,
- 3, 3, 3, 3, 3, 3, 3, 3, 3
+ 0, 30, 0, 1, 3, 5, 6, 7, 8, 9,
+ 10, 11, 12, 13, 14, 15, 16, 17, 18, 19,
+ 20, 21, 22, 23, 24, 28, 31, 32, 33, 34,
+ 35, 36, 37, 38, 39, 40, 41, 42, 43, 3,
+ 4, 5, 27, 28, 27, 28, 28, 28, 28, 43,
+ 43, 43, 43, 3, 4, 5, 26, 27, 28, 44,
+ 43, 43, 43, 43, 43, 43, 43, 43, 43, 3,
+ 3, 3, 3, 3, 3, 3, 3, 3, 3, 3,
+ 3, 3
};
#define yyerrok (yyerrstatus = 0)
@@ -1625,22 +1629,18 @@ yyreduce:
}
break;
- case 9:
-#line 212 "cmDependsFortranParser.y"
+ case 10:
+#line 213 "cmDependsFortranParser.y"
{
- if (cmDependsFortranParserIsKeyword((yyvsp[(1) - (4)].string), "include"))
- {
- cmDependsFortranParser* parser =
- cmDependsFortran_yyget_extra(yyscanner);
- cmDependsFortranParser_RuleInclude(parser, (yyvsp[(2) - (4)].string));
- }
- free((yyvsp[(1) - (4)].string));
+ cmDependsFortranParser* parser =
+ cmDependsFortran_yyget_extra(yyscanner);
+ cmDependsFortranParser_RuleInclude(parser, (yyvsp[(2) - (4)].string));
free((yyvsp[(2) - (4)].string));
}
break;
case 11:
-#line 224 "cmDependsFortranParser.y"
+#line 220 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleDefine(parser, (yyvsp[(2) - (4)].string));
@@ -1649,7 +1649,7 @@ yyreduce:
break;
case 12:
-#line 230 "cmDependsFortranParser.y"
+#line 226 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleUndef(parser, (yyvsp[(2) - (4)].string));
@@ -1658,7 +1658,7 @@ yyreduce:
break;
case 13:
-#line 236 "cmDependsFortranParser.y"
+#line 232 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIfdef(parser, (yyvsp[(2) - (4)].string));
@@ -1667,7 +1667,7 @@ yyreduce:
break;
case 14:
-#line 242 "cmDependsFortranParser.y"
+#line 238 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIfndef(parser, (yyvsp[(2) - (4)].string));
@@ -1676,7 +1676,7 @@ yyreduce:
break;
case 15:
-#line 248 "cmDependsFortranParser.y"
+#line 244 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleIf(parser);
@@ -1684,7 +1684,7 @@ yyreduce:
break;
case 16:
-#line 253 "cmDependsFortranParser.y"
+#line 249 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleElif(parser);
@@ -1692,7 +1692,7 @@ yyreduce:
break;
case 17:
-#line 258 "cmDependsFortranParser.y"
+#line 254 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleElse(parser);
@@ -1700,20 +1700,20 @@ yyreduce:
break;
case 18:
-#line 263 "cmDependsFortranParser.y"
+#line 259 "cmDependsFortranParser.y"
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
cmDependsFortranParser_RuleEndif(parser);
}
break;
- case 41:
-#line 287 "cmDependsFortranParser.y"
+ case 44:
+#line 283 "cmDependsFortranParser.y"
{ free ((yyvsp[(1) - (1)].string)); }
break;
- case 42:
-#line 288 "cmDependsFortranParser.y"
+ case 45:
+#line 284 "cmDependsFortranParser.y"
{ free ((yyvsp[(1) - (1)].string)); }
break;
@@ -1935,7 +1935,7 @@ yyreturn:
}
-#line 294 "cmDependsFortranParser.y"
+#line 290 "cmDependsFortranParser.y"
/* End of grammar */
diff --git a/Source/cmDependsFortranParser.y b/Source/cmDependsFortranParser.y
index a588474..8e6456d 100644
--- a/Source/cmDependsFortranParser.y
+++ b/Source/cmDependsFortranParser.y
@@ -208,18 +208,14 @@ keyword_stmt:
}
free($1);
}
-| WORD STRING other EOSTMT
+| WORD STRING other EOSTMT /* Ignore */
+| include STRING other EOSTMT
{
- if (cmDependsFortranParserIsKeyword($1, "include"))
- {
- cmDependsFortranParser* parser =
- cmDependsFortran_yyget_extra(yyscanner);
- cmDependsFortranParser_RuleInclude(parser, $2);
- }
- free($1);
+ cmDependsFortranParser* parser =
+ cmDependsFortran_yyget_extra(yyscanner);
+ cmDependsFortranParser_RuleInclude(parser, $2);
free($2);
}
-| CPP_INCLUDE WORD other EOSTMT /* Ignore */
| define WORD other EOSTMT
{
cmDependsFortranParser* parser = cmDependsFortran_yyget_extra(yyscanner);
generated by cgit v0.12 at 2024-11-08 16:10:31 (GMT)