mirror of
https://github.com/reactos/CMake.git
synced 2024-12-15 15:48:52 +00:00
b5ac8b8aa7
Fortran 2008 [1] adds support for a new syntax related to modules:
submodule ( ParentModule ) SubModule
submodule ( ParentModule : SubModule ) NestedSubModule
Both of these mean that the current source file requires the module
`ParentModule` to be available if it is not provided in the current
file. Teach our Fortran dependency scanner to parse this syntax to
extract this relationship. For now simply tolerate the nested submodule
case and extract only the dependency it expresses on the main module.
Further work will be needed to extract dependencies among nested
submodules.
[1] http://fortranwiki.org/fortran/show/Fortran+2008
Closes: #16234
346 lines
8.6 KiB
C
346 lines
8.6 KiB
C
#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 6
|
|
#define YY_FLEX_SUBMINOR_VERSION 1
|
|
#if YY_FLEX_SUBMINOR_VERSION > 0
|
|
#define FLEX_BETA
|
|
#endif
|
|
|
|
/* First, we deal with platform-specific or compiler-specific issues. */
|
|
|
|
/* begin standard C headers. */
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <errno.h>
|
|
#include <stdlib.h>
|
|
|
|
/* end standard C headers. */
|
|
|
|
/* flex integer type definitions */
|
|
|
|
#ifndef FLEXINT_H
|
|
#define FLEXINT_H
|
|
|
|
/* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
|
|
|
|
#if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
|
|
|
|
/* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
|
|
* if you want the limit (max/min) macros for int types.
|
|
*/
|
|
#ifndef __STDC_LIMIT_MACROS
|
|
#define __STDC_LIMIT_MACROS 1
|
|
#endif
|
|
|
|
#include <inttypes.h>
|
|
typedef int8_t flex_int8_t;
|
|
typedef uint8_t flex_uint8_t;
|
|
typedef int16_t flex_int16_t;
|
|
typedef uint16_t flex_uint16_t;
|
|
typedef int32_t flex_int32_t;
|
|
typedef uint32_t flex_uint32_t;
|
|
#else
|
|
typedef signed char flex_int8_t;
|
|
typedef short int flex_int16_t;
|
|
typedef int flex_int32_t;
|
|
typedef unsigned char flex_uint8_t;
|
|
typedef unsigned short int flex_uint16_t;
|
|
typedef unsigned int flex_uint32_t;
|
|
|
|
/* Limits of integral types. */
|
|
#ifndef INT8_MIN
|
|
#define INT8_MIN (-128)
|
|
#endif
|
|
#ifndef INT16_MIN
|
|
#define INT16_MIN (-32767-1)
|
|
#endif
|
|
#ifndef INT32_MIN
|
|
#define INT32_MIN (-2147483647-1)
|
|
#endif
|
|
#ifndef INT8_MAX
|
|
#define INT8_MAX (127)
|
|
#endif
|
|
#ifndef INT16_MAX
|
|
#define INT16_MAX (32767)
|
|
#endif
|
|
#ifndef INT32_MAX
|
|
#define INT32_MAX (2147483647)
|
|
#endif
|
|
#ifndef UINT8_MAX
|
|
#define UINT8_MAX (255U)
|
|
#endif
|
|
#ifndef UINT16_MAX
|
|
#define UINT16_MAX (65535U)
|
|
#endif
|
|
#ifndef UINT32_MAX
|
|
#define UINT32_MAX (4294967295U)
|
|
#endif
|
|
|
|
#endif /* ! C99 */
|
|
|
|
#endif /* ! FLEXINT_H */
|
|
|
|
/* TODO: this is always defined, so inline it */
|
|
#define yyconst const
|
|
|
|
#if defined(__GNUC__) && __GNUC__ >= 3
|
|
#define yynoreturn __attribute__((__noreturn__))
|
|
#else
|
|
#define yynoreturn
|
|
#endif
|
|
|
|
/* An opaque pointer. */
|
|
#ifndef YY_TYPEDEF_YY_SCANNER_T
|
|
#define YY_TYPEDEF_YY_SCANNER_T
|
|
typedef void* yyscan_t;
|
|
#endif
|
|
|
|
/* For convenience, these vars (plus the bison vars far below)
|
|
are macros in the reentrant scanner. */
|
|
#define yyin yyg->yyin_r
|
|
#define yyout yyg->yyout_r
|
|
#define yyextra yyg->yyextra_r
|
|
#define yyleng yyg->yyleng_r
|
|
#define yytext yyg->yytext_r
|
|
#define yylineno (YY_CURRENT_BUFFER_LVALUE->yy_bs_lineno)
|
|
#define yycolumn (YY_CURRENT_BUFFER_LVALUE->yy_bs_column)
|
|
#define yy_flex_debug yyg->yy_flex_debug_r
|
|
|
|
/* Size of default input buffer. */
|
|
#ifndef YY_BUF_SIZE
|
|
#ifdef __ia64__
|
|
/* On IA-64, the buffer size is 16k, not 8k.
|
|
* Moreover, YY_BUF_SIZE is 2*YY_READ_BUF_SIZE in the general case.
|
|
* Ditto for the __ia64__ case accordingly.
|
|
*/
|
|
#define YY_BUF_SIZE 32768
|
|
#else
|
|
#define YY_BUF_SIZE 16384
|
|
#endif /* __ia64__ */
|
|
#endif
|
|
|
|
#ifndef YY_TYPEDEF_YY_BUFFER_STATE
|
|
#define YY_TYPEDEF_YY_BUFFER_STATE
|
|
typedef struct yy_buffer_state *YY_BUFFER_STATE;
|
|
#endif
|
|
|
|
#ifndef YY_TYPEDEF_YY_SIZE_T
|
|
#define YY_TYPEDEF_YY_SIZE_T
|
|
typedef size_t yy_size_t;
|
|
#endif
|
|
|
|
#ifndef YY_STRUCT_YY_BUFFER_STATE
|
|
#define YY_STRUCT_YY_BUFFER_STATE
|
|
struct yy_buffer_state
|
|
{
|
|
FILE *yy_input_file;
|
|
|
|
char *yy_ch_buf; /* input buffer */
|
|
char *yy_buf_pos; /* current position in input buffer */
|
|
|
|
/* Size of input buffer in bytes, not including room for EOB
|
|
* characters.
|
|
*/
|
|
int yy_buf_size;
|
|
|
|
/* Number of characters read into yy_ch_buf, not including EOB
|
|
* characters.
|
|
*/
|
|
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
|
|
* delete it.
|
|
*/
|
|
int yy_is_our_buffer;
|
|
|
|
/* Whether this is an "interactive" input source; if so, and
|
|
* if we're using stdio for input, then we want to use getc()
|
|
* instead of fread(), to make sure we stop fetching input after
|
|
* each newline.
|
|
*/
|
|
int yy_is_interactive;
|
|
|
|
/* Whether we're considered to be at the beginning of a line.
|
|
* If so, '^' rules will be active on the next match, otherwise
|
|
* not.
|
|
*/
|
|
int yy_at_bol;
|
|
|
|
int yy_bs_lineno; /**< The line count. */
|
|
int yy_bs_column; /**< The column count. */
|
|
|
|
/* Whether to try to fill the input buffer when we reach the
|
|
* end of it.
|
|
*/
|
|
int yy_fill_buffer;
|
|
|
|
int yy_buffer_status;
|
|
|
|
};
|
|
#endif /* !YY_STRUCT_YY_BUFFER_STATE */
|
|
|
|
void cmFortran_yyrestart (FILE *input_file ,yyscan_t yyscanner );
|
|
void cmFortran_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
|
|
YY_BUFFER_STATE cmFortran_yy_create_buffer (FILE *file,int size ,yyscan_t yyscanner );
|
|
void cmFortran_yy_delete_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
|
|
void cmFortran_yy_flush_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
|
|
void cmFortran_yypush_buffer_state (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
|
|
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,int len ,yyscan_t yyscanner );
|
|
|
|
void *cmFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
|
|
void *cmFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
|
|
void cmFortran_yyfree (void * ,yyscan_t yyscanner );
|
|
|
|
/* Begin user sect3 */
|
|
|
|
#define cmFortran_yywrap(yyscanner) (/*CONSTCOND*/1)
|
|
#define YY_SKIP_YYWRAP
|
|
|
|
#define yytext_ptr yytext_r
|
|
|
|
#ifdef YY_HEADER_EXPORT_START_CONDITIONS
|
|
#define INITIAL 0
|
|
#define free_fmt 1
|
|
#define fixed_fmt 2
|
|
#define str_sq 3
|
|
#define str_dq 4
|
|
|
|
#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
|
|
|
|
int cmFortran_yylex_init (yyscan_t* scanner);
|
|
|
|
int cmFortran_yylex_init_extra (YY_EXTRA_TYPE user_defined,yyscan_t* scanner);
|
|
|
|
/* Accessor methods to globals.
|
|
These are made visible to non-reentrant scanners for convenience. */
|
|
|
|
int cmFortran_yylex_destroy (yyscan_t yyscanner );
|
|
|
|
int cmFortran_yyget_debug (yyscan_t yyscanner );
|
|
|
|
void cmFortran_yyset_debug (int debug_flag ,yyscan_t yyscanner );
|
|
|
|
YY_EXTRA_TYPE cmFortran_yyget_extra (yyscan_t yyscanner );
|
|
|
|
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 );
|
|
|
|
FILE *cmFortran_yyget_out (yyscan_t yyscanner );
|
|
|
|
void cmFortran_yyset_out (FILE * _out_str ,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 );
|
|
|
|
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
|
|
* section 1.
|
|
*/
|
|
|
|
#ifndef YY_SKIP_YYWRAP
|
|
#ifdef __cplusplus
|
|
extern "C" int cmFortran_yywrap (yyscan_t yyscanner );
|
|
#else
|
|
extern int cmFortran_yywrap (yyscan_t yyscanner );
|
|
#endif
|
|
#endif
|
|
|
|
#ifndef yytext_ptr
|
|
static void yy_flex_strncpy (char *,yyconst char *,int ,yyscan_t yyscanner);
|
|
#endif
|
|
|
|
#ifdef YY_NEED_STRLEN
|
|
static int yy_flex_strlen (yyconst char * ,yyscan_t yyscanner);
|
|
#endif
|
|
|
|
#ifndef YY_NO_INPUT
|
|
|
|
#endif
|
|
|
|
/* Amount of stuff to slurp up with each read. */
|
|
#ifndef YY_READ_BUF_SIZE
|
|
#ifdef __ia64__
|
|
/* On IA-64, the buffer size is 16k, not 8k */
|
|
#define YY_READ_BUF_SIZE 16384
|
|
#else
|
|
#define YY_READ_BUF_SIZE 8192
|
|
#endif /* __ia64__ */
|
|
#endif
|
|
|
|
/* Number of entries by which start-condition stack grows. */
|
|
#ifndef YY_START_STACK_INCR
|
|
#define YY_START_STACK_INCR 25
|
|
#endif
|
|
|
|
/* Default declaration of generated scanner - a define so the user can
|
|
* easily add parameters.
|
|
*/
|
|
#ifndef YY_DECL
|
|
#define YY_DECL_IS_OURS 1
|
|
|
|
extern int cmFortran_yylex (yyscan_t yyscanner);
|
|
|
|
#define YY_DECL int cmFortran_yylex (yyscan_t yyscanner)
|
|
#endif /* !YY_DECL */
|
|
|
|
/* yy_get_previous_state - get the state just before the EOB char was reached */
|
|
|
|
#undef YY_NEW_FILE
|
|
#undef YY_FLUSH_BUFFER
|
|
#undef yy_set_bol
|
|
#undef yy_new_buffer
|
|
#undef yy_set_interactive
|
|
#undef YY_DO_BEFORE_ACTION
|
|
|
|
#ifdef YY_DECL_IS_OURS
|
|
#undef YY_DECL_IS_OURS
|
|
#undef YY_DECL
|
|
#endif
|
|
|
|
#line 187 "cmFortranLexer.in.l"
|
|
|
|
|
|
#line 344 "cmFortranLexer.h"
|
|
#undef cmFortran_yyIN_HEADER
|
|
#endif /* cmFortran_yyHEADER_H */
|