cmDependsFortranLexer.cxx 80 KB

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