kolan
/
CMake
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

cmFortranParser: Parse #line directives 

Teach the lexer to extract the #line directive prefix and line number as
a new token type.  Teach the parser to recognize this token followed by
a string as the file name (plus possibly other content).  Report the
named file as included by the source file.
This commit is contained in:
Brad King 2015-11-02 15:29:52 -05:00
parent 7748a02c3f
commit ba819f49df
8 changed files with 655 additions and 573 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

574
Source/cmFortranLexer.cxx
View File

File diff suppressed because it is too large Load Diff

16
Source/cmFortranLexer.h
View File

@ -1,6 +1,6 @@
/*============================================================================ /*============================================================================
CMake - Cross Platform Makefile Generator CMake - Cross Platform Makefile Generator
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
Distributed under the OSI-approved BSD License (the "License"); Distributed under the OSI-approved BSD License (the "License");
see accompanying file Copyright.txt for details. see accompanying file Copyright.txt for details.
@ -20,7 +20,7 @@
#define FLEX_SCANNER #define FLEX_SCANNER
#define YY_FLEX_MAJOR_VERSION 2 #define YY_FLEX_MAJOR_VERSION 2
#define YY_FLEX_MINOR_VERSION 5 #define YY_FLEX_MINOR_VERSION 5
#define YY_FLEX_SUBMINOR_VERSION 35 #define YY_FLEX_SUBMINOR_VERSION 39
#if YY_FLEX_SUBMINOR_VERSION > 0 #if YY_FLEX_SUBMINOR_VERSION > 0
#define FLEX_BETA #define FLEX_BETA
#endif #endif
@ -177,7 +177,7 @@ struct yy_buffer_state
/* Number of characters read into yy_ch_buf, not including EOB /* Number of characters read into yy_ch_buf, not including EOB
* characters. * characters.
*/ */
int yy_n_chars; yy_size_t yy_n_chars;
/* Whether we "own" the buffer - i.e., we know we created it, /* Whether we "own" the buffer - i.e., we know we created it,
* and can realloc() it to grow it, and should free() it to * and can realloc() it to grow it, and should free() it to
@ -221,7 +221,7 @@ void cmFortran_yypop_buffer_state (yyscan_t yyscanner );
YY_BUFFER_STATE cmFortran_yy_scan_buffer (char *base,yy_size_t size ,yyscan_t yyscanner ); YY_BUFFER_STATE cmFortran_yy_scan_buffer (char *base,yy_size_t size ,yyscan_t yyscanner );
YY_BUFFER_STATE cmFortran_yy_scan_string (yyconst char *yy_str ,yyscan_t yyscanner ); YY_BUFFER_STATE cmFortran_yy_scan_string (yyconst char *yy_str ,yyscan_t yyscanner );
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char *bytes,int len ,yyscan_t yyscanner ); YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char *bytes,yy_size_t len ,yyscan_t yyscanner );
void *cmFortran_yyalloc (yy_size_t ,yyscan_t yyscanner ); void *cmFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
void *cmFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner ); void *cmFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
@ -229,7 +229,7 @@ void cmFortran_yyfree (void * ,yyscan_t yyscanner );
/* Begin user sect3 */ /* Begin user sect3 */
#define cmFortran_yywrap(n) 1 #define cmFortran_yywrap(yyscanner) 1
#define YY_SKIP_YYWRAP #define YY_SKIP_YYWRAP
#define yytext_ptr yytext_r #define yytext_ptr yytext_r
@ -272,7 +272,7 @@ FILE *cmFortran_yyget_out (yyscan_t yyscanner );
void cmFortran_yyset_out (FILE * out_str ,yyscan_t yyscanner ); void cmFortran_yyset_out (FILE * out_str ,yyscan_t yyscanner );
int cmFortran_yyget_leng (yyscan_t yyscanner ); yy_size_t cmFortran_yyget_leng (yyscan_t yyscanner );
char *cmFortran_yyget_text (yyscan_t yyscanner ); char *cmFortran_yyget_text (yyscan_t yyscanner );
@ -280,6 +280,10 @@ int cmFortran_yyget_lineno (yyscan_t yyscanner );
void cmFortran_yyset_lineno (int line_number ,yyscan_t yyscanner ); void cmFortran_yyset_lineno (int line_number ,yyscan_t yyscanner );
int cmFortran_yyget_column (yyscan_t yyscanner );
void cmFortran_yyset_column (int column_no ,yyscan_t yyscanner );
/* Macros after this point can all be overridden by user definitions in /* Macros after this point can all be overridden by user definitions in
* section 1. * section 1.
*/ */

3
Source/cmFortranLexer.in.l
View File

