cmDependsFortranLexer.cxx 83 KB

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