cmFortranLexer: Update to flex 2.6
Revise the documented modifications we need to make to the flex-generated source file according to the needs of the new version. Also drop the duplicate copyright notice block from the generated file.
This commit is contained in:
Brad King
parent
e11cd31fa0
commit
f70c71c5a9
|
|
@ -3,3 +3,5 @@ cm_sha2.* whitespace=indent-with-non-tab
|
|||
|
||||
# Preserve indentation style in generated code.
|
||||
cmListFileLexer.c whitespace=-tab-in-indent,-indent-with-non-tab
|
||||
cmFortranLexer.cxx whitespace=-tab-in-indent,-indent-with-non-tab
|
||||
cmFortranLexer.h whitespace=-tab-in-indent,-indent-with-non-tab
|
||||
|
|
|
|||
|
|
@ -1,14 +1,3 @@
|
|||
/*============================================================================
|
||||
CMake - Cross Platform Makefile Generator
|
||||
Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
|
||||
|
||||
Distributed under the OSI-approved BSD License (the "License");
|
||||
see accompanying file Copyright.txt for details.
|
||||
|
||||
This software is distributed WITHOUT ANY WARRANTY; without even the
|
||||
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
See the License for more information.
|
||||
============================================================================*/
|
||||
#line 2 "cmFortranLexer.cxx"
|
||||
|
||||
#line 4 "cmFortranLexer.cxx"
|
||||
|
|
@ -19,8 +8,8 @@
|
|||
|
||||
#define FLEX_SCANNER
|
||||
#define YY_FLEX_MAJOR_VERSION 2
|
||||
#define YY_FLEX_MINOR_VERSION 5
|
||||
#define YY_FLEX_SUBMINOR_VERSION 39
|
||||
#define YY_FLEX_MINOR_VERSION 6
|
||||
#define YY_FLEX_SUBMINOR_VERSION 1
|
||||
#if YY_FLEX_SUBMINOR_VERSION > 0
|
||||
#define FLEX_BETA
|
||||
#endif
|
||||
|
|
@ -99,25 +88,13 @@ typedef unsigned int flex_uint32_t;
|
|||
|
||||
#endif /* ! FLEXINT_H */
|
||||
|
||||
#ifdef __cplusplus
|
||||
|
||||
/* The "const" storage-class-modifier is valid. */
|
||||
#define YY_USE_CONST
|
||||
|
||||
#else /* ! __cplusplus */
|
||||
|
||||
/* C99 requires __STDC__ to be defined as 1. */
|
||||
#if defined (__STDC__)
|
||||
|
||||
#define YY_USE_CONST
|
||||
|
||||
#endif /* defined (__STDC__) */
|
||||
#endif /* ! __cplusplus */
|
||||
|
||||
#ifdef YY_USE_CONST
|
||||
/* TODO: this is always defined, so inline it */
|
||||
#define yyconst const
|
||||
|
||||
#if defined(__GNUC__) && __GNUC__ >= 3
|
||||
#define yynoreturn __attribute__((__noreturn__))
|
||||
#else
|
||||
#define yyconst
|
||||
#define yynoreturn
|
||||
#endif
|
||||
|
||||
/* Returned upon end-of-file. */
|
||||
|
|
@ -230,12 +207,12 @@ struct yy_buffer_state
|
|||
/* Size of input buffer in bytes, not including room for EOB
|
||||
* characters.
|
||||
*/
|
||||
yy_size_t yy_buf_size;
|
||||
int yy_buf_size;
|
||||
|
||||
/* Number of characters read into yy_ch_buf, not including EOB
|
||||
* characters.
|
||||
*/
|
||||
yy_size_t yy_n_chars;
|
||||
int yy_n_chars;
|
||||
|
||||
/* Whether we "own" the buffer - i.e., we know we created it,
|
||||
* and can realloc() it to grow it, and should free() it to
|
||||
|
|
@ -314,7 +291,7 @@ static void cmFortran_yy_init_buffer (YY_BUFFER_STATE b,FILE *file ,yyscan_t yys
|
|||
|
||||
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_bytes (yyconst char *bytes,yy_size_t len ,yyscan_t yyscanner );
|
||||
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char *bytes,int len ,yyscan_t yyscanner );
|
||||
|
||||
void *cmFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
|
||||
void *cmFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
|
||||
|
|
@ -346,7 +323,7 @@ void cmFortran_yyfree (void * ,yyscan_t yyscanner );
|
|||
|
||||
/* Begin user sect3 */
|
||||
|
||||
#define cmFortran_yywrap(yyscanner) 1
|
||||
#define cmFortran_yywrap(yyscanner) (/*CONSTCOND*/1)
|
||||
#define YY_SKIP_YYWRAP
|
||||
|
||||
typedef unsigned char YY_CHAR;
|
||||
|
|
@ -358,14 +335,14 @@ typedef int yy_state_type;
|
|||
static yy_state_type yy_get_previous_state (yyscan_t yyscanner );
|
||||
static yy_state_type yy_try_NUL_trans (yy_state_type current_state ,yyscan_t yyscanner);
|
||||
static int yy_get_next_buffer (yyscan_t yyscanner );
|
||||
static void yy_fatal_error (yyconst char msg[] ,yyscan_t yyscanner );
|
||||
static void yynoreturn yy_fatal_error (yyconst char* msg ,yyscan_t yyscanner );
|
||||
|
||||
/* Done after the current pattern has been matched and before the
|
||||
* corresponding action - sets up yytext.
|
||||
*/
|
||||
#define YY_DO_BEFORE_ACTION \
|
||||
yyg->yytext_ptr = yy_bp; \
|
||||
yyleng = (size_t) (yy_cp - yy_bp); \
|
||||
yyleng = (int) (yy_cp - yy_bp); \
|
||||
yyg->yy_hold_char = *yy_cp; \
|
||||
*yy_cp = '\0'; \
|
||||
yyg->yy_c_buf_p = yy_cp;
|
||||
|
|
@ -402,7 +379,7 @@ static yyconst flex_int16_t yy_accept[173] =
|
|||
13, 0
|
||||
} ;
|
||||
|
||||
static yyconst flex_int32_t yy_ec[256] =
|
||||
static yyconst YY_CHAR yy_ec[256] =
|
||||
{ 0,
|
||||
1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
|
||||
1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
|
||||
|
|
@ -434,7 +411,7 @@ static yyconst flex_int32_t yy_ec[256] =
|
|||
1, 1, 1, 1, 1
|
||||
} ;
|
||||
|
||||
static yyconst flex_int32_t yy_meta[42] =
|
||||
static yyconst YY_CHAR yy_meta[42] =
|
||||
{ 0,
|
||||
1, 2, 2, 3, 4, 3, 3, 1, 1, 3,
|
||||
3, 1, 3, 5, 1, 3, 1, 3, 6, 1,
|
||||
|
|
@ -443,7 +420,7 @@ static yyconst flex_int32_t yy_meta[42] =
|
|||
7
|
||||
} ;
|
||||
|
||||
static yyconst flex_int16_t yy_base[182] =
|
||||
static yyconst flex_uint16_t yy_base[182] =
|
||||
{ 0,
|
||||
0, 40, 0, 41, 220, 48, 44, 54, 56, 65,
|
||||
220, 0, 535, 535, 216, 535, 81, 74, 535, 535,
|
||||
|
|
@ -491,7 +468,7 @@ static yyconst flex_int16_t yy_def[182] =
|
|||
172
|
||||
} ;
|
||||
|
||||
static yyconst flex_int16_t yy_nxt[577] =
|
||||
static yyconst flex_uint16_t yy_nxt[577] =
|
||||
{ 0,
|
||||
12, 13, 14, 13, 13, 15, 16, 12, 17, 18,
|
||||
19, 12, 20, 12, 21, 22, 12, 23, 12, 24,
|
||||
|
|
@ -636,7 +613,7 @@ static yyconst flex_int16_t yy_chk[577] =
|
|||
#line 2 "cmFortranLexer.in.l"
|
||||
/*============================================================================
|
||||
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");
|
||||
see accompanying file Copyright.txt for details.
|
||||
|
|
@ -659,28 +636,21 @@ static yyconst flex_int16_t yy_chk[577] =
|
|||
|
||||
This file must be translated to C and modified to build everywhere.
|
||||
|
||||
Run flex like this:
|
||||
Run flex >= 2.6 like this:
|
||||
|
||||
flex -i --prefix=cmFortran_yy --header-file=cmFortranLexer.h -ocmFortranLexer.cxx cmFortranLexer.in.l
|
||||
|
||||
Modify cmFortranLexer.cxx:
|
||||
- remove TABs
|
||||
- remove use of the 'register' storage class specifier
|
||||
- remove "yyscanner" argument from these methods:
|
||||
yy_fatal_error, cmFortran_yyalloc, cmFortran_yyrealloc, cmFortran_yyfree
|
||||
- remove trailing whitespace: sed -i 's/\s*$//' cmFortranLexer.h cmFortranLexer.cxx
|
||||
- remove blank lines at end of file
|
||||
- remove "yyscanner = NULL" from end of cmFortran_yylex_destroy
|
||||
- remove all YY_BREAK lines occurring right after return statements
|
||||
- change while ( 1 ) to for(;;)
|
||||
|
||||
Modify cmFortranLexer.h:
|
||||
- remove TABs
|
||||
- remove the yy_init_globals function
|
||||
- remove the block that includes unistd.h
|
||||
- remove #line directives (avoids bogus warning on old Sun)
|
||||
- add cast in cmFortran_yy_scan_bytes for loop condition of _yybytes_len to size_t
|
||||
|
||||
*/
|
||||
|
||||
#include "cmStandardLexer.h"
|
||||
#undef YY_NO_UNPUT
|
||||
|
||||
#define cmFortranLexer_cxx
|
||||
#include "cmFortranParser.h" /* Interface to parser object. */
|
||||
|
|
@ -696,7 +666,7 @@ Modify cmFortranLexer.h:
|
|||
/*--------------------------------------------------------------------------*/
|
||||
|
||||
|
||||
#line 689 "cmFortranLexer.cxx"
|
||||
#line 670 "cmFortranLexer.cxx"
|
||||
|
||||
#define INITIAL 0
|
||||
#define free_fmt 1
|
||||
|
|
@ -729,8 +699,8 @@ struct yyguts_t
|
|||
size_t yy_buffer_stack_max; /**< capacity of stack. */
|
||||
YY_BUFFER_STATE * yy_buffer_stack; /**< Stack as an array. */
|
||||
char yy_hold_char;
|
||||
yy_size_t yy_n_chars;
|
||||
yy_size_t yyleng_r;
|
||||
int yy_n_chars;
|
||||
int yyleng_r;
|
||||
char *yy_c_buf_p;
|
||||
int yy_init;
|
||||
int yy_start;
|
||||
|
|
@ -771,23 +741,23 @@ void cmFortran_yyset_extra (YY_EXTRA_TYPE user_defined ,yyscan_t yyscanner );
|
|||
|
||||
FILE *cmFortran_yyget_in (yyscan_t yyscanner );
|
||||
|
||||
void cmFortran_yyset_in (FILE * in_str ,yyscan_t yyscanner );
|
||||
void cmFortran_yyset_in (FILE * _in_str ,yyscan_t yyscanner );
|
||||
|
||||
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 );
|
||||
|
||||
yy_size_t cmFortran_yyget_leng (yyscan_t yyscanner );
|
||||
int cmFortran_yyget_leng (yyscan_t yyscanner );
|
||||
|
||||
char *cmFortran_yyget_text (yyscan_t yyscanner );
|
||||
|
||||
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 );
|
||||
void cmFortran_yyset_column (int _column_no ,yyscan_t yyscanner );
|
||||
|
||||
/* Macros after this point can all be overridden by user definitions in
|
||||
* section 1.
|
||||
|
|
@ -801,8 +771,12 @@ extern int cmFortran_yywrap (yyscan_t yyscanner );
|
|||
#endif
|
||||
#endif
|
||||
|
||||
#ifndef YY_NO_UNPUT
|
||||
|
||||
static void yyunput (int c,char *buf_ptr ,yyscan_t yyscanner);
|
||||
|
||||
#endif
|
||||
|
||||
#ifndef yytext_ptr
|
||||
static void yy_flex_strncpy (char *,yyconst char *,int ,yyscan_t yyscanner);
|
||||
#endif
|
||||
|
|
@ -836,7 +810,7 @@ static int input (yyscan_t yyscanner );
|
|||
/* This used to be an fputs(), but since the string might contain NUL's,
|
||||
* we now use fwrite().
|
||||
*/
|
||||
#define ECHO do { if (fwrite( yytext, yyleng, 1, yyout )) {} } while (0)
|
||||
#define ECHO do { if (fwrite( yytext, (size_t) yyleng, 1, yyout )) {} } while (0)
|
||||
#endif
|
||||
|
||||
/* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
|
||||
|
|
@ -860,7 +834,7 @@ static int input (yyscan_t yyscanner );
|
|||
else \
|
||||
{ \
|
||||
errno=0; \
|
||||
while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
|
||||
while ( (result = (int) fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
|
||||
{ \
|
||||
if( errno != EINTR) \
|
||||
{ \
|
||||
|
|
@ -915,7 +889,7 @@ extern int cmFortran_yylex (yyscan_t yyscanner);
|
|||
|
||||
/* Code executed at the end of each rule. */
|
||||
#ifndef YY_BREAK
|
||||
#define YY_BREAK break;
|
||||
#define YY_BREAK /*LINTED*/break;
|
||||
#endif
|
||||
|
||||
#define YY_RULE_SETUP \
|
||||
|
|
@ -960,12 +934,12 @@ YY_DECL
|
|||
}
|
||||
|
||||
{
|
||||
#line 72 "cmFortranLexer.in.l"
|
||||
#line 65 "cmFortranLexer.in.l"
|
||||
|
||||
|
||||
#line 956 "cmFortranLexer.cxx"
|
||||
#line 941 "cmFortranLexer.cxx"
|
||||
|
||||
for(;;) /* loops until end-of-file is reached */
|
||||
while ( /*CONSTCOND*/1 ) /* loops until end-of-file is reached */
|
||||
{
|
||||
yy_cp = yyg->yy_c_buf_p;
|
||||
|
||||
|
|
@ -994,7 +968,7 @@ yy_match:
|
|||
if ( yy_current_state >= 173 )
|
||||
yy_c = yy_meta[(unsigned int) yy_c];
|
||||
}
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
|
||||
++yy_cp;
|
||||
}
|
||||
while ( yy_base[yy_current_state] != 535 );
|
||||
|
|
@ -1023,7 +997,7 @@ do_action: /* This label is used only to access EOF actions. */
|
|||
|
||||
case 1:
|
||||
YY_RULE_SETUP
|
||||
#line 74 "cmFortranLexer.in.l"
|
||||
#line 67 "cmFortranLexer.in.l"
|
||||
{
|
||||
cmFortranParser_StringStart(yyextra);
|
||||
cmFortranParser_SetOldStartcond(yyextra, YY_START);
|
||||
|
|
@ -1032,7 +1006,7 @@ YY_RULE_SETUP
|
|||
YY_BREAK
|
||||
case 2:
|
||||
YY_RULE_SETUP
|
||||
#line 80 "cmFortranLexer.in.l"
|
||||
#line 73 "cmFortranLexer.in.l"
|
||||
{
|
||||
cmFortranParser_StringStart(yyextra);
|
||||
cmFortranParser_SetOldStartcond(yyextra, YY_START);
|
||||
|
|
@ -1040,10 +1014,10 @@ YY_RULE_SETUP
|
|||
}
|
||||
YY_BREAK
|
||||
case 3:
|
||||
#line 87 "cmFortranLexer.in.l"
|
||||
#line 80 "cmFortranLexer.in.l"
|
||||
case 4:
|
||||
YY_RULE_SETUP
|
||||
#line 87 "cmFortranLexer.in.l"
|
||||
#line 80 "cmFortranLexer.in.l"
|
||||
{
|
||||
BEGIN(cmFortranParser_GetOldStartcond(yyextra) );
|
||||
yylvalp->string = strdup(cmFortranParser_StringEnd(yyextra));
|
||||
|
|
@ -1051,17 +1025,17 @@ YY_RULE_SETUP
|
|||
}
|
||||
case 5:
|
||||
/* rule 5 can match eol */
|
||||
#line 94 "cmFortranLexer.in.l"
|
||||
#line 87 "cmFortranLexer.in.l"
|
||||
case 6:
|
||||
/* rule 6 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 94 "cmFortranLexer.in.l"
|
||||
#line 87 "cmFortranLexer.in.l"
|
||||
/* Ignore (continued strings, free fmt) */
|
||||
YY_BREAK
|
||||
case 7:
|
||||
/* rule 7 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 96 "cmFortranLexer.in.l"
|
||||
#line 89 "cmFortranLexer.in.l"
|
||||
{
|
||||
if (cmFortranParser_GetOldStartcond(yyextra) == fixed_fmt)
|
||||
; /* Ignore (cont. strings, fixed fmt) */
|
||||
|
|
@ -1074,7 +1048,7 @@ YY_RULE_SETUP
|
|||
case 8:
|
||||
/* rule 8 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 106 "cmFortranLexer.in.l"
|
||||
#line 99 "cmFortranLexer.in.l"
|
||||
{
|
||||
unput ('\n');
|
||||
BEGIN(INITIAL);
|
||||
|
|
@ -1082,7 +1056,7 @@ YY_RULE_SETUP
|
|||
}
|
||||
case 9:
|
||||
YY_RULE_SETUP
|
||||
#line 112 "cmFortranLexer.in.l"
|
||||
#line 105 "cmFortranLexer.in.l"
|
||||
{
|
||||
cmFortranParser_StringAppend(yyextra, yytext[0]);
|
||||
}
|
||||
|
|
@ -1090,21 +1064,21 @@ YY_RULE_SETUP
|
|||
case 10:
|
||||
/* rule 10 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 116 "cmFortranLexer.in.l"
|
||||
#line 109 "cmFortranLexer.in.l"
|
||||
{ return EOSTMT; } /* Treat comments like */
|
||||
case 11:
|
||||
/* rule 11 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 117 "cmFortranLexer.in.l"
|
||||
#line 110 "cmFortranLexer.in.l"
|
||||
{ return EOSTMT; } /* empty lines */
|
||||
case 12:
|
||||
YY_RULE_SETUP
|
||||
#line 119 "cmFortranLexer.in.l"
|
||||
#line 112 "cmFortranLexer.in.l"
|
||||
{ return CPP_LINE_DIRECTIVE; }
|
||||
case 13:
|
||||
/* rule 13 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 120 "cmFortranLexer.in.l"
|
||||
#line 113 "cmFortranLexer.in.l"
|
||||
{
|
||||
yytext[yyleng-1] = 0;
|
||||
yylvalp->string = strdup(strchr(yytext, '<')+1);
|
||||
|
|
@ -1112,147 +1086,147 @@ YY_RULE_SETUP
|
|||
}
|
||||
case 14:
|
||||
YY_RULE_SETUP
|
||||
#line 125 "cmFortranLexer.in.l"
|
||||
#line 118 "cmFortranLexer.in.l"
|
||||
{ return CPP_INCLUDE; }
|
||||
case 15:
|
||||
YY_RULE_SETUP
|
||||
#line 126 "cmFortranLexer.in.l"
|
||||
#line 119 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_INCLUDE; }
|
||||
case 16:
|
||||
YY_RULE_SETUP
|
||||
#line 127 "cmFortranLexer.in.l"
|
||||
#line 120 "cmFortranLexer.in.l"
|
||||
{ return COCO_INCLUDE; }
|
||||
case 17:
|
||||
YY_RULE_SETUP
|
||||
#line 129 "cmFortranLexer.in.l"
|
||||
#line 122 "cmFortranLexer.in.l"
|
||||
{ return CPP_DEFINE; }
|
||||
case 18:
|
||||
YY_RULE_SETUP
|
||||
#line 130 "cmFortranLexer.in.l"
|
||||
#line 123 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_DEFINE; }
|
||||
case 19:
|
||||
YY_RULE_SETUP
|
||||
#line 132 "cmFortranLexer.in.l"
|
||||
#line 125 "cmFortranLexer.in.l"
|
||||
{ return CPP_UNDEF; }
|
||||
case 20:
|
||||
YY_RULE_SETUP
|
||||
#line 133 "cmFortranLexer.in.l"
|
||||
#line 126 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_UNDEF; }
|
||||
case 21:
|
||||
YY_RULE_SETUP
|
||||
#line 135 "cmFortranLexer.in.l"
|
||||
#line 128 "cmFortranLexer.in.l"
|
||||
{ return CPP_IFDEF; }
|
||||
case 22:
|
||||
YY_RULE_SETUP
|
||||
#line 136 "cmFortranLexer.in.l"
|
||||
#line 129 "cmFortranLexer.in.l"
|
||||
{ return CPP_IFNDEF; }
|
||||
case 23:
|
||||
YY_RULE_SETUP
|
||||
#line 137 "cmFortranLexer.in.l"
|
||||
#line 130 "cmFortranLexer.in.l"
|
||||
{ return CPP_IF; }
|
||||
case 24:
|
||||
YY_RULE_SETUP
|
||||
#line 138 "cmFortranLexer.in.l"
|
||||
#line 131 "cmFortranLexer.in.l"
|
||||
{ return CPP_ELIF; }
|
||||
case 25:
|
||||
YY_RULE_SETUP
|
||||
#line 139 "cmFortranLexer.in.l"
|
||||
#line 132 "cmFortranLexer.in.l"
|
||||
{ return CPP_ELSE; }
|
||||
case 26:
|
||||
YY_RULE_SETUP
|
||||
#line 140 "cmFortranLexer.in.l"
|
||||
#line 133 "cmFortranLexer.in.l"
|
||||
{ return CPP_ENDIF; }
|
||||
case 27:
|
||||
YY_RULE_SETUP
|
||||
#line 142 "cmFortranLexer.in.l"
|
||||
#line 135 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_IFDEF; }
|
||||
case 28:
|
||||
YY_RULE_SETUP
|
||||
#line 143 "cmFortranLexer.in.l"
|
||||
#line 136 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_IFNDEF; }
|
||||
case 29:
|
||||
YY_RULE_SETUP
|
||||
#line 144 "cmFortranLexer.in.l"
|
||||
#line 137 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_IF; }
|
||||
case 30:
|
||||
YY_RULE_SETUP
|
||||
#line 145 "cmFortranLexer.in.l"
|
||||
#line 138 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_ELIF; }
|
||||
case 31:
|
||||
YY_RULE_SETUP
|
||||
#line 146 "cmFortranLexer.in.l"
|
||||
#line 139 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_ELSE; }
|
||||
case 32:
|
||||
YY_RULE_SETUP
|
||||
#line 147 "cmFortranLexer.in.l"
|
||||
#line 140 "cmFortranLexer.in.l"
|
||||
{ return F90PPR_ENDIF; }
|
||||
/* Line continuations, possible involving comments. */
|
||||
case 33:
|
||||
/* rule 33 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 150 "cmFortranLexer.in.l"
|
||||
#line 143 "cmFortranLexer.in.l"
|
||||
|
||||
YY_BREAK
|
||||
case 34:
|
||||
/* rule 34 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 151 "cmFortranLexer.in.l"
|
||||
#line 144 "cmFortranLexer.in.l"
|
||||
|
||||
YY_BREAK
|
||||
case 35:
|
||||
YY_RULE_SETUP
|
||||
#line 153 "cmFortranLexer.in.l"
|
||||
#line 146 "cmFortranLexer.in.l"
|
||||
{ return COMMA; }
|
||||
case 36:
|
||||
YY_RULE_SETUP
|
||||
#line 155 "cmFortranLexer.in.l"
|
||||
#line 148 "cmFortranLexer.in.l"
|
||||
{ return DCOLON; }
|
||||
case 37:
|
||||
/* rule 37 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 157 "cmFortranLexer.in.l"
|
||||
#line 150 "cmFortranLexer.in.l"
|
||||
{ return GARBAGE; }
|
||||
case 38:
|
||||
YY_RULE_SETUP
|
||||
#line 159 "cmFortranLexer.in.l"
|
||||
#line 152 "cmFortranLexer.in.l"
|
||||
{ return ASSIGNMENT_OP; }
|
||||
case 39:
|
||||
YY_RULE_SETUP
|
||||
#line 161 "cmFortranLexer.in.l"
|
||||
#line 154 "cmFortranLexer.in.l"
|
||||
{
|
||||
yylvalp->string = strdup(yytext);
|
||||
return WORD;
|
||||
}
|
||||
case 40:
|
||||
YY_RULE_SETUP
|
||||
#line 166 "cmFortranLexer.in.l"
|
||||
#line 159 "cmFortranLexer.in.l"
|
||||
{ return GARBAGE; }
|
||||
case 41:
|
||||
/* rule 41 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 168 "cmFortranLexer.in.l"
|
||||
#line 161 "cmFortranLexer.in.l"
|
||||
{ return EOSTMT; }
|
||||
case 42:
|
||||
YY_RULE_SETUP
|
||||
#line 171 "cmFortranLexer.in.l"
|
||||
#line 164 "cmFortranLexer.in.l"
|
||||
/* Ignore */
|
||||
YY_BREAK
|
||||
case 43:
|
||||
/* rule 43 can match eol */
|
||||
YY_RULE_SETUP
|
||||
#line 172 "cmFortranLexer.in.l"
|
||||
#line 165 "cmFortranLexer.in.l"
|
||||
/* Ignore line-endings preceded by \ */
|
||||
YY_BREAK
|
||||
case 44:
|
||||
YY_RULE_SETUP
|
||||
#line 174 "cmFortranLexer.in.l"
|
||||
#line 167 "cmFortranLexer.in.l"
|
||||
{ return *yytext; }
|
||||
case YY_STATE_EOF(INITIAL):
|
||||
case YY_STATE_EOF(free_fmt):
|
||||
case YY_STATE_EOF(fixed_fmt):
|
||||
case YY_STATE_EOF(str_sq):
|
||||
case YY_STATE_EOF(str_dq):
|
||||
#line 176 "cmFortranLexer.in.l"
|
||||
#line 169 "cmFortranLexer.in.l"
|
||||
{
|
||||
if(!cmFortranParser_FilePop(yyextra) )
|
||||
{
|
||||
|
|
@ -1262,10 +1236,10 @@ case YY_STATE_EOF(str_dq):
|
|||
YY_BREAK
|
||||
case 45:
|
||||
YY_RULE_SETUP
|
||||
#line 183 "cmFortranLexer.in.l"
|
||||
#line 176 "cmFortranLexer.in.l"
|
||||
ECHO;
|
||||
YY_BREAK
|
||||
#line 1291 "cmFortranLexer.cxx"
|
||||
#line 1276 "cmFortranLexer.cxx"
|
||||
|
||||
case YY_END_OF_BUFFER:
|
||||
{
|
||||
|
|
@ -1409,7 +1383,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
|
||||
char *source = yyg->yytext_ptr;
|
||||
int number_to_move, i;
|
||||
yy_size_t number_to_move, i;
|
||||
int ret_val;
|
||||
|
||||
if ( yyg->yy_c_buf_p > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars + 1] )
|
||||
|
|
@ -1438,7 +1412,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
/* Try to read more data. */
|
||||
|
||||
/* First move last chars to start of buffer. */
|
||||
number_to_move = (int) (yyg->yy_c_buf_p - yyg->yytext_ptr) - 1;
|
||||
number_to_move = (yy_size_t) (yyg->yy_c_buf_p - yyg->yytext_ptr) - 1;
|
||||
|
||||
for ( i = 0; i < number_to_move; ++i )
|
||||
*(dest++) = *(source++);
|
||||
|
|
@ -1451,7 +1425,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
|
||||
else
|
||||
{
|
||||
yy_size_t num_to_read =
|
||||
int num_to_read =
|
||||
YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
|
||||
|
||||
while ( num_to_read <= 0 )
|
||||
|
|
@ -1465,7 +1439,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
|
||||
if ( b->yy_is_our_buffer )
|
||||
{
|
||||
yy_size_t new_size = b->yy_buf_size * 2;
|
||||
int new_size = b->yy_buf_size * 2;
|
||||
|
||||
if ( new_size <= 0 )
|
||||
b->yy_buf_size += b->yy_buf_size / 8;
|
||||
|
|
@ -1478,7 +1452,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
}
|
||||
else
|
||||
/* Can't grow it, we don't own it. */
|
||||
b->yy_ch_buf = 0;
|
||||
b->yy_ch_buf = NULL;
|
||||
|
||||
if ( ! b->yy_ch_buf )
|
||||
YY_FATAL_ERROR(
|
||||
|
|
@ -1520,9 +1494,9 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
else
|
||||
ret_val = EOB_ACT_CONTINUE_SCAN;
|
||||
|
||||
if ((yy_size_t) (yyg->yy_n_chars + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
|
||||
if ((int) (yyg->yy_n_chars + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
|
||||
/* Extend the array by 50%, plus the number we really need. */
|
||||
yy_size_t new_size = yyg->yy_n_chars + number_to_move + (yyg->yy_n_chars >> 1);
|
||||
int new_size = yyg->yy_n_chars + number_to_move + (yyg->yy_n_chars >> 1);
|
||||
YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) cmFortran_yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ,yyscanner );
|
||||
if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
|
||||
YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
|
||||
|
|
@ -1562,7 +1536,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
if ( yy_current_state >= 173 )
|
||||
yy_c = yy_meta[(unsigned int) yy_c];
|
||||
}
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
|
||||
}
|
||||
|
||||
return yy_current_state;
|
||||
|
|
@ -1591,13 +1565,15 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
if ( yy_current_state >= 173 )
|
||||
yy_c = yy_meta[(unsigned int) yy_c];
|
||||
}
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
|
||||
yy_current_state = yy_nxt[yy_base[yy_current_state] + (flex_int16_t) yy_c];
|
||||
yy_is_jam = (yy_current_state == 172);
|
||||
|
||||
(void)yyg;
|
||||
return yy_is_jam ? 0 : yy_current_state;
|
||||
}
|
||||
|
||||
#ifndef YY_NO_UNPUT
|
||||
|
||||
static void yyunput (int c, char * yy_bp , yyscan_t yyscanner)
|
||||
{
|
||||
char *yy_cp;
|
||||
|
|
@ -1611,7 +1587,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
|
||||
{ /* need to shift things up to make room */
|
||||
/* +2 for EOB chars. */
|
||||
yy_size_t number_to_move = yyg->yy_n_chars + 2;
|
||||
int number_to_move = yyg->yy_n_chars + 2;
|
||||
char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
|
||||
YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
|
||||
char *source =
|
||||
|
|
@ -1623,7 +1599,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
yy_cp += (int) (dest - source);
|
||||
yy_bp += (int) (dest - source);
|
||||
YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
|
||||
yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
|
||||
yyg->yy_n_chars = (int) YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
|
||||
|
||||
if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
|
||||
YY_FATAL_ERROR( "flex scanner push-back overflow" );
|
||||
|
|
@ -1636,6 +1612,8 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
yyg->yy_c_buf_p = yy_cp;
|
||||
}
|
||||
|
||||
#endif
|
||||
|
||||
#ifndef YY_NO_INPUT
|
||||
#ifdef __cplusplus
|
||||
static int yyinput (yyscan_t yyscanner)
|
||||
|
|
@ -1661,7 +1639,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
|
||||
else
|
||||
{ /* need more input */
|
||||
yy_size_t offset = yyg->yy_c_buf_p - yyg->yytext_ptr;
|
||||
int offset = yyg->yy_c_buf_p - yyg->yytext_ptr;
|
||||
++yyg->yy_c_buf_p;
|
||||
|
||||
switch ( yy_get_next_buffer( yyscanner ) )
|
||||
|
|
@ -1685,7 +1663,7 @@ static int yy_get_next_buffer (yyscan_t yyscanner)
|
|||
case EOB_ACT_END_OF_FILE:
|
||||
{
|
||||
if ( cmFortran_yywrap(yyscanner ) )
|
||||
return EOF;
|
||||
return 0;
|
||||
|
||||
if ( ! yyg->yy_did_buffer_switch_on_eof )
|
||||
YY_NEW_FILE;
|
||||
|
|
@ -1791,7 +1769,7 @@ static void cmFortran_yy_load_buffer_state (yyscan_t yyscanner)
|
|||
if ( ! b )
|
||||
YY_FATAL_ERROR( "out of dynamic memory in cmFortran_yy_create_buffer()" );
|
||||
|
||||
b->yy_buf_size = size;
|
||||
b->yy_buf_size = (yy_size_t)size;
|
||||
|
||||
/* yy_ch_buf has to be 2 characters longer than the size given because
|
||||
* we need to put in 2 end-of-buffer characters.
|
||||
|
|
@ -1943,7 +1921,7 @@ void cmFortran_yypop_buffer_state (yyscan_t yyscanner)
|
|||
*/
|
||||
static void cmFortran_yyensure_buffer_stack (yyscan_t yyscanner)
|
||||
{
|
||||
yy_size_t num_to_alloc;
|
||||
int num_to_alloc;
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
|
||||
if (!yyg->yy_buffer_stack) {
|
||||
|
|
@ -1952,7 +1930,7 @@ static void cmFortran_yyensure_buffer_stack (yyscan_t yyscanner)
|
|||
* scanner will even need a stack. We use 2 instead of 1 to avoid an
|
||||
* immediate realloc on the next call.
|
||||
*/
|
||||
num_to_alloc = 1;
|
||||
num_to_alloc = 1; /* After all that talk, this was set to 1 anyways... */
|
||||
yyg->yy_buffer_stack = (struct yy_buffer_state**)cmFortran_yyalloc
|
||||
(num_to_alloc * sizeof(struct yy_buffer_state*)
|
||||
, yyscanner);
|
||||
|
|
@ -1969,7 +1947,7 @@ static void cmFortran_yyensure_buffer_stack (yyscan_t yyscanner)
|
|||
if (yyg->yy_buffer_stack_top >= (yyg->yy_buffer_stack_max) - 1){
|
||||
|
||||
/* Increase the buffer to prepare for a possible push. */
|
||||
int grow_size = 8 /* arbitrary grow size */;
|
||||
yy_size_t grow_size = 8 /* arbitrary grow size */;
|
||||
|
||||
num_to_alloc = yyg->yy_buffer_stack_max + grow_size;
|
||||
yyg->yy_buffer_stack = (struct yy_buffer_state**)cmFortran_yyrealloc
|
||||
|
|
@ -1999,7 +1977,7 @@ YY_BUFFER_STATE cmFortran_yy_scan_buffer (char * base, yy_size_t size , yyscan
|
|||
base[size-2] != YY_END_OF_BUFFER_CHAR ||
|
||||
base[size-1] != YY_END_OF_BUFFER_CHAR )
|
||||
/* They forgot to leave room for the EOB's. */
|
||||
return 0;
|
||||
return NULL;
|
||||
|
||||
b = (YY_BUFFER_STATE) cmFortran_yyalloc(sizeof( struct yy_buffer_state ) ,yyscanner );
|
||||
if ( ! b )
|
||||
|
|
@ -2008,7 +1986,7 @@ YY_BUFFER_STATE cmFortran_yy_scan_buffer (char * base, yy_size_t size , yyscan
|
|||
b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
|
||||
b->yy_buf_pos = b->yy_ch_buf = base;
|
||||
b->yy_is_our_buffer = 0;
|
||||
b->yy_input_file = 0;
|
||||
b->yy_input_file = NULL;
|
||||
b->yy_n_chars = b->yy_buf_size;
|
||||
b->yy_is_interactive = 0;
|
||||
b->yy_at_bol = 1;
|
||||
|
|
@ -2031,7 +2009,7 @@ YY_BUFFER_STATE cmFortran_yy_scan_buffer (char * base, yy_size_t size , yyscan
|
|||
YY_BUFFER_STATE cmFortran_yy_scan_string (yyconst char * yystr , yyscan_t yyscanner)
|
||||
{
|
||||
|
||||
return cmFortran_yy_scan_bytes(yystr,strlen(yystr) ,yyscanner);
|
||||
return cmFortran_yy_scan_bytes(yystr,(int) strlen(yystr) ,yyscanner);
|
||||
}
|
||||
|
||||
/** Setup the input buffer state to scan the given bytes. The next call to cmFortran_yylex() will
|
||||
|
|
@ -2041,7 +2019,7 @@ YY_BUFFER_STATE cmFortran_yy_scan_string (yyconst char * yystr , yyscan_t yyscan
|
|||
* @param yyscanner The scanner object.
|
||||
* @return the newly allocated buffer state object.
|
||||
*/
|
||||
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char * yybytes, yy_size_t _yybytes_len , yyscan_t yyscanner)
|
||||
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len , yyscan_t yyscanner)
|
||||
{
|
||||
YY_BUFFER_STATE b;
|
||||
char *buf;
|
||||
|
|
@ -2049,12 +2027,12 @@ YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char * yybytes, yy_size_t _yy
|
|||
yy_size_t i;
|
||||
|
||||
/* Get memory for full buffer, including space for trailing EOB's. */
|
||||
n = _yybytes_len + 2;
|
||||
n = (yy_size_t) _yybytes_len + 2;
|
||||
buf = (char *) cmFortran_yyalloc(n ,yyscanner );
|
||||
if ( ! buf )
|
||||
YY_FATAL_ERROR( "out of dynamic memory in cmFortran_yy_scan_bytes()" );
|
||||
|
||||
for ( i = 0; i < _yybytes_len; ++i )
|
||||
for ( i = 0; i < (size_t)_yybytes_len; ++i )
|
||||
buf[i] = yybytes[i];
|
||||
|
||||
buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
|
||||
|
|
@ -2075,8 +2053,10 @@ YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char * yybytes, yy_size_t _yy
|
|||
#define YY_EXIT_FAILURE 2
|
||||
#endif
|
||||
|
||||
static void yy_fatal_error (yyconst char* msg , yyscan_t)
|
||||
static void yynoreturn yy_fatal_error (yyconst char* msg , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
(void)yyg;
|
||||
(void) fprintf( stderr, "%s\n", msg );
|
||||
exit( YY_EXIT_FAILURE );
|
||||
}
|
||||
|
|
@ -2156,7 +2136,7 @@ FILE *cmFortran_yyget_out (yyscan_t yyscanner)
|
|||
/** Get the length of the current token.
|
||||
* @param yyscanner The scanner object.
|
||||
*/
|
||||
yy_size_t cmFortran_yyget_leng (yyscan_t yyscanner)
|
||||
int cmFortran_yyget_leng (yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
return yyleng;
|
||||
|
|
@ -2183,10 +2163,10 @@ void cmFortran_yyset_extra (YY_EXTRA_TYPE user_defined , yyscan_t yyscanner)
|
|||
}
|
||||
|
||||
/** Set the current line number.
|
||||
* @param line_number The line number to set.
|
||||
* @param _line_number line number
|
||||
* @param yyscanner The scanner object.
|
||||
*/
|
||||
void cmFortran_yyset_lineno (int line_number , yyscan_t yyscanner)
|
||||
void cmFortran_yyset_lineno (int _line_number , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
|
||||
|
|
@ -2194,14 +2174,14 @@ void cmFortran_yyset_lineno (int line_number , yyscan_t yyscanner)
|
|||
if (! YY_CURRENT_BUFFER )
|
||||
YY_FATAL_ERROR( "cmFortran_yyset_lineno called with no buffer" );
|
||||
|
||||
yylineno = line_number;
|
||||
yylineno = _line_number;
|
||||
}
|
||||
|
||||
/** Set the current column.
|
||||
* @param column_no The column number to set.
|
||||
* @param _column_no column number
|
||||
* @param yyscanner The scanner object.
|
||||
*/
|
||||
void cmFortran_yyset_column (int column_no , yyscan_t yyscanner)
|
||||
void cmFortran_yyset_column (int _column_no , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
|
||||
|
|
@ -2209,25 +2189,25 @@ void cmFortran_yyset_column (int column_no , yyscan_t yyscanner)
|
|||
if (! YY_CURRENT_BUFFER )
|
||||
YY_FATAL_ERROR( "cmFortran_yyset_column called with no buffer" );
|
||||
|
||||
yycolumn = column_no;
|
||||
yycolumn = _column_no;
|
||||
}
|
||||
|
||||
/** Set the input stream. This does not discard the current
|
||||
* input buffer.
|
||||
* @param in_str A readable stream.
|
||||
* @param _in_str A readable stream.
|
||||
* @param yyscanner The scanner object.
|
||||
* @see cmFortran_yy_switch_to_buffer
|
||||
*/
|
||||
void cmFortran_yyset_in (FILE * in_str , yyscan_t yyscanner)
|
||||
void cmFortran_yyset_in (FILE * _in_str , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
yyin = in_str ;
|
||||
yyin = _in_str ;
|
||||
}
|
||||
|
||||
void cmFortran_yyset_out (FILE * out_str , yyscan_t yyscanner)
|
||||
void cmFortran_yyset_out (FILE * _out_str , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
yyout = out_str ;
|
||||
yyout = _out_str ;
|
||||
}
|
||||
|
||||
int cmFortran_yyget_debug (yyscan_t yyscanner)
|
||||
|
|
@ -2236,10 +2216,10 @@ int cmFortran_yyget_debug (yyscan_t yyscanner)
|
|||
return yy_flex_debug;
|
||||
}
|
||||
|
||||
void cmFortran_yyset_debug (int bdebug , yyscan_t yyscanner)
|
||||
void cmFortran_yyset_debug (int _bdebug , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
yy_flex_debug = bdebug ;
|
||||
yy_flex_debug = _bdebug ;
|
||||
}
|
||||
|
||||
/* Accessor methods for yylval and yylloc */
|
||||
|
|
@ -2315,10 +2295,10 @@ static int yy_init_globals (yyscan_t yyscanner)
|
|||
* This function is called from cmFortran_yylex_destroy(), so don't allocate here.
|
||||
*/
|
||||
|
||||
yyg->yy_buffer_stack = 0;
|
||||
yyg->yy_buffer_stack = NULL;
|
||||
yyg->yy_buffer_stack_top = 0;
|
||||
yyg->yy_buffer_stack_max = 0;
|
||||
yyg->yy_c_buf_p = (char *) 0;
|
||||
yyg->yy_c_buf_p = NULL;
|
||||
yyg->yy_init = 0;
|
||||
yyg->yy_start = 0;
|
||||
|
||||
|
|
@ -2331,8 +2311,8 @@ static int yy_init_globals (yyscan_t yyscanner)
|
|||
yyin = stdin;
|
||||
yyout = stdout;
|
||||
#else
|
||||
yyin = (FILE *) 0;
|
||||
yyout = (FILE *) 0;
|
||||
yyin = NULL;
|
||||
yyout = NULL;
|
||||
#endif
|
||||
|
||||
/* For future reference: Set errno on error, since we are called by
|
||||
|
|
@ -2377,6 +2357,9 @@ int cmFortran_yylex_destroy (yyscan_t yyscanner)
|
|||
#ifndef yytext_ptr
|
||||
static void yy_flex_strncpy (char* s1, yyconst char * s2, int n , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
(void)yyg;
|
||||
|
||||
int i;
|
||||
for ( i = 0; i < n; ++i )
|
||||
s1[i] = s2[i];
|
||||
|
|
@ -2394,13 +2377,18 @@ static int yy_flex_strlen (yyconst char * s , yyscan_t yyscanner)
|
|||
}
|
||||
#endif
|
||||
|
||||
void *cmFortran_yyalloc (yy_size_t size , yyscan_t)
|
||||
void *cmFortran_yyalloc (yy_size_t size , yyscan_t yyscanner)
|
||||
{
|
||||
return (void *) malloc( size );
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
(void)yyg;
|
||||
return malloc(size);
|
||||
}
|
||||
|
||||
void *cmFortran_yyrealloc (void * ptr, yy_size_t size , yyscan_t)
|
||||
void *cmFortran_yyrealloc (void * ptr, yy_size_t size , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
(void)yyg;
|
||||
|
||||
/* The cast to (char *) in the following accommodates both
|
||||
* implementations that use char* generic pointers, and those
|
||||
* that use void* generic pointers. It works with the latter
|
||||
|
|
@ -2408,17 +2396,19 @@ void *cmFortran_yyrealloc (void * ptr, yy_size_t size , yyscan_t)
|
|||
* any pointer type to void*, and deal with argument conversions
|
||||
* as though doing an assignment.
|
||||
*/
|
||||
return (void *) realloc( (char *) ptr, size );
|
||||
return realloc(ptr, size);
|
||||
}
|
||||
|
||||
void cmFortran_yyfree (void * ptr , yyscan_t)
|
||||
void cmFortran_yyfree (void * ptr , yyscan_t yyscanner)
|
||||
{
|
||||
struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
|
||||
(void)yyg;
|
||||
free( (char *) ptr ); /* see cmFortran_yyrealloc() for (char *) cast */
|
||||
}
|
||||
|
||||
#define YYTABLES_NAME "yytables"
|
||||
|
||||
#line 182 "cmFortranLexer.in.l"
|
||||
#line 176 "cmFortranLexer.in.l"
|
||||
|
||||
|
||||
|
||||
|
|
|
|||
|
|
@ -1,26 +1,19 @@
|
|||
/*============================================================================
|
||||
CMake - Cross Platform Makefile Generator
|
||||
Copyright 2000-2015 Kitware, Inc., Insight Software Consortium
|
||||
|
||||
Distributed under the OSI-approved BSD License (the "License");
|
||||
see accompanying file Copyright.txt for details.
|
||||
|
||||
This software is distributed WITHOUT ANY WARRANTY; without even the
|
||||
implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||||
See the License for more information.
|
||||
============================================================================*/
|
||||
#ifndef cmFortran_yyHEADER_H
|
||||
#define cmFortran_yyHEADER_H 1
|
||||
#define cmFortran_yyIN_HEADER 1
|
||||
|
||||
#line 6 "cmFortranLexer.h"
|
||||
|
||||
#line 8 "cmFortranLexer.h"
|
||||
|
||||
#define YY_INT_ALIGNED short int
|
||||
|
||||
/* A lexical scanner generated by flex */
|
||||
|
||||
#define FLEX_SCANNER
|
||||
#define YY_FLEX_MAJOR_VERSION 2
|
||||
#define YY_FLEX_MINOR_VERSION 5
|
||||
#define YY_FLEX_SUBMINOR_VERSION 39
|
||||
#define YY_FLEX_MINOR_VERSION 6
|
||||
#define YY_FLEX_SUBMINOR_VERSION 1
|
||||
#if YY_FLEX_SUBMINOR_VERSION > 0
|
||||
#define FLEX_BETA
|
||||
#endif
|
||||
|
|
@ -99,25 +92,13 @@ typedef unsigned int flex_uint32_t;
|
|||
|
||||
#endif /* ! FLEXINT_H */
|
||||
|
||||
#ifdef __cplusplus
|
||||
|
||||
/* The "const" storage-class-modifier is valid. */
|
||||
#define YY_USE_CONST
|
||||
|
||||
#else /* ! __cplusplus */
|
||||
|
||||
/* C99 requires __STDC__ to be defined as 1. */
|
||||
#if defined (__STDC__)
|
||||
|
||||
#define YY_USE_CONST
|
||||
|
||||
#endif /* defined (__STDC__) */
|
||||
#endif /* ! __cplusplus */
|
||||
|
||||
#ifdef YY_USE_CONST
|
||||
/* TODO: this is always defined, so inline it */
|
||||
#define yyconst const
|
||||
|
||||
#if defined(__GNUC__) && __GNUC__ >= 3
|
||||
#define yynoreturn __attribute__((__noreturn__))
|
||||
#else
|
||||
#define yyconst
|
||||
#define yynoreturn
|
||||
#endif
|
||||
|
||||
/* An opaque pointer. */
|
||||
|
|
@ -172,12 +153,12 @@ struct yy_buffer_state
|
|||
/* Size of input buffer in bytes, not including room for EOB
|
||||
* characters.
|
||||
*/
|
||||
yy_size_t yy_buf_size;
|
||||
int yy_buf_size;
|
||||
|
||||
/* Number of characters read into yy_ch_buf, not including EOB
|
||||
* characters.
|
||||
*/
|
||||
yy_size_t yy_n_chars;
|
||||
int yy_n_chars;
|
||||
|
||||
/* Whether we "own" the buffer - i.e., we know we created it,
|
||||
* and can realloc() it to grow it, and should free() it to
|
||||
|
|
@ -221,7 +202,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_string (yyconst char *yy_str ,yyscan_t yyscanner );
|
||||
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char *bytes,yy_size_t len ,yyscan_t yyscanner );
|
||||
YY_BUFFER_STATE cmFortran_yy_scan_bytes (yyconst char *bytes,int len ,yyscan_t yyscanner );
|
||||
|
||||
void *cmFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
|
||||
void *cmFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
|
||||
|
|
@ -229,7 +210,7 @@ void cmFortran_yyfree (void * ,yyscan_t yyscanner );
|
|||
|
||||
/* Begin user sect3 */
|
||||
|
||||
#define cmFortran_yywrap(yyscanner) 1
|
||||
#define cmFortran_yywrap(yyscanner) (/*CONSTCOND*/1)
|
||||
#define YY_SKIP_YYWRAP
|
||||
|
||||
#define yytext_ptr yytext_r
|
||||
|
|
@ -243,6 +224,14 @@ void cmFortran_yyfree (void * ,yyscan_t yyscanner );
|
|||
|
||||
#endif
|
||||
|
||||
#ifndef YY_NO_UNISTD_H
|
||||
/* Special case for "unistd.h", since it is non-ANSI. We include it way
|
||||
* down here because we want the user's section 1 to have been scanned first.
|
||||
* The user has a chance to override it with an option.
|
||||
*/
|
||||
#include <unistd.h>
|
||||
#endif
|
||||
|
||||
#ifndef YY_EXTRA_TYPE
|
||||
#define YY_EXTRA_TYPE void *
|
||||
#endif
|
||||
|
|
@ -266,23 +255,23 @@ void cmFortran_yyset_extra (YY_EXTRA_TYPE user_defined ,yyscan_t yyscanner );
|
|||
|
||||
FILE *cmFortran_yyget_in (yyscan_t yyscanner );
|
||||
|
||||
void cmFortran_yyset_in (FILE * in_str ,yyscan_t yyscanner );
|
||||
void cmFortran_yyset_in (FILE * _in_str ,yyscan_t yyscanner );
|
||||
|
||||
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 );
|
||||
|
||||
yy_size_t cmFortran_yyget_leng (yyscan_t yyscanner );
|
||||
int cmFortran_yyget_leng (yyscan_t yyscanner );
|
||||
|
||||
char *cmFortran_yyget_text (yyscan_t yyscanner );
|
||||
|
||||
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 );
|
||||
void cmFortran_yyset_column (int _column_no ,yyscan_t yyscanner );
|
||||
|
||||
/* Macros after this point can all be overridden by user definitions in
|
||||
* section 1.
|
||||
|
|
@ -348,5 +337,9 @@ extern int cmFortran_yylex (yyscan_t yyscanner);
|
|||
#undef YY_DECL
|
||||
#endif
|
||||
|
||||
#line 176 "cmFortranLexer.in.l"
|
||||
|
||||
|
||||
#line 344 "cmFortranLexer.h"
|
||||
#undef cmFortran_yyIN_HEADER
|
||||
#endif /* cmFortran_yyHEADER_H */
|
||||
|
|
|
|||
|
|
@ -24,28 +24,21 @@
|
|||
|
||||
This file must be translated to C and modified to build everywhere.
|
||||
|
||||
Run flex like this:
|
||||
Run flex >= 2.6 like this:
|
||||
|
||||
flex -i --prefix=cmFortran_yy --header-file=cmFortranLexer.h -ocmFortranLexer.cxx cmFortranLexer.in.l
|
||||
|
||||
Modify cmFortranLexer.cxx:
|
||||
- remove TABs
|
||||
- remove use of the 'register' storage class specifier
|
||||
- remove "yyscanner" argument from these methods:
|
||||
yy_fatal_error, cmFortran_yyalloc, cmFortran_yyrealloc, cmFortran_yyfree
|
||||
- remove trailing whitespace: sed -i 's/\s*$//' cmFortranLexer.h cmFortranLexer.cxx
|
||||
- remove blank lines at end of file
|
||||
- remove "yyscanner = NULL" from end of cmFortran_yylex_destroy
|
||||
- remove all YY_BREAK lines occurring right after return statements
|
||||
- change while ( 1 ) to for(;;)
|
||||
|
||||
Modify cmFortranLexer.h:
|
||||
- remove TABs
|
||||
- remove the yy_init_globals function
|
||||
- remove the block that includes unistd.h
|
||||
- remove #line directives (avoids bogus warning on old Sun)
|
||||
- add cast in yy_scan_bytes for loop condition of _yybytes_len to size_t
|
||||
|
||||
*/
|
||||
|
||||
#include "cmStandardLexer.h"
|
||||
#undef YY_NO_UNPUT
|
||||
|
||||
#define cmFortranLexer_cxx
|
||||
#include "cmFortranParser.h" /* Interface to parser object. */
|
||||
|
|
|
|||
|
|
@ -73,6 +73,7 @@ union cmFortran_yystype_u
|
|||
#define YYSTYPE cmFortran_yystype
|
||||
#define YYSTYPE_IS_DECLARED 1
|
||||
#if !defined(cmFortranLexer_cxx)
|
||||
#define YY_NO_UNISTD_H
|
||||
#include "cmFortranLexer.h"
|
||||
#endif
|
||||
#if !defined(cmFortranLexer_cxx)
|
||||
|
|
|
|||
Loading…
Reference in New Issue