@ -1,7 +1,7 @@
%{ %{
/*============================================================================ /*============================================================================
CMake - Cross Platform Makefile Generator CMake - Cross Platform Makefile Generator
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
Distributed under the OSI-approved BSD License (the "License"); Distributed under the OSI-approved BSD License (the "License");
see accompanying file Copyright.txt for details. see accompanying file Copyright.txt for details.
@ -116,6 +116,7 @@ Modify cmFortranLexer.h:
!.*\n { return EOSTMT; } /* Treat comments like */ !.*\n { return EOSTMT; } /* Treat comments like */
<fixed_fmt>^[cC*dD].*\n { return EOSTMT; } /* empty lines */ <fixed_fmt>^[cC*dD].*\n { return EOSTMT; } /* empty lines */
^[ \t]*#([ \t]*line)?[ \t]*[0-9]+[ \t]* { return CPP_LINE_DIRECTIVE; }
^[ \t]*#[ \t]*include[ \t]*<[^>]+> { ^[ \t]*#[ \t]*include[ \t]*<[^>]+> {
yytext[yyleng-1] = 0; yytext[yyleng-1] = 0;
yylvalp->string = strdup(strchr(yytext, '<')+1); yylvalp->string = strdup(strchr(yytext, '<')+1);

489
Source/cmFortranParser.cxx
View File

@ -72,7 +72,7 @@
/*============================================================================ /*============================================================================
CMake - Cross Platform Makefile Generator CMake - Cross Platform Makefile Generator
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
Distributed under the OSI-approved BSD License (the "License"); Distributed under the OSI-approved BSD License (the "License");
see accompanying file Copyright.txt for details. see accompanying file Copyright.txt for details.
@ -177,64 +177,66 @@ extern int cmFortran_yydebug;
EOSTMT = 258, EOSTMT = 258,
ASSIGNMENT_OP = 259, ASSIGNMENT_OP = 259,
GARBAGE = 260, GARBAGE = 260,
CPP_INCLUDE = 261, CPP_LINE_DIRECTIVE = 261,
F90PPR_INCLUDE = 262, CPP_INCLUDE = 262,
COCO_INCLUDE = 263, F90PPR_INCLUDE = 263,
F90PPR_DEFINE = 264, COCO_INCLUDE = 264,
CPP_DEFINE = 265, F90PPR_DEFINE = 265,
F90PPR_UNDEF = 266, CPP_DEFINE = 266,
CPP_UNDEF = 267, F90PPR_UNDEF = 267,
CPP_IFDEF = 268, CPP_UNDEF = 268,
CPP_IFNDEF = 269, CPP_IFDEF = 269,
CPP_IF = 270, CPP_IFNDEF = 270,
CPP_ELSE = 271, CPP_IF = 271,
CPP_ELIF = 272, CPP_ELSE = 272,
CPP_ENDIF = 273, CPP_ELIF = 273,
F90PPR_IFDEF = 274, CPP_ENDIF = 274,
F90PPR_IFNDEF = 275, F90PPR_IFDEF = 275,
F90PPR_IF = 276, F90PPR_IFNDEF = 276,
F90PPR_ELSE = 277, F90PPR_IF = 277,
F90PPR_ELIF = 278, F90PPR_ELSE = 278,
F90PPR_ENDIF = 279, F90PPR_ELIF = 279,
COMMA = 280, F90PPR_ENDIF = 280,
DCOLON = 281, COMMA = 281,
CPP_TOENDL = 282, DCOLON = 282,
UNTERMINATED_STRING = 283, CPP_TOENDL = 283,
STRING = 284, UNTERMINATED_STRING = 284,
WORD = 285, STRING = 285,
CPP_INCLUDE_ANGLE = 286 WORD = 286,
CPP_INCLUDE_ANGLE = 287
}; };
#endif #endif
/* Tokens. */ /* Tokens. */
#define EOSTMT 258 #define EOSTMT 258
#define ASSIGNMENT_OP 259 #define ASSIGNMENT_OP 259
#define GARBAGE 260 #define GARBAGE 260
#define CPP_INCLUDE 261 #define CPP_LINE_DIRECTIVE 261
#define F90PPR_INCLUDE 262 #define CPP_INCLUDE 262
#define COCO_INCLUDE 263 #define F90PPR_INCLUDE 263
#define F90PPR_DEFINE 264 #define COCO_INCLUDE 264
#define CPP_DEFINE 265 #define F90PPR_DEFINE 265
#define F90PPR_UNDEF 266 #define CPP_DEFINE 266
#define CPP_UNDEF 267 #define F90PPR_UNDEF 267
#define CPP_IFDEF 268 #define CPP_UNDEF 268
#define CPP_IFNDEF 269 #define CPP_IFDEF 269
#define CPP_IF 270 #define CPP_IFNDEF 270
#define CPP_ELSE 271 #define CPP_IF 271
#define CPP_ELIF 272 #define CPP_ELSE 272
#define CPP_ENDIF 273 #define CPP_ELIF 273
#define F90PPR_IFDEF 274 #define CPP_ENDIF 274
#define F90PPR_IFNDEF 275 #define F90PPR_IFDEF 275
#define F90PPR_IF 276 #define F90PPR_IFNDEF 276
#define F90PPR_ELSE 277 #define F90PPR_IF 277
#define F90PPR_ELIF 278 #define F90PPR_ELSE 278
#define F90PPR_ENDIF 279 #define F90PPR_ELIF 279
#define COMMA 280 #define F90PPR_ENDIF 280
#define DCOLON 281 #define COMMA 281
#define CPP_TOENDL 282 #define DCOLON 282
#define UNTERMINATED_STRING 283 #define CPP_TOENDL 283
#define STRING 284 #define UNTERMINATED_STRING 284
#define WORD 285 #define STRING 285
#define CPP_INCLUDE_ANGLE 286 #define WORD 286
#define CPP_INCLUDE_ANGLE 287
/* Value type. */ /* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
@ -245,7 +247,7 @@ union YYSTYPE
char* string; char* string;
#line 249 "cmFortranParser.cxx" /* yacc.c:355 */ #line 251 "cmFortranParser.cxx" /* yacc.c:355 */
}; };
# define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_TRIVIAL 1
# define YYSTYPE_IS_DECLARED 1 # define YYSTYPE_IS_DECLARED 1
@ -259,7 +261,7 @@ int cmFortran_yyparse (yyscan_t yyscanner);
/* Copy the second part of user declarations. */ /* Copy the second part of user declarations. */
#line 263 "cmFortranParser.cxx" /* yacc.c:358 */ #line 265 "cmFortranParser.cxx" /* yacc.c:358 */
#ifdef short #ifdef short
# undef short # undef short
@ -501,21 +503,21 @@ 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 276 #define YYLAST 290
/* YYNTOKENS -- Number of terminals. */ /* YYNTOKENS -- Number of terminals. */
#define YYNTOKENS 32 #define YYNTOKENS 33
/* YYNNTS -- Number of nonterminals. */ /* YYNNTS -- Number of nonterminals. */
#define YYNNTS 16 #define YYNNTS 16
/* YYNRULES -- Number of rules. */ /* YYNRULES -- Number of rules. */
#define YYNRULES 53 #define YYNRULES 54
/* YYNSTATES -- Number of states. */ /* YYNSTATES -- Number of states. */
#define YYNSTATES 97 #define YYNSTATES 101
/* 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 286 #define YYMAXUTOK 287
#define YYTRANSLATE(YYX) \ #define YYTRANSLATE(YYX) \
((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK) ((unsigned int) (YYX) <= YYMAXUTOK ? yytranslate[YYX] : YYUNDEFTOK)
@ -552,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 25, 26, 27, 28, 29, 30, 31, 32
}; };
#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_uint16 yyrline[] =
{ {
0, 103, 103, 103, 105, 105, 107, 113, 123, 153, 0, 104, 104, 104, 106, 106, 108, 114, 124, 154,
164, 177, 188, 195, 202, 208, 214, 220, 226, 231, 165, 178, 189, 196, 203, 210, 216, 222, 228, 234,
236, 241, 246, 250, 251, 252, 257, 257, 257, 258, 239, 244, 249, 254, 258, 259, 260, 265, 265, 265,
258, 259, 259, 260, 260, 261, 261, 262, 262, 263, 266, 266, 267, 267, 268, 268, 269, 269, 270, 270,
263, 264, 264, 265, 265, 266, 266, 269, 270, 271, 271, 271, 272, 272, 273, 273, 274, 274, 277, 278,
272, 273, 274, 275 279, 280, 281, 282, 283
}; };
#endif #endif
@ -574,14 +576,15 @@ static const yytype_uint16 yyrline[] =
static const char *const yytname[] = static const char *const yytname[] =
{ {
"$end", "error", "$undefined", "EOSTMT", "ASSIGNMENT_OP", "GARBAGE", "$end", "error", "$undefined", "EOSTMT", "ASSIGNMENT_OP", "GARBAGE",
"CPP_INCLUDE", "F90PPR_INCLUDE", "COCO_INCLUDE", "F90PPR_DEFINE", "CPP_LINE_DIRECTIVE", "CPP_INCLUDE", "F90PPR_INCLUDE", "COCO_INCLUDE",
"CPP_DEFINE", "F90PPR_UNDEF", "CPP_UNDEF", "CPP_IFDEF", "CPP_IFNDEF", "F90PPR_DEFINE", "CPP_DEFINE", "F90PPR_UNDEF", "CPP_UNDEF", "CPP_IFDEF",
"CPP_IF", "CPP_ELSE", "CPP_ELIF", "CPP_ENDIF", "F90PPR_IFDEF", "CPP_IFNDEF", "CPP_IF", "CPP_ELSE", "CPP_ELIF", "CPP_ENDIF",
"F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE", "F90PPR_ELIF", "F90PPR_IFDEF", "F90PPR_IFNDEF", "F90PPR_IF", "F90PPR_ELSE",
"F90PPR_ENDIF", "COMMA", "DCOLON", "CPP_TOENDL", "UNTERMINATED_STRING", "F90PPR_ELIF", "F90PPR_ENDIF", "COMMA", "DCOLON", "CPP_TOENDL",
"STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept", "code", "stmt", "UNTERMINATED_STRING", "STRING", "WORD", "CPP_INCLUDE_ANGLE", "$accept",
"assignment_stmt", "keyword_stmt", "include", "define", "undef", "ifdef", "code", "stmt", "assignment_stmt", "keyword_stmt", "include", "define",
"ifndef", "if", "elif", "else", "endif", "other", "misc_code", YY_NULLPTR "undef", "ifdef", "ifndef", "if", "elif", "else", "endif", "other",
"misc_code", YY_NULLPTR
}; };
#endif #endif
@ -593,14 +596,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 285, 286, 287
}; };
# endif # endif
#define YYPACT_NINF -29 #define YYPACT_NINF -30
#define yypact_value_is_default(Yystate) \ #define yypact_value_is_default(Yystate) \
(!!((Yystate) == (-29))) (!!((Yystate) == (-30)))
#define YYTABLE_NINF -1 #define YYTABLE_NINF -1
@ -611,16 +614,17 @@ static const yytype_uint16 yytoknum[] =
STATE-NUM. */ STATE-NUM. */
static const yytype_int16 yypact[] = static const yytype_int16 yypact[] =
{ {
-29, 39, -29, -29, -29, -29, -29, -29, -29, -29, -30, 41, -30, -30, -30, -30, -29, -30, -30, -30,
-29, -29, -29, -29, -29, -29, -29, -29, -29, -29, -30, -30, -30, -30, -30, -30, -30, -30, -30, -30,
-29, -29, -29, -29, -29, 246, -29, -29, -29, -29, -30, -30, -30, -30, -30, -30, 259, -30, -30, -30,
-28, -27, -22, -17, -16, -29, -29, -29, -29, 2, -30, -28, -23, -18, -16, -13, -30, -30, -30, -30,
-29, -29, -29, -13, -12, -29, -29, 61, -29, -29, 2, -30, -30, -30, -30, -12, -9, -30, -30, 64,
-29, -29, -29, 68, 74, 80, 108, -29, -29, -29, -30, -30, -30, -30, -30, 71, 77, 83, 112, -30,
-29, -29, -29, -29, -29, -29, 114, 120, -24, -29, -30, -30, -30, -30, -30, -30, -30, -30, 118, 124,
126, 154, -29, 160, 166, 172, 200, 206, -29, -29, 130, -24, -30, 159, 165, -30, 171, 177, 206, 212,
-29, -29, -29, -29, -9, 212, -29, -29, -29, -29, 218, -30, -30, -30, -30, -30, -30, -30, -1, 224,
-29, -29, -29, -29, -29, 218, -29 -30, -30, -30, -30, -30, -30, -30, -30, -30, 253,
-30
}; };
/* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM. /* YYDEFACT[STATE-NUM] -- Default reduction number in state STATE-NUM.
@ -628,30 +632,31 @@ 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, 25, 24, 45, 26, 27, 28, 30, 2, 0, 1, 26, 25, 46, 0, 27, 28, 29,
29, 32, 31, 33, 35, 37, 41, 39, 43, 34, 31, 30, 33, 32, 34, 36, 38, 42, 40, 44,
36, 38, 42, 40, 44, 0, 45, 3, 5, 4, 35, 37, 39, 43, 41, 45, 0, 46, 3, 5,
0, 0, 0, 0, 0, 45, 45, 45, 45, 0, 4, 0, 0, 0, 0, 0, 46, 46, 46, 46,
7, 45, 45, 0, 0, 45, 45, 0, 45, 45, 0, 46, 7, 46, 46, 0, 0, 46, 46, 0,
45, 45, 45, 0, 0, 0, 0, 23, 50, 49, 46, 46, 46, 46, 46, 0, 0, 0, 0, 24,
52, 51, 53, 48, 47, 46, 0, 0, 0, 45, 51, 50, 53, 52, 54, 49, 48, 47, 0, 0,
0, 0, 12, 0, 0, 0, 0, 0, 18, 19, 0, 0, 46, 0, 0, 13, 0, 0, 0, 0,
20, 21, 6, 22, 0, 0, 11, 8, 13, 14, 0, 19, 20, 21, 22, 12, 6, 23, 0, 0,
15, 16, 17, 45, 9, 0, 10 11, 8, 14, 15, 16, 17, 18, 46, 9, 0,
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, -30, -30, -30, -30, -30, -30, -30, -30, -30, -30,
-29, -29, -29, -29, -26, -29 -30, -30, -30, -30, -27, -30
}; };
/* YYDEFGOTO[NTERM-NUM]. */ /* YYDEFGOTO[NTERM-NUM]. */
static const yytype_int8 yydefgoto[] = static const yytype_int8 yydefgoto[] =
{ {
-1, 1, 27, 28, 29, 30, 31, 32, 33, 34, -1, 1, 28, 29, 30, 31, 32, 33, 34, 35,
35, 36, 37, 38, 39, 65 36, 37, 38, 39, 40, 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
@ -659,104 +664,109 @@ 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[] =
{ {
47, 48, 84, 49, 0, 57, 58, 59, 50, 53, 49, 41, 50, 88, 0, 59, 60, 61, 51, 55,
54, 55, 56, 51, 52, 66, 67, 68, 69, 70, 56, 57, 58, 52, 68, 53, 69, 70, 54, 71,
71, 93, 73, 74, 75, 76, 77, 60, 61, 0, 73, 74, 72, 76, 77, 78, 79, 80, 62, 63,
62, 63, 64, 0, 0, 0, 0, 0, 0, 2, 97, 64, 65, 66, 0, 0, 0, 0, 0, 0,
3, 0, 4, 85, 5, 6, 7, 8, 9, 10, 0, 2, 3, 0, 4, 89, 5, 6, 7, 8,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
21, 22, 23, 24, 72, 58, 59, 95, 0, 25, 19, 20, 21, 22, 23, 24, 25, 75, 60, 61,
26, 78, 58, 59, 0, 0, 0, 79, 58, 59, 99, 0, 26, 27, 81, 60, 61, 0, 0, 0,
0, 0, 0, 80, 58, 59, 60, 61, 0, 62, 82, 60, 61, 0, 0, 0, 83, 60, 61, 0,
63, 64, 0, 60, 61, 0, 62, 63, 64, 60, 62, 63, 0, 64, 65, 66, 0, 62, 63, 0,
61, 0, 62, 63, 64, 60, 61, 0, 62, 63, 64, 65, 66, 62, 63, 0, 64, 65, 66, 62,
64, 81, 58, 59, 0, 0, 0, 82, 58, 59, 63, 0, 64, 65, 66, 84, 60, 61, 0, 0,
0, 0, 0, 83, 58, 59, 0, 0, 0, 86, 0, 85, 60, 61, 0, 0, 0, 86, 60, 61,
58, 59, 0, 60, 61, 0, 62, 63, 64, 60, 0, 0, 0, 87, 60, 61, 0, 0, 62, 63,
61, 0, 62, 63, 64, 60, 61, 0, 62, 63, 0, 64, 65, 66, 62, 63, 0, 64, 65, 66,
64, 60, 61, 0, 62, 63, 64, 87, 58, 59, 62, 63, 0, 64, 65, 66, 62, 63, 0, 64,
0, 0, 0, 88, 58, 59, 0, 0, 0, 89, 65, 66, 90, 60, 61, 0, 0, 0, 91, 60,
58, 59, 0, 0, 0, 90, 58, 59, 0, 60, 61, 0, 0, 0, 92, 60, 61, 0, 0, 0,
61, 0, 62, 63, 64, 60, 61, 0, 62, 63, 93, 60, 61, 0, 0, 62, 63, 0, 64, 65,
64, 60, 61, 0, 62, 63, 64, 60, 61, 0, 66, 62, 63, 0, 64, 65, 66, 62, 63, 0,
62, 63, 64, 91, 58, 59, 0, 0, 0, 92, 64, 65, 66, 62, 63, 0, 64, 65, 66, 94,
58, 59, 0, 0, 0, 94, 58, 59, 0, 0, 60, 61, 0, 0, 0, 95, 60, 61, 0, 0,
0, 96, 58, 59, 0, 60, 61, 0, 62, 63, 0, 96, 60, 61, 0, 0, 0, 98, 60, 61,
64, 60, 61, 0, 62, 63, 64, 60, 61, 0, 0, 0, 62, 63, 0, 64, 65, 66, 62, 63,
62, 63, 64, 60, 61, 0, 62, 63, 64, 40, 0, 64, 65, 66, 62, 63, 0, 64, 65, 66,
41, 42, 0, 0, 0, 0, 0, 0, 0, 0, 62, 63, 0, 64, 65, 66, 100, 60, 61, 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 42, 43, 44, 0, 0, 0, 0, 0,
0, 43, 44, 0, 0, 45, 46 0, 0, 0, 0, 0, 0, 0, 0, 0, 62,
63, 0, 64, 65, 66, 45, 46, 0, 0, 47,
48
}; };
static const yytype_int8 yycheck[] = static const yytype_int8 yycheck[] =
{ {
26, 29, 26, 30, -1, 3, 4, 5, 30, 35, 27, 30, 30, 27, -1, 3, 4, 5, 31, 36,
36, 37, 38, 30, 30, 41, 42, 30, 30, 45, 37, 38, 39, 31, 41, 31, 43, 44, 31, 31,
46, 30, 48, 49, 50, 51, 52, 25, 26, -1, 47, 48, 31, 50, 51, 52, 53, 54, 26, 27,
28, 29, 30, -1, -1, -1, -1, -1, -1, 0, 31, 29, 30, 31, -1, -1, -1, -1, -1, -1,
1, -1, 3, 69, 5, 6, 7, 8, 9, 10, -1, 0, 1, -1, 3, 72, 5, 6, 7, 8,
11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18,
21, 22, 23, 24, 3, 4, 5, 93, -1, 30, 19, 20, 21, 22, 23, 24, 25, 3, 4, 5,
31, 3, 4, 5, -1, -1, -1, 3, 4, 5, 97, -1, 31, 32, 3, 4, 5, -1, -1, -1,
-1, -1, -1, 3, 4, 5, 25, 26, -1, 28, 3, 4, 5, -1, -1, -1, 3, 4, 5, -1,
29, 30, -1, 25, 26, -1, 28, 29, 30, 25, 26, 27, -1, 29, 30, 31, -1, 26, 27, -1,
26, -1, 28, 29, 30, 25, 26, -1, 28, 29, 29, 30, 31, 26, 27, -1, 29, 30, 31, 26,
30, 3, 4, 5, -1, -1, -1, 3, 4, 5, 27, -1, 29, 30, 31, 3, 4, 5, -1, -1,
-1, -1, -1, 3, 4, 5, -1, -1, -1, 3, -1, 3, 4, 5, -1, -1, -1, 3, 4, 5,
4, 5, -1, 25, 26, -1, 28, 29, 30, 25, -1, -1, -1, 3, 4, 5, -1, -1, 26, 27,
26, -1, 28, 29, 30, 25, 26, -1, 28, 29, -1, 29, 30, 31, 26, 27, -1, 29, 30, 31,
30, 25, 26, -1, 28, 29, 30, 3, 4, 5, 26, 27, -1, 29, 30, 31, 26, 27, -1, 29,
-1, -1, -1, 3, 4, 5, -1, -1, -1, 3, 30, 31, 3, 4, 5, -1, -1, -1, 3, 4,
4, 5, -1, -1, -1, 3, 4, 5, -1, 25, 5, -1, -1, -1, 3, 4, 5, -1, -1, -1,
26, -1, 28, 29, 30, 25, 26, -1, 28, 29, 3, 4, 5, -1, -1, 26, 27, -1, 29, 30,
30, 25, 26, -1, 28, 29, 30, 25, 26, -1, 31, 26, 27, -1, 29, 30, 31, 26, 27, -1,
28, 29, 30, 3, 4, 5, -1, -1, -1, 3, 29, 30, 31, 26, 27, -1, 29, 30, 31, 3,
4, 5, -1, -1, -1, 3, 4, 5, -1, -1, 4, 5, -1, -1, -1, 3, 4, 5, -1, -1,
-1, 3, 4, 5, -1, 25, 26, -1, 28, 29, -1, 3, 4, 5, -1, -1, -1, 3, 4, 5,
30, 25, 26, -1, 28, 29, 30, 25, 26, -1, -1, -1, 26, 27, -1, 29, 30, 31, 26, 27,
28, 29, 30, 25, 26, -1, 28, 29, 30, 3, -1, 29, 30, 31, 26, 27, -1, 29, 30, 31,
4, 5, -1, -1, -1, -1, -1, -1, -1, -1, 26, 27, -1, 29, 30, 31, 3, 4, 5, -1,
-1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, -1, 3, 4, 5, -1, -1, -1, -1, -1,
-1, 25, 26, -1, -1, 29, 30 -1, -1, -1, -1, -1, -1, -1, -1, -1, 26,
27, -1, 29, 30, 31, 26, 27, -1, -1, 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, 33, 0, 1, 3, 5, 6, 7, 8, 9, 0, 34, 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, 30, 31, 34, 35, 36, 20, 21, 22, 23, 24, 25, 31, 32, 35, 36,
37, 38, 39, 40, 41, 42, 43, 44, 45, 46, 37, 38, 39, 40, 41, 42, 43, 44, 45, 46,
3, 4, 5, 25, 26, 29, 30, 46, 29, 30, 47, 30, 3, 4, 5, 26, 27, 30, 31, 47,
30, 30, 30, 46, 46, 46, 46, 3, 4, 5, 30, 31, 31, 31, 31, 47, 47, 47, 47, 3,
25, 26, 28, 29, 30, 47, 46, 46, 30, 30, 4, 5, 26, 27, 29, 30, 31, 48, 47, 47,
46, 46, 3, 46, 46, 46, 46, 46, 3, 3, 47, 31, 31, 47, 47, 3, 47, 47, 47, 47,
3, 3, 3, 3, 26, 46, 3, 3, 3, 3, 47, 3, 3, 3, 3, 3, 3, 3, 27, 47,
3, 3, 3, 30, 3, 46, 3 3, 3, 3, 3, 3, 3, 3, 31, 3, 47,
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, 33, 34, 34, 35, 35, 36, 37, 37, 37,
36, 36, 36, 36, 36, 36, 36, 36, 36, 36, 37, 37, 37, 37, 37, 37, 37, 37, 37, 37,
36, 36, 36, 36, 36, 36, 37, 37, 37, 38, 37, 37, 37, 37, 37, 37, 37, 38, 38, 38,
38, 39, 39, 40, 40, 41, 41, 42, 42, 43, 39, 39, 40, 40, 41, 41, 42, 42, 43, 43,
43, 44, 44, 45, 45, 46, 46, 47, 47, 47, 44, 44, 45, 45, 46, 46, 47, 47, 48, 48,
47, 47, 47, 47 48, 48, 48, 48, 48
}; };
/* 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, 1, 1, 4, 2, 4, 5,
7, 4, 3, 4, 4, 4, 4, 4, 3, 3, 7, 4, 4, 3, 4, 4, 4, 4, 4, 3,
3, 3, 4, 3, 1, 1, 1, 1, 1, 1, 3, 3, 3, 4, 3, 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, 1, 1, 1, 1, 1, 1, 0, 2, 1, 1,
1, 1, 1, 1 1, 1, 1, 1, 1
}; };
@ -1439,15 +1449,15 @@ yyreduce:
switch (yyn) switch (yyn)
{ {
case 6: case 6:
#line 108 "cmFortranParser.y" /* yacc.c:1646 */ #line 109 "cmFortranParser.y" /* yacc.c:1646 */
{ {
free((yyvsp[-3].string)); free((yyvsp[-3].string));
} }
#line 1447 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1457 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 7: case 7:
#line 114 "cmFortranParser.y" /* yacc.c:1646 */ #line 115 "cmFortranParser.y" /* yacc.c:1646 */
{ {
if (cmFortranParserIsKeyword((yyvsp[-1].string), "interface")) if (cmFortranParserIsKeyword((yyvsp[-1].string), "interface"))
{ {
@ -1457,11 +1467,11 @@ yyreduce:
} }
free((yyvsp[-1].string)); free((yyvsp[-1].string));
} }
#line 1461 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1471 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 8: case 8:
#line 124 "cmFortranParser.y" /* yacc.c:1646 */ #line 125 "cmFortranParser.y" /* yacc.c:1646 */
{ {
if (cmFortranParserIsKeyword((yyvsp[-3].string), "use")) if (cmFortranParserIsKeyword((yyvsp[-3].string), "use"))
{ {
@ -1491,11 +1501,11 @@ yyreduce:
free((yyvsp[-3].string)); free((yyvsp[-3].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1495 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1505 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 9: case 9:
#line 154 "cmFortranParser.y" /* yacc.c:1646 */ #line 155 "cmFortranParser.y" /* yacc.c:1646 */
{ {
if (cmFortranParserIsKeyword((yyvsp[-4].string), "use")) if (cmFortranParserIsKeyword((yyvsp[-4].string), "use"))
{ {
@ -1506,11 +1516,11 @@ yyreduce:
free((yyvsp[-4].string)); free((yyvsp[-4].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1510 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1520 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 10: case 10:
#line 165 "cmFortranParser.y" /* yacc.c:1646 */ #line 166 "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") )
@ -1523,11 +1533,11 @@ yyreduce:
free((yyvsp[-4].string)); free((yyvsp[-4].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1527 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1537 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 11: case 11:
#line 178 "cmFortranParser.y" /* yacc.c:1646 */ #line 179 "cmFortranParser.y" /* yacc.c:1646 */
{ {
if (cmFortranParserIsKeyword((yyvsp[-3].string), "include")) if (cmFortranParserIsKeyword((yyvsp[-3].string), "include"))
{ {
@ -1538,129 +1548,140 @@ yyreduce:
free((yyvsp[-3].string)); free((yyvsp[-3].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1542 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1552 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 12: case 12:
#line 189 "cmFortranParser.y" /* yacc.c:1646 */ #line 190 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortranParser* parser =
cmFortran_yyget_extra(yyscanner); cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string)); cmFortranParser_RuleLineDirective(parser, (yyvsp[-2].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1553 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1563 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 13: case 13:
#line 196 "cmFortranParser.y" /* yacc.c:1646 */ #line 197 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortranParser* parser =
cmFortran_yyget_extra(yyscanner); cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleInclude(parser, (yyvsp[-2].string)); cmFortranParser_RuleInclude(parser, (yyvsp[-2].string));
free((yyvsp[-2].string)); free((yyvsp[-2].string));
} }
#line 1564 "cmFortranParser.cxx" /* yacc.c:1646 */
break;
case 14:
#line 203 "cmFortranParser.y" /* yacc.c:1646 */
{
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleDefine(parser, (yyvsp[-2].string));
free((yyvsp[-2].string));
}
#line 1574 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1574 "cmFortranParser.cxx" /* yacc.c:1646 */
break; 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 209 "cmFortranParser.y" /* yacc.c:1646 */ #line 211 "cmFortranParser.y" /* yacc.c:1646 */
{
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleDefine(parser, (yyvsp[-2].string));
free((yyvsp[-2].string));
}
#line 1595 "cmFortranParser.cxx" /* yacc.c:1646 */
break;
case 16:
#line 217 "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 1584 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1605 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 16: case 17:
#line 215 "cmFortranParser.y" /* yacc.c:1646 */ #line 223 "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 1594 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1615 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 17: case 18:
#line 221 "cmFortranParser.y" /* yacc.c:1646 */ #line 229 "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 1604 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1625 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 18: case 19:
#line 227 "cmFortranParser.y" /* yacc.c:1646 */ #line 235 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner); cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleIf(parser); cmFortranParser_RuleIf(parser);
} }
#line 1613 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1634 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 19: case 20:
#line 232 "cmFortranParser.y" /* yacc.c:1646 */ #line 240 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner); cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleElif(parser); cmFortranParser_RuleElif(parser);
} }
#line 1622 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1643 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 20: case 21:
#line 237 "cmFortranParser.y" /* yacc.c:1646 */ #line 245 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner); cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleElse(parser); cmFortranParser_RuleElse(parser);
} }
#line 1631 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1652 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 21: case 22:
#line 242 "cmFortranParser.y" /* yacc.c:1646 */ #line 250 "cmFortranParser.y" /* yacc.c:1646 */
{ {
cmFortranParser* parser = cmFortran_yyget_extra(yyscanner); cmFortranParser* parser = cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleEndif(parser); cmFortranParser_RuleEndif(parser);
} }
#line 1640 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1661 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 22: case 23:
#line 247 "cmFortranParser.y" /* yacc.c:1646 */ #line 255 "cmFortranParser.y" /* yacc.c:1646 */
{ {
free((yyvsp[-3].string)); free((yyvsp[-3].string));
} }
#line 1648 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1669 "cmFortranParser.cxx" /* yacc.c:1646 */
break;
case 47:
#line 269 "cmFortranParser.y" /* yacc.c:1646 */
{ free ((yyvsp[0].string)); }
#line 1654 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
case 48: case 48:
#line 270 "cmFortranParser.y" /* yacc.c:1646 */ #line 277 "cmFortranParser.y" /* yacc.c:1646 */
{ free ((yyvsp[0].string)); } { free ((yyvsp[0].string)); }
#line 1660 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1675 "cmFortranParser.cxx" /* yacc.c:1646 */
break;
case 49:
#line 278 "cmFortranParser.y" /* yacc.c:1646 */
{ free ((yyvsp[0].string)); }
#line 1681 "cmFortranParser.cxx" /* yacc.c:1646 */
break; break;
#line 1664 "cmFortranParser.cxx" /* yacc.c:1646 */ #line 1685 "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
@ -1890,6 +1911,6 @@ yyreturn:
#endif #endif
return yyresult; return yyresult;
} }
#line 278 "cmFortranParser.y" /* yacc.c:1906 */ #line 286 "cmFortranParser.y" /* yacc.c:1906 */
/* End of grammar */ /* End of grammar */

2
Source/cmFortranParser.h
View File

@ -55,6 +55,8 @@ void cmFortranParser_Error(cmFortranParser* parser,
const char* message); const char* message);
void cmFortranParser_RuleUse(cmFortranParser* parser, void cmFortranParser_RuleUse(cmFortranParser* parser,
const char* name); const char* name);
void cmFortranParser_RuleLineDirective(cmFortranParser* parser,
const char* filename);
void cmFortranParser_RuleInclude(cmFortranParser* parser, void cmFortranParser_RuleInclude(cmFortranParser* parser,
const char* name); const char* name);
void cmFortranParser_RuleModule(cmFortranParser* parser, void cmFortranParser_RuleModule(cmFortranParser* parser,

10
Source/cmFortranParser.y
View File

@ -1,7 +1,7 @@
%{ %{
/*============================================================================ /*============================================================================
CMake - Cross Platform Makefile Generator CMake - Cross Platform Makefile Generator
Copyright 2000-2009 Kitware, Inc., Insight Software Consortium Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
Distributed under the OSI-approved BSD License (the "License"); Distributed under the OSI-approved BSD License (the "License");
see accompanying file Copyright.txt for details. see accompanying file Copyright.txt for details.
@ -85,6 +85,7 @@ static bool cmFortranParserIsKeyword(const char* word,
/*-------------------------------------------------------------------------*/ /*-------------------------------------------------------------------------*/
/* Tokens */ /* Tokens */
%token EOSTMT ASSIGNMENT_OP GARBAGE %token EOSTMT ASSIGNMENT_OP GARBAGE
%token CPP_LINE_DIRECTIVE
%token CPP_INCLUDE F90PPR_INCLUDE COCO_INCLUDE %token CPP_INCLUDE F90PPR_INCLUDE COCO_INCLUDE
%token F90PPR_DEFINE CPP_DEFINE F90PPR_UNDEF CPP_UNDEF %token F90PPR_DEFINE CPP_DEFINE F90PPR_UNDEF CPP_UNDEF
%token CPP_IFDEF CPP_IFNDEF CPP_IF CPP_ELSE CPP_ELIF CPP_ENDIF %token CPP_IFDEF CPP_IFNDEF CPP_IF CPP_ELSE CPP_ELIF CPP_ENDIF
@ -185,6 +186,13 @@ keyword_stmt:
free($1); free($1);
free($2); free($2);
} }
| CPP_LINE_DIRECTIVE STRING other EOSTMT
{
cmFortranParser* parser =
cmFortran_yyget_extra(yyscanner);
cmFortranParser_RuleLineDirective(parser, $2);
free($2);
}
| CPP_INCLUDE_ANGLE other EOSTMT | CPP_INCLUDE_ANGLE other EOSTMT
{ {
cmFortranParser* parser = cmFortranParser* parser =

26
Source/cmFortranParserImpl.cxx
View File

@ -209,6 +209,32 @@ void cmFortranParser_RuleUse(cmFortranParser* parser,
} }
} }
//----------------------------------------------------------------------------
void cmFortranParser_RuleLineDirective(cmFortranParser* parser,
const char* filename)
{
// This is a #line directive naming a file encountered during preprocessing.
std::string included = filename;
// Skip #line directives referencing non-files like
// "<built-in>" or "<command-line>".
if (included.empty() || included[0] == '<')
{
return;
}
// Fix windows file path separators since our lexer does not
// process escape sequences in string literals.
cmSystemTools::ReplaceString(included, "\\\\", "\\");
cmSystemTools::ConvertToUnixSlashes(included);
// Save the named file as included in the source.
if (cmSystemTools::FileExists(included))
{
parser->Info.Includes.insert(included);
}
}
//---------------------------------------------------------------------------- //----------------------------------------------------------------------------
void cmFortranParser_RuleInclude(cmFortranParser* parser, void cmFortranParser_RuleInclude(cmFortranParser* parser,
const char* name) const char* name)

108
Source/cmFortranParserTokens.h
View File

@ -48,64 +48,66 @@ extern int cmFortran_yydebug;
EOSTMT = 258, EOSTMT = 258,
ASSIGNMENT_OP = 259, ASSIGNMENT_OP = 259,
GARBAGE = 260, GARBAGE = 260,
CPP_INCLUDE = 261, CPP_LINE_DIRECTIVE = 261,
F90PPR_INCLUDE = 262, CPP_INCLUDE = 262,
COCO_INCLUDE = 263, F90PPR_INCLUDE = 263,
F90PPR_DEFINE = 264, COCO_INCLUDE = 264,
CPP_DEFINE = 265, F90PPR_DEFINE = 265,
F90PPR_UNDEF = 266, CPP_DEFINE = 266,
CPP_UNDEF = 267, F90PPR_UNDEF = 267,
CPP_IFDEF = 268, CPP_UNDEF = 268,
CPP_IFNDEF = 269, CPP_IFDEF = 269,
CPP_IF = 270, CPP_IFNDEF = 270,
CPP_ELSE = 271, CPP_IF = 271,
CPP_ELIF = 272, CPP_ELSE = 272,
CPP_ENDIF = 273, CPP_ELIF = 273,
F90PPR_IFDEF = 274, CPP_ENDIF = 274,
F90PPR_IFNDEF = 275, F90PPR_IFDEF = 275,
F90PPR_IF = 276, F90PPR_IFNDEF = 276,
F90PPR_ELSE = 277, F90PPR_IF = 277,
F90PPR_ELIF = 278, F90PPR_ELSE = 278,
F90PPR_ENDIF = 279, F90PPR_ELIF = 279,
COMMA = 280, F90PPR_ENDIF = 280,
DCOLON = 281, COMMA = 281,
CPP_TOENDL = 282, DCOLON = 282,
UNTERMINATED_STRING = 283, CPP_TOENDL = 283,
STRING = 284, UNTERMINATED_STRING = 284,
WORD = 285, STRING = 285,
CPP_INCLUDE_ANGLE = 286 WORD = 286,
CPP_INCLUDE_ANGLE = 287
}; };
#endif #endif
/* Tokens. */ /* Tokens. */
#define EOSTMT 258 #define EOSTMT 258
#define ASSIGNMENT_OP 259 #define ASSIGNMENT_OP 259
#define GARBAGE 260 #define GARBAGE 260
#define CPP_INCLUDE 261 #define CPP_LINE_DIRECTIVE 261
#define F90PPR_INCLUDE 262 #define CPP_INCLUDE 262
#define COCO_INCLUDE 263 #define F90PPR_INCLUDE 263
#define F90PPR_DEFINE 264 #define COCO_INCLUDE 264
#define CPP_DEFINE 265 #define F90PPR_DEFINE 265
#define F90PPR_UNDEF 266 #define CPP_DEFINE 266
#define CPP_UNDEF 267 #define F90PPR_UNDEF 267
#define CPP_IFDEF 268 #define CPP_UNDEF 268
#define CPP_IFNDEF 269 #define CPP_IFDEF 269
#define CPP_IF 270 #define CPP_IFNDEF 270
#define CPP_ELSE 271 #define CPP_IF 271
#define CPP_ELIF 272 #define CPP_ELSE 272
#define CPP_ENDIF 273 #define CPP_ELIF 273
#define F90PPR_IFDEF 274 #define CPP_ENDIF 274
#define F90PPR_IFNDEF 275 #define F90PPR_IFDEF 275
#define F90PPR_IF 276 #define F90PPR_IFNDEF 276
#define F90PPR_ELSE 277 #define F90PPR_IF 277
#define F90PPR_ELIF 278 #define F90PPR_ELSE 278
#define F90PPR_ENDIF 279 #define F90PPR_ELIF 279
#define COMMA 280 #define F90PPR_ENDIF 280
#define DCOLON 281 #define COMMA 281
#define CPP_TOENDL 282 #define DCOLON 282
#define UNTERMINATED_STRING 283 #define CPP_TOENDL 283
#define STRING 284 #define UNTERMINATED_STRING 284
#define WORD 285 #define STRING 285
#define CPP_INCLUDE_ANGLE 286 #define WORD 286
#define CPP_INCLUDE_ANGLE 287
/* Value type. */ /* Value type. */
#if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED #if ! defined YYSTYPE && ! defined YYSTYPE_IS_DECLARED
@ -116,7 +118,7 @@ union YYSTYPE
char* string; char* string;
#line 120 "cmFortranParserTokens.h" /* yacc.c:1909 */ #line 122 "cmFortranParserTokens.h" /* yacc.c:1909 */
}; };
# define YYSTYPE_IS_TRIVIAL 1 # define YYSTYPE_IS_TRIVIAL 1
# define YYSTYPE_IS_DECLARED 1 # define YYSTYPE_IS_DECLARED 1