cmDependsFortranLexer.cxx 82 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974197519761977197819791980198119821983198419851986198719881989199019911992199319941995199619971998199920002001200220032004200520062007200820092010201120122013201420152016201720182019202020212022202320242025202620272028202920302031203220332034203520362037203820392040204120422043204420452046204720482049205020512052205320542055205620572058205920602061206220632064206520662067206820692070207120722073207420752076207720782079208020812082208320842085208620872088208920902091209220932094209520962097209820992100210121022103210421052106210721082109211021112112211321142115211621172118211921202121212221232124212521262127212821292130213121322133213421352136213721382139214021412142214321442145214621472148214921502151215221532154215521562157215821592160216121622163216421652166216721682169217021712172217321742175217621772178217921802181218221832184218521862187218821892190219121922193219421952196219721982199220022012202220322042205220622072208220922102211221222132214221522162217221822192220222122222223222422252226222722282229223022312232223322342235223622372238223922402241224222432244224522462247224822492250225122522253225422552256225722582259226022612262226322642265226622672268226922702271227222732274227522762277227822792280228122822283228422852286228722882289229022912292229322942295229622972298229923002301230223032304230523062307230823092310231123122313231423152316231723182319232023212322232323242325232623272328232923302331233223332334233523362337233823392340234123422343234423452346234723482349235023512352235323542355235623572358235923602361236223632364236523662367236823692370237123722373237423752376237723782379238023812382238323842385238623872388
  1. /*============================================================================
  2. CMake - Cross Platform Makefile Generator
  3. Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
  4. Distributed under the OSI-approved BSD License (the "License");
  5. see accompanying file Copyright.txt for details.
  6. This software is distributed WITHOUT ANY WARRANTY; without even the
  7. implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  8. See the License for more information.
  9. ============================================================================*/
  10. #line 2 "cmDependsFortranLexer.cxx"
  11. #line 4 "cmDependsFortranLexer.cxx"
  12. #define YY_INT_ALIGNED short int
  13. /* A lexical scanner generated by flex */
  14. #define FLEX_SCANNER
  15. #define YY_FLEX_MAJOR_VERSION 2
  16. #define YY_FLEX_MINOR_VERSION 5
  17. #define YY_FLEX_SUBMINOR_VERSION 34
  18. #if YY_FLEX_SUBMINOR_VERSION > 0
  19. #define FLEX_BETA
  20. #endif
  21. /* First, we deal with platform-specific or compiler-specific issues. */
  22. /* begin standard C headers. */
  23. #include <stdio.h>
  24. #include <string.h>
  25. #include <errno.h>
  26. #include <stdlib.h>
  27. /* end standard C headers. */
  28. /* flex integer type definitions */
  29. #ifndef FLEXINT_H
  30. #define FLEXINT_H
  31. /* C99 systems have <inttypes.h>. Non-C99 systems may or may not. */
  32. #if defined (__STDC_VERSION__) && __STDC_VERSION__ >= 199901L
  33. /* C99 says to define __STDC_LIMIT_MACROS before including stdint.h,
  34. * if you want the limit (max/min) macros for int types.
  35. */
  36. #ifndef __STDC_LIMIT_MACROS
  37. #define __STDC_LIMIT_MACROS 1
  38. #endif
  39. #include <inttypes.h>
  40. typedef int8_t flex_int8_t;
  41. typedef uint8_t flex_uint8_t;
  42. typedef int16_t flex_int16_t;
  43. typedef uint16_t flex_uint16_t;
  44. typedef int32_t flex_int32_t;
  45. typedef uint32_t flex_uint32_t;
  46. #else
  47. typedef signed char flex_int8_t;
  48. typedef short int flex_int16_t;
  49. typedef int flex_int32_t;
  50. typedef unsigned char flex_uint8_t;
  51. typedef unsigned short int flex_uint16_t;
  52. typedef unsigned int flex_uint32_t;
  53. #endif /* ! C99 */
  54. /* Limits of integral types. */
  55. #ifndef INT8_MIN
  56. #define INT8_MIN (-128)
  57. #endif
  58. #ifndef INT16_MIN
  59. #define INT16_MIN (-32767-1)
  60. #endif
  61. #ifndef INT32_MIN
  62. #define INT32_MIN (-2147483647-1)
  63. #endif
  64. #ifndef INT8_MAX
  65. #define INT8_MAX (127)
  66. #endif
  67. #ifndef INT16_MAX
  68. #define INT16_MAX (32767)
  69. #endif
  70. #ifndef INT32_MAX
  71. #define INT32_MAX (2147483647)
  72. #endif
  73. #ifndef UINT8_MAX
  74. #define UINT8_MAX (255U)
  75. #endif
  76. #ifndef UINT16_MAX
  77. #define UINT16_MAX (65535U)
  78. #endif
  79. #ifndef UINT32_MAX
  80. #define UINT32_MAX (4294967295U)
  81. #endif
  82. #endif /* ! FLEXINT_H */
  83. #ifdef __cplusplus
  84. /* The "const" storage-class-modifier is valid. */
  85. #define YY_USE_CONST
  86. #else /* ! __cplusplus */
  87. /* C99 requires __STDC__ to be defined as 1. */
  88. #if defined (__STDC__)
  89. #define YY_USE_CONST
  90. #endif /* defined (__STDC__) */
  91. #endif /* ! __cplusplus */
  92. #ifdef YY_USE_CONST
  93. #define yyconst const
  94. #else
  95. #define yyconst
  96. #endif
  97. /* Returned upon end-of-file. */
  98. #define YY_NULL 0
  99. /* Promotes a possibly negative, possibly signed char to an unsigned
  100. * integer for use as an array index. If the signed char is negative,
  101. * we want to instead treat it as an 8-bit unsigned char, hence the
  102. * double cast.
  103. */
  104. #define YY_SC_TO_UI(c) ((unsigned int) (unsigned char) c)
  105. /* An opaque pointer. */
  106. #ifndef YY_TYPEDEF_YY_SCANNER_T
  107. #define YY_TYPEDEF_YY_SCANNER_T
  108. typedef void* yyscan_t;
  109. #endif
  110. /* For convenience, these vars (plus the bison vars far below)
  111. are macros in the reentrant scanner. */
  112. #define yyin yyg->yyin_r
  113. #define yyout yyg->yyout_r
  114. #define yyextra yyg->yyextra_r
  115. #define yyleng yyg->yyleng_r
  116. #define yytext yyg->yytext_r
  117. #define yylineno (YY_CURRENT_BUFFER_LVALUE->yy_bs_lineno)
  118. #define yycolumn (YY_CURRENT_BUFFER_LVALUE->yy_bs_column)
  119. #define yy_flex_debug yyg->yy_flex_debug_r
  120. /* Enter a start condition. This macro really ought to take a parameter,
  121. * but we do it the disgusting crufty way forced on us by the ()-less
  122. * definition of BEGIN.
  123. */
  124. #define BEGIN yyg->yy_start = 1 + 2 *
  125. /* Translate the current start state into a value that can be later handed
  126. * to BEGIN to return to the state. The YYSTATE alias is for lex
  127. * compatibility.
  128. */
  129. #define YY_START ((yyg->yy_start - 1) / 2)
  130. #define YYSTATE YY_START
  131. /* Action number for EOF rule of a given start state. */
  132. #define YY_STATE_EOF(state) (YY_END_OF_BUFFER + state + 1)
  133. /* Special action meaning "start processing a new file". */
  134. #define YY_NEW_FILE cmDependsFortran_yyrestart(yyin ,yyscanner )
  135. #define YY_END_OF_BUFFER_CHAR 0
  136. /* Size of default input buffer. */
  137. #ifndef YY_BUF_SIZE
  138. #define YY_BUF_SIZE 16384
  139. #endif
  140. /* The state buf must be large enough to hold one state per character in the main buffer.
  141. */
  142. #define YY_STATE_BUF_SIZE ((YY_BUF_SIZE + 2) * sizeof(yy_state_type))
  143. #ifndef YY_TYPEDEF_YY_BUFFER_STATE
  144. #define YY_TYPEDEF_YY_BUFFER_STATE
  145. typedef struct yy_buffer_state *YY_BUFFER_STATE;
  146. #endif
  147. #define EOB_ACT_CONTINUE_SCAN 0
  148. #define EOB_ACT_END_OF_FILE 1
  149. #define EOB_ACT_LAST_MATCH 2
  150. #define YY_LESS_LINENO(n)
  151. /* Return all but the first "n" matched characters back to the input stream. */
  152. #define yyless(n) \
  153. do \
  154. { \
  155. /* Undo effects of setting up yytext. */ \
  156. int yyless_macro_arg = (n); \
  157. YY_LESS_LINENO(yyless_macro_arg);\
  158. *yy_cp = yyg->yy_hold_char; \
  159. YY_RESTORE_YY_MORE_OFFSET \
  160. yyg->yy_c_buf_p = yy_cp = yy_bp + yyless_macro_arg - YY_MORE_ADJ; \
  161. YY_DO_BEFORE_ACTION; /* set up yytext again */ \
  162. } \
  163. while ( 0 )
  164. #define unput(c) yyunput( c, yyg->yytext_ptr , yyscanner )
  165. /* The following is because we cannot portably get our hands on size_t
  166. * (without autoconf's help, which isn't available because we want
  167. * flex-generated scanners to compile on their own).
  168. * Given that the standard has decreed that size_t exists since 1989,
  169. * I guess we can afford to depend on it. Manoj.
  170. */
  171. #ifndef YY_TYPEDEF_YY_SIZE_T
  172. #define YY_TYPEDEF_YY_SIZE_T
  173. typedef size_t yy_size_t;
  174. #endif
  175. #ifndef YY_STRUCT_YY_BUFFER_STATE
  176. #define YY_STRUCT_YY_BUFFER_STATE
  177. struct yy_buffer_state
  178. {
  179. FILE *yy_input_file;
  180. char *yy_ch_buf; /* input buffer */
  181. char *yy_buf_pos; /* current position in input buffer */
  182. /* Size of input buffer in bytes, not including room for EOB
  183. * characters.
  184. */
  185. yy_size_t yy_buf_size;
  186. /* Number of characters read into yy_ch_buf, not including EOB
  187. * characters.
  188. */
  189. int yy_n_chars;
  190. /* Whether we "own" the buffer - i.e., we know we created it,
  191. * and can realloc() it to grow it, and should free() it to
  192. * delete it.
  193. */
  194. int yy_is_our_buffer;
  195. /* Whether this is an "interactive" input source; if so, and
  196. * if we're using stdio for input, then we want to use getc()
  197. * instead of fread(), to make sure we stop fetching input after
  198. * each newline.
  199. */
  200. int yy_is_interactive;
  201. /* Whether we're considered to be at the beginning of a line.
  202. * If so, '^' rules will be active on the next match, otherwise
  203. * not.
  204. */
  205. int yy_at_bol;
  206. int yy_bs_lineno; /**< The line count. */
  207. int yy_bs_column; /**< The column count. */
  208. /* Whether to try to fill the input buffer when we reach the
  209. * end of it.
  210. */
  211. int yy_fill_buffer;
  212. int yy_buffer_status;
  213. #define YY_BUFFER_NEW 0
  214. #define YY_BUFFER_NORMAL 1
  215. /* When an EOF's been seen but there's still some text to process
  216. * then we mark the buffer as YY_EOF_PENDING, to indicate that we
  217. * shouldn't try reading from the input source any more. We might
  218. * still have a bunch of tokens to match, though, because of
  219. * possible backing-up.
  220. *
  221. * When we actually see the EOF, we change the status to "new"
  222. * (via cmDependsFortran_yyrestart()), so that the user can continue scanning by
  223. * just pointing yyin at a new input file.
  224. */
  225. #define YY_BUFFER_EOF_PENDING 2
  226. };
  227. #endif /* !YY_STRUCT_YY_BUFFER_STATE */
  228. /* We provide macros for accessing buffer states in case in the
  229. * future we want to put the buffer states in a more general
  230. * "scanner state".
  231. *
  232. * Returns the top of the stack, or NULL.
  233. */
  234. #define YY_CURRENT_BUFFER ( yyg->yy_buffer_stack \
  235. ? yyg->yy_buffer_stack[yyg->yy_buffer_stack_top] \
  236. : NULL)
  237. /* Same as previous macro, but useful when we know that the buffer stack is not
  238. * NULL or when we need an lvalue. For internal use only.
  239. */
  240. #define YY_CURRENT_BUFFER_LVALUE yyg->yy_buffer_stack[yyg->yy_buffer_stack_top]
  241. void cmDependsFortran_yyrestart (FILE *input_file ,yyscan_t yyscanner );
  242. void cmDependsFortran_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
  243. YY_BUFFER_STATE cmDependsFortran_yy_create_buffer (FILE *file,int size ,yyscan_t yyscanner );
  244. void cmDependsFortran_yy_delete_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
  245. void cmDependsFortran_yy_flush_buffer (YY_BUFFER_STATE b ,yyscan_t yyscanner );
  246. void cmDependsFortran_yypush_buffer_state (YY_BUFFER_STATE new_buffer ,yyscan_t yyscanner );
  247. void cmDependsFortran_yypop_buffer_state (yyscan_t yyscanner );
  248. static void cmDependsFortran_yyensure_buffer_stack (yyscan_t yyscanner );
  249. static void cmDependsFortran_yy_load_buffer_state (yyscan_t yyscanner );
  250. static void cmDependsFortran_yy_init_buffer (YY_BUFFER_STATE b,FILE *file ,yyscan_t yyscanner );
  251. #define YY_FLUSH_BUFFER cmDependsFortran_yy_flush_buffer(YY_CURRENT_BUFFER ,yyscanner)
  252. YY_BUFFER_STATE cmDependsFortran_yy_scan_buffer (char *base,yy_size_t size ,yyscan_t yyscanner );
  253. YY_BUFFER_STATE cmDependsFortran_yy_scan_string (yyconst char *yy_str ,yyscan_t yyscanner );
  254. YY_BUFFER_STATE cmDependsFortran_yy_scan_bytes (yyconst char *bytes,int len ,yyscan_t yyscanner );
  255. void *cmDependsFortran_yyalloc (yy_size_t ,yyscan_t yyscanner );
  256. void *cmDependsFortran_yyrealloc (void *,yy_size_t ,yyscan_t yyscanner );
  257. void cmDependsFortran_yyfree (void * ,yyscan_t yyscanner );
  258. #define yy_new_buffer cmDependsFortran_yy_create_buffer
  259. #define yy_set_interactive(is_interactive) \
  260. { \
  261. if ( ! YY_CURRENT_BUFFER ){ \
  262. cmDependsFortran_yyensure_buffer_stack (yyscanner); \
  263. YY_CURRENT_BUFFER_LVALUE = \
  264. cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner); \
  265. } \
  266. YY_CURRENT_BUFFER_LVALUE->yy_is_interactive = is_interactive; \
  267. }
  268. #define yy_set_bol(at_bol) \
  269. { \
  270. if ( ! YY_CURRENT_BUFFER ){\
  271. cmDependsFortran_yyensure_buffer_stack (yyscanner); \
  272. YY_CURRENT_BUFFER_LVALUE = \
  273. cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner); \
  274. } \
  275. YY_CURRENT_BUFFER_LVALUE->yy_at_bol = at_bol; \
  276. }
  277. #define YY_AT_BOL() (YY_CURRENT_BUFFER_LVALUE->yy_at_bol)
  278. /* Begin user sect3 */
  279. #define cmDependsFortran_yywrap(n) 1
  280. #define YY_SKIP_YYWRAP
  281. typedef unsigned char YY_CHAR;
  282. typedef int yy_state_type;
  283. #define yytext_ptr yytext_r
  284. static yy_state_type yy_get_previous_state (yyscan_t yyscanner );
  285. static yy_state_type yy_try_NUL_trans (yy_state_type current_state ,yyscan_t yyscanner);
  286. static int yy_get_next_buffer (yyscan_t yyscanner );
  287. static void yy_fatal_error (yyconst char msg[] ,yyscan_t yyscanner );
  288. /* Done after the current pattern has been matched and before the
  289. * corresponding action - sets up yytext.
  290. */
  291. #define YY_DO_BEFORE_ACTION \
  292. yyg->yytext_ptr = yy_bp; \
  293. yyleng = (size_t) (yy_cp - yy_bp); \
  294. yyg->yy_hold_char = *yy_cp; \
  295. *yy_cp = '\0'; \
  296. yyg->yy_c_buf_p = yy_cp;
  297. #define YY_NUM_RULES 43
  298. #define YY_END_OF_BUFFER 44
  299. /* This struct is not used in this scanner,
  300. but its presence is necessary. */
  301. struct yy_trans_info
  302. {
  303. flex_int32_t yy_verify;
  304. flex_int32_t yy_nxt;
  305. };
  306. static yyconst flex_int16_t yy_accept[161] =
  307. { 0,
  308. 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  309. 44, 38, 40, 39, 42, 1, 38, 31, 2, 33,
  310. 38, 39, 36, 38, 37, 38, 37, 40, 38, 39,
  311. 38, 37, 9, 8, 9, 4, 3, 38, 0, 10,
  312. 0, 0, 0, 0, 0, 31, 31, 32, 34, 36,
  313. 38, 37, 0, 41, 37, 0, 0, 0, 0, 0,
  314. 0, 0, 0, 38, 0, 11, 37, 0, 0, 5,
  315. 0, 0, 0, 27, 0, 0, 31, 31, 31, 31,
  316. 0, 0, 0, 0, 0, 21, 0, 0, 0, 0,
  317. 0, 6, 0, 0, 0, 0, 0, 0, 0, 0,
  318. 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
  319. 0, 0, 28, 29, 0, 0, 0, 0, 0, 0,
  320. 0, 22, 23, 0, 0, 0, 0, 0, 0, 0,
  321. 0, 30, 25, 0, 0, 18, 0, 0, 24, 19,
  322. 0, 0, 17, 0, 0, 16, 26, 0, 0, 15,
  323. 20, 0, 7, 35, 7, 13, 0, 12, 14, 0
  324. } ;
  325. static yyconst flex_int32_t yy_ec[256] =
  326. { 0,
  327. 1, 1, 1, 1, 1, 1, 1, 1, 2, 3,
  328. 1, 1, 4, 1, 1, 1, 1, 1, 1, 1,
  329. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  330. 1, 5, 6, 7, 8, 9, 1, 10, 11, 1,
  331. 1, 12, 1, 13, 1, 1, 1, 14, 14, 14,
  332. 14, 14, 14, 14, 14, 14, 14, 15, 16, 1,
  333. 17, 18, 19, 1, 20, 20, 21, 22, 23, 24,
  334. 20, 20, 25, 20, 20, 26, 20, 27, 20, 20,
  335. 20, 20, 28, 20, 29, 20, 20, 20, 20, 20,
  336. 1, 30, 1, 1, 31, 1, 20, 20, 32, 33,
  337. 34, 35, 20, 20, 36, 20, 20, 37, 20, 38,
  338. 20, 20, 20, 20, 39, 20, 40, 20, 20, 20,
  339. 20, 20, 1, 1, 1, 1, 1, 1, 1, 1,
  340. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  341. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  342. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  343. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  344. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  345. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  346. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  347. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  348. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  349. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  350. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  351. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  352. 1, 1, 1, 1, 1
  353. } ;
  354. static yyconst flex_int32_t yy_meta[41] =
  355. { 0,
  356. 1, 2, 2, 3, 4, 3, 3, 1, 1, 3,
  357. 3, 1, 3, 5, 1, 3, 3, 1, 1, 6,
  358. 6, 6, 6, 6, 6, 6, 6, 6, 6, 1,
  359. 5, 6, 6, 6, 6, 6, 6, 6, 6, 6
  360. } ;
  361. static yyconst flex_int16_t yy_base[169] =
  362. { 0,
  363. 0, 39, 0, 40, 184, 47, 43, 53, 55, 63,
  364. 186, 0, 476, 476, 164, 476, 79, 72, 476, 476,
  365. 143, 476, 130, 126, 0, 83, 119, 85, 149, 139,
  366. 189, 220, 476, 131, 89, 476, 476, 0, 132, 476,
  367. 259, 37, 69, 76, 34, 119, 137, 476, 0, 476,
  368. 121, 0, 150, 476, 0, 154, 298, 0, 75, 138,
  369. 142, 72, 127, 338, 94, 476, 0, 84, 158, 186,
  370. 81, 145, 108, 172, 147, 173, 260, 266, 284, 299,
  371. 272, 173, 178, 286, 245, 258, 285, 285, 78, 71,
  372. 207, 476, 288, 291, 296, 304, 310, 315, 317, 326,
  373. 330, 330, 335, 338, 338, 341, 343, 341, 348, 62,
  374. 52, 346, 476, 476, 353, 355, 357, 352, 359, 359,
  375. 359, 476, 476, 363, 365, 370, 366, 375, 46, 38,
  376. 378, 476, 476, 378, 381, 476, 376, 384, 476, 476,
  377. 384, 387, 476, 115, 0, 476, 476, 388, 393, 476,
  378. 476, 394, 476, 476, 476, 476, 398, 476, 476, 476,
  379. 432, 438, 443, 445, 451, 457, 463, 469
  380. } ;
  381. static yyconst flex_int16_t yy_def[169] =
  382. { 0,
  383. 160, 1, 1, 1, 1, 1, 161, 161, 161, 161,
  384. 160, 162, 160, 160, 163, 160, 162, 160, 160, 160,
  385. 162, 160, 160, 162, 164, 162, 164, 160, 162, 160,
  386. 165, 160, 160, 160, 160, 160, 160, 162, 163, 160,
  387. 160, 160, 160, 160, 160, 160, 166, 160, 162, 160,
  388. 162, 164, 160, 160, 27, 160, 160, 57, 160, 160,
  389. 160, 160, 160, 165, 165, 160, 32, 160, 160, 160,
  390. 160, 160, 160, 160, 160, 160, 166, 166, 166, 166,
  391. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  392. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  393. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  394. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  395. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  396. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  397. 160, 160, 160, 167, 168, 160, 160, 160, 160, 160,
  398. 160, 160, 160, 160, 160, 160, 160, 160, 160, 0,
  399. 160, 160, 160, 160, 160, 160, 160, 160
  400. } ;
  401. static yyconst flex_int16_t yy_nxt[517] =
  402. { 0,
  403. 12, 13, 14, 13, 13, 15, 16, 12, 17, 18,
  404. 19, 12, 20, 12, 21, 22, 23, 12, 24, 25,
  405. 25, 25, 25, 25, 25, 25, 25, 25, 25, 26,
  406. 27, 25, 25, 25, 25, 25, 25, 25, 25, 25,
  407. 28, 28, 145, 28, 28, 34, 29, 29, 28, 30,
  408. 144, 28, 35, 36, 29, 34, 130, 34, 31, 71,
  409. 76, 37, 35, 36, 35, 34, 129, 32, 32, 37,
  410. 71, 76, 35, 46, 46, 111, 46, 47, 32, 32,
  411. 41, 48, 110, 41, 53, 54, 56, 53, 90, 56,
  412. 69, 70, 57, 69, 72, 73, 66, 83, 88, 74,
  413. 42, 43, 75, 44, 93, 72, 73, 45, 83, 88,
  414. 74, 42, 43, 75, 44, 93, 154, 154, 45, 38,
  415. 46, 46, 81, 46, 47, 81, 38, 38, 48, 96,
  416. 38, 89, 55, 38, 40, 68, 38, 38, 78, 46,
  417. 96, 78, 79, 63, 51, 82, 80, 50, 38, 55,
  418. 58, 53, 54, 58, 53, 56, 82, 49, 56, 69,
  419. 70, 57, 69, 84, 85, 86, 40, 99, 87, 94,
  420. 59, 60, 95, 61, 84, 85, 86, 62, 99, 87,
  421. 94, 59, 60, 95, 61, 160, 30, 91, 62, 64,
  422. 91, 66, 160, 97, 100, 92, 64, 64, 98, 101,
  423. 64, 102, 64, 64, 97, 100, 64, 64, 91, 98,
  424. 101, 91, 102, 160, 160, 160, 92, 160, 64, 64,
  425. 65, 65, 66, 65, 65, 65, 65, 65, 65, 65,
  426. 65, 65, 65, 67, 65, 65, 65, 65, 65, 67,
  427. 67, 67, 67, 67, 67, 67, 67, 67, 67, 65,
  428. 67, 67, 67, 67, 67, 67, 67, 67, 67, 67,
  429. 41, 78, 46, 41, 78, 79, 105, 78, 46, 80,
  430. 78, 79, 160, 81, 160, 80, 81, 105, 160, 106,
  431. 42, 43, 160, 44, 107, 78, 46, 45, 78, 79,
  432. 106, 42, 43, 80, 44, 107, 82, 160, 45, 58,
  433. 78, 46, 58, 78, 79, 108, 109, 82, 80, 160,
  434. 103, 160, 112, 104, 113, 160, 108, 109, 114, 59,
  435. 60, 103, 61, 112, 104, 113, 62, 160, 115, 114,
  436. 59, 60, 116, 61, 160, 160, 117, 62, 64, 115,
  437. 66, 160, 118, 116, 160, 64, 64, 117, 119, 64,
  438. 120, 64, 64, 118, 121, 64, 64, 160, 122, 119,
  439. 123, 120, 124, 125, 126, 121, 127, 64, 64, 122,
  440. 128, 123, 131, 124, 125, 126, 132, 127, 133, 134,
  441. 135, 128, 136, 131, 137, 138, 139, 132, 140, 133,
  442. 134, 135, 141, 136, 142, 137, 138, 139, 143, 140,
  443. 146, 147, 148, 141, 149, 142, 150, 151, 152, 143,
  444. 156, 146, 147, 148, 157, 149, 158, 150, 151, 152,
  445. 159, 156, 160, 160, 160, 157, 160, 158, 160, 160,
  446. 160, 159, 33, 33, 33, 33, 33, 33, 38, 160,
  447. 160, 160, 38, 39, 39, 39, 39, 39, 39, 52,
  448. 52, 65, 65, 65, 65, 65, 65, 77, 77, 77,
  449. 77, 77, 77, 153, 153, 153, 160, 153, 153, 155,
  450. 160, 155, 160, 155, 155, 11, 160, 160, 160, 160,
  451. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  452. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  453. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  454. 160, 160, 160, 160, 160, 160
  455. } ;
  456. static yyconst flex_int16_t yy_chk[517] =
  457. { 0,
  458. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  459. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  460. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  461. 1, 1, 1, 1, 1, 1, 1, 1, 1, 1,
  462. 2, 4, 130, 2, 4, 7, 2, 4, 6, 6,
  463. 129, 6, 7, 7, 6, 8, 111, 9, 6, 42,
  464. 45, 9, 8, 8, 9, 10, 110, 6, 6, 10,
  465. 42, 45, 10, 18, 18, 90, 18, 18, 6, 6,
  466. 17, 18, 89, 17, 26, 26, 28, 26, 68, 28,
  467. 35, 35, 28, 35, 43, 43, 65, 59, 62, 44,
  468. 17, 17, 44, 17, 71, 43, 43, 17, 59, 62,
  469. 44, 17, 17, 44, 17, 71, 144, 144, 17, 27,
  470. 46, 46, 51, 46, 46, 51, 27, 27, 46, 73,
  471. 27, 63, 27, 27, 39, 34, 27, 27, 47, 47,
  472. 73, 47, 47, 30, 24, 51, 47, 23, 27, 27,
  473. 29, 53, 53, 29, 53, 56, 51, 21, 56, 69,
  474. 69, 56, 69, 60, 60, 61, 15, 75, 61, 72,
  475. 29, 29, 72, 29, 60, 60, 61, 29, 75, 61,
  476. 72, 29, 29, 72, 29, 11, 5, 70, 29, 31,
  477. 70, 31, 0, 74, 76, 70, 31, 31, 74, 82,
  478. 31, 83, 31, 31, 74, 76, 31, 31, 91, 74,
  479. 82, 91, 83, 0, 0, 0, 91, 0, 31, 31,
  480. 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
  481. 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
  482. 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
  483. 32, 32, 32, 32, 32, 32, 32, 32, 32, 32,
  484. 41, 77, 77, 41, 77, 77, 85, 78, 78, 77,
  485. 78, 78, 0, 81, 0, 78, 81, 85, 0, 86,
  486. 41, 41, 0, 41, 86, 79, 79, 41, 79, 79,
  487. 86, 41, 41, 79, 41, 86, 81, 0, 41, 57,
  488. 80, 80, 57, 80, 80, 87, 88, 81, 80, 0,
  489. 84, 0, 93, 84, 94, 0, 87, 88, 95, 57,
  490. 57, 84, 57, 93, 84, 94, 57, 0, 96, 95,
  491. 57, 57, 97, 57, 0, 0, 98, 57, 64, 96,
  492. 64, 0, 99, 97, 0, 64, 64, 98, 100, 64,
  493. 101, 64, 64, 99, 102, 64, 64, 0, 103, 100,
  494. 104, 101, 105, 106, 107, 102, 108, 64, 64, 103,
  495. 109, 104, 112, 105, 106, 107, 115, 108, 116, 117,
  496. 118, 109, 119, 112, 120, 121, 124, 115, 125, 116,
  497. 117, 118, 126, 119, 127, 120, 121, 124, 128, 125,
  498. 131, 134, 135, 126, 137, 127, 138, 141, 142, 128,
  499. 148, 131, 134, 135, 149, 137, 152, 138, 141, 142,
  500. 157, 148, 0, 0, 0, 149, 0, 152, 0, 0,
  501. 0, 157, 161, 161, 161, 161, 161, 161, 162, 0,
  502. 0, 0, 162, 163, 163, 163, 163, 163, 163, 164,
  503. 164, 165, 165, 165, 165, 165, 165, 166, 166, 166,
  504. 166, 166, 166, 167, 167, 167, 0, 167, 167, 168,
  505. 0, 168, 0, 168, 168, 160, 160, 160, 160, 160,
  506. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  507. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  508. 160, 160, 160, 160, 160, 160, 160, 160, 160, 160,
  509. 160, 160, 160, 160, 160, 160
  510. } ;
  511. /* The intent behind this definition is that it'll catch
  512. * any uses of REJECT which flex missed.
  513. */
  514. #define REJECT reject_used_but_not_detected
  515. #define yymore() yymore_used_but_not_detected
  516. #define YY_MORE_ADJ 0
  517. #define YY_RESTORE_YY_MORE_OFFSET
  518. #line 1 "cmDependsFortranLexer.in.l"
  519. #line 2 "cmDependsFortranLexer.in.l"
  520. /*============================================================================
  521. CMake - Cross Platform Makefile Generator
  522. Copyright 2000-2009 Kitware, Inc., Insight Software Consortium
  523. Distributed under the OSI-approved BSD License (the "License");
  524. see accompanying file Copyright.txt for details.
  525. This software is distributed WITHOUT ANY WARRANTY; without even the
  526. implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  527. See the License for more information.
  528. ============================================================================*/
  529. /*-------------------------------------------------------------------------
  530. Portions of this source have been derived from makedepf90 version 2.8.8,
  531. Copyright (C) 2000--2006 Erik Edelmann <[email protected]>
  532. The code was originally distributed under the GPL but permission
  533. from the copyright holder has been obtained to distribute this
  534. derived work under the CMake license.
  535. -------------------------------------------------------------------------*/
  536. /*
  537. This file must be translated to C and modified to build everywhere.
  538. Run flex like this:
  539. flex -i --prefix=cmDependsFortran_yy --header-file=cmDependsFortranLexer.h -ocmDependsFortranLexer.cxx cmDependsFortranLexer.in.l
  540. Modify cmDependsFortranLexer.cxx:
  541. - remove TABs
  542. - remove "yyscanner" argument from these methods:
  543. yy_fatal_error, cmDependsFortran_yyalloc, cmDependsFortran_yyrealloc, cmDependsFortran_yyfree
  544. - remove "yyscanner = NULL" from end of cmDependsFortran_yylex_destroy
  545. - remove all YY_BREAK lines occurring right after return statements
  546. - change while ( 1 ) to for(;;)
  547. Modify cmDependsFortranLexer.h:
  548. - remove TABs
  549. - remove the yy_init_globals function
  550. - remove the block that includes unistd.h
  551. - remove #line directives (avoids bogus warning on old Sun)
  552. */
  553. #include "cmStandardLexer.h"
  554. #define cmDependsFortranLexer_cxx
  555. #include "cmDependsFortranParser.h" /* Interface to parser object. */
  556. /* Replace the lexer input function. */
  557. #undef YY_INPUT
  558. #define YY_INPUT(buf, result, max_size) \
  559. { result = cmDependsFortranParser_Input(yyextra, buf, max_size); }
  560. /* Include the set of tokens from the parser. */
  561. #include "cmDependsFortranParserTokens.h"
  562. /*--------------------------------------------------------------------------*/
  563. #line 670 "cmDependsFortranLexer.cxx"
  564. #define INITIAL 0
  565. #define free_fmt 1
  566. #define fixed_fmt 2
  567. #define str_sq 3
  568. #define str_dq 4
  569. #ifndef YY_NO_UNISTD_H
  570. /* Special case for "unistd.h", since it is non-ANSI. We include it way
  571. * down here because we want the user's section 1 to have been scanned first.
  572. * The user has a chance to override it with an option.
  573. */
  574. #include <unistd.h>
  575. #endif
  576. #ifndef YY_EXTRA_TYPE
  577. #define YY_EXTRA_TYPE void *
  578. #endif
  579. /* Holds the entire state of the reentrant scanner. */
  580. struct yyguts_t
  581. {
  582. /* User-defined. Not touched by flex. */
  583. YY_EXTRA_TYPE yyextra_r;
  584. /* The rest are the same as the globals declared in the non-reentrant scanner. */
  585. FILE *yyin_r, *yyout_r;
  586. size_t yy_buffer_stack_top; /**< index of top of stack. */
  587. size_t yy_buffer_stack_max; /**< capacity of stack. */
  588. YY_BUFFER_STATE * yy_buffer_stack; /**< Stack as an array. */
  589. char yy_hold_char;
  590. int yy_n_chars;
  591. int yyleng_r;
  592. char *yy_c_buf_p;
  593. int yy_init;
  594. int yy_start;
  595. int yy_did_buffer_switch_on_eof;
  596. int yy_start_stack_ptr;
  597. int yy_start_stack_depth;
  598. int *yy_start_stack;
  599. yy_state_type yy_last_accepting_state;
  600. char* yy_last_accepting_cpos;
  601. int yylineno_r;
  602. int yy_flex_debug_r;
  603. char *yytext_r;
  604. int yy_more_flag;
  605. int yy_more_len;
  606. }; /* end struct yyguts_t */
  607. static int yy_init_globals (yyscan_t yyscanner );
  608. int cmDependsFortran_yylex_init (yyscan_t* scanner);
  609. int cmDependsFortran_yylex_init_extra (YY_EXTRA_TYPE user_defined,yyscan_t* scanner);
  610. /* Accessor methods to globals.
  611. These are made visible to non-reentrant scanners for convenience. */
  612. int cmDependsFortran_yylex_destroy (yyscan_t yyscanner );
  613. int cmDependsFortran_yyget_debug (yyscan_t yyscanner );
  614. void cmDependsFortran_yyset_debug (int debug_flag ,yyscan_t yyscanner );
  615. YY_EXTRA_TYPE cmDependsFortran_yyget_extra (yyscan_t yyscanner );
  616. void cmDependsFortran_yyset_extra (YY_EXTRA_TYPE user_defined ,yyscan_t yyscanner );
  617. FILE *cmDependsFortran_yyget_in (yyscan_t yyscanner );
  618. void cmDependsFortran_yyset_in (FILE * in_str ,yyscan_t yyscanner );
  619. FILE *cmDependsFortran_yyget_out (yyscan_t yyscanner );
  620. void cmDependsFortran_yyset_out (FILE * out_str ,yyscan_t yyscanner );
  621. int cmDependsFortran_yyget_leng (yyscan_t yyscanner );
  622. char *cmDependsFortran_yyget_text (yyscan_t yyscanner );
  623. int cmDependsFortran_yyget_lineno (yyscan_t yyscanner );
  624. void cmDependsFortran_yyset_lineno (int line_number ,yyscan_t yyscanner );
  625. /* Macros after this point can all be overridden by user definitions in
  626. * section 1.
  627. */
  628. #ifndef YY_SKIP_YYWRAP
  629. #ifdef __cplusplus
  630. extern "C" int cmDependsFortran_yywrap (yyscan_t yyscanner );
  631. #else
  632. extern int cmDependsFortran_yywrap (yyscan_t yyscanner );
  633. #endif
  634. #endif
  635. static void yyunput (int c,char *buf_ptr ,yyscan_t yyscanner);
  636. #ifndef yytext_ptr
  637. static void yy_flex_strncpy (char *,yyconst char *,int ,yyscan_t yyscanner);
  638. #endif
  639. #ifdef YY_NEED_STRLEN
  640. static int yy_flex_strlen (yyconst char * ,yyscan_t yyscanner);
  641. #endif
  642. #ifndef YY_NO_INPUT
  643. #ifdef __cplusplus
  644. static int yyinput (yyscan_t yyscanner );
  645. #else
  646. static int input (yyscan_t yyscanner );
  647. #endif
  648. #endif
  649. /* Amount of stuff to slurp up with each read. */
  650. #ifndef YY_READ_BUF_SIZE
  651. #define YY_READ_BUF_SIZE 8192
  652. #endif
  653. /* Copy whatever the last rule matched to the standard output. */
  654. #ifndef ECHO
  655. /* This used to be an fputs(), but since the string might contain NUL's,
  656. * we now use fwrite().
  657. */
  658. #define ECHO fwrite( yytext, yyleng, 1, yyout )
  659. #endif
  660. /* Gets input and stuffs it into "buf". number of characters read, or YY_NULL,
  661. * is returned in "result".
  662. */
  663. #ifndef YY_INPUT
  664. #define YY_INPUT(buf,result,max_size) \
  665. if ( YY_CURRENT_BUFFER_LVALUE->yy_is_interactive ) \
  666. { \
  667. int c = '*'; \
  668. int n; \
  669. for ( n = 0; n < max_size && \
  670. (c = getc( yyin )) != EOF && c != '\n'; ++n ) \
  671. buf[n] = (char) c; \
  672. if ( c == '\n' ) \
  673. buf[n++] = (char) c; \
  674. if ( c == EOF && ferror( yyin ) ) \
  675. YY_FATAL_ERROR( "input in flex scanner failed" ); \
  676. result = n; \
  677. } \
  678. else \
  679. { \
  680. errno=0; \
  681. while ( (result = fread(buf, 1, max_size, yyin))==0 && ferror(yyin)) \
  682. { \
  683. if( errno != EINTR) \
  684. { \
  685. YY_FATAL_ERROR( "input in flex scanner failed" ); \
  686. break; \
  687. } \
  688. errno=0; \
  689. clearerr(yyin); \
  690. } \
  691. }\
  692. \
  693. #endif
  694. /* No semi-colon after return; correct usage is to write "yyterminate();" -
  695. * we don't want an extra ';' after the "return" because that will cause
  696. * some compilers to complain about unreachable statements.
  697. */
  698. #ifndef yyterminate
  699. #define yyterminate() return YY_NULL
  700. #endif
  701. /* Number of entries by which start-condition stack grows. */
  702. #ifndef YY_START_STACK_INCR
  703. #define YY_START_STACK_INCR 25
  704. #endif
  705. /* Report a fatal error. */
  706. #ifndef YY_FATAL_ERROR
  707. #define YY_FATAL_ERROR(msg) yy_fatal_error( msg , yyscanner)
  708. #endif
  709. /* end tables serialization structures and prototypes */
  710. /* Default declaration of generated scanner - a define so the user can
  711. * easily add parameters.
  712. */
  713. #ifndef YY_DECL
  714. #define YY_DECL_IS_OURS 1
  715. extern int cmDependsFortran_yylex (yyscan_t yyscanner);
  716. #define YY_DECL int cmDependsFortran_yylex (yyscan_t yyscanner)
  717. #endif /* !YY_DECL */
  718. /* Code executed at the beginning of each rule, after yytext and yyleng
  719. * have been set up.
  720. */
  721. #ifndef YY_USER_ACTION
  722. #define YY_USER_ACTION
  723. #endif
  724. /* Code executed at the end of each rule. */
  725. #ifndef YY_BREAK
  726. #define YY_BREAK break;
  727. #endif
  728. #define YY_RULE_SETUP \
  729. if ( yyleng > 0 ) \
  730. YY_CURRENT_BUFFER_LVALUE->yy_at_bol = \
  731. (yytext[yyleng - 1] == '\n'); \
  732. YY_USER_ACTION
  733. /** The main scanner function which does all the work.
  734. */
  735. YY_DECL
  736. {
  737. register yy_state_type yy_current_state;
  738. register char *yy_cp, *yy_bp;
  739. register int yy_act;
  740. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  741. #line 75 "cmDependsFortranLexer.in.l"
  742. #line 901 "cmDependsFortranLexer.cxx"
  743. if ( !yyg->yy_init )
  744. {
  745. yyg->yy_init = 1;
  746. #ifdef YY_USER_INIT
  747. YY_USER_INIT;
  748. #endif
  749. if ( ! yyg->yy_start )
  750. yyg->yy_start = 1; /* first start state */
  751. if ( ! yyin )
  752. yyin = stdin;
  753. if ( ! yyout )
  754. yyout = stdout;
  755. if ( ! YY_CURRENT_BUFFER ) {
  756. cmDependsFortran_yyensure_buffer_stack (yyscanner);
  757. YY_CURRENT_BUFFER_LVALUE =
  758. cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner);
  759. }
  760. cmDependsFortran_yy_load_buffer_state(yyscanner );
  761. }
  762. for(;;) /* loops until end-of-file is reached */
  763. {
  764. yy_cp = yyg->yy_c_buf_p;
  765. /* Support of yytext. */
  766. *yy_cp = yyg->yy_hold_char;
  767. /* yy_bp points to the position in yy_ch_buf of the start of
  768. * the current run.
  769. */
  770. yy_bp = yy_cp;
  771. yy_current_state = yyg->yy_start;
  772. yy_current_state += YY_AT_BOL();
  773. yy_match:
  774. do
  775. {
  776. register YY_CHAR yy_c = yy_ec[YY_SC_TO_UI(*yy_cp)];
  777. if ( yy_accept[yy_current_state] )
  778. {
  779. yyg->yy_last_accepting_state = yy_current_state;
  780. yyg->yy_last_accepting_cpos = yy_cp;
  781. }
  782. while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  783. {
  784. yy_current_state = (int) yy_def[yy_current_state];
  785. if ( yy_current_state >= 161 )
  786. yy_c = yy_meta[(unsigned int) yy_c];
  787. }
  788. yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  789. ++yy_cp;
  790. }
  791. while ( yy_base[yy_current_state] != 476 );
  792. yy_find_action:
  793. yy_act = yy_accept[yy_current_state];
  794. if ( yy_act == 0 )
  795. { /* have to back up */
  796. yy_cp = yyg->yy_last_accepting_cpos;
  797. yy_current_state = yyg->yy_last_accepting_state;
  798. yy_act = yy_accept[yy_current_state];
  799. }
  800. YY_DO_BEFORE_ACTION;
  801. do_action: /* This label is used only to access EOF actions. */
  802. switch ( yy_act )
  803. { /* beginning of action switch */
  804. case 0: /* must back up */
  805. /* undo the effects of YY_DO_BEFORE_ACTION */
  806. *yy_cp = yyg->yy_hold_char;
  807. yy_cp = yyg->yy_last_accepting_cpos;
  808. yy_current_state = yyg->yy_last_accepting_state;
  809. goto yy_find_action;
  810. case 1:
  811. YY_RULE_SETUP
  812. #line 77 "cmDependsFortranLexer.in.l"
  813. {
  814. cmDependsFortranParser_StringStart(yyextra);
  815. cmDependsFortranParser_SetOldStartcond(yyextra, YY_START);
  816. BEGIN(str_dq);
  817. }
  818. YY_BREAK
  819. case 2:
  820. YY_RULE_SETUP
  821. #line 83 "cmDependsFortranLexer.in.l"
  822. {
  823. cmDependsFortranParser_StringStart(yyextra);
  824. cmDependsFortranParser_SetOldStartcond(yyextra, YY_START);
  825. BEGIN(str_sq);
  826. }
  827. YY_BREAK
  828. case 3:
  829. #line 90 "cmDependsFortranLexer.in.l"
  830. case 4:
  831. YY_RULE_SETUP
  832. #line 90 "cmDependsFortranLexer.in.l"
  833. {
  834. BEGIN(cmDependsFortranParser_GetOldStartcond(yyextra) );
  835. yylvalp->string = strdup(cmDependsFortranParser_StringEnd(yyextra));
  836. return STRING;
  837. }
  838. case 5:
  839. /* rule 5 can match eol */
  840. #line 97 "cmDependsFortranLexer.in.l"
  841. case 6:
  842. /* rule 6 can match eol */
  843. YY_RULE_SETUP
  844. #line 97 "cmDependsFortranLexer.in.l"
  845. /* Ignore (continued strings, free fmt) */
  846. YY_BREAK
  847. case 7:
  848. /* rule 7 can match eol */
  849. YY_RULE_SETUP
  850. #line 99 "cmDependsFortranLexer.in.l"
  851. {
  852. if (cmDependsFortranParser_GetOldStartcond(yyextra) == fixed_fmt)
  853. ; /* Ignore (cont. strings, fixed fmt) */
  854. else
  855. {
  856. unput(yytext[strlen(yytext)-1]);
  857. }
  858. }
  859. YY_BREAK
  860. case 8:
  861. /* rule 8 can match eol */
  862. YY_RULE_SETUP
  863. #line 109 "cmDependsFortranLexer.in.l"
  864. {
  865. unput ('\n');
  866. BEGIN(INITIAL);
  867. return UNTERMINATED_STRING;
  868. }
  869. case 9:
  870. YY_RULE_SETUP
  871. #line 115 "cmDependsFortranLexer.in.l"
  872. {
  873. cmDependsFortranParser_StringAppend(yyextra, yytext[0]);
  874. }
  875. YY_BREAK
  876. case 10:
  877. /* rule 10 can match eol */
  878. YY_RULE_SETUP
  879. #line 119 "cmDependsFortranLexer.in.l"
  880. { return EOSTMT; } /* Treat comments like */
  881. case 11:
  882. /* rule 11 can match eol */
  883. YY_RULE_SETUP
  884. #line 120 "cmDependsFortranLexer.in.l"
  885. { return EOSTMT; } /* empty lines */
  886. case 12:
  887. YY_RULE_SETUP
  888. #line 122 "cmDependsFortranLexer.in.l"
  889. { return CPP_INCLUDE; }
  890. case 13:
  891. YY_RULE_SETUP
  892. #line 123 "cmDependsFortranLexer.in.l"
  893. { return F90PPR_INCLUDE; }
  894. case 14:
  895. YY_RULE_SETUP
  896. #line 124 "cmDependsFortranLexer.in.l"
  897. { return COCO_INCLUDE; }
  898. case 15:
  899. YY_RULE_SETUP
  900. #line 126 "cmDependsFortranLexer.in.l"
  901. { return CPP_DEFINE; }
  902. case 16:
  903. YY_RULE_SETUP
  904. #line 127 "cmDependsFortranLexer.in.l"
  905. { return F90PPR_DEFINE; }
  906. case 17:
  907. YY_RULE_SETUP
  908. #line 129 "cmDependsFortranLexer.in.l"
  909. { return CPP_UNDEF; }
  910. case 18:
  911. YY_RULE_SETUP
  912. #line 130 "cmDependsFortranLexer.in.l"
  913. { return F90PPR_UNDEF; }
  914. case 19:
  915. YY_RULE_SETUP
  916. #line 132 "cmDependsFortranLexer.in.l"
  917. { return CPP_IFDEF; }
  918. case 20:
  919. YY_RULE_SETUP
  920. #line 133 "cmDependsFortranLexer.in.l"
  921. { return CPP_IFNDEF; }
  922. case 21:
  923. YY_RULE_SETUP
  924. #line 134 "cmDependsFortranLexer.in.l"
  925. { return CPP_IF; }
  926. case 22:
  927. YY_RULE_SETUP
  928. #line 135 "cmDependsFortranLexer.in.l"
  929. { return CPP_ELIF; }
  930. case 23:
  931. YY_RULE_SETUP
  932. #line 136 "cmDependsFortranLexer.in.l"
  933. { return CPP_ELSE; }
  934. case 24:
  935. YY_RULE_SETUP
  936. #line 137 "cmDependsFortranLexer.in.l"
  937. { return CPP_ENDIF; }
  938. case 25:
  939. YY_RULE_SETUP
  940. #line 139 "cmDependsFortranLexer.in.l"
  941. { return F90PPR_IFDEF; }
  942. case 26:
  943. YY_RULE_SETUP
  944. #line 140 "cmDependsFortranLexer.in.l"
  945. { return F90PPR_IFNDEF; }
  946. case 27:
  947. YY_RULE_SETUP
  948. #line 141 "cmDependsFortranLexer.in.l"
  949. { return F90PPR_IF; }
  950. case 28:
  951. YY_RULE_SETUP
  952. #line 142 "cmDependsFortranLexer.in.l"
  953. { return F90PPR_ELIF; }
  954. case 29:
  955. YY_RULE_SETUP
  956. #line 143 "cmDependsFortranLexer.in.l"
  957. { return F90PPR_ELSE; }
  958. case 30:
  959. YY_RULE_SETUP
  960. #line 144 "cmDependsFortranLexer.in.l"
  961. { return F90PPR_ENDIF; }
  962. /* Line continuations, possible involving comments. */
  963. case 31:
  964. /* rule 31 can match eol */
  965. YY_RULE_SETUP
  966. #line 147 "cmDependsFortranLexer.in.l"
  967. YY_BREAK
  968. case 32:
  969. /* rule 32 can match eol */
  970. YY_RULE_SETUP
  971. #line 148 "cmDependsFortranLexer.in.l"
  972. YY_BREAK
  973. case 33:
  974. YY_RULE_SETUP
  975. #line 150 "cmDependsFortranLexer.in.l"
  976. { return COMMA; }
  977. case 34:
  978. YY_RULE_SETUP
  979. #line 152 "cmDependsFortranLexer.in.l"
  980. { return DCOLON; }
  981. case 35:
  982. /* rule 35 can match eol */
  983. YY_RULE_SETUP
  984. #line 154 "cmDependsFortranLexer.in.l"
  985. { return GARBAGE; }
  986. case 36:
  987. YY_RULE_SETUP
  988. #line 156 "cmDependsFortranLexer.in.l"
  989. { return ASSIGNMENT_OP; }
  990. case 37:
  991. YY_RULE_SETUP
  992. #line 158 "cmDependsFortranLexer.in.l"
  993. {
  994. yylvalp->string = strdup(yytext);
  995. return WORD;
  996. }
  997. case 38:
  998. YY_RULE_SETUP
  999. #line 163 "cmDependsFortranLexer.in.l"
  1000. { return GARBAGE; }
  1001. case 39:
  1002. /* rule 39 can match eol */
  1003. YY_RULE_SETUP
  1004. #line 165 "cmDependsFortranLexer.in.l"
  1005. { return EOSTMT; }
  1006. case 40:
  1007. YY_RULE_SETUP
  1008. #line 168 "cmDependsFortranLexer.in.l"
  1009. /* Ignore */
  1010. YY_BREAK
  1011. case 41:
  1012. /* rule 41 can match eol */
  1013. YY_RULE_SETUP
  1014. #line 169 "cmDependsFortranLexer.in.l"
  1015. /* Ignore line-endings preceeded by \ */
  1016. YY_BREAK
  1017. case 42:
  1018. YY_RULE_SETUP
  1019. #line 171 "cmDependsFortranLexer.in.l"
  1020. { return *yytext; }
  1021. case YY_STATE_EOF(INITIAL):
  1022. case YY_STATE_EOF(free_fmt):
  1023. case YY_STATE_EOF(fixed_fmt):
  1024. case YY_STATE_EOF(str_sq):
  1025. case YY_STATE_EOF(str_dq):
  1026. #line 173 "cmDependsFortranLexer.in.l"
  1027. {
  1028. if(!cmDependsFortranParser_FilePop(yyextra) )
  1029. {
  1030. return YY_NULL;
  1031. }
  1032. }
  1033. YY_BREAK
  1034. case 43:
  1035. YY_RULE_SETUP
  1036. #line 180 "cmDependsFortranLexer.in.l"
  1037. ECHO;
  1038. YY_BREAK
  1039. #line 1247 "cmDependsFortranLexer.cxx"
  1040. case YY_END_OF_BUFFER:
  1041. {
  1042. /* Amount of text matched not including the EOB char. */
  1043. int yy_amount_of_matched_text = (int) (yy_cp - yyg->yytext_ptr) - 1;
  1044. /* Undo the effects of YY_DO_BEFORE_ACTION. */
  1045. *yy_cp = yyg->yy_hold_char;
  1046. YY_RESTORE_YY_MORE_OFFSET
  1047. if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_NEW )
  1048. {
  1049. /* We're scanning a new file or input source. It's
  1050. * possible that this happened because the user
  1051. * just pointed yyin at a new source and called
  1052. * cmDependsFortran_yylex(). If so, then we have to assure
  1053. * consistency between YY_CURRENT_BUFFER and our
  1054. * globals. Here is the right place to do so, because
  1055. * this is the first action (other than possibly a
  1056. * back-up) that will match for the new input source.
  1057. */
  1058. yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
  1059. YY_CURRENT_BUFFER_LVALUE->yy_input_file = yyin;
  1060. YY_CURRENT_BUFFER_LVALUE->yy_buffer_status = YY_BUFFER_NORMAL;
  1061. }
  1062. /* Note that here we test for yy_c_buf_p "<=" to the position
  1063. * of the first EOB in the buffer, since yy_c_buf_p will
  1064. * already have been incremented past the NUL character
  1065. * (since all states make transitions on EOB to the
  1066. * end-of-buffer state). Contrast this with the test
  1067. * in input().
  1068. */
  1069. if ( yyg->yy_c_buf_p <= &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] )
  1070. { /* This was really a NUL. */
  1071. yy_state_type yy_next_state;
  1072. yyg->yy_c_buf_p = yyg->yytext_ptr + yy_amount_of_matched_text;
  1073. yy_current_state = yy_get_previous_state( yyscanner );
  1074. /* Okay, we're now positioned to make the NUL
  1075. * transition. We couldn't have
  1076. * yy_get_previous_state() go ahead and do it
  1077. * for us because it doesn't know how to deal
  1078. * with the possibility of jamming (and we don't
  1079. * want to build jamming into it because then it
  1080. * will run more slowly).
  1081. */
  1082. yy_next_state = yy_try_NUL_trans( yy_current_state , yyscanner);
  1083. yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
  1084. if ( yy_next_state )
  1085. {
  1086. /* Consume the NUL. */
  1087. yy_cp = ++yyg->yy_c_buf_p;
  1088. yy_current_state = yy_next_state;
  1089. goto yy_match;
  1090. }
  1091. else
  1092. {
  1093. yy_cp = yyg->yy_c_buf_p;
  1094. goto yy_find_action;
  1095. }
  1096. }
  1097. else switch ( yy_get_next_buffer( yyscanner ) )
  1098. {
  1099. case EOB_ACT_END_OF_FILE:
  1100. {
  1101. yyg->yy_did_buffer_switch_on_eof = 0;
  1102. if ( cmDependsFortran_yywrap(yyscanner ) )
  1103. {
  1104. /* Note: because we've taken care in
  1105. * yy_get_next_buffer() to have set up
  1106. * yytext, we can now set up
  1107. * yy_c_buf_p so that if some total
  1108. * hoser (like flex itself) wants to
  1109. * call the scanner after we return the
  1110. * YY_NULL, it'll still work - another
  1111. * YY_NULL will get returned.
  1112. */
  1113. yyg->yy_c_buf_p = yyg->yytext_ptr + YY_MORE_ADJ;
  1114. yy_act = YY_STATE_EOF(YY_START);
  1115. goto do_action;
  1116. }
  1117. else
  1118. {
  1119. if ( ! yyg->yy_did_buffer_switch_on_eof )
  1120. YY_NEW_FILE;
  1121. }
  1122. break;
  1123. }
  1124. case EOB_ACT_CONTINUE_SCAN:
  1125. yyg->yy_c_buf_p =
  1126. yyg->yytext_ptr + yy_amount_of_matched_text;
  1127. yy_current_state = yy_get_previous_state( yyscanner );
  1128. yy_cp = yyg->yy_c_buf_p;
  1129. yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
  1130. goto yy_match;
  1131. case EOB_ACT_LAST_MATCH:
  1132. yyg->yy_c_buf_p =
  1133. &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars];
  1134. yy_current_state = yy_get_previous_state( yyscanner );
  1135. yy_cp = yyg->yy_c_buf_p;
  1136. yy_bp = yyg->yytext_ptr + YY_MORE_ADJ;
  1137. goto yy_find_action;
  1138. }
  1139. break;
  1140. }
  1141. default:
  1142. YY_FATAL_ERROR(
  1143. "fatal flex scanner internal error--no action found" );
  1144. } /* end of action switch */
  1145. } /* end of scanning one token */
  1146. } /* end of cmDependsFortran_yylex */
  1147. /* yy_get_next_buffer - try to read in a new buffer
  1148. *
  1149. * Returns a code representing an action:
  1150. * EOB_ACT_LAST_MATCH -
  1151. * EOB_ACT_CONTINUE_SCAN - continue scanning from current position
  1152. * EOB_ACT_END_OF_FILE - end of file
  1153. */
  1154. static int yy_get_next_buffer (yyscan_t yyscanner)
  1155. {
  1156. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1157. register char *dest = YY_CURRENT_BUFFER_LVALUE->yy_ch_buf;
  1158. register char *source = yyg->yytext_ptr;
  1159. register int number_to_move, i;
  1160. int ret_val;
  1161. if ( yyg->yy_c_buf_p > &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars + 1] )
  1162. YY_FATAL_ERROR(
  1163. "fatal flex scanner internal error--end of buffer missed" );
  1164. if ( YY_CURRENT_BUFFER_LVALUE->yy_fill_buffer == 0 )
  1165. { /* Don't try to fill the buffer, so this is an EOF. */
  1166. if ( yyg->yy_c_buf_p - yyg->yytext_ptr - YY_MORE_ADJ == 1 )
  1167. {
  1168. /* We matched a single character, the EOB, so
  1169. * treat this as a final EOF.
  1170. */
  1171. return EOB_ACT_END_OF_FILE;
  1172. }
  1173. else
  1174. {
  1175. /* We matched some text prior to the EOB, first
  1176. * process it.
  1177. */
  1178. return EOB_ACT_LAST_MATCH;
  1179. }
  1180. }
  1181. /* Try to read more data. */
  1182. /* First move last chars to start of buffer. */
  1183. number_to_move = (int) (yyg->yy_c_buf_p - yyg->yytext_ptr) - 1;
  1184. for ( i = 0; i < number_to_move; ++i )
  1185. *(dest++) = *(source++);
  1186. if ( YY_CURRENT_BUFFER_LVALUE->yy_buffer_status == YY_BUFFER_EOF_PENDING )
  1187. /* don't do the read, it's not guaranteed to return an EOF,
  1188. * just force an EOF
  1189. */
  1190. YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars = 0;
  1191. else
  1192. {
  1193. int num_to_read =
  1194. YY_CURRENT_BUFFER_LVALUE->yy_buf_size - number_to_move - 1;
  1195. while ( num_to_read <= 0 )
  1196. { /* Not enough room in the buffer - grow it. */
  1197. /* just a shorter name for the current buffer */
  1198. YY_BUFFER_STATE b = YY_CURRENT_BUFFER;
  1199. int yy_c_buf_p_offset =
  1200. (int) (yyg->yy_c_buf_p - b->yy_ch_buf);
  1201. if ( b->yy_is_our_buffer )
  1202. {
  1203. int new_size = b->yy_buf_size * 2;
  1204. if ( new_size <= 0 )
  1205. b->yy_buf_size += b->yy_buf_size / 8;
  1206. else
  1207. b->yy_buf_size *= 2;
  1208. b->yy_ch_buf = (char *)
  1209. /* Include room in for 2 EOB chars. */
  1210. cmDependsFortran_yyrealloc((void *) b->yy_ch_buf,b->yy_buf_size + 2 ,yyscanner );
  1211. }
  1212. else
  1213. /* Can't grow it, we don't own it. */
  1214. b->yy_ch_buf = 0;
  1215. if ( ! b->yy_ch_buf )
  1216. YY_FATAL_ERROR(
  1217. "fatal error - scanner input buffer overflow" );
  1218. yyg->yy_c_buf_p = &b->yy_ch_buf[yy_c_buf_p_offset];
  1219. num_to_read = YY_CURRENT_BUFFER_LVALUE->yy_buf_size -
  1220. number_to_move - 1;
  1221. }
  1222. if ( num_to_read > YY_READ_BUF_SIZE )
  1223. num_to_read = YY_READ_BUF_SIZE;
  1224. /* Read in more data. */
  1225. YY_INPUT( (&YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move]),
  1226. yyg->yy_n_chars, (size_t) num_to_read );
  1227. YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
  1228. }
  1229. if ( yyg->yy_n_chars == 0 )
  1230. {
  1231. if ( number_to_move == YY_MORE_ADJ )
  1232. {
  1233. ret_val = EOB_ACT_END_OF_FILE;
  1234. cmDependsFortran_yyrestart(yyin ,yyscanner);
  1235. }
  1236. else
  1237. {
  1238. ret_val = EOB_ACT_LAST_MATCH;
  1239. YY_CURRENT_BUFFER_LVALUE->yy_buffer_status =
  1240. YY_BUFFER_EOF_PENDING;
  1241. }
  1242. }
  1243. else
  1244. ret_val = EOB_ACT_CONTINUE_SCAN;
  1245. if ((yy_size_t) (yyg->yy_n_chars + number_to_move) > YY_CURRENT_BUFFER_LVALUE->yy_buf_size) {
  1246. /* Extend the array by 50%, plus the number we really need. */
  1247. yy_size_t new_size = yyg->yy_n_chars + number_to_move + (yyg->yy_n_chars >> 1);
  1248. YY_CURRENT_BUFFER_LVALUE->yy_ch_buf = (char *) cmDependsFortran_yyrealloc((void *) YY_CURRENT_BUFFER_LVALUE->yy_ch_buf,new_size ,yyscanner );
  1249. if ( ! YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
  1250. YY_FATAL_ERROR( "out of dynamic memory in yy_get_next_buffer()" );
  1251. }
  1252. yyg->yy_n_chars += number_to_move;
  1253. YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] = YY_END_OF_BUFFER_CHAR;
  1254. YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars + 1] = YY_END_OF_BUFFER_CHAR;
  1255. yyg->yytext_ptr = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[0];
  1256. return ret_val;
  1257. }
  1258. /* yy_get_previous_state - get the state just before the EOB char was reached */
  1259. static yy_state_type yy_get_previous_state (yyscan_t yyscanner)
  1260. {
  1261. register yy_state_type yy_current_state;
  1262. register char *yy_cp;
  1263. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1264. yy_current_state = yyg->yy_start;
  1265. yy_current_state += YY_AT_BOL();
  1266. for ( yy_cp = yyg->yytext_ptr + YY_MORE_ADJ; yy_cp < yyg->yy_c_buf_p; ++yy_cp )
  1267. {
  1268. register YY_CHAR yy_c = (*yy_cp ? yy_ec[YY_SC_TO_UI(*yy_cp)] : 1);
  1269. if ( yy_accept[yy_current_state] )
  1270. {
  1271. yyg->yy_last_accepting_state = yy_current_state;
  1272. yyg->yy_last_accepting_cpos = yy_cp;
  1273. }
  1274. while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  1275. {
  1276. yy_current_state = (int) yy_def[yy_current_state];
  1277. if ( yy_current_state >= 161 )
  1278. yy_c = yy_meta[(unsigned int) yy_c];
  1279. }
  1280. yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  1281. }
  1282. return yy_current_state;
  1283. }
  1284. /* yy_try_NUL_trans - try to make a transition on the NUL character
  1285. *
  1286. * synopsis
  1287. * next_state = yy_try_NUL_trans( current_state );
  1288. */
  1289. static yy_state_type yy_try_NUL_trans (yy_state_type yy_current_state , yyscan_t yyscanner)
  1290. {
  1291. register int yy_is_jam;
  1292. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner; /* This var may be unused depending upon options. */
  1293. register char *yy_cp = yyg->yy_c_buf_p;
  1294. register YY_CHAR yy_c = 1;
  1295. if ( yy_accept[yy_current_state] )
  1296. {
  1297. yyg->yy_last_accepting_state = yy_current_state;
  1298. yyg->yy_last_accepting_cpos = yy_cp;
  1299. }
  1300. while ( yy_chk[yy_base[yy_current_state] + yy_c] != yy_current_state )
  1301. {
  1302. yy_current_state = (int) yy_def[yy_current_state];
  1303. if ( yy_current_state >= 161 )
  1304. yy_c = yy_meta[(unsigned int) yy_c];
  1305. }
  1306. yy_current_state = yy_nxt[yy_base[yy_current_state] + (unsigned int) yy_c];
  1307. yy_is_jam = (yy_current_state == 160);
  1308. return yy_is_jam ? 0 : yy_current_state;
  1309. }
  1310. static void yyunput (int c, register char * yy_bp , yyscan_t yyscanner)
  1311. {
  1312. register char *yy_cp;
  1313. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1314. yy_cp = yyg->yy_c_buf_p;
  1315. /* undo effects of setting up yytext */
  1316. *yy_cp = yyg->yy_hold_char;
  1317. if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
  1318. { /* need to shift things up to make room */
  1319. /* +2 for EOB chars. */
  1320. register int number_to_move = yyg->yy_n_chars + 2;
  1321. register char *dest = &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[
  1322. YY_CURRENT_BUFFER_LVALUE->yy_buf_size + 2];
  1323. register char *source =
  1324. &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[number_to_move];
  1325. while ( source > YY_CURRENT_BUFFER_LVALUE->yy_ch_buf )
  1326. *--dest = *--source;
  1327. yy_cp += (int) (dest - source);
  1328. yy_bp += (int) (dest - source);
  1329. YY_CURRENT_BUFFER_LVALUE->yy_n_chars =
  1330. yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_buf_size;
  1331. if ( yy_cp < YY_CURRENT_BUFFER_LVALUE->yy_ch_buf + 2 )
  1332. YY_FATAL_ERROR( "flex scanner push-back overflow" );
  1333. }
  1334. *--yy_cp = (char) c;
  1335. yyg->yytext_ptr = yy_bp;
  1336. yyg->yy_hold_char = *yy_cp;
  1337. yyg->yy_c_buf_p = yy_cp;
  1338. }
  1339. #ifndef YY_NO_INPUT
  1340. #ifdef __cplusplus
  1341. static int yyinput (yyscan_t yyscanner)
  1342. #else
  1343. static int input (yyscan_t yyscanner)
  1344. #endif
  1345. {
  1346. int c;
  1347. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1348. *yyg->yy_c_buf_p = yyg->yy_hold_char;
  1349. if ( *yyg->yy_c_buf_p == YY_END_OF_BUFFER_CHAR )
  1350. {
  1351. /* yy_c_buf_p now points to the character we want to return.
  1352. * If this occurs *before* the EOB characters, then it's a
  1353. * valid NUL; if not, then we've hit the end of the buffer.
  1354. */
  1355. if ( yyg->yy_c_buf_p < &YY_CURRENT_BUFFER_LVALUE->yy_ch_buf[yyg->yy_n_chars] )
  1356. /* This was really a NUL. */
  1357. *yyg->yy_c_buf_p = '\0';
  1358. else
  1359. { /* need more input */
  1360. int offset = yyg->yy_c_buf_p - yyg->yytext_ptr;
  1361. ++yyg->yy_c_buf_p;
  1362. switch ( yy_get_next_buffer( yyscanner ) )
  1363. {
  1364. case EOB_ACT_LAST_MATCH:
  1365. /* This happens because yy_g_n_b()
  1366. * sees that we've accumulated a
  1367. * token and flags that we need to
  1368. * try matching the token before
  1369. * proceeding. But for input(),
  1370. * there's no matching to consider.
  1371. * So convert the EOB_ACT_LAST_MATCH
  1372. * to EOB_ACT_END_OF_FILE.
  1373. */
  1374. /* Reset buffer status. */
  1375. cmDependsFortran_yyrestart(yyin ,yyscanner);
  1376. /*FALLTHROUGH*/
  1377. case EOB_ACT_END_OF_FILE:
  1378. {
  1379. if ( cmDependsFortran_yywrap(yyscanner ) )
  1380. return EOF;
  1381. if ( ! yyg->yy_did_buffer_switch_on_eof )
  1382. YY_NEW_FILE;
  1383. #ifdef __cplusplus
  1384. return yyinput(yyscanner);
  1385. #else
  1386. return input(yyscanner);
  1387. #endif
  1388. }
  1389. case EOB_ACT_CONTINUE_SCAN:
  1390. yyg->yy_c_buf_p = yyg->yytext_ptr + offset;
  1391. break;
  1392. }
  1393. }
  1394. }
  1395. c = *(unsigned char *) yyg->yy_c_buf_p; /* cast for 8-bit char's */
  1396. *yyg->yy_c_buf_p = '\0'; /* preserve yytext */
  1397. yyg->yy_hold_char = *++yyg->yy_c_buf_p;
  1398. YY_CURRENT_BUFFER_LVALUE->yy_at_bol = (c == '\n');
  1399. return c;
  1400. }
  1401. #endif /* ifndef YY_NO_INPUT */
  1402. /** Immediately switch to a different input stream.
  1403. * @param input_file A readable stream.
  1404. * @param yyscanner The scanner object.
  1405. * @note This function does not reset the start condition to @c INITIAL .
  1406. */
  1407. void cmDependsFortran_yyrestart (FILE * input_file , yyscan_t yyscanner)
  1408. {
  1409. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1410. if ( ! YY_CURRENT_BUFFER ){
  1411. cmDependsFortran_yyensure_buffer_stack (yyscanner);
  1412. YY_CURRENT_BUFFER_LVALUE =
  1413. cmDependsFortran_yy_create_buffer(yyin,YY_BUF_SIZE ,yyscanner);
  1414. }
  1415. cmDependsFortran_yy_init_buffer(YY_CURRENT_BUFFER,input_file ,yyscanner);
  1416. cmDependsFortran_yy_load_buffer_state(yyscanner );
  1417. }
  1418. /** Switch to a different input buffer.
  1419. * @param new_buffer The new input buffer.
  1420. * @param yyscanner The scanner object.
  1421. */
  1422. void cmDependsFortran_yy_switch_to_buffer (YY_BUFFER_STATE new_buffer , yyscan_t yyscanner)
  1423. {
  1424. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1425. /* TODO. We should be able to replace this entire function body
  1426. * with
  1427. * cmDependsFortran_yypop_buffer_state();
  1428. * cmDependsFortran_yypush_buffer_state(new_buffer);
  1429. */
  1430. cmDependsFortran_yyensure_buffer_stack (yyscanner);
  1431. if ( YY_CURRENT_BUFFER == new_buffer )
  1432. return;
  1433. if ( YY_CURRENT_BUFFER )
  1434. {
  1435. /* Flush out information for old buffer. */
  1436. *yyg->yy_c_buf_p = yyg->yy_hold_char;
  1437. YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = yyg->yy_c_buf_p;
  1438. YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
  1439. }
  1440. YY_CURRENT_BUFFER_LVALUE = new_buffer;
  1441. cmDependsFortran_yy_load_buffer_state(yyscanner );
  1442. /* We don't actually know whether we did this switch during
  1443. * EOF (cmDependsFortran_yywrap()) processing, but the only time this flag
  1444. * is looked at is after cmDependsFortran_yywrap() is called, so it's safe
  1445. * to go ahead and always set it.
  1446. */
  1447. yyg->yy_did_buffer_switch_on_eof = 1;
  1448. }
  1449. static void cmDependsFortran_yy_load_buffer_state (yyscan_t yyscanner)
  1450. {
  1451. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1452. yyg->yy_n_chars = YY_CURRENT_BUFFER_LVALUE->yy_n_chars;
  1453. yyg->yytext_ptr = yyg->yy_c_buf_p = YY_CURRENT_BUFFER_LVALUE->yy_buf_pos;
  1454. yyin = YY_CURRENT_BUFFER_LVALUE->yy_input_file;
  1455. yyg->yy_hold_char = *yyg->yy_c_buf_p;
  1456. }
  1457. /** Allocate and initialize an input buffer state.
  1458. * @param file A readable stream.
  1459. * @param size The character buffer size in bytes. When in doubt, use @c YY_BUF_SIZE.
  1460. * @param yyscanner The scanner object.
  1461. * @return the allocated buffer state.
  1462. */
  1463. YY_BUFFER_STATE cmDependsFortran_yy_create_buffer (FILE * file, int size , yyscan_t yyscanner)
  1464. {
  1465. YY_BUFFER_STATE b;
  1466. b = (YY_BUFFER_STATE) cmDependsFortran_yyalloc(sizeof( struct yy_buffer_state ) ,yyscanner );
  1467. if ( ! b )
  1468. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_create_buffer()" );
  1469. b->yy_buf_size = size;
  1470. /* yy_ch_buf has to be 2 characters longer than the size given because
  1471. * we need to put in 2 end-of-buffer characters.
  1472. */
  1473. b->yy_ch_buf = (char *) cmDependsFortran_yyalloc(b->yy_buf_size + 2 ,yyscanner );
  1474. if ( ! b->yy_ch_buf )
  1475. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_create_buffer()" );
  1476. b->yy_is_our_buffer = 1;
  1477. cmDependsFortran_yy_init_buffer(b,file ,yyscanner);
  1478. return b;
  1479. }
  1480. /** Destroy the buffer.
  1481. * @param b a buffer created with cmDependsFortran_yy_create_buffer()
  1482. * @param yyscanner The scanner object.
  1483. */
  1484. void cmDependsFortran_yy_delete_buffer (YY_BUFFER_STATE b , yyscan_t yyscanner)
  1485. {
  1486. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1487. if ( ! b )
  1488. return;
  1489. if ( b == YY_CURRENT_BUFFER ) /* Not sure if we should pop here. */
  1490. YY_CURRENT_BUFFER_LVALUE = (YY_BUFFER_STATE) 0;
  1491. if ( b->yy_is_our_buffer )
  1492. cmDependsFortran_yyfree((void *) b->yy_ch_buf ,yyscanner );
  1493. cmDependsFortran_yyfree((void *) b ,yyscanner );
  1494. }
  1495. #ifndef __cplusplus
  1496. extern int isatty (int );
  1497. #endif /* __cplusplus */
  1498. /* Initializes or reinitializes a buffer.
  1499. * This function is sometimes called more than once on the same buffer,
  1500. * such as during a cmDependsFortran_yyrestart() or at EOF.
  1501. */
  1502. static void cmDependsFortran_yy_init_buffer (YY_BUFFER_STATE b, FILE * file , yyscan_t yyscanner)
  1503. {
  1504. int oerrno = errno;
  1505. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1506. cmDependsFortran_yy_flush_buffer(b ,yyscanner);
  1507. b->yy_input_file = file;
  1508. b->yy_fill_buffer = 1;
  1509. /* If b is the current buffer, then cmDependsFortran_yy_init_buffer was _probably_
  1510. * called from cmDependsFortran_yyrestart() or through yy_get_next_buffer.
  1511. * In that case, we don't want to reset the lineno or column.
  1512. */
  1513. if (b != YY_CURRENT_BUFFER){
  1514. b->yy_bs_lineno = 1;
  1515. b->yy_bs_column = 0;
  1516. }
  1517. b->yy_is_interactive = file ? (isatty( fileno(file) ) > 0) : 0;
  1518. errno = oerrno;
  1519. }
  1520. /** Discard all buffered characters. On the next scan, YY_INPUT will be called.
  1521. * @param b the buffer state to be flushed, usually @c YY_CURRENT_BUFFER.
  1522. * @param yyscanner The scanner object.
  1523. */
  1524. void cmDependsFortran_yy_flush_buffer (YY_BUFFER_STATE b , yyscan_t yyscanner)
  1525. {
  1526. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1527. if ( ! b )
  1528. return;
  1529. b->yy_n_chars = 0;
  1530. /* We always need two end-of-buffer characters. The first causes
  1531. * a transition to the end-of-buffer state. The second causes
  1532. * a jam in that state.
  1533. */
  1534. b->yy_ch_buf[0] = YY_END_OF_BUFFER_CHAR;
  1535. b->yy_ch_buf[1] = YY_END_OF_BUFFER_CHAR;
  1536. b->yy_buf_pos = &b->yy_ch_buf[0];
  1537. b->yy_at_bol = 1;
  1538. b->yy_buffer_status = YY_BUFFER_NEW;
  1539. if ( b == YY_CURRENT_BUFFER )
  1540. cmDependsFortran_yy_load_buffer_state(yyscanner );
  1541. }
  1542. /** Pushes the new state onto the stack. The new state becomes
  1543. * the current state. This function will allocate the stack
  1544. * if necessary.
  1545. * @param new_buffer The new state.
  1546. * @param yyscanner The scanner object.
  1547. */
  1548. void cmDependsFortran_yypush_buffer_state (YY_BUFFER_STATE new_buffer , yyscan_t yyscanner)
  1549. {
  1550. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1551. if (new_buffer == NULL)
  1552. return;
  1553. cmDependsFortran_yyensure_buffer_stack(yyscanner);
  1554. /* This block is copied from cmDependsFortran_yy_switch_to_buffer. */
  1555. if ( YY_CURRENT_BUFFER )
  1556. {
  1557. /* Flush out information for old buffer. */
  1558. *yyg->yy_c_buf_p = yyg->yy_hold_char;
  1559. YY_CURRENT_BUFFER_LVALUE->yy_buf_pos = yyg->yy_c_buf_p;
  1560. YY_CURRENT_BUFFER_LVALUE->yy_n_chars = yyg->yy_n_chars;
  1561. }
  1562. /* Only push if top exists. Otherwise, replace top. */
  1563. if (YY_CURRENT_BUFFER)
  1564. yyg->yy_buffer_stack_top++;
  1565. YY_CURRENT_BUFFER_LVALUE = new_buffer;
  1566. /* copied from cmDependsFortran_yy_switch_to_buffer. */
  1567. cmDependsFortran_yy_load_buffer_state(yyscanner );
  1568. yyg->yy_did_buffer_switch_on_eof = 1;
  1569. }
  1570. /** Removes and deletes the top of the stack, if present.
  1571. * The next element becomes the new top.
  1572. * @param yyscanner The scanner object.
  1573. */
  1574. void cmDependsFortran_yypop_buffer_state (yyscan_t yyscanner)
  1575. {
  1576. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1577. if (!YY_CURRENT_BUFFER)
  1578. return;
  1579. cmDependsFortran_yy_delete_buffer(YY_CURRENT_BUFFER ,yyscanner);
  1580. YY_CURRENT_BUFFER_LVALUE = NULL;
  1581. if (yyg->yy_buffer_stack_top > 0)
  1582. --yyg->yy_buffer_stack_top;
  1583. if (YY_CURRENT_BUFFER) {
  1584. cmDependsFortran_yy_load_buffer_state(yyscanner );
  1585. yyg->yy_did_buffer_switch_on_eof = 1;
  1586. }
  1587. }
  1588. /* Allocates the stack if it does not exist.
  1589. * Guarantees space for at least one push.
  1590. */
  1591. static void cmDependsFortran_yyensure_buffer_stack (yyscan_t yyscanner)
  1592. {
  1593. int num_to_alloc;
  1594. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1595. if (!yyg->yy_buffer_stack) {
  1596. /* First allocation is just for 2 elements, since we don't know if this
  1597. * scanner will even need a stack. We use 2 instead of 1 to avoid an
  1598. * immediate realloc on the next call.
  1599. */
  1600. num_to_alloc = 1;
  1601. yyg->yy_buffer_stack = (struct yy_buffer_state**)cmDependsFortran_yyalloc
  1602. (num_to_alloc * sizeof(struct yy_buffer_state*)
  1603. , yyscanner);
  1604. if ( ! yyg->yy_buffer_stack )
  1605. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yyensure_buffer_stack()" );
  1606. memset(yyg->yy_buffer_stack, 0, num_to_alloc * sizeof(struct yy_buffer_state*));
  1607. yyg->yy_buffer_stack_max = num_to_alloc;
  1608. yyg->yy_buffer_stack_top = 0;
  1609. return;
  1610. }
  1611. if (yyg->yy_buffer_stack_top >= (yyg->yy_buffer_stack_max) - 1){
  1612. /* Increase the buffer to prepare for a possible push. */
  1613. int grow_size = 8 /* arbitrary grow size */;
  1614. num_to_alloc = yyg->yy_buffer_stack_max + grow_size;
  1615. yyg->yy_buffer_stack = (struct yy_buffer_state**)cmDependsFortran_yyrealloc
  1616. (yyg->yy_buffer_stack,
  1617. num_to_alloc * sizeof(struct yy_buffer_state*)
  1618. , yyscanner);
  1619. if ( ! yyg->yy_buffer_stack )
  1620. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yyensure_buffer_stack()" );
  1621. /* zero only the new slots.*/
  1622. memset(yyg->yy_buffer_stack + yyg->yy_buffer_stack_max, 0, grow_size * sizeof(struct yy_buffer_state*));
  1623. yyg->yy_buffer_stack_max = num_to_alloc;
  1624. }
  1625. }
  1626. /** Setup the input buffer state to scan directly from a user-specified character buffer.
  1627. * @param base the character buffer
  1628. * @param size the size in bytes of the character buffer
  1629. * @param yyscanner The scanner object.
  1630. * @return the newly allocated buffer state object.
  1631. */
  1632. YY_BUFFER_STATE cmDependsFortran_yy_scan_buffer (char * base, yy_size_t size , yyscan_t yyscanner)
  1633. {
  1634. YY_BUFFER_STATE b;
  1635. if ( size < 2 ||
  1636. base[size-2] != YY_END_OF_BUFFER_CHAR ||
  1637. base[size-1] != YY_END_OF_BUFFER_CHAR )
  1638. /* They forgot to leave room for the EOB's. */
  1639. return 0;
  1640. b = (YY_BUFFER_STATE) cmDependsFortran_yyalloc(sizeof( struct yy_buffer_state ) ,yyscanner );
  1641. if ( ! b )
  1642. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_scan_buffer()" );
  1643. b->yy_buf_size = size - 2; /* "- 2" to take care of EOB's */
  1644. b->yy_buf_pos = b->yy_ch_buf = base;
  1645. b->yy_is_our_buffer = 0;
  1646. b->yy_input_file = 0;
  1647. b->yy_n_chars = b->yy_buf_size;
  1648. b->yy_is_interactive = 0;
  1649. b->yy_at_bol = 1;
  1650. b->yy_fill_buffer = 0;
  1651. b->yy_buffer_status = YY_BUFFER_NEW;
  1652. cmDependsFortran_yy_switch_to_buffer(b ,yyscanner );
  1653. return b;
  1654. }
  1655. /** Setup the input buffer state to scan a string. The next call to cmDependsFortran_yylex() will
  1656. * scan from a @e copy of @a str.
  1657. * @param yystr a NUL-terminated string to scan
  1658. * @param yyscanner The scanner object.
  1659. * @return the newly allocated buffer state object.
  1660. * @note If you want to scan bytes that may contain NUL values, then use
  1661. * cmDependsFortran_yy_scan_bytes() instead.
  1662. */
  1663. YY_BUFFER_STATE cmDependsFortran_yy_scan_string (yyconst char * yystr , yyscan_t yyscanner)
  1664. {
  1665. return cmDependsFortran_yy_scan_bytes(yystr,strlen(yystr) ,yyscanner);
  1666. }
  1667. /** Setup the input buffer state to scan the given bytes. The next call to cmDependsFortran_yylex() will
  1668. * scan from a @e copy of @a yybytes.
  1669. * @param yybytes the byte buffer to scan
  1670. * @param _yybytes_len the number of bytes in the buffer pointed to by @a bytes.
  1671. * @param yyscanner The scanner object.
  1672. * @return the newly allocated buffer state object.
  1673. */
  1674. YY_BUFFER_STATE cmDependsFortran_yy_scan_bytes (yyconst char * yybytes, int _yybytes_len , yyscan_t yyscanner)
  1675. {
  1676. YY_BUFFER_STATE b;
  1677. char *buf;
  1678. yy_size_t n;
  1679. int i;
  1680. /* Get memory for full buffer, including space for trailing EOB's. */
  1681. n = _yybytes_len + 2;
  1682. buf = (char *) cmDependsFortran_yyalloc(n ,yyscanner );
  1683. if ( ! buf )
  1684. YY_FATAL_ERROR( "out of dynamic memory in cmDependsFortran_yy_scan_bytes()" );
  1685. for ( i = 0; i < _yybytes_len; ++i )
  1686. buf[i] = yybytes[i];
  1687. buf[_yybytes_len] = buf[_yybytes_len+1] = YY_END_OF_BUFFER_CHAR;
  1688. b = cmDependsFortran_yy_scan_buffer(buf,n ,yyscanner);
  1689. if ( ! b )
  1690. YY_FATAL_ERROR( "bad buffer in cmDependsFortran_yy_scan_bytes()" );
  1691. /* It's okay to grow etc. this buffer, and we should throw it
  1692. * away when we're done.
  1693. */
  1694. b->yy_is_our_buffer = 1;
  1695. return b;
  1696. }
  1697. #ifndef YY_EXIT_FAILURE
  1698. #define YY_EXIT_FAILURE 2
  1699. #endif
  1700. static void yy_fatal_error (yyconst char* msg , yyscan_t)
  1701. {
  1702. (void) fprintf( stderr, "%s\n", msg );
  1703. exit( YY_EXIT_FAILURE );
  1704. }
  1705. /* Redefine yyless() so it works in section 3 code. */
  1706. #undef yyless
  1707. #define yyless(n) \
  1708. do \
  1709. { \
  1710. /* Undo effects of setting up yytext. */ \
  1711. int yyless_macro_arg = (n); \
  1712. YY_LESS_LINENO(yyless_macro_arg);\
  1713. yytext[yyleng] = yyg->yy_hold_char; \
  1714. yyg->yy_c_buf_p = yytext + yyless_macro_arg; \
  1715. yyg->yy_hold_char = *yyg->yy_c_buf_p; \
  1716. *yyg->yy_c_buf_p = '\0'; \
  1717. yyleng = yyless_macro_arg; \
  1718. } \
  1719. while ( 0 )
  1720. /* Accessor methods (get/set functions) to struct members. */
  1721. /** Get the user-defined data for this scanner.
  1722. * @param yyscanner The scanner object.
  1723. */
  1724. YY_EXTRA_TYPE cmDependsFortran_yyget_extra (yyscan_t yyscanner)
  1725. {
  1726. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1727. return yyextra;
  1728. }
  1729. /** Get the current line number.
  1730. * @param yyscanner The scanner object.
  1731. */
  1732. int cmDependsFortran_yyget_lineno (yyscan_t yyscanner)
  1733. {
  1734. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1735. if (! YY_CURRENT_BUFFER)
  1736. return 0;
  1737. return yylineno;
  1738. }
  1739. /** Get the current column number.
  1740. * @param yyscanner The scanner object.
  1741. */
  1742. int cmDependsFortran_yyget_column (yyscan_t yyscanner)
  1743. {
  1744. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1745. if (! YY_CURRENT_BUFFER)
  1746. return 0;
  1747. return yycolumn;
  1748. }
  1749. /** Get the input stream.
  1750. * @param yyscanner The scanner object.
  1751. */
  1752. FILE *cmDependsFortran_yyget_in (yyscan_t yyscanner)
  1753. {
  1754. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1755. return yyin;
  1756. }
  1757. /** Get the output stream.
  1758. * @param yyscanner The scanner object.
  1759. */
  1760. FILE *cmDependsFortran_yyget_out (yyscan_t yyscanner)
  1761. {
  1762. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1763. return yyout;
  1764. }
  1765. /** Get the length of the current token.
  1766. * @param yyscanner The scanner object.
  1767. */
  1768. int cmDependsFortran_yyget_leng (yyscan_t yyscanner)
  1769. {
  1770. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1771. return yyleng;
  1772. }
  1773. /** Get the current token.
  1774. * @param yyscanner The scanner object.
  1775. */
  1776. char *cmDependsFortran_yyget_text (yyscan_t yyscanner)
  1777. {
  1778. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1779. return yytext;
  1780. }
  1781. /** Set the user-defined data. This data is never touched by the scanner.
  1782. * @param user_defined The data to be associated with this scanner.
  1783. * @param yyscanner The scanner object.
  1784. */
  1785. void cmDependsFortran_yyset_extra (YY_EXTRA_TYPE user_defined , yyscan_t yyscanner)
  1786. {
  1787. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1788. yyextra = user_defined ;
  1789. }
  1790. /** Set the current line number.
  1791. * @param line_number
  1792. * @param yyscanner The scanner object.
  1793. */
  1794. void cmDependsFortran_yyset_lineno (int line_number , yyscan_t yyscanner)
  1795. {
  1796. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1797. /* lineno is only valid if an input buffer exists. */
  1798. if (! YY_CURRENT_BUFFER )
  1799. yy_fatal_error( "cmDependsFortran_yyset_lineno called with no buffer" , yyscanner);
  1800. yylineno = line_number;
  1801. }
  1802. /** Set the current column.
  1803. * @param column_no
  1804. * @param yyscanner The scanner object.
  1805. */
  1806. void cmDependsFortran_yyset_column (int column_no , yyscan_t yyscanner)
  1807. {
  1808. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1809. /* column is only valid if an input buffer exists. */
  1810. if (! YY_CURRENT_BUFFER )
  1811. yy_fatal_error( "cmDependsFortran_yyset_column called with no buffer" , yyscanner);
  1812. yycolumn = column_no;
  1813. }
  1814. /** Set the input stream. This does not discard the current
  1815. * input buffer.
  1816. * @param in_str A readable stream.
  1817. * @param yyscanner The scanner object.
  1818. * @see cmDependsFortran_yy_switch_to_buffer
  1819. */
  1820. void cmDependsFortran_yyset_in (FILE * in_str , yyscan_t yyscanner)
  1821. {
  1822. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1823. yyin = in_str ;
  1824. }
  1825. void cmDependsFortran_yyset_out (FILE * out_str , yyscan_t yyscanner)
  1826. {
  1827. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1828. yyout = out_str ;
  1829. }
  1830. int cmDependsFortran_yyget_debug (yyscan_t yyscanner)
  1831. {
  1832. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1833. return yy_flex_debug;
  1834. }
  1835. void cmDependsFortran_yyset_debug (int bdebug , yyscan_t yyscanner)
  1836. {
  1837. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1838. yy_flex_debug = bdebug ;
  1839. }
  1840. /* Accessor methods for yylval and yylloc */
  1841. /* User-visible API */
  1842. /* cmDependsFortran_yylex_init is special because it creates the scanner itself, so it is
  1843. * the ONLY reentrant function that doesn't take the scanner as the last argument.
  1844. * That's why we explicitly handle the declaration, instead of using our macros.
  1845. */
  1846. int cmDependsFortran_yylex_init(yyscan_t* ptr_yy_globals)
  1847. {
  1848. if (ptr_yy_globals == NULL){
  1849. errno = EINVAL;
  1850. return 1;
  1851. }
  1852. *ptr_yy_globals = (yyscan_t) cmDependsFortran_yyalloc ( sizeof( struct yyguts_t ), NULL );
  1853. if (*ptr_yy_globals == NULL){
  1854. errno = ENOMEM;
  1855. return 1;
  1856. }
  1857. /* By setting to 0xAA, we expose bugs in yy_init_globals. Leave at 0x00 for releases. */
  1858. memset(*ptr_yy_globals,0x00,sizeof(struct yyguts_t));
  1859. return yy_init_globals ( *ptr_yy_globals );
  1860. }
  1861. /* cmDependsFortran_yylex_init_extra has the same functionality as cmDependsFortran_yylex_init, but follows the
  1862. * convention of taking the scanner as the last argument. Note however, that
  1863. * this is a *pointer* to a scanner, as it will be allocated by this call (and
  1864. * is the reason, too, why this function also must handle its own declaration).
  1865. * The user defined value in the first argument will be available to cmDependsFortran_yyalloc in
  1866. * the yyextra field.
  1867. */
  1868. int cmDependsFortran_yylex_init_extra(YY_EXTRA_TYPE yy_user_defined,yyscan_t* ptr_yy_globals )
  1869. {
  1870. struct yyguts_t dummy_yyguts;
  1871. cmDependsFortran_yyset_extra (yy_user_defined, &dummy_yyguts);
  1872. if (ptr_yy_globals == NULL){
  1873. errno = EINVAL;
  1874. return 1;
  1875. }
  1876. *ptr_yy_globals = (yyscan_t) cmDependsFortran_yyalloc ( sizeof( struct yyguts_t ), &dummy_yyguts );
  1877. if (*ptr_yy_globals == NULL){
  1878. errno = ENOMEM;
  1879. return 1;
  1880. }
  1881. /* By setting to 0xAA, we expose bugs in
  1882. yy_init_globals. Leave at 0x00 for releases. */
  1883. memset(*ptr_yy_globals,0x00,sizeof(struct yyguts_t));
  1884. cmDependsFortran_yyset_extra (yy_user_defined, *ptr_yy_globals);
  1885. return yy_init_globals ( *ptr_yy_globals );
  1886. }
  1887. static int yy_init_globals (yyscan_t yyscanner)
  1888. {
  1889. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1890. /* Initialization is the same as for the non-reentrant scanner.
  1891. * This function is called from cmDependsFortran_yylex_destroy(), so don't allocate here.
  1892. */
  1893. yyg->yy_buffer_stack = 0;
  1894. yyg->yy_buffer_stack_top = 0;
  1895. yyg->yy_buffer_stack_max = 0;
  1896. yyg->yy_c_buf_p = (char *) 0;
  1897. yyg->yy_init = 0;
  1898. yyg->yy_start = 0;
  1899. yyg->yy_start_stack_ptr = 0;
  1900. yyg->yy_start_stack_depth = 0;
  1901. yyg->yy_start_stack = NULL;
  1902. /* Defined in main.c */
  1903. #ifdef YY_STDINIT
  1904. yyin = stdin;
  1905. yyout = stdout;
  1906. #else
  1907. yyin = (FILE *) 0;
  1908. yyout = (FILE *) 0;
  1909. #endif
  1910. /* For future reference: Set errno on error, since we are called by
  1911. * cmDependsFortran_yylex_init()
  1912. */
  1913. return 0;
  1914. }
  1915. /* cmDependsFortran_yylex_destroy is for both reentrant and non-reentrant scanners. */
  1916. int cmDependsFortran_yylex_destroy (yyscan_t yyscanner)
  1917. {
  1918. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1919. /* Pop the buffer stack, destroying each element. */
  1920. while(YY_CURRENT_BUFFER){
  1921. cmDependsFortran_yy_delete_buffer(YY_CURRENT_BUFFER ,yyscanner );
  1922. YY_CURRENT_BUFFER_LVALUE = NULL;
  1923. cmDependsFortran_yypop_buffer_state(yyscanner);
  1924. }
  1925. /* Destroy the stack itself. */
  1926. cmDependsFortran_yyfree(yyg->yy_buffer_stack ,yyscanner);
  1927. yyg->yy_buffer_stack = NULL;
  1928. /* Destroy the start condition stack. */
  1929. cmDependsFortran_yyfree(yyg->yy_start_stack ,yyscanner );
  1930. yyg->yy_start_stack = NULL;
  1931. /* Reset the globals. This is important in a non-reentrant scanner so the next time
  1932. * cmDependsFortran_yylex() is called, initialization will occur. */
  1933. yy_init_globals( yyscanner);
  1934. /* Destroy the main struct (reentrant only). */
  1935. cmDependsFortran_yyfree ( yyscanner , yyscanner );
  1936. return 0;
  1937. }
  1938. /*
  1939. * Internal utility routines.
  1940. */
  1941. #ifndef yytext_ptr
  1942. static void yy_flex_strncpy (char* s1, yyconst char * s2, int n , yyscan_t yyscanner)
  1943. {
  1944. register int i;
  1945. for ( i = 0; i < n; ++i )
  1946. s1[i] = s2[i];
  1947. }
  1948. #endif
  1949. #ifdef YY_NEED_STRLEN
  1950. static int yy_flex_strlen (yyconst char * s , yyscan_t yyscanner)
  1951. {
  1952. register int n;
  1953. for ( n = 0; s[n]; ++n )
  1954. ;
  1955. return n;
  1956. }
  1957. #endif
  1958. void *cmDependsFortran_yyalloc (yy_size_t size , yyscan_t)
  1959. {
  1960. return (void *) malloc( size );
  1961. }
  1962. void *cmDependsFortran_yyrealloc (void * ptr, yy_size_t size , yyscan_t)
  1963. {
  1964. /* The cast to (char *) in the following accommodates both
  1965. * implementations that use char* generic pointers, and those
  1966. * that use void* generic pointers. It works with the latter
  1967. * because both ANSI C and C++ allow castless assignment from
  1968. * any pointer type to void*, and deal with argument conversions
  1969. * as though doing an assignment.
  1970. */
  1971. return (void *) realloc( (char *) ptr, size );
  1972. }
  1973. void cmDependsFortran_yyfree (void * ptr , yyscan_t)
  1974. {
  1975. free( (char *) ptr ); /* see cmDependsFortran_yyrealloc() for (char *) cast */
  1976. }
  1977. #define YYTABLES_NAME "yytables"
  1978. #line 180 "cmDependsFortranLexer.in.l"
  1979. /*--------------------------------------------------------------------------*/
  1980. YY_BUFFER_STATE cmDependsFortranLexer_GetCurrentBuffer(yyscan_t yyscanner)
  1981. {
  1982. /* Hack into the internal flex-generated scanner to get the buffer. */
  1983. struct yyguts_t * yyg = (struct yyguts_t*)yyscanner;
  1984. return YY_CURRENT_BUFFER;
  1985. }