cmDependsFortranLexer.cxx 83 KB

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