/TypeCobol/Compiler/CupPreprocessor/CobolCompilerDirectivesParser.cs

https://github.com/TypeCobolTeam/TypeCobol · C# · 3140 lines · 2404 code · 434 blank · 302 comment · 83 complexity · 333d03a342141ea5f9b8a96d03c66926 MD5 · raw file

  1. //----------------------------------------------------
  2. // The following code was generated by C# CUP v0.1
  3. //----------------------------------------------------
  4. namespace TypeCobol.Compiler.CupPreprocessor
  5. {
  6. using TypeCobol.Compiler.Directives;
  7. using TypeCobol.Compiler.Scanner;
  8. using TypeCobol.Compiler.CupCommon;
  9. using System.Collections.Generic;
  10. using System;
  11. using TUVienna.CS_CUP.Runtime;
  12. using CSCupRuntime;
  13. /** C# CUP v0.1 generated parser.
  14. */
  15. public class CobolCompilerDirectivesParser : TUVienna.CS_CUP.Runtime.lr_parser {
  16. /** Default constructor. */
  17. public CobolCompilerDirectivesParser():base() {;}
  18. /** Constructor which sets the default scanner. */
  19. public CobolCompilerDirectivesParser(TUVienna.CS_CUP.Runtime.Scanner s): base(s) {;}
  20. /** Production table. */
  21. protected static readonly short[][] _production_table =
  22. new short[234][] {
  23. new short[2]{0,2},
  24. new short[2]{28,1},
  25. new short[2]{4,1},
  26. new short[2]{4,1},
  27. new short[2]{4,1},
  28. new short[2]{5,1},
  29. new short[2]{5,1},
  30. new short[2]{5,1},
  31. new short[2]{5,1},
  32. new short[2]{22,1},
  33. new short[2]{24,1},
  34. new short[2]{24,1},
  35. new short[2]{49,1},
  36. new short[2]{123,1},
  37. new short[2]{124,1},
  38. new short[2]{105,1},
  39. new short[2]{105,1},
  40. new short[2]{125,1},
  41. new short[2]{125,3},
  42. new short[2]{129,1},
  43. new short[2]{172,1},
  44. new short[2]{172,1},
  45. new short[2]{172,1},
  46. new short[2]{172,1},
  47. new short[2]{172,1},
  48. new short[2]{172,1},
  49. new short[2]{172,1},
  50. new short[2]{172,1},
  51. new short[2]{172,1},
  52. new short[2]{172,1},
  53. new short[2]{172,1},
  54. new short[2]{172,1},
  55. new short[2]{172,1},
  56. new short[2]{172,1},
  57. new short[2]{172,1},
  58. new short[2]{172,1},
  59. new short[2]{172,1},
  60. new short[2]{172,1},
  61. new short[2]{172,1},
  62. new short[2]{172,1},
  63. new short[2]{172,1},
  64. new short[2]{172,1},
  65. new short[2]{172,1},
  66. new short[2]{172,1},
  67. new short[2]{172,1},
  68. new short[2]{172,1},
  69. new short[2]{172,1},
  70. new short[2]{172,1},
  71. new short[2]{172,1},
  72. new short[2]{172,1},
  73. new short[2]{172,1},
  74. new short[2]{172,1},
  75. new short[2]{172,1},
  76. new short[2]{172,1},
  77. new short[2]{172,1},
  78. new short[2]{172,1},
  79. new short[2]{172,1},
  80. new short[2]{172,1},
  81. new short[2]{172,1},
  82. new short[2]{172,1},
  83. new short[2]{172,1},
  84. new short[2]{172,1},
  85. new short[2]{172,1},
  86. new short[2]{172,1},
  87. new short[2]{172,1},
  88. new short[2]{172,1},
  89. new short[2]{172,1},
  90. new short[2]{172,1},
  91. new short[2]{172,1},
  92. new short[2]{172,1},
  93. new short[2]{172,1},
  94. new short[2]{172,1},
  95. new short[2]{172,1},
  96. new short[2]{172,1},
  97. new short[2]{172,1},
  98. new short[2]{172,1},
  99. new short[2]{172,1},
  100. new short[2]{172,1},
  101. new short[2]{172,1},
  102. new short[2]{172,1},
  103. new short[2]{172,1},
  104. new short[2]{172,1},
  105. new short[2]{172,1},
  106. new short[2]{172,1},
  107. new short[2]{172,1},
  108. new short[2]{172,1},
  109. new short[2]{172,1},
  110. new short[2]{172,1},
  111. new short[2]{172,1},
  112. new short[2]{172,1},
  113. new short[2]{172,1},
  114. new short[2]{172,1},
  115. new short[2]{172,1},
  116. new short[2]{172,1},
  117. new short[2]{172,1},
  118. new short[2]{172,1},
  119. new short[2]{172,1},
  120. new short[2]{172,1},
  121. new short[2]{172,1},
  122. new short[2]{172,1},
  123. new short[2]{172,1},
  124. new short[2]{172,1},
  125. new short[2]{172,1},
  126. new short[2]{172,1},
  127. new short[2]{172,1},
  128. new short[2]{172,1},
  129. new short[2]{172,1},
  130. new short[2]{172,1},
  131. new short[2]{172,1},
  132. new short[2]{172,1},
  133. new short[2]{172,1},
  134. new short[2]{172,1},
  135. new short[2]{172,1},
  136. new short[2]{172,1},
  137. new short[2]{172,1},
  138. new short[2]{172,1},
  139. new short[2]{172,1},
  140. new short[2]{172,1},
  141. new short[2]{172,1},
  142. new short[2]{132,1},
  143. new short[2]{133,1},
  144. new short[2]{133,1},
  145. new short[2]{133,1},
  146. new short[2]{133,1},
  147. new short[2]{133,1},
  148. new short[2]{133,1},
  149. new short[2]{133,1},
  150. new short[2]{133,1},
  151. new short[2]{133,1},
  152. new short[2]{133,1},
  153. new short[2]{133,1},
  154. new short[2]{133,1},
  155. new short[2]{133,1},
  156. new short[2]{133,1},
  157. new short[2]{133,1},
  158. new short[2]{175,0},
  159. new short[2]{176,0},
  160. new short[2]{134,4},
  161. new short[2]{135,2},
  162. new short[2]{135,2},
  163. new short[2]{136,0},
  164. new short[2]{136,1},
  165. new short[2]{138,1},
  166. new short[2]{138,3},
  167. new short[2]{140,0},
  168. new short[2]{140,1},
  169. new short[2]{140,2},
  170. new short[2]{139,0},
  171. new short[2]{139,1},
  172. new short[2]{139,2},
  173. new short[2]{137,1},
  174. new short[2]{177,0},
  175. new short[2]{137,5},
  176. new short[2]{141,1},
  177. new short[2]{141,2},
  178. new short[2]{178,0},
  179. new short[2]{142,2},
  180. new short[2]{179,0},
  181. new short[2]{142,2},
  182. new short[2]{143,0},
  183. new short[2]{143,1},
  184. new short[2]{180,0},
  185. new short[2]{144,4},
  186. new short[2]{181,0},
  187. new short[2]{182,0},
  188. new short[2]{145,5},
  189. new short[2]{146,2},
  190. new short[2]{146,3},
  191. new short[2]{147,0},
  192. new short[2]{183,0},
  193. new short[2]{147,3},
  194. new short[2]{174,1},
  195. new short[2]{174,1},
  196. new short[2]{148,3},
  197. new short[2]{148,4},
  198. new short[2]{149,1},
  199. new short[2]{149,1},
  200. new short[2]{184,0},
  201. new short[2]{150,4},
  202. new short[2]{185,0},
  203. new short[2]{152,3},
  204. new short[2]{186,0},
  205. new short[2]{153,2},
  206. new short[2]{187,0},
  207. new short[2]{153,3},
  208. new short[2]{188,0},
  209. new short[2]{154,2},
  210. new short[2]{189,0},
  211. new short[2]{190,0},
  212. new short[2]{155,6},
  213. new short[2]{156,1},
  214. new short[2]{157,0},
  215. new short[2]{157,1},
  216. new short[2]{158,1},
  217. new short[2]{158,1},
  218. new short[2]{173,1},
  219. new short[2]{173,1},
  220. new short[2]{191,0},
  221. new short[2]{192,0},
  222. new short[2]{159,8},
  223. new short[2]{193,0},
  224. new short[2]{194,0},
  225. new short[2]{160,4},
  226. new short[2]{161,1},
  227. new short[2]{195,0},
  228. new short[2]{162,2},
  229. new short[2]{196,0},
  230. new short[2]{162,2},
  231. new short[2]{197,0},
  232. new short[2]{163,4},
  233. new short[2]{198,0},
  234. new short[2]{164,2},
  235. new short[2]{199,0},
  236. new short[2]{165,4},
  237. new short[2]{200,0},
  238. new short[2]{201,0},
  239. new short[2]{165,5},
  240. new short[2]{166,3},
  241. new short[2]{166,4},
  242. new short[2]{202,0},
  243. new short[2]{167,3},
  244. new short[2]{203,0},
  245. new short[2]{204,0},
  246. new short[2]{168,5},
  247. new short[2]{205,0},
  248. new short[2]{169,2},
  249. new short[2]{206,0},
  250. new short[2]{169,2},
  251. new short[2]{207,0},
  252. new short[2]{169,2},
  253. new short[2]{170,1},
  254. new short[2]{208,0},
  255. new short[2]{209,0},
  256. new short[2]{171,4}
  257. };
  258. /** Access to production table. */
  259. public override short[][] production_table() {return _production_table;}
  260. /** Parse-action table. */
  261. protected static readonly short[][] _action_table =
  262. new short[173][] {
  263. new short[42]{45,-158,46,-156,47,-136,48,26,49,14,50,-180,51,-186,52,-188,54,-201,55,28,56,-205,57,-207,58,-211,59,4,60,-225,61,-227,62,-229,63,-232,107,10,108,6,-1,0},
  264. new short[4]{62,173,-1,0},
  265. new short[4]{63,165,-1,0},
  266. new short[6]{323,-220,385,-222,-1,0},
  267. new short[4]{0,-125,-1,0},
  268. new short[4]{42,-195,-1,0},
  269. new short[4]{0,-132,-1,0},
  270. new short[4]{42,-198,-1,0},
  271. new short[4]{47,147,-1,0},
  272. new short[4]{42,-194,-1,0},
  273. new short[4]{56,146,-1,0},
  274. new short[4]{57,145,-1,0},
  275. new short[4]{58,144,-1,0},
  276. new short[10]{27,-164,28,-164,29,-164,44,-164,-1,0},
  277. new short[4]{0,-123,-1,0},
  278. new short[4]{0,-124,-1,0},
  279. new short[4]{45,109,-1,0},
  280. new short[4]{50,103,-1,0},
  281. new short[4]{51,102,-1,0},
  282. new short[4]{52,95,-1,0},
  283. new short[4]{46,94,-1,0},
  284. new short[4]{54,90,-1,0},
  285. new short[4]{0,-128,-1,0},
  286. new short[4]{0,-135,-1,0},
  287. new short[4]{60,89,-1,0},
  288. new short[6]{0,-141,44,79,-1,0},
  289. new short[4]{0,-130,-1,0},
  290. new short[6]{0,-141,44,79,-1,0},
  291. new short[4]{0,-122,-1,0},
  292. new short[4]{0,-231,-1,0},
  293. new short[4]{0,-121,-1,0},
  294. new short[4]{0,-127,-1,0},
  295. new short[4]{0,75,-1,0},
  296. new short[6]{16,-178,349,-215,-1,0},
  297. new short[4]{0,-126,-1,0},
  298. new short[4]{429,53,-1,0},
  299. new short[4]{44,-162,-1,0},
  300. new short[4]{0,-133,-1,0},
  301. new short[4]{0,-134,-1,0},
  302. new short[4]{0,-129,-1,0},
  303. new short[4]{0,-131,-1,0},
  304. new short[4]{0,-120,-1,0},
  305. new short[4]{61,44,-1,0},
  306. new short[4]{0,-228,-1,0},
  307. new short[4]{44,49,-1,0},
  308. new short[8]{0,-154,11,-154,44,-154,-1,0},
  309. new short[8]{0,-20,11,-20,44,-20,-1,0},
  310. new short[8]{0,-160,11,52,44,49,-1,0},
  311. new short[8]{0,-2,11,-2,44,-2,-1,0},
  312. new short[4]{0,-163,-1,0},
  313. new short[8]{0,-155,11,-155,44,-155,-1,0},
  314. new short[4]{0,-161,-1,0},
  315. new short[4]{11,-209,-1,0},
  316. new short[4]{11,55,-1,0},
  317. new short[4]{0,-210,-1,0},
  318. new short[4]{236,73,-1,0},
  319. new short[4]{349,70,-1,0},
  320. new short[4]{16,65,-1,0},
  321. new short[6]{11,-213,16,-178,-1,0},
  322. new short[4]{236,63,-1,0},
  323. new short[4]{11,62,-1,0},
  324. new short[4]{0,-214,-1,0},
  325. new short[4]{16,-178,-1,0},
  326. new short[6]{11,-219,16,-219,-1,0},
  327. new short[6]{2,67,16,-148,-1,0},
  328. new short[6]{2,69,16,68,-1,0},
  329. new short[6]{2,-149,16,-149,-1,0},
  330. new short[16]{3,-179,4,-179,5,-179,11,-179,16,-179,89,-179,236,-179,-1,0},
  331. new short[6]{2,-150,16,-150,-1,0},
  332. new short[4]{11,-216,-1,0},
  333. new short[4]{11,72,-1,0},
  334. new short[4]{0,-217,-1,0},
  335. new short[4]{16,-178,-1,0},
  336. new short[6]{11,-218,16,-218,-1,0},
  337. new short[4]{0,-1,-1,0},
  338. new short[4]{0,-140,-1,0},
  339. new short[6]{0,-143,7,-143,-1,0},
  340. new short[6]{0,-142,7,86,-1,0},
  341. new short[8]{0,-151,7,-151,14,-152,-1,0},
  342. new short[4]{14,81,-1,0},
  343. new short[6]{2,83,15,-145,-1,0},
  344. new short[6]{2,85,15,84,-1,0},
  345. new short[6]{2,-146,15,-146,-1,0},
  346. new short[6]{0,-153,7,-153,-1,0},
  347. new short[6]{2,-147,15,-147,-1,0},
  348. new short[4]{44,79,-1,0},
  349. new short[6]{0,-144,7,-144,-1,0},
  350. new short[4]{0,-139,-1,0},
  351. new short[4]{0,-226,-1,0},
  352. new short[4]{34,-202,-1,0},
  353. new short[4]{34,93,-1,0},
  354. new short[4]{0,-203,-1,0},
  355. new short[4]{0,-204,-1,0},
  356. new short[4]{44,-157,-1,0},
  357. new short[4]{44,97,-1,0},
  358. new short[6]{11,-192,44,99,-1,0},
  359. new short[6]{11,-191,44,-191,-1,0},
  360. new short[4]{11,-189,-1,0},
  361. new short[4]{11,-193,-1,0},
  362. new short[4]{11,101,-1,0},
  363. new short[4]{0,-190,-1,0},
  364. new short[4]{0,-187,-1,0},
  365. new short[4]{34,-182,-1,0},
  366. new short[4]{34,108,-1,0},
  367. new short[6]{0,-181,34,-184,-1,0},
  368. new short[4]{34,107,-1,0},
  369. new short[6]{0,-185,34,-185,-1,0},
  370. new short[6]{0,-183,34,-183,-1,0},
  371. new short[4]{44,-159,-1,0},
  372. new short[10]{27,120,28,117,29,112,44,118,-1,0},
  373. new short[4]{11,-165,-1,0},
  374. new short[18]{0,-5,3,-5,11,-5,89,-5,309,-5,348,-5,389,-5,413,-5,-1,0},
  375. new short[18]{0,-13,3,-13,11,-13,89,-13,309,-13,348,-13,389,-13,413,-13,-1,0},
  376. new short[18]{0,-12,3,-12,11,-12,89,-12,309,-12,348,-12,389,-12,413,-12,-1,0},
  377. new short[18]{0,-14,3,-14,11,-14,89,-14,309,-14,348,-14,389,-14,413,-14,-1,0},
  378. new short[16]{3,-18,11,-18,89,-18,309,138,348,137,389,-18,413,-18,-1,0},
  379. new short[18]{0,-4,3,-4,11,-4,89,-4,309,-4,348,-4,389,-4,413,-4,-1,0},
  380. new short[18]{0,-11,3,-11,11,-11,89,-11,309,-11,348,-11,389,-11,413,-11,-1,0},
  381. new short[12]{3,-169,11,-169,89,-169,389,-170,413,123,-1,0},
  382. new short[18]{0,-3,3,-3,11,-3,89,-3,309,-3,348,-3,389,-3,413,-3,-1,0},
  383. new short[4]{389,125,-1,0},
  384. new short[8]{3,-167,11,-167,89,-167,-1,0},
  385. new short[10]{3,-169,11,-169,89,-169,389,-170,-1,0},
  386. new short[8]{3,-168,11,-168,89,-168,-1,0},
  387. new short[6]{4,126,16,-178,-1,0},
  388. new short[16]{3,-177,4,-177,5,-177,11,-177,16,-177,89,-177,236,-177,-1,0},
  389. new short[16]{3,-176,4,-176,5,-176,11,-176,16,-176,89,-176,236,-176,-1,0},
  390. new short[12]{3,-171,4,126,11,-171,16,-178,89,-171,-1,0},
  391. new short[6]{5,131,236,132,-1,0},
  392. new short[6]{4,126,16,-178,-1,0},
  393. new short[6]{4,-173,16,-173,-1,0},
  394. new short[6]{4,-172,16,-172,-1,0},
  395. new short[12]{3,-174,4,-174,11,-174,16,-174,89,-174,-1,0},
  396. new short[6]{5,131,236,132,-1,0},
  397. new short[6]{4,126,16,-178,-1,0},
  398. new short[12]{3,-175,4,-175,11,-175,16,-175,89,-175,-1,0},
  399. new short[10]{27,-17,28,-17,29,-17,44,-17,-1,0},
  400. new short[10]{27,-16,28,-16,29,-16,44,-16,-1,0},
  401. new short[10]{27,120,28,117,29,112,44,118,-1,0},
  402. new short[12]{3,-15,11,-15,89,-15,389,-15,413,-15,-1,0},
  403. new short[12]{3,-19,11,-19,89,-19,389,-19,413,-19,-1,0},
  404. new short[4]{11,143,-1,0},
  405. new short[4]{0,-166,-1,0},
  406. new short[6]{16,-212,349,-212,-1,0},
  407. new short[4]{429,-208,-1,0},
  408. new short[4]{429,-206,-1,0},
  409. new short[10]{27,-137,28,-137,29,-137,44,-137,-1,0},
  410. new short[10]{27,120,28,117,29,112,44,118,-1,0},
  411. new short[4]{0,-138,-1,0},
  412. new short[4]{42,151,-1,0},
  413. new short[4]{53,152,-1,0},
  414. new short[10]{27,120,28,117,29,112,44,118,-1,0},
  415. new short[6]{3,154,89,155,-1,0},
  416. new short[4]{11,-197,-1,0},
  417. new short[4]{11,-196,-1,0},
  418. new short[4]{11,-199,-1,0},
  419. new short[4]{11,158,-1,0},
  420. new short[4]{0,-200,-1,0},
  421. new short[4]{323,164,-1,0},
  422. new short[4]{385,161,-1,0},
  423. new short[4]{44,-223,-1,0},
  424. new short[4]{44,163,-1,0},
  425. new short[4]{0,-224,-1,0},
  426. new short[4]{0,-221,-1,0},
  427. new short[14]{27,-233,28,-233,29,-233,30,-233,31,-233,32,-233,-1,0},
  428. new short[14]{27,120,28,117,29,112,30,168,31,169,32,171,-1,0},
  429. new short[4]{0,-234,-1,0},
  430. new short[4]{0,-8,-1,0},
  431. new short[4]{0,-9,-1,0},
  432. new short[4]{0,-6,-1,0},
  433. new short[4]{0,-7,-1,0},
  434. new short[4]{0,-10,-1,0},
  435. new short[4]{0,-230,-1,0}
  436. };
  437. /** Access to parse-action table. */
  438. public override short[][] action_table() {return _action_table;}
  439. /** <code>reduce_goto</code> table. */
  440. protected static readonly short[][] _reduce_table =
  441. new short[173][] {
  442. new short[74]{132,32,133,41,134,30,135,28,142,36,144,14,145,15,152,4,154,34,155,31,158,7,159,22,160,39,162,35,163,26,164,33,165,40,167,6,168,37,169,29,170,38,171,23,175,8,178,20,179,16,185,17,188,18,189,19,193,21,195,10,196,11,198,12,205,24,206,42,207,1,208,2,-1,-1},
  443. new short[2]{-1,-1},
  444. new short[2]{-1,-1},
  445. new short[6]{202,158,203,159,-1,-1},
  446. new short[2]{-1,-1},
  447. new short[2]{-1,-1},
  448. new short[2]{-1,-1},
  449. new short[4]{191,149,-1,-1},
  450. new short[2]{-1,-1},
  451. new short[2]{-1,-1},
  452. new short[2]{-1,-1},
  453. new short[2]{-1,-1},
  454. new short[2]{-1,-1},
  455. new short[4]{181,109,-1,-1},
  456. new short[2]{-1,-1},
  457. new short[2]{-1,-1},
  458. new short[2]{-1,-1},
  459. new short[2]{-1,-1},
  460. new short[2]{-1,-1},
  461. new short[2]{-1,-1},
  462. new short[2]{-1,-1},
  463. new short[2]{-1,-1},
  464. new short[2]{-1,-1},
  465. new short[2]{-1,-1},
  466. new short[2]{-1,-1},
  467. new short[8]{136,87,137,76,138,77,-1,-1},
  468. new short[2]{-1,-1},
  469. new short[8]{136,75,137,76,138,77,-1,-1},
  470. new short[2]{-1,-1},
  471. new short[2]{-1,-1},
  472. new short[2]{-1,-1},
  473. new short[2]{-1,-1},
  474. new short[2]{-1,-1},
  475. new short[10]{150,55,166,58,184,57,200,56,-1,-1},
  476. new short[2]{-1,-1},
  477. new short[2]{-1,-1},
  478. new short[4]{180,44,-1,-1},
  479. new short[2]{-1,-1},
  480. new short[2]{-1,-1},
  481. new short[2]{-1,-1},
  482. new short[2]{-1,-1},
  483. new short[2]{-1,-1},
  484. new short[2]{-1,-1},
  485. new short[2]{-1,-1},
  486. new short[8]{28,46,129,45,141,47,-1,-1},
  487. new short[2]{-1,-1},
  488. new short[2]{-1,-1},
  489. new short[8]{28,46,129,50,143,49,-1,-1},
  490. new short[2]{-1,-1},
  491. new short[2]{-1,-1},
  492. new short[2]{-1,-1},
  493. new short[2]{-1,-1},
  494. new short[4]{197,53,-1,-1},
  495. new short[2]{-1,-1},
  496. new short[2]{-1,-1},
  497. new short[2]{-1,-1},
  498. new short[2]{-1,-1},
  499. new short[2]{-1,-1},
  500. new short[8]{150,59,184,57,199,60,-1,-1},
  501. new short[2]{-1,-1},
  502. new short[2]{-1,-1},
  503. new short[2]{-1,-1},
  504. new short[6]{150,63,184,57,-1,-1},
  505. new short[2]{-1,-1},
  506. new short[4]{139,65,-1,-1},
  507. new short[2]{-1,-1},
  508. new short[2]{-1,-1},
  509. new short[2]{-1,-1},
  510. new short[2]{-1,-1},
  511. new short[4]{201,70,-1,-1},
  512. new short[2]{-1,-1},
  513. new short[2]{-1,-1},
  514. new short[6]{150,73,184,57,-1,-1},
  515. new short[2]{-1,-1},
  516. new short[2]{-1,-1},
  517. new short[2]{-1,-1},
  518. new short[2]{-1,-1},
  519. new short[2]{-1,-1},
  520. new short[4]{177,79,-1,-1},
  521. new short[2]{-1,-1},
  522. new short[4]{140,81,-1,-1},
  523. new short[2]{-1,-1},
  524. new short[2]{-1,-1},
  525. new short[2]{-1,-1},
  526. new short[2]{-1,-1},
  527. new short[4]{137,86,-1,-1},
  528. new short[2]{-1,-1},
  529. new short[2]{-1,-1},
  530. new short[2]{-1,-1},
  531. new short[4]{194,90,-1,-1},
  532. new short[4]{161,91,-1,-1},
  533. new short[2]{-1,-1},
  534. new short[2]{-1,-1},
  535. new short[2]{-1,-1},
  536. new short[4]{156,95,-1,-1},
  537. new short[4]{157,97,-1,-1},
  538. new short[2]{-1,-1},
  539. new short[4]{190,99,-1,-1},
  540. new short[2]{-1,-1},
  541. new short[2]{-1,-1},
  542. new short[2]{-1,-1},
  543. new short[2]{-1,-1},
  544. new short[6]{153,104,186,103,-1,-1},
  545. new short[2]{-1,-1},
  546. new short[4]{187,105,-1,-1},
  547. new short[2]{-1,-1},
  548. new short[2]{-1,-1},
  549. new short[2]{-1,-1},
  550. new short[2]{-1,-1},
  551. new short[14]{4,113,24,112,49,114,123,115,125,118,146,110,-1,-1},
  552. new short[4]{182,141,-1,-1},
  553. new short[2]{-1,-1},
  554. new short[2]{-1,-1},
  555. new short[2]{-1,-1},
  556. new short[2]{-1,-1},
  557. new short[4]{105,138,-1,-1},
  558. new short[2]{-1,-1},
  559. new short[2]{-1,-1},
  560. new short[6]{147,121,183,120,-1,-1},
  561. new short[2]{-1,-1},
  562. new short[2]{-1,-1},
  563. new short[2]{-1,-1},
  564. new short[6]{147,123,183,120,-1,-1},
  565. new short[2]{-1,-1},
  566. new short[10]{148,127,149,128,150,126,184,57,-1,-1},
  567. new short[2]{-1,-1},
  568. new short[2]{-1,-1},
  569. new short[8]{149,133,150,126,184,57,-1,-1},
  570. new short[4]{174,129,-1,-1},
  571. new short[8]{149,132,150,126,184,57,-1,-1},
  572. new short[2]{-1,-1},
  573. new short[2]{-1,-1},
  574. new short[2]{-1,-1},
  575. new short[4]{174,134,-1,-1},
  576. new short[8]{149,135,150,126,184,57,-1,-1},
  577. new short[2]{-1,-1},
  578. new short[2]{-1,-1},
  579. new short[2]{-1,-1},
  580. new short[10]{4,113,24,112,49,139,124,140,-1,-1},
  581. new short[2]{-1,-1},
  582. new short[2]{-1,-1},
  583. new short[2]{-1,-1},
  584. new short[2]{-1,-1},
  585. new short[2]{-1,-1},
  586. new short[2]{-1,-1},
  587. new short[2]{-1,-1},
  588. new short[4]{176,147,-1,-1},
  589. new short[10]{4,113,24,112,49,114,123,148,-1,-1},
  590. new short[2]{-1,-1},
  591. new short[2]{-1,-1},
  592. new short[2]{-1,-1},
  593. new short[14]{4,113,24,112,49,114,123,115,125,118,146,152,-1,-1},
  594. new short[4]{173,155,-1,-1},
  595. new short[2]{-1,-1},
  596. new short[2]{-1,-1},
  597. new short[4]{192,156,-1,-1},
  598. new short[2]{-1,-1},
  599. new short[2]{-1,-1},
  600. new short[2]{-1,-1},
  601. new short[2]{-1,-1},
  602. new short[4]{204,161,-1,-1},
  603. new short[2]{-1,-1},
  604. new short[2]{-1,-1},
  605. new short[2]{-1,-1},
  606. new short[4]{209,165,-1,-1},
  607. new short[8]{4,169,5,171,22,166,-1,-1},
  608. new short[2]{-1,-1},
  609. new short[2]{-1,-1},
  610. new short[2]{-1,-1},
  611. new short[2]{-1,-1},
  612. new short[2]{-1,-1},
  613. new short[2]{-1,-1},
  614. new short[2]{-1,-1}
  615. };
  616. /** Access to <code>reduce_goto</code> table. */
  617. public override short[][] reduce_table() {return _reduce_table;}
  618. /** Instance of action encapsulation class. */
  619. protected CUP_CobolCompilerDirectivesParser_actions action_obj;
  620. /** Action encapsulation object initializer. */
  621. protected override void init_actions()
  622. {
  623. action_obj = new CUP_CobolCompilerDirectivesParser_actions(this);
  624. }
  625. /** Invoke a user supplied parse action. */
  626. public override TUVienna.CS_CUP.Runtime.Symbol do_action(
  627. int act_num,
  628. TUVienna.CS_CUP.Runtime.lr_parser parser,
  629. StackList<Symbol> CUP_parser_stack,
  630. int top)
  631. {
  632. /* call code in generated class */
  633. return action_obj.CUP_CobolCompilerDirectivesParser_do_action(act_num, parser, stack, top);
  634. }
  635. /** Indicates start state. */
  636. public override int start_state() {return 0;}
  637. /** Indicates start production. */
  638. public override int start_production() {return 0;}
  639. /** <code>EOF</code> Symbol index. */
  640. public override int EOF_sym() {return 0;}
  641. /** <code>error</code> Symbol index. */
  642. public override int error_sym() {return 1;}
  643. // The Compiler Directive Builder instance.
  644. public ICompilerDirectiveBuilder Builder
  645. {
  646. get;
  647. set;
  648. }
  649. // The Error Reporter instance
  650. public ICupParserErrorReporter ErrorReporter
  651. {
  652. get;
  653. set;
  654. }
  655. // Test wheither or not this parser is a trial parser
  656. public bool IsTrial
  657. {
  658. get;
  659. set;
  660. }
  661. // get the current state of the parser.
  662. public int getParserState()
  663. {
  664. return stack.Peek().parse_state;
  665. }
  666. //get the parser stack.
  667. public StackList<Symbol> getParserStack()
  668. {
  669. return stack;
  670. }
  671. public override void report_fatal_error(
  672. string message,
  673. object info)
  674. {
  675. if(ErrorReporter != null) {
  676. if (ErrorReporter.ReportFatalError(this, getParserStack(), message, info))
  677. {
  678. return;
  679. }
  680. }
  681. base.report_fatal_error(message, info);
  682. }
  683. public override void report_error(string message, object info)
  684. {
  685. if(ErrorReporter != null) {
  686. if (ErrorReporter.ReportError(this, getParserStack(), message, info))
  687. {
  688. return;
  689. }
  690. }
  691. base.report_error(message, info);
  692. }
  693. public override void syntax_error(Symbol cur_token)
  694. {
  695. if(ErrorReporter != null) {
  696. if (ErrorReporter.SyntaxError(this, getParserStack(), cur_token))
  697. {
  698. return;
  699. }
  700. }
  701. base.syntax_error(cur_token);
  702. }
  703. public override void unrecovered_syntax_error(Symbol cur_token)
  704. {
  705. if(ErrorReporter != null) {
  706. if (ErrorReporter.UnrecoveredSyntaxError(this, getParserStack(), cur_token))
  707. {
  708. return;
  709. }
  710. }
  711. base.unrecovered_syntax_error(cur_token);
  712. }
  713. public void ReportScannerDirectiveError()
  714. {
  715. ErrorReporter.SyntaxError(this, getParserStack(), ((CobolWordsTokenizer)getScanner()).LastStopSymbol);
  716. }
  717. }
  718. /** Cup generated class to encapsulate user supplied action code.*/
  719. public class CUP_CobolCompilerDirectivesParser_actions {
  720. private CobolCompilerDirectivesParser my_parser;
  721. /** Constructor */
  722. public CUP_CobolCompilerDirectivesParser_actions(CobolCompilerDirectivesParser t_parser) {
  723. this.my_parser = t_parser;
  724. }
  725. /** Method with the actual generated action code. */
  726. public TUVienna.CS_CUP.Runtime.Symbol CUP_CobolCompilerDirectivesParser_do_action(
  727. int CUP_CobolCompilerDirectivesParser_act_num,
  728. TUVienna.CS_CUP.Runtime.lr_parser CUP_CobolCompilerDirectivesParser_parser,
  729. StackList<Symbol> xstack1,
  730. int CUP_CobolCompilerDirectivesParser_top)
  731. {
  732. /* Symbol object for return from actions */
  733. StackList<Symbol> CUP_CobolCompilerDirectivesParser_stack = xstack1;
  734. TUVienna.CS_CUP.Runtime.Symbol CUP_CobolCompilerDirectivesParser_result;
  735. /* select the action based on the action number */
  736. switch (CUP_CobolCompilerDirectivesParser_act_num)
  737. {
  738. /*. . . . . . . . . . . . . . . . . . . .*/
  739. case 233: // titleCompilerStatement ::= NT$33 TITLE NT$34 alphanumericValue2
  740. {
  741. object RESULT = null;
  742. // propagate RESULT from NT$33
  743. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  744. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  745. // propagate RESULT from NT$34
  746. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  747. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  748. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  749. TypeCobol.Compiler.Scanner.Token a = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  750. my_parser.Builder.EnterTitleCompilerStatement(t, a);
  751. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(171/*titleCompilerStatement*/, RESULT);
  752. }
  753. return CUP_CobolCompilerDirectivesParser_result;
  754. /*. . . . . . . . . . . . . . . . . . . .*/
  755. case 232: // NT$34 ::=
  756. {
  757. object RESULT = null;
  758. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  759. ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
  760. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(209/*NT$34*/, RESULT);
  761. }
  762. return CUP_CobolCompilerDirectivesParser_result;
  763. /*. . . . . . . . . . . . . . . . . . . .*/
  764. case 231: // NT$33 ::=
  765. {
  766. object RESULT = null;
  767. my_parser.Builder.StartTitleCompilerStatement();
  768. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(208/*NT$33*/, RESULT);
  769. }
  770. return CUP_CobolCompilerDirectivesParser_result;
  771. /*. . . . . . . . . . . . . . . . . . . .*/
  772. case 230: // skipCompilerStatement ::= skipTokens
  773. {
  774. object RESULT = null;
  775. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  776. my_parser.Builder.EnterSkipCompilerStatement(t);
  777. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(170/*skipCompilerStatement*/, RESULT);
  778. }
  779. return CUP_CobolCompilerDirectivesParser_result;
  780. /*. . . . . . . . . . . . . . . . . . . .*/
  781. case 229: // skipTokens ::= NT$32 SKIP3
  782. {
  783. Token RESULT = null;
  784. // propagate RESULT from NT$32
  785. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  786. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  787. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  788. RESULT = t;
  789. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
  790. }
  791. return CUP_CobolCompilerDirectivesParser_result;
  792. /*. . . . . . . . . . . . . . . . . . . .*/
  793. case 228: // NT$32 ::=
  794. {
  795. object RESULT = null;
  796. my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP3);
  797. ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
  798. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(207/*NT$32*/, RESULT);
  799. }
  800. return CUP_CobolCompilerDirectivesParser_result;
  801. /*. . . . . . . . . . . . . . . . . . . .*/
  802. case 227: // skipTokens ::= NT$31 SKIP2
  803. {
  804. Token RESULT = null;
  805. // propagate RESULT from NT$31
  806. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  807. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  808. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  809. RESULT = t;
  810. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
  811. }
  812. return CUP_CobolCompilerDirectivesParser_result;
  813. /*. . . . . . . . . . . . . . . . . . . .*/
  814. case 226: // NT$31 ::=
  815. {
  816. object RESULT = null;
  817. my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP2);
  818. ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
  819. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(206/*NT$31*/, RESULT);
  820. }
  821. return CUP_CobolCompilerDirectivesParser_result;
  822. /*. . . . . . . . . . . . . . . . . . . .*/
  823. case 225: // skipTokens ::= NT$30 SKIP1
  824. {
  825. Token RESULT = null;
  826. // propagate RESULT from NT$30
  827. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  828. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  829. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  830. RESULT = t;
  831. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
  832. }
  833. return CUP_CobolCompilerDirectivesParser_result;
  834. /*. . . . . . . . . . . . . . . . . . . .*/
  835. case 224: // NT$30 ::=
  836. {
  837. object RESULT = null;
  838. my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP1);
  839. ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
  840. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(205/*NT$30*/, RESULT);
  841. }
  842. return CUP_CobolCompilerDirectivesParser_result;
  843. /*. . . . . . . . . . . . . . . . . . . .*/
  844. case 223: // serviceReloadCompilerStatement ::= SERVICE_CD NT$28 RELOAD NT$29 UserDefinedWord
  845. {
  846. object RESULT = null;
  847. // propagate RESULT from NT$28
  848. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  849. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  850. // propagate RESULT from NT$29
  851. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  852. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  853. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
  854. TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  855. TypeCobol.Compiler.Scanner.Token w = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  856. my_parser.Builder.EnterServiceReloadCompilerStatement(s, l, w);
  857. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(168/*serviceReloadCompilerStatement*/, RESULT);
  858. }
  859. return CUP_CobolCompilerDirectivesParser_result;
  860. /*. . . . . . . . . . . . . . . . . . . .*/
  861. case 222: // NT$29 ::=
  862. {
  863. object RESULT = null;
  864. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  865. TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  866. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  867. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(204/*NT$29*/, RESULT);
  868. }
  869. return CUP_CobolCompilerDirectivesParser_result;
  870. /*. . . . . . . . . . . . . . . . . . . .*/
  871. case 221: // NT$28 ::=
  872. {
  873. object RESULT = null;
  874. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  875. my_parser.Builder.StartServiceReloadCompilerStatement();
  876. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(203/*NT$28*/, RESULT);
  877. }
  878. return CUP_CobolCompilerDirectivesParser_result;
  879. /*. . . . . . . . . . . . . . . . . . . .*/
  880. case 220: // serviceLabelCompilerStatement ::= SERVICE_CD NT$27 LABEL
  881. {
  882. object RESULT = null;
  883. // propagate RESULT from NT$27
  884. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  885. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  886. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  887. TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  888. my_parser.Builder.EnterServiceLabelCompilerStatement(s, l);
  889. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(167/*serviceLabelCompilerStatement*/, RESULT);
  890. }
  891. return CUP_CobolCompilerDirectivesParser_result;
  892. /*. . . . . . . . . . . . . . . . . . . .*/
  893. case 219: // NT$27 ::=
  894. {
  895. object RESULT = null;
  896. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  897. my_parser.Builder.StartServiceLabelCompilerStatement();
  898. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  899. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(202/*NT$27*/, RESULT);
  900. }
  901. return CUP_CobolCompilerDirectivesParser_result;
  902. /*. . . . . . . . . . . . . . . . . . . .*/
  903. case 218: // pseudoTextReplaces ::= pseudoTextReplaces pseudoText BY pseudoText
  904. {
  905. PairTokenListList RESULT = null;
  906. PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  907. TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  908. TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  909. replaces.Add(new Tuple<List<Token>, List<Token>>(from,by)); RESULT = replaces;
  910. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(166/*pseudoTextReplaces*/, RESULT);
  911. }
  912. return CUP_CobolCompilerDirectivesParser_result;
  913. /*. . . . . . . . . . . . . . . . . . . .*/
  914. case 217: // pseudoTextReplaces ::= pseudoText BY pseudoText
  915. {
  916. PairTokenListList RESULT = null;
  917. TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  918. TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  919. RESULT = new PairTokenListList() {new Tuple<List<Token>, List<Token>>(from,by)};
  920. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(166/*pseudoTextReplaces*/, RESULT);
  921. }
  922. return CUP_CobolCompilerDirectivesParser_result;
  923. /*. . . . . . . . . . . . . . . . . . . .*/
  924. case 216: // replaceCompilerStatement ::= replaceToken NT$25 OFF NT$26 PeriodSeparator
  925. {
  926. object RESULT = null;
  927. // propagate RESULT from NT$25
  928. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  929. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  930. // propagate RESULT from NT$26
  931. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  932. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  933. Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
  934. TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  935. my_parser.Builder.EnterReplaceCompilerStatement(r, o, null);
  936. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(165/*replaceCompilerStatement*/, RESULT);
  937. }
  938. return CUP_CobolCompilerDirectivesParser_result;
  939. /*. . . . . . . . . . . . . . . . . . . .*/
  940. case 215: // NT$26 ::=
  941. {
  942. object RESULT = null;
  943. Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  944. TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  945. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  946. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(201/*NT$26*/, RESULT);
  947. }
  948. return CUP_CobolCompilerDirectivesParser_result;
  949. /*. . . . . . . . . . . . . . . . . . . .*/
  950. case 214: // NT$25 ::=
  951. {
  952. object RESULT = null;
  953. Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  954. my_parser.Builder.StartReplaceCompilerStatement(CompilerDirectiveType.REPLACE_OFF);
  955. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(200/*NT$25*/, RESULT);
  956. }
  957. return CUP_CobolCompilerDirectivesParser_result;
  958. /*. . . . . . . . . . . . . . . . . . . .*/
  959. case 213: // replaceCompilerStatement ::= replaceToken pseudoTextReplaces NT$24 PeriodSeparator
  960. {
  961. object RESULT = null;
  962. // propagate RESULT from NT$24
  963. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  964. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  965. Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  966. PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  967. my_parser.Builder.EnterReplaceCompilerStatement(r, null, replaces);
  968. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(165/*replaceCompilerStatement*/, RESULT);
  969. }
  970. return CUP_CobolCompilerDirectivesParser_result;
  971. /*. . . . . . . . . . . . . . . . . . . .*/
  972. case 212: // NT$24 ::=
  973. {
  974. object RESULT = null;
  975. Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  976. PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  977. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  978. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(199/*NT$24*/, RESULT);
  979. }
  980. return CUP_CobolCompilerDirectivesParser_result;
  981. /*. . . . . . . . . . . . . . . . . . . .*/
  982. case 211: // replaceToken ::= NT$23 REPLACE
  983. {
  984. Token RESULT = null;
  985. // propagate RESULT from NT$23
  986. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  987. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  988. TypeCobol.Compiler.Scanner.Token r = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  989. RESULT = r;
  990. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(164/*replaceToken*/, RESULT);
  991. }
  992. return CUP_CobolCompilerDirectivesParser_result;
  993. /*. . . . . . . . . . . . . . . . . . . .*/
  994. case 210: // NT$23 ::=
  995. {
  996. object RESULT = null;
  997. my_parser.Builder.StartReplaceCompilerStatement(CompilerDirectiveType.REPLACE);
  998. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(198/*NT$23*/, RESULT);
  999. }
  1000. return CUP_CobolCompilerDirectivesParser_result;
  1001. /*. . . . . . . . . . . . . . . . . . . .*/
  1002. case 209: // readyOrResetTraceCompilerStatement ::= readyOrReset TRACE NT$22 PeriodSeparator
  1003. {
  1004. object RESULT = null;
  1005. // propagate RESULT from NT$22
  1006. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1007. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1008. Token rt = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1009. my_parser.Builder.EnterReadyOrResetTraceCompilerStatement(rt);
  1010. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(163/*readyOrResetTraceCompilerStatement*/, RESULT);
  1011. }
  1012. return CUP_CobolCompilerDirectivesParser_result;
  1013. /*. . . . . . . . . . . . . . . . . . . .*/
  1014. case 208: // NT$22 ::=
  1015. {
  1016. object RESULT = null;
  1017. Token rt = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1018. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1019. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(197/*NT$22*/, RESULT);
  1020. }
  1021. return CUP_CobolCompilerDirectivesParser_result;
  1022. /*. . . . . . . . . . . . . . . . . . . .*/
  1023. case 207: // readyOrReset ::= NT$21 RESET
  1024. {
  1025. Token RESULT = null;
  1026. // propagate RESULT from NT$21
  1027. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1028. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1029. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1030. RESULT = t;
  1031. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(162/*readyOrReset*/, RESULT);
  1032. }
  1033. return CUP_CobolCompilerDirectivesParser_result;
  1034. /*. . . . . . . . . . . . . . . . . . . .*/
  1035. case 206: // NT$21 ::=
  1036. {
  1037. object RESULT = null;
  1038. my_parser.Builder.StartReadyOrResetTraceCompilerStatement(CompilerDirectiveType.RESET_TRACE);
  1039. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(196/*NT$21*/, RESULT);
  1040. }
  1041. return CUP_CobolCompilerDirectivesParser_result;
  1042. /*. . . . . . . . . . . . . . . . . . . .*/
  1043. case 205: // readyOrReset ::= NT$20 READY
  1044. {
  1045. Token RESULT = null;
  1046. // propagate RESULT from NT$20
  1047. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1048. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1049. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1050. RESULT = t;
  1051. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(162/*readyOrReset*/, RESULT);
  1052. }
  1053. return CUP_CobolCompilerDirectivesParser_result;
  1054. /*. . . . . . . . . . . . . . . . . . . .*/
  1055. case 204: // NT$20 ::=
  1056. {
  1057. object RESULT = null;
  1058. my_parser.Builder.StartReadyOrResetTraceCompilerStatement(CompilerDirectiveType.READY_TRACE);
  1059. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(195/*NT$20*/, RESULT);
  1060. }
  1061. return CUP_CobolCompilerDirectivesParser_result;
  1062. /*. . . . . . . . . . . . . . . . . . . .*/
  1063. case 203: // sequenceNumber ::= IntegerLiteral
  1064. {
  1065. Token RESULT = null;
  1066. TypeCobol.Compiler.Scanner.Token il = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1067. RESULT = il;
  1068. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(161/*sequenceNumber*/, RESULT);
  1069. }
  1070. return CUP_CobolCompilerDirectivesParser_result;
  1071. /*. . . . . . . . . . . . . . . . . . . .*/
  1072. case 202: // insertCompilerStatement ::= NT$18 INSERT NT$19 sequenceNumber
  1073. {
  1074. object RESULT = null;
  1075. // propagate RESULT from NT$18
  1076. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  1077. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1078. // propagate RESULT from NT$19
  1079. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1080. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1081. TypeCobol.Compiler.Scanner.Token tins = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1082. Token sn = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1083. my_parser.Builder.EnterInsertCompilerStatement(tins,sn);
  1084. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(160/*insertCompilerStatement*/, RESULT);
  1085. }
  1086. return CUP_CobolCompilerDirectivesParser_result;
  1087. /*. . . . . . . . . . . . . . . . . . . .*/
  1088. case 201: // NT$19 ::=
  1089. {
  1090. object RESULT = null;
  1091. TypeCobol.Compiler.Scanner.Token tins = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1092. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1093. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(194/*NT$19*/, RESULT);
  1094. }
  1095. return CUP_CobolCompilerDirectivesParser_result;
  1096. /*. . . . . . . . . . . . . . . . . . . .*/
  1097. case 200: // NT$18 ::=
  1098. {
  1099. object RESULT = null;
  1100. my_parser.Builder.StartInsertCompilerStatement();
  1101. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(193/*NT$18*/, RESULT);
  1102. }
  1103. return CUP_CobolCompilerDirectivesParser_result;
  1104. /*. . . . . . . . . . . . . . . . . . . .*/
  1105. case 199: // execSqlIncludeStatement ::= execToken NT$16 ExecTranslatorName EXEC_SQL copyCompilerStatementBody end_exec NT$17 PeriodSeparator
  1106. {
  1107. object RESULT = null;
  1108. // propagate RESULT from NT$16
  1109. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-6)).value != null )
  1110. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-6)).value;
  1111. // propagate RESULT from NT$17
  1112. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1113. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1114. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-7)).value;
  1115. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(159/*execSqlIncludeStatement*/, RESULT);
  1116. }
  1117. return CUP_CobolCompilerDirectivesParser_result;
  1118. /*. . . . . . . . . . . . . . . . . . . .*/
  1119. case 198: // NT$17 ::=
  1120. {
  1121. object RESULT = null;
  1122. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-5)).value;
  1123. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1124. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(192/*NT$17*/, RESULT);
  1125. }
  1126. return CUP_CobolCompilerDirectivesParser_result;
  1127. /*. . . . . . . . . . . . . . . . . . . .*/
  1128. case 197: // NT$16 ::=
  1129. {
  1130. object RESULT = null;
  1131. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1132. my_parser.Builder.EnterExecSqlIncludeStatement(t);
  1133. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(191/*NT$16*/, RESULT);
  1134. }
  1135. return CUP_CobolCompilerDirectivesParser_result;
  1136. /*. . . . . . . . . . . . . . . . . . . .*/
  1137. case 196: // end_exec ::= CUP_END_EXEC_PERIOD_SEPARATOR
  1138. {
  1139. object RESULT = null;
  1140. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(173/*end_exec*/, RESULT);
  1141. }
  1142. return CUP_CobolCompilerDirectivesParser_result;
  1143. /*. . . . . . . . . . . . . . . . . . . .*/
  1144. case 195: // end_exec ::= END_EXEC
  1145. {
  1146. object RESULT = null;
  1147. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(173/*end_exec*/, RESULT);
  1148. }
  1149. return CUP_CobolCompilerDirectivesParser_result;
  1150. /*. . . . . . . . . . . . . . . . . . . .*/
  1151. case 194: // execToken ::= EXECUTE
  1152. {
  1153. Token RESULT = null;
  1154. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1155. RESULT = t;
  1156. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(158/*execToken*/, RESULT);
  1157. }
  1158. return CUP_CobolCompilerDirectivesParser_result;
  1159. /*. . . . . . . . . . . . . . . . . . . .*/
  1160. case 193: // execToken ::= EXEC
  1161. {
  1162. Token RESULT = null;
  1163. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1164. RESULT = t;
  1165. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(158/*execToken*/, RESULT);
  1166. }
  1167. return CUP_CobolCompilerDirectivesParser_result;
  1168. /*. . . . . . . . . . . . . . . . . . . .*/
  1169. case 192: // routineName ::= UserDefinedWord
  1170. {
  1171. Token RESULT = null;
  1172. TypeCobol.Compiler.Scanner.Token w = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1173. RESULT = w;
  1174. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(157/*routineName*/, RESULT);
  1175. }
  1176. return CUP_CobolCompilerDirectivesParser_result;
  1177. /*. . . . . . . . . . . . . . . . . . . .*/
  1178. case 191: // routineName ::=
  1179. {
  1180. Token RESULT = null;
  1181. RESULT = null;
  1182. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(157/*routineName*/, RESULT);
  1183. }
  1184. return CUP_CobolCompilerDirectivesParser_result;
  1185. /*. . . . . . . . . . . . . . . . . . . .*/
  1186. case 190: // languageName ::= UserDefinedWord
  1187. {
  1188. Token RESULT = null;
  1189. TypeCobol.Compiler.Scanner.Token w = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1190. RESULT = w;
  1191. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(156/*languageName*/, RESULT);
  1192. }
  1193. return CUP_CobolCompilerDirectivesParser_result;
  1194. /*. . . . . . . . . . . . . . . . . . . .*/
  1195. case 189: // enterCompilerStatement ::= NT$14 ENTER languageName routineName NT$15 PeriodSeparator
  1196. {
  1197. object RESULT = null;
  1198. // propagate RESULT from NT$14
  1199. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-5)).value != null )
  1200. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-5)).value;
  1201. // propagate RESULT from NT$15
  1202. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1203. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1204. TypeCobol.Compiler.Scanner.Token e = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
  1205. Token ln = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1206. Token rn = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1207. my_parser.Builder.EnterEnterCompilerStatement(e, ln, rn);
  1208. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(155/*enterCompilerStatement*/, RESULT);
  1209. }
  1210. return CUP_CobolCompilerDirectivesParser_result;
  1211. /*. . . . . . . . . . . . . . . . . . . .*/
  1212. case 188: // NT$15 ::=
  1213. {
  1214. object RESULT = null;
  1215. TypeCobol.Compiler.Scanner.Token e = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1216. Token ln = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1217. Token rn = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1218. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1219. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(190/*NT$15*/, RESULT);
  1220. }
  1221. return CUP_CobolCompilerDirectivesParser_result;
  1222. /*. . . . . . . . . . . . . . . . . . . .*/
  1223. case 187: // NT$14 ::=
  1224. {
  1225. object RESULT = null;
  1226. my_parser.Builder.StartEnterCompilerStatement();
  1227. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(189/*NT$14*/, RESULT);
  1228. }
  1229. return CUP_CobolCompilerDirectivesParser_result;
  1230. /*. . . . . . . . . . . . . . . . . . . .*/
  1231. case 186: // ejectCompilerStatement ::= NT$13 EJECT
  1232. {
  1233. object RESULT = null;
  1234. // propagate RESULT from NT$13
  1235. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1236. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1237. TypeCobol.Compiler.Scanner.Token e = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1238. my_parser.Builder.EnterEjectCompilerStatement(e);
  1239. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(154/*ejectCompilerStatement*/, RESULT);
  1240. }
  1241. return CUP_CobolCompilerDirectivesParser_result;
  1242. /*. . . . . . . . . . . . . . . . . . . .*/
  1243. case 185: // NT$13 ::=
  1244. {
  1245. object RESULT = null;
  1246. my_parser.Builder.StartEjectCompilerStatement();
  1247. ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
  1248. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(188/*NT$13*/, RESULT);
  1249. }
  1250. return CUP_CobolCompilerDirectivesParser_result;
  1251. /*. . . . . . . . . . . . . . . . . . . .*/
  1252. case 184: // deleteSequenceNumberField ::= deleteSequenceNumberField NT$12 IntegerLiteral
  1253. {
  1254. TokenList RESULT = null;
  1255. // propagate RESULT from NT$12
  1256. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1257. RESULT = (TokenList) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1258. TokenList snf = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1259. TypeCobol.Compiler.Scanner.Token il = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1260. snf.Add(il); RESULT = snf;
  1261. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(153/*deleteSequenceNumberField*/, RESULT);
  1262. }
  1263. return CUP_CobolCompilerDirectivesParser_result;
  1264. /*. . . . . . . . . . . . . . . . . . . .*/
  1265. case 183: // NT$12 ::=
  1266. {
  1267. object RESULT = null;
  1268. TokenList snf = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1269. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningModeIfNextNotToken(TokenType.IntegerLiteral);
  1270. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(187/*NT$12*/, RESULT);
  1271. }
  1272. return CUP_CobolCompilerDirectivesParser_result;
  1273. /*. . . . . . . . . . . . . . . . . . . .*/
  1274. case 182: // deleteSequenceNumberField ::= NT$11 IntegerLiteral
  1275. {
  1276. TokenList RESULT = null;
  1277. // propagate RESULT from NT$11
  1278. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1279. RESULT = (TokenList) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1280. TypeCobol.Compiler.Scanner.Token il = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1281. RESULT = new TokenList() {il};
  1282. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(153/*deleteSequenceNumberField*/, RESULT);
  1283. }
  1284. return CUP_CobolCompilerDirectivesParser_result;
  1285. /*. . . . . . . . . . . . . . . . . . . .*/
  1286. case 181: // NT$11 ::=
  1287. {
  1288. object RESULT = null;
  1289. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningModeIfNextNotToken(TokenType.IntegerLiteral);
  1290. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(186/*NT$11*/, RESULT);
  1291. }
  1292. return CUP_CobolCompilerDirectivesParser_result;
  1293. /*. . . . . . . . . . . . . . . . . . . .*/
  1294. case 180: // deleteCompilerStatement ::= NT$10 DELETE_CD deleteSequenceNumberField
  1295. {
  1296. object RESULT = null;
  1297. // propagate RESULT from NT$10
  1298. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value != null )
  1299. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1300. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1301. TokenList fields = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1302. my_parser.Builder.EnterDeleteCompilerStatement(t); my_parser.Builder.EnterSequenceNumberField(fields);
  1303. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(152/*deleteCompilerStatement*/, RESULT);
  1304. }
  1305. return CUP_CobolCompilerDirectivesParser_result;
  1306. /*. . . . . . . . . . . . . . . . . . . .*/
  1307. case 179: // NT$10 ::=
  1308. {
  1309. object RESULT = null;
  1310. my_parser.Builder.StartDeleteCompilerStatement();
  1311. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(185/*NT$10*/, RESULT);
  1312. }
  1313. return CUP_CobolCompilerDirectivesParser_result;
  1314. /*. . . . . . . . . . . . . . . . . . . .*/
  1315. case 178: // pseudoText ::= NT$9 PseudoTextDelimiter anyTokens PseudoTextDelimiter
  1316. {
  1317. TokenList RESULT = null;
  1318. // propagate RESULT from NT$9
  1319. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  1320. RESULT = (TokenList) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1321. TokenList tokens = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1322. RESULT = tokens;
  1323. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(150/*pseudoText*/, RESULT);
  1324. }
  1325. return CUP_CobolCompilerDirectivesParser_result;
  1326. /*. . . . . . . . . . . . . . . . . . . .*/
  1327. case 177: // NT$9 ::=
  1328. {
  1329. object RESULT = null;
  1330. ((CobolWordsTokenizer)my_parser.getScanner()).EnterPseudoTextAnyTokenMode();
  1331. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(184/*NT$9*/, RESULT);
  1332. }
  1333. return CUP_CobolCompilerDirectivesParser_result;
  1334. /*. . . . . . . . . . . . . . . . . . . .*/
  1335. case 176: // copyReplacingOperand ::= CUP_LiteralOrUserDefinedWordOReservedWordExceptCopy
  1336. {
  1337. TokenList RESULT = null;
  1338. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1339. RESULT = new TokenList(){t};
  1340. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(149/*copyReplacingOperand*/, RESULT);
  1341. }
  1342. return CUP_CobolCompilerDirectivesParser_result;
  1343. /*. . . . . . . . . . . . . . . . . . . .*/
  1344. case 175: // copyReplacingOperand ::= pseudoText
  1345. {
  1346. TokenList RESULT = null;
  1347. TokenList tokens = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1348. RESULT = tokens;
  1349. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(149/*copyReplacingOperand*/, RESULT);
  1350. }
  1351. return CUP_CobolCompilerDirectivesParser_result;
  1352. /*. . . . . . . . . . . . . . . . . . . .*/
  1353. case 174: // copyReplacingOperands ::= copyReplacingOperands copyReplacingOperand replacing_by copyReplacingOperand
  1354. {
  1355. PairTokenListList RESULT = null;
  1356. PairTokenListList operands = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1357. TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1358. TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1359. operands.Add(new Tuple<List<Token>, List<Token>>(from,by)); RESULT = operands;
  1360. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(148/*copyReplacingOperands*/, RESULT);
  1361. }
  1362. return CUP_CobolCompilerDirectivesParser_result;
  1363. /*. . . . . . . . . . . . . . . . . . . .*/
  1364. case 173: // copyReplacingOperands ::= copyReplacingOperand replacing_by copyReplacingOperand
  1365. {
  1366. PairTokenListList RESULT = null;
  1367. TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1368. TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1369. RESULT = new PairTokenListList() {new Tuple<List<Token>, List<Token>>(from,by)};
  1370. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(148/*copyReplacingOperands*/, RESULT);
  1371. }
  1372. return CUP_CobolCompilerDirectivesParser_result;
  1373. /*. . . . . . . . . . . . . . . . . . . .*/
  1374. case 172: // replacing_by ::= CUP_PSEUDO_TEXT_DELIMITER_BY
  1375. {
  1376. object RESULT = null;
  1377. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(174/*replacing_by*/, RESULT);
  1378. }
  1379. return CUP_CobolCompilerDirectivesParser_result;
  1380. /*. . . . . . . . . . . . . . . . . . . .*/
  1381. case 171: // replacing_by ::= BY
  1382. {
  1383. object RESULT = null;
  1384. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(174/*replacing_by*/, RESULT);
  1385. }
  1386. return CUP_CobolCompilerDirectivesParser_result;
  1387. /*. . . . . . . . . . . . . . . . . . . .*/
  1388. case 170: // replacingCopyReplacingOperandOpts ::= NT$8 REPLACING copyReplacingOperands
  1389. {
  1390. PairTokenListList RESULT = null;
  1391. // propagate RESULT from NT$8
  1392. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value != null )
  1393. RESULT = (PairTokenListList) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1394. PairTokenListList operands = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1395. RESULT = operands;
  1396. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(147/*replacingCopyReplacingOperandOpts*/, RESULT);
  1397. }
  1398. return CUP_CobolCompilerDirectivesParser_result;
  1399. /*. . . . . . . . . . . . . . . . . . . .*/
  1400. case 169: // NT$8 ::=
  1401. {
  1402. object RESULT = null;
  1403. ((CobolWordsTokenizer)my_parser.getScanner()).CheckLiteralOrUserDefinedWordOReservedWordExceptCopy = true;
  1404. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(183/*NT$8*/, RESULT);
  1405. }
  1406. return CUP_CobolCompilerDirectivesParser_result;
  1407. /*. . . . . . . . . . . . . . . . . . . .*/
  1408. case 168: // replacingCopyReplacingOperandOpts ::=
  1409. {
  1410. PairTokenListList RESULT = null;
  1411. RESULT = null;
  1412. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(147/*replacingCopyReplacingOperandOpts*/, RESULT);
  1413. }
  1414. return CUP_CobolCompilerDirectivesParser_result;
  1415. /*. . . . . . . . . . . . . . . . . . . .*/
  1416. case 167: // copyCompilerStatementBody ::= qualifiedTextName SUPPRESS replacingCopyReplacingOperandOpts
  1417. {
  1418. object RESULT = null;
  1419. TypeCobol.Compiler.CupCommon.QualifiedTextName name = (TypeCobol.Compiler.CupCommon.QualifiedTextName)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1420. TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1421. PairTokenListList operands = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1422. my_parser.Builder.EnterCopyCompilerStatementBody(name, s, operands);
  1423. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(146/*copyCompilerStatementBody*/, RESULT);
  1424. }
  1425. return CUP_CobolCompilerDirectivesParser_result;
  1426. /*. . . . . . . . . . . . . . . . . . . .*/
  1427. case 166: // copyCompilerStatementBody ::= qualifiedTextName replacingCopyReplacingOperandOpts
  1428. {
  1429. object RESULT = null;
  1430. TypeCobol.Compiler.CupCommon.QualifiedTextName name = (TypeCobol.Compiler.CupCommon.QualifiedTextName)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1431. PairTokenListList operands = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1432. my_parser.Builder.EnterCopyCompilerStatementBody(name, null, operands);
  1433. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(146/*copyCompilerStatementBody*/, RESULT);
  1434. }
  1435. return CUP_CobolCompilerDirectivesParser_result;
  1436. /*. . . . . . . . . . . . . . . . . . . .*/
  1437. case 165: // copyCompilerStatement ::= COPY NT$6 copyCompilerStatementBody NT$7 PeriodSeparator
  1438. {
  1439. object RESULT = null;
  1440. // propagate RESULT from NT$6
  1441. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  1442. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1443. // propagate RESULT from NT$7
  1444. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1445. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1446. TypeCobol.Compiler.Scanner.Token c = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
  1447. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(145/*copyCompilerStatement*/, RESULT);
  1448. }
  1449. return CUP_CobolCompilerDirectivesParser_result;
  1450. /*. . . . . . . . . . . . . . . . . . . .*/
  1451. case 164: // NT$7 ::=
  1452. {
  1453. object RESULT = null;
  1454. TypeCobol.Compiler.Scanner.Token c = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1455. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1456. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(182/*NT$7*/, RESULT);
  1457. }
  1458. return CUP_CobolCompilerDirectivesParser_result;
  1459. /*. . . . . . . . . . . . . . . . . . . .*/
  1460. case 163: // NT$6 ::=
  1461. {
  1462. object RESULT = null;
  1463. TypeCobol.Compiler.Scanner.Token c = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1464. my_parser.Builder.EnterCopyCompilerStatement(c);
  1465. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(181/*NT$6*/, RESULT);
  1466. }
  1467. return CUP_CobolCompilerDirectivesParser_result;
  1468. /*. . . . . . . . . . . . . . . . . . . .*/
  1469. case 162: // controlCblCompilerStatement ::= asteriskControlCbl NT$5 controlCblOptions periodSeparatorOpt
  1470. {
  1471. object RESULT = null;
  1472. // propagate RESULT from NT$5
  1473. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value != null )
  1474. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1475. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1476. my_parser.Builder.EnterControlCblCompilerStatement(t);
  1477. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(144/*controlCblCompilerStatement*/, RESULT);
  1478. }
  1479. return CUP_CobolCompilerDirectivesParser_result;
  1480. /*. . . . . . . . . . . . . . . . . . . .*/
  1481. case 161: // NT$5 ::=
  1482. {
  1483. object RESULT = null;
  1484. Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1485. ((CobolWordsTokenizer)my_parser.getScanner()).EnterControlCblCompilerStatementMode();
  1486. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(180/*NT$5*/, RESULT);
  1487. }
  1488. return CUP_CobolCompilerDirectivesParser_result;
  1489. /*. . . . . . . . . . . . . . . . . . . .*/
  1490. case 160: // periodSeparatorOpt ::= PeriodSeparator
  1491. {
  1492. object RESULT = null;
  1493. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(143/*periodSeparatorOpt*/, RESULT);
  1494. }
  1495. return CUP_CobolCompilerDirectivesParser_result;
  1496. /*. . . . . . . . . . . . . . . . . . . .*/
  1497. case 159: // periodSeparatorOpt ::=
  1498. {
  1499. object RESULT = null;
  1500. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(143/*periodSeparatorOpt*/, RESULT);
  1501. }
  1502. return CUP_CobolCompilerDirectivesParser_result;
  1503. /*. . . . . . . . . . . . . . . . . . . .*/
  1504. case 158: // asteriskControlCbl ::= NT$4 ASTERISK_CBL
  1505. {
  1506. Token RESULT = null;
  1507. // propagate RESULT from NT$4
  1508. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1509. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1510. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1511. RESULT = t;
  1512. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(142/*asteriskControlCbl*/, RESULT);
  1513. }
  1514. return CUP_CobolCompilerDirectivesParser_result;
  1515. /*. . . . . . . . . . . . . . . . . . . .*/
  1516. case 157: // NT$4 ::=
  1517. {
  1518. object RESULT = null;
  1519. my_parser.Builder.StartControlCblCompilerStatement(CompilerDirectiveType.ASTERISK_CBL);
  1520. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(179/*NT$4*/, RESULT);
  1521. }
  1522. return CUP_CobolCompilerDirectivesParser_result;
  1523. /*. . . . . . . . . . . . . . . . . . . .*/
  1524. case 156: // asteriskControlCbl ::= NT$3 ASTERISK_CONTROL
  1525. {
  1526. Token RESULT = null;
  1527. // propagate RESULT from NT$3
  1528. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1529. RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1530. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1531. RESULT = t;
  1532. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(142/*asteriskControlCbl*/, RESULT);
  1533. }
  1534. return CUP_CobolCompilerDirectivesParser_result;
  1535. /*. . . . . . . . . . . . . . . . . . . .*/
  1536. case 155: // NT$3 ::=
  1537. {
  1538. object RESULT = null;
  1539. my_parser.Builder.StartControlCblCompilerStatement(CompilerDirectiveType.ASTERISK_CONTROL);
  1540. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(178/*NT$3*/, RESULT);
  1541. }
  1542. return CUP_CobolCompilerDirectivesParser_result;
  1543. /*. . . . . . . . . . . . . . . . . . . .*/
  1544. case 154: // controlCblOptions ::= controlCblOptions controlCblOption
  1545. {
  1546. object RESULT = null;
  1547. TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1548. my_parser.Builder.EnterControlCblOption(o);
  1549. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(141/*controlCblOptions*/, RESULT);
  1550. }
  1551. return CUP_CobolCompilerDirectivesParser_result;
  1552. /*. . . . . . . . . . . . . . . . . . . .*/
  1553. case 153: // controlCblOptions ::= controlCblOption
  1554. {
  1555. object RESULT = null;
  1556. TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1557. my_parser.Builder.EnterControlCblOption(o);
  1558. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(141/*controlCblOptions*/, RESULT);
  1559. }
  1560. return CUP_CobolCompilerDirectivesParser_result;
  1561. /*. . . . . . . . . . . . . . . . . . . .*/
  1562. case 152: // compilerOption ::= UserDefinedWord NT$2 LeftParenthesisSeparator skipAnyTokens RightParenthesisSeparator
  1563. {
  1564. object RESULT = null;
  1565. // propagate RESULT from NT$2
  1566. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  1567. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1568. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(137/*compilerOption*/, RESULT);
  1569. }
  1570. return CUP_CobolCompilerDirectivesParser_result;
  1571. /*. . . . . . . . . . . . . . . . . . . .*/
  1572. case 151: // NT$2 ::=
  1573. {
  1574. object RESULT = null;
  1575. ((CobolWordsTokenizer)my_parser.getScanner()).EnterAnyTokenMode(TokenType.RightParenthesisSeparator);
  1576. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(177/*NT$2*/, RESULT);
  1577. }
  1578. return CUP_CobolCompilerDirectivesParser_result;
  1579. /*. . . . . . . . . . . . . . . . . . . .*/
  1580. case 150: // compilerOption ::= UserDefinedWord
  1581. {
  1582. object RESULT = null;
  1583. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(137/*compilerOption*/, RESULT);
  1584. }
  1585. return CUP_CobolCompilerDirectivesParser_result;
  1586. /*. . . . . . . . . . . . . . . . . . . .*/
  1587. case 149: // anyTokens ::= anyTokens CUP_ANY_TOKEN
  1588. {
  1589. TokenList RESULT = null;
  1590. TokenList tokens = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1591. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1592. tokens.Add(t); RESULT = tokens;
  1593. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(139/*anyTokens*/, RESULT);
  1594. }
  1595. return CUP_CobolCompilerDirectivesParser_result;
  1596. /*. . . . . . . . . . . . . . . . . . . .*/
  1597. case 148: // anyTokens ::= CUP_ANY_TOKEN
  1598. {
  1599. TokenList RESULT = null;
  1600. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1601. RESULT = new TokenList(); RESULT.Add(t);
  1602. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(139/*anyTokens*/, RESULT);
  1603. }
  1604. return CUP_CobolCompilerDirectivesParser_result;
  1605. /*. . . . . . . . . . . . . . . . . . . .*/
  1606. case 147: // anyTokens ::=
  1607. {
  1608. TokenList RESULT = null;
  1609. RESULT = new TokenList();
  1610. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(139/*anyTokens*/, RESULT);
  1611. }
  1612. return CUP_CobolCompilerDirectivesParser_result;
  1613. /*. . . . . . . . . . . . . . . . . . . .*/
  1614. case 146: // skipAnyTokens ::= skipAnyTokens CUP_ANY_TOKEN
  1615. {
  1616. TokenList RESULT = null;
  1617. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(140/*skipAnyTokens*/, RESULT);
  1618. }
  1619. return CUP_CobolCompilerDirectivesParser_result;
  1620. /*. . . . . . . . . . . . . . . . . . . .*/
  1621. case 145: // skipAnyTokens ::= CUP_ANY_TOKEN
  1622. {
  1623. TokenList RESULT = null;
  1624. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(140/*skipAnyTokens*/, RESULT);
  1625. }
  1626. return CUP_CobolCompilerDirectivesParser_result;
  1627. /*. . . . . . . . . . . . . . . . . . . .*/
  1628. case 144: // skipAnyTokens ::=
  1629. {
  1630. TokenList RESULT = null;
  1631. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(140/*skipAnyTokens*/, RESULT);
  1632. }
  1633. return CUP_CobolCompilerDirectivesParser_result;
  1634. /*. . . . . . . . . . . . . . . . . . . .*/
  1635. case 143: // compilerOptions ::= compilerOptions CommaSeparator compilerOption
  1636. {
  1637. object RESULT = null;
  1638. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(138/*compilerOptions*/, RESULT);
  1639. }
  1640. return CUP_CobolCompilerDirectivesParser_result;
  1641. /*. . . . . . . . . . . . . . . . . . . .*/
  1642. case 142: // compilerOptions ::= compilerOption
  1643. {
  1644. object RESULT = null;
  1645. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(138/*compilerOptions*/, RESULT);
  1646. }
  1647. return CUP_CobolCompilerDirectivesParser_result;
  1648. /*. . . . . . . . . . . . . . . . . . . .*/
  1649. case 141: // optionsList ::= compilerOptions
  1650. {
  1651. object RESULT = null;
  1652. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(136/*optionsList*/, RESULT);
  1653. }
  1654. return CUP_CobolCompilerDirectivesParser_result;
  1655. /*. . . . . . . . . . . . . . . . . . . .*/
  1656. case 140: // optionsList ::=
  1657. {
  1658. object RESULT = null;
  1659. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(136/*optionsList*/, RESULT);
  1660. }
  1661. return CUP_CobolCompilerDirectivesParser_result;
  1662. /*. . . . . . . . . . . . . . . . . . . .*/
  1663. case 139: // cblProcessCompilerStatement ::= PROCESS optionsList
  1664. {
  1665. object RESULT = null;
  1666. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(135/*cblProcessCompilerStatement*/, RESULT);
  1667. }
  1668. return CUP_CobolCompilerDirectivesParser_result;
  1669. /*. . . . . . . . . . . . . . . . . . . .*/
  1670. case 138: // cblProcessCompilerStatement ::= CBL optionsList
  1671. {
  1672. object RESULT = null;
  1673. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(135/*cblProcessCompilerStatement*/, RESULT);
  1674. }
  1675. return CUP_CobolCompilerDirectivesParser_result;
  1676. /*. . . . . . . . . . . . . . . . . . . .*/
  1677. case 137: // basisCompilerStatement ::= NT$0 BASIS NT$1 textName
  1678. {
  1679. object RESULT = null;
  1680. // propagate RESULT from NT$0
  1681. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
  1682. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
  1683. // propagate RESULT from NT$1
  1684. if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
  1685. RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  1686. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  1687. TypeCobol.Compiler.Scanner.Token n = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1688. my_parser.Builder.EnterBasisCompilerStatement(n);
  1689. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(134/*basisCompilerStatement*/, RESULT);
  1690. }
  1691. return CUP_CobolCompilerDirectivesParser_result;
  1692. /*. . . . . . . . . . . . . . . . . . . .*/
  1693. case 136: // NT$1 ::=
  1694. {
  1695. object RESULT = null;
  1696. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  1697. ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
  1698. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(176/*NT$1*/, RESULT);
  1699. }
  1700. return CUP_CobolCompilerDirectivesParser_result;
  1701. /*. . . . . . . . . . . . . . . . . . . .*/
  1702. case 135: // NT$0 ::=
  1703. {
  1704. object RESULT = null;
  1705. my_parser.Builder.StartBasisCompilerStatement();
  1706. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(175/*NT$0*/, RESULT);
  1707. }
  1708. return CUP_CobolCompilerDirectivesParser_result;
  1709. /*. . . . . . . . . . . . . . . . . . . .*/
  1710. case 134: // compilerDirectingStatement ::= titleCompilerStatement
  1711. {
  1712. object RESULT = null;
  1713. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1714. }
  1715. return CUP_CobolCompilerDirectivesParser_result;
  1716. /*. . . . . . . . . . . . . . . . . . . .*/
  1717. case 133: // compilerDirectingStatement ::= skipCompilerStatement
  1718. {
  1719. object RESULT = null;
  1720. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1721. }
  1722. return CUP_CobolCompilerDirectivesParser_result;
  1723. /*. . . . . . . . . . . . . . . . . . . .*/
  1724. case 132: // compilerDirectingStatement ::= serviceReloadCompilerStatement
  1725. {
  1726. object RESULT = null;
  1727. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1728. }
  1729. return CUP_CobolCompilerDirectivesParser_result;
  1730. /*. . . . . . . . . . . . . . . . . . . .*/
  1731. case 131: // compilerDirectingStatement ::= serviceLabelCompilerStatement
  1732. {
  1733. object RESULT = null;
  1734. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1735. }
  1736. return CUP_CobolCompilerDirectivesParser_result;
  1737. /*. . . . . . . . . . . . . . . . . . . .*/
  1738. case 130: // compilerDirectingStatement ::= replaceCompilerStatement
  1739. {
  1740. object RESULT = null;
  1741. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1742. }
  1743. return CUP_CobolCompilerDirectivesParser_result;
  1744. /*. . . . . . . . . . . . . . . . . . . .*/
  1745. case 129: // compilerDirectingStatement ::= readyOrResetTraceCompilerStatement
  1746. {
  1747. object RESULT = null;
  1748. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1749. }
  1750. return CUP_CobolCompilerDirectivesParser_result;
  1751. /*. . . . . . . . . . . . . . . . . . . .*/
  1752. case 128: // compilerDirectingStatement ::= insertCompilerStatement
  1753. {
  1754. object RESULT = null;
  1755. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1756. }
  1757. return CUP_CobolCompilerDirectivesParser_result;
  1758. /*. . . . . . . . . . . . . . . . . . . .*/
  1759. case 127: // compilerDirectingStatement ::= execSqlIncludeStatement
  1760. {
  1761. object RESULT = null;
  1762. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1763. }
  1764. return CUP_CobolCompilerDirectivesParser_result;
  1765. /*. . . . . . . . . . . . . . . . . . . .*/
  1766. case 126: // compilerDirectingStatement ::= enterCompilerStatement
  1767. {
  1768. object RESULT = null;
  1769. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1770. }
  1771. return CUP_CobolCompilerDirectivesParser_result;
  1772. /*. . . . . . . . . . . . . . . . . . . .*/
  1773. case 125: // compilerDirectingStatement ::= ejectCompilerStatement
  1774. {
  1775. object RESULT = null;
  1776. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1777. }
  1778. return CUP_CobolCompilerDirectivesParser_result;
  1779. /*. . . . . . . . . . . . . . . . . . . .*/
  1780. case 124: // compilerDirectingStatement ::= deleteCompilerStatement
  1781. {
  1782. object RESULT = null;
  1783. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1784. }
  1785. return CUP_CobolCompilerDirectivesParser_result;
  1786. /*. . . . . . . . . . . . . . . . . . . .*/
  1787. case 123: // compilerDirectingStatement ::= copyCompilerStatement
  1788. {
  1789. object RESULT = null;
  1790. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1791. }
  1792. return CUP_CobolCompilerDirectivesParser_result;
  1793. /*. . . . . . . . . . . . . . . . . . . .*/
  1794. case 122: // compilerDirectingStatement ::= controlCblCompilerStatement
  1795. {
  1796. object RESULT = null;
  1797. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1798. }
  1799. return CUP_CobolCompilerDirectivesParser_result;
  1800. /*. . . . . . . . . . . . . . . . . . . .*/
  1801. case 121: // compilerDirectingStatement ::= cblProcessCompilerStatement
  1802. {
  1803. object RESULT = null;
  1804. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1805. }
  1806. return CUP_CobolCompilerDirectivesParser_result;
  1807. /*. . . . . . . . . . . . . . . . . . . .*/
  1808. case 120: // compilerDirectingStatement ::= basisCompilerStatement
  1809. {
  1810. object RESULT = null;
  1811. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(133/*compilerDirectingStatement*/, RESULT);
  1812. }
  1813. return CUP_CobolCompilerDirectivesParser_result;
  1814. /*. . . . . . . . . . . . . . . . . . . .*/
  1815. case 119: // starts ::= compilerDirectingStatement
  1816. {
  1817. object RESULT = null;
  1818. ((CobolWordsTokenizer)my_parser.getScanner()).LeaveStopScanningMode();
  1819. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(132/*starts*/, RESULT);
  1820. }
  1821. return CUP_CobolCompilerDirectivesParser_result;
  1822. /*. . . . . . . . . . . . . . . . . . . .*/
  1823. case 118: // codeElementStartingKeyword ::= XML
  1824. {
  1825. object RESULT = null;
  1826. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1827. }
  1828. return CUP_CobolCompilerDirectivesParser_result;
  1829. /*. . . . . . . . . . . . . . . . . . . .*/
  1830. case 117: // codeElementStartingKeyword ::= WRITE
  1831. {
  1832. object RESULT = null;
  1833. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1834. }
  1835. return CUP_CobolCompilerDirectivesParser_result;
  1836. /*. . . . . . . . . . . . . . . . . . . .*/
  1837. case 116: // codeElementStartingKeyword ::= WORKING_STORAGE
  1838. {
  1839. object RESULT = null;
  1840. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1841. }
  1842. return CUP_CobolCompilerDirectivesParser_result;
  1843. /*. . . . . . . . . . . . . . . . . . . .*/
  1844. case 115: // codeElementStartingKeyword ::= WHEN
  1845. {
  1846. object RESULT = null;
  1847. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1848. }
  1849. return CUP_CobolCompilerDirectivesParser_result;
  1850. /*. . . . . . . . . . . . . . . . . . . .*/
  1851. case 114: // codeElementStartingKeyword ::= USE
  1852. {
  1853. object RESULT = null;
  1854. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1855. }
  1856. return CUP_CobolCompilerDirectivesParser_result;
  1857. /*. . . . . . . . . . . . . . . . . . . .*/
  1858. case 113: // codeElementStartingKeyword ::= UNSTRING
  1859. {
  1860. object RESULT = null;
  1861. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1862. }
  1863. return CUP_CobolCompilerDirectivesParser_result;
  1864. /*. . . . . . . . . . . . . . . . . . . .*/
  1865. case 112: // codeElementStartingKeyword ::= SUBTRACT
  1866. {
  1867. object RESULT = null;
  1868. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1869. }
  1870. return CUP_CobolCompilerDirectivesParser_result;
  1871. /*. . . . . . . . . . . . . . . . . . . .*/
  1872. case 111: // codeElementStartingKeyword ::= STRING
  1873. {
  1874. object RESULT = null;
  1875. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1876. }
  1877. return CUP_CobolCompilerDirectivesParser_result;
  1878. /*. . . . . . . . . . . . . . . . . . . .*/
  1879. case 110: // codeElementStartingKeyword ::= STOP
  1880. {
  1881. object RESULT = null;
  1882. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1883. }
  1884. return CUP_CobolCompilerDirectivesParser_result;
  1885. /*. . . . . . . . . . . . . . . . . . . .*/
  1886. case 109: // codeElementStartingKeyword ::= START
  1887. {
  1888. object RESULT = null;
  1889. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1890. }
  1891. return CUP_CobolCompilerDirectivesParser_result;
  1892. /*. . . . . . . . . . . . . . . . . . . .*/
  1893. case 108: // codeElementStartingKeyword ::= SPECIAL_NAMES
  1894. {
  1895. object RESULT = null;
  1896. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1897. }
  1898. return CUP_CobolCompilerDirectivesParser_result;
  1899. /*. . . . . . . . . . . . . . . . . . . .*/
  1900. case 107: // codeElementStartingKeyword ::= SOURCE_COMPUTER
  1901. {
  1902. object RESULT = null;
  1903. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1904. }
  1905. return CUP_CobolCompilerDirectivesParser_result;
  1906. /*. . . . . . . . . . . . . . . . . . . .*/
  1907. case 106: // codeElementStartingKeyword ::= SORT
  1908. {
  1909. object RESULT = null;
  1910. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1911. }
  1912. return CUP_CobolCompilerDirectivesParser_result;
  1913. /*. . . . . . . . . . . . . . . . . . . .*/
  1914. case 105: // codeElementStartingKeyword ::= SET
  1915. {
  1916. object RESULT = null;
  1917. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1918. }
  1919. return CUP_CobolCompilerDirectivesParser_result;
  1920. /*. . . . . . . . . . . . . . . . . . . .*/
  1921. case 104: // codeElementStartingKeyword ::= SERVICE
  1922. {
  1923. object RESULT = null;
  1924. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1925. }
  1926. return CUP_CobolCompilerDirectivesParser_result;
  1927. /*. . . . . . . . . . . . . . . . . . . .*/
  1928. case 103: // codeElementStartingKeyword ::= SELECT
  1929. {
  1930. object RESULT = null;
  1931. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1932. }
  1933. return CUP_CobolCompilerDirectivesParser_result;
  1934. /*. . . . . . . . . . . . . . . . . . . .*/
  1935. case 102: // codeElementStartingKeyword ::= SEARCH
  1936. {
  1937. object RESULT = null;
  1938. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1939. }
  1940. return CUP_CobolCompilerDirectivesParser_result;
  1941. /*. . . . . . . . . . . . . . . . . . . .*/
  1942. case 101: // codeElementStartingKeyword ::= SD
  1943. {
  1944. object RESULT = null;
  1945. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1946. }
  1947. return CUP_CobolCompilerDirectivesParser_result;
  1948. /*. . . . . . . . . . . . . . . . . . . .*/
  1949. case 100: // codeElementStartingKeyword ::= SAME
  1950. {
  1951. object RESULT = null;
  1952. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1953. }
  1954. return CUP_CobolCompilerDirectivesParser_result;
  1955. /*. . . . . . . . . . . . . . . . . . . .*/
  1956. case 99: // codeElementStartingKeyword ::= REWRITE
  1957. {
  1958. object RESULT = null;
  1959. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1960. }
  1961. return CUP_CobolCompilerDirectivesParser_result;
  1962. /*. . . . . . . . . . . . . . . . . . . .*/
  1963. case 98: // codeElementStartingKeyword ::= RETURN
  1964. {
  1965. object RESULT = null;
  1966. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1967. }
  1968. return CUP_CobolCompilerDirectivesParser_result;
  1969. /*. . . . . . . . . . . . . . . . . . . .*/
  1970. case 97: // codeElementStartingKeyword ::= RERUN
  1971. {
  1972. object RESULT = null;
  1973. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1974. }
  1975. return CUP_CobolCompilerDirectivesParser_result;
  1976. /*. . . . . . . . . . . . . . . . . . . .*/
  1977. case 96: // codeElementStartingKeyword ::= REPOSITORY
  1978. {
  1979. object RESULT = null;
  1980. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1981. }
  1982. return CUP_CobolCompilerDirectivesParser_result;
  1983. /*. . . . . . . . . . . . . . . . . . . .*/
  1984. case 95: // codeElementStartingKeyword ::= RELEASE
  1985. {
  1986. object RESULT = null;
  1987. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1988. }
  1989. return CUP_CobolCompilerDirectivesParser_result;
  1990. /*. . . . . . . . . . . . . . . . . . . .*/
  1991. case 94: // codeElementStartingKeyword ::= READ
  1992. {
  1993. object RESULT = null;
  1994. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  1995. }
  1996. return CUP_CobolCompilerDirectivesParser_result;
  1997. /*. . . . . . . . . . . . . . . . . . . .*/
  1998. case 93: // codeElementStartingKeyword ::= PROCEDURE
  1999. {
  2000. object RESULT = null;
  2001. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2002. }
  2003. return CUP_CobolCompilerDirectivesParser_result;
  2004. /*. . . . . . . . . . . . . . . . . . . .*/
  2005. case 92: // codeElementStartingKeyword ::= PERFORM
  2006. {
  2007. object RESULT = null;
  2008. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2009. }
  2010. return CUP_CobolCompilerDirectivesParser_result;
  2011. /*. . . . . . . . . . . . . . . . . . . .*/
  2012. case 91: // codeElementStartingKeyword ::= OPEN
  2013. {
  2014. object RESULT = null;
  2015. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2016. }
  2017. return CUP_CobolCompilerDirectivesParser_result;
  2018. /*. . . . . . . . . . . . . . . . . . . .*/
  2019. case 90: // codeElementStartingKeyword ::= OBJECT_COMPUTER
  2020. {
  2021. object RESULT = null;
  2022. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2023. }
  2024. return CUP_CobolCompilerDirectivesParser_result;
  2025. /*. . . . . . . . . . . . . . . . . . . .*/
  2026. case 89: // codeElementStartingKeyword ::= NEXT
  2027. {
  2028. object RESULT = null;
  2029. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2030. }
  2031. return CUP_CobolCompilerDirectivesParser_result;
  2032. /*. . . . . . . . . . . . . . . . . . . .*/
  2033. case 88: // codeElementStartingKeyword ::= MULTIPLY
  2034. {
  2035. object RESULT = null;
  2036. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2037. }
  2038. return CUP_CobolCompilerDirectivesParser_result;
  2039. /*. . . . . . . . . . . . . . . . . . . .*/
  2040. case 87: // codeElementStartingKeyword ::= MULTIPLE
  2041. {
  2042. object RESULT = null;
  2043. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2044. }
  2045. return CUP_CobolCompilerDirectivesParser_result;
  2046. /*. . . . . . . . . . . . . . . . . . . .*/
  2047. case 86: // codeElementStartingKeyword ::= MOVE
  2048. {
  2049. object RESULT = null;
  2050. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2051. }
  2052. return CUP_CobolCompilerDirectivesParser_result;
  2053. /*. . . . . . . . . . . . . . . . . . . .*/
  2054. case 85: // codeElementStartingKeyword ::= MERGE
  2055. {
  2056. object RESULT = null;
  2057. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2058. }
  2059. return CUP_CobolCompilerDirectivesParser_result;
  2060. /*. . . . . . . . . . . . . . . . . . . .*/
  2061. case 84: // codeElementStartingKeyword ::= LOCAL_STORAGE
  2062. {
  2063. object RESULT = null;
  2064. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2065. }
  2066. return CUP_CobolCompilerDirectivesParser_result;
  2067. /*. . . . . . . . . . . . . . . . . . . .*/
  2068. case 83: // codeElementStartingKeyword ::= LINKAGE
  2069. {
  2070. object RESULT = null;
  2071. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2072. }
  2073. return CUP_CobolCompilerDirectivesParser_result;
  2074. /*. . . . . . . . . . . . . . . . . . . .*/
  2075. case 82: // codeElementStartingKeyword ::= JSON
  2076. {
  2077. object RESULT = null;
  2078. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2079. }
  2080. return CUP_CobolCompilerDirectivesParser_result;
  2081. /*. . . . . . . . . . . . . . . . . . . .*/
  2082. case 81: // codeElementStartingKeyword ::= INVOKE
  2083. {
  2084. object RESULT = null;
  2085. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2086. }
  2087. return CUP_CobolCompilerDirectivesParser_result;
  2088. /*. . . . . . . . . . . . . . . . . . . .*/
  2089. case 80: // codeElementStartingKeyword ::= INSPECT
  2090. {
  2091. object RESULT = null;
  2092. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2093. }
  2094. return CUP_CobolCompilerDirectivesParser_result;
  2095. /*. . . . . . . . . . . . . . . . . . . .*/
  2096. case 79: // codeElementStartingKeyword ::= INPUT_OUTPUT
  2097. {
  2098. object RESULT = null;
  2099. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2100. }
  2101. return CUP_CobolCompilerDirectivesParser_result;
  2102. /*. . . . . . . . . . . . . . . . . . . .*/
  2103. case 78: // codeElementStartingKeyword ::= INITIALIZE
  2104. {
  2105. object RESULT = null;
  2106. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2107. }
  2108. return CUP_CobolCompilerDirectivesParser_result;
  2109. /*. . . . . . . . . . . . . . . . . . . .*/
  2110. case 77: // codeElementStartingKeyword ::= IF
  2111. {
  2112. object RESULT = null;
  2113. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2114. }
  2115. return CUP_CobolCompilerDirectivesParser_result;
  2116. /*. . . . . . . . . . . . . . . . . . . .*/
  2117. case 76: // codeElementStartingKeyword ::= IDENTIFICATION
  2118. {
  2119. object RESULT = null;
  2120. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2121. }
  2122. return CUP_CobolCompilerDirectivesParser_result;
  2123. /*. . . . . . . . . . . . . . . . . . . .*/
  2124. case 75: // codeElementStartingKeyword ::= ID
  2125. {
  2126. object RESULT = null;
  2127. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2128. }
  2129. return CUP_CobolCompilerDirectivesParser_result;
  2130. /*. . . . . . . . . . . . . . . . . . . .*/
  2131. case 74: // codeElementStartingKeyword ::= I_O_CONTROL
  2132. {
  2133. object RESULT = null;
  2134. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2135. }
  2136. return CUP_CobolCompilerDirectivesParser_result;
  2137. /*. . . . . . . . . . . . . . . . . . . .*/
  2138. case 73: // codeElementStartingKeyword ::= GOBACK
  2139. {
  2140. object RESULT = null;
  2141. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2142. }
  2143. return CUP_CobolCompilerDirectivesParser_result;
  2144. /*. . . . . . . . . . . . . . . . . . . .*/
  2145. case 72: // codeElementStartingKeyword ::= GO
  2146. {
  2147. object RESULT = null;
  2148. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2149. }
  2150. return CUP_CobolCompilerDirectivesParser_result;
  2151. /*. . . . . . . . . . . . . . . . . . . .*/
  2152. case 71: // codeElementStartingKeyword ::= FREE
  2153. {
  2154. object RESULT = null;
  2155. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2156. }
  2157. return CUP_CobolCompilerDirectivesParser_result;
  2158. /*. . . . . . . . . . . . . . . . . . . .*/
  2159. case 70: // codeElementStartingKeyword ::= FILE_CONTROL
  2160. {
  2161. object RESULT = null;
  2162. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2163. }
  2164. return CUP_CobolCompilerDirectivesParser_result;
  2165. /*. . . . . . . . . . . . . . . . . . . .*/
  2166. case 69: // codeElementStartingKeyword ::= FILE
  2167. {
  2168. object RESULT = null;
  2169. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2170. }
  2171. return CUP_CobolCompilerDirectivesParser_result;
  2172. /*. . . . . . . . . . . . . . . . . . . .*/
  2173. case 68: // codeElementStartingKeyword ::= FD
  2174. {
  2175. object RESULT = null;
  2176. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2177. }
  2178. return CUP_CobolCompilerDirectivesParser_result;
  2179. /*. . . . . . . . . . . . . . . . . . . .*/
  2180. case 67: // codeElementStartingKeyword ::= EXIT
  2181. {
  2182. object RESULT = null;
  2183. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2184. }
  2185. return CUP_CobolCompilerDirectivesParser_result;
  2186. /*. . . . . . . . . . . . . . . . . . . .*/
  2187. case 66: // codeElementStartingKeyword ::= EXECUTE
  2188. {
  2189. object RESULT = null;
  2190. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2191. }
  2192. return CUP_CobolCompilerDirectivesParser_result;
  2193. /*. . . . . . . . . . . . . . . . . . . .*/
  2194. case 65: // codeElementStartingKeyword ::= EXEC
  2195. {
  2196. object RESULT = null;
  2197. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2198. }
  2199. return CUP_CobolCompilerDirectivesParser_result;
  2200. /*. . . . . . . . . . . . . . . . . . . .*/
  2201. case 64: // codeElementStartingKeyword ::= EVALUATE
  2202. {
  2203. object RESULT = null;
  2204. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2205. }
  2206. return CUP_CobolCompilerDirectivesParser_result;
  2207. /*. . . . . . . . . . . . . . . . . . . .*/
  2208. case 63: // codeElementStartingKeyword ::= ENVIRONMENT
  2209. {
  2210. object RESULT = null;
  2211. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2212. }
  2213. return CUP_CobolCompilerDirectivesParser_result;
  2214. /*. . . . . . . . . . . . . . . . . . . .*/
  2215. case 62: // codeElementStartingKeyword ::= ENTRY
  2216. {
  2217. object RESULT = null;
  2218. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2219. }
  2220. return CUP_CobolCompilerDirectivesParser_result;
  2221. /*. . . . . . . . . . . . . . . . . . . .*/
  2222. case 61: // codeElementStartingKeyword ::= END_XML
  2223. {
  2224. object RESULT = null;
  2225. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2226. }
  2227. return CUP_CobolCompilerDirectivesParser_result;
  2228. /*. . . . . . . . . . . . . . . . . . . .*/
  2229. case 60: // codeElementStartingKeyword ::= END_WRITE
  2230. {
  2231. object RESULT = null;
  2232. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2233. }
  2234. return CUP_CobolCompilerDirectivesParser_result;
  2235. /*. . . . . . . . . . . . . . . . . . . .*/
  2236. case 59: // codeElementStartingKeyword ::= END_UNSTRING
  2237. {
  2238. object RESULT = null;
  2239. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2240. }
  2241. return CUP_CobolCompilerDirectivesParser_result;
  2242. /*. . . . . . . . . . . . . . . . . . . .*/
  2243. case 58: // codeElementStartingKeyword ::= END_SUBTRACT
  2244. {
  2245. object RESULT = null;
  2246. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2247. }
  2248. return CUP_CobolCompilerDirectivesParser_result;
  2249. /*. . . . . . . . . . . . . . . . . . . .*/
  2250. case 57: // codeElementStartingKeyword ::= END_STRING
  2251. {
  2252. object RESULT = null;
  2253. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2254. }
  2255. return CUP_CobolCompilerDirectivesParser_result;
  2256. /*. . . . . . . . . . . . . . . . . . . .*/
  2257. case 56: // codeElementStartingKeyword ::= END_START
  2258. {
  2259. object RESULT = null;
  2260. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2261. }
  2262. return CUP_CobolCompilerDirectivesParser_result;
  2263. /*. . . . . . . . . . . . . . . . . . . .*/
  2264. case 55: // codeElementStartingKeyword ::= END_SEARCH
  2265. {
  2266. object RESULT = null;
  2267. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2268. }
  2269. return CUP_CobolCompilerDirectivesParser_result;
  2270. /*. . . . . . . . . . . . . . . . . . . .*/
  2271. case 54: // codeElementStartingKeyword ::= END_REWRITE
  2272. {
  2273. object RESULT = null;
  2274. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2275. }
  2276. return CUP_CobolCompilerDirectivesParser_result;
  2277. /*. . . . . . . . . . . . . . . . . . . .*/
  2278. case 53: // codeElementStartingKeyword ::= END_RETURN
  2279. {
  2280. object RESULT = null;
  2281. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2282. }
  2283. return CUP_CobolCompilerDirectivesParser_result;
  2284. /*. . . . . . . . . . . . . . . . . . . .*/
  2285. case 52: // codeElementStartingKeyword ::= END_READ
  2286. {
  2287. object RESULT = null;
  2288. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2289. }
  2290. return CUP_CobolCompilerDirectivesParser_result;
  2291. /*. . . . . . . . . . . . . . . . . . . .*/
  2292. case 51: // codeElementStartingKeyword ::= END_PERFORM
  2293. {
  2294. object RESULT = null;
  2295. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2296. }
  2297. return CUP_CobolCompilerDirectivesParser_result;
  2298. /*. . . . . . . . . . . . . . . . . . . .*/
  2299. case 50: // codeElementStartingKeyword ::= END_MULTIPLY
  2300. {
  2301. object RESULT = null;
  2302. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2303. }
  2304. return CUP_CobolCompilerDirectivesParser_result;
  2305. /*. . . . . . . . . . . . . . . . . . . .*/
  2306. case 49: // codeElementStartingKeyword ::= END_JSON
  2307. {
  2308. object RESULT = null;
  2309. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2310. }
  2311. return CUP_CobolCompilerDirectivesParser_result;
  2312. /*. . . . . . . . . . . . . . . . . . . .*/
  2313. case 48: // codeElementStartingKeyword ::= END_INVOKE
  2314. {
  2315. object RESULT = null;
  2316. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2317. }
  2318. return CUP_CobolCompilerDirectivesParser_result;
  2319. /*. . . . . . . . . . . . . . . . . . . .*/
  2320. case 47: // codeElementStartingKeyword ::= END_IF
  2321. {
  2322. object RESULT = null;
  2323. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2324. }
  2325. return CUP_CobolCompilerDirectivesParser_result;
  2326. /*. . . . . . . . . . . . . . . . . . . .*/
  2327. case 46: // codeElementStartingKeyword ::= END_EXEC
  2328. {
  2329. object RESULT = null;
  2330. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2331. }
  2332. return CUP_CobolCompilerDirectivesParser_result;
  2333. /*. . . . . . . . . . . . . . . . . . . .*/
  2334. case 45: // codeElementStartingKeyword ::= END_EVALUATE
  2335. {
  2336. object RESULT = null;
  2337. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2338. }
  2339. return CUP_CobolCompilerDirectivesParser_result;
  2340. /*. . . . . . . . . . . . . . . . . . . .*/
  2341. case 44: // codeElementStartingKeyword ::= END_DIVIDE
  2342. {
  2343. object RESULT = null;
  2344. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2345. }
  2346. return CUP_CobolCompilerDirectivesParser_result;
  2347. /*. . . . . . . . . . . . . . . . . . . .*/
  2348. case 43: // codeElementStartingKeyword ::= END_DELETE
  2349. {
  2350. object RESULT = null;
  2351. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2352. }
  2353. return CUP_CobolCompilerDirectivesParser_result;
  2354. /*. . . . . . . . . . . . . . . . . . . .*/
  2355. case 42: // codeElementStartingKeyword ::= END_DECLARE
  2356. {
  2357. object RESULT = null;
  2358. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2359. }
  2360. return CUP_CobolCompilerDirectivesParser_result;
  2361. /*. . . . . . . . . . . . . . . . . . . .*/
  2362. case 41: // codeElementStartingKeyword ::= END_COMPUTE
  2363. {
  2364. object RESULT = null;
  2365. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2366. }
  2367. return CUP_CobolCompilerDirectivesParser_result;
  2368. /*. . . . . . . . . . . . . . . . . . . .*/
  2369. case 40: // codeElementStartingKeyword ::= END_CALL
  2370. {
  2371. object RESULT = null;
  2372. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2373. }
  2374. return CUP_CobolCompilerDirectivesParser_result;
  2375. /*. . . . . . . . . . . . . . . . . . . .*/
  2376. case 39: // codeElementStartingKeyword ::= END_ADD
  2377. {
  2378. object RESULT = null;
  2379. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2380. }
  2381. return CUP_CobolCompilerDirectivesParser_result;
  2382. /*. . . . . . . . . . . . . . . . . . . .*/
  2383. case 38: // codeElementStartingKeyword ::= END
  2384. {
  2385. object RESULT = null;
  2386. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2387. }
  2388. return CUP_CobolCompilerDirectivesParser_result;
  2389. /*. . . . . . . . . . . . . . . . . . . .*/
  2390. case 37: // codeElementStartingKeyword ::= ELSE
  2391. {
  2392. object RESULT = null;
  2393. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2394. }
  2395. return CUP_CobolCompilerDirectivesParser_result;
  2396. /*. . . . . . . . . . . . . . . . . . . .*/
  2397. case 36: // codeElementStartingKeyword ::= DIVIDE
  2398. {
  2399. object RESULT = null;
  2400. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2401. }
  2402. return CUP_CobolCompilerDirectivesParser_result;
  2403. /*. . . . . . . . . . . . . . . . . . . .*/
  2404. case 35: // codeElementStartingKeyword ::= DISPLAY
  2405. {
  2406. object RESULT = null;
  2407. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2408. }
  2409. return CUP_CobolCompilerDirectivesParser_result;
  2410. /*. . . . . . . . . . . . . . . . . . . .*/
  2411. case 34: // codeElementStartingKeyword ::= DELETE
  2412. {
  2413. object RESULT = null;
  2414. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2415. }
  2416. return CUP_CobolCompilerDirectivesParser_result;
  2417. /*. . . . . . . . . . . . . . . . . . . .*/
  2418. case 33: // codeElementStartingKeyword ::= DECLARE
  2419. {
  2420. object RESULT = null;
  2421. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2422. }
  2423. return CUP_CobolCompilerDirectivesParser_result;
  2424. /*. . . . . . . . . . . . . . . . . . . .*/
  2425. case 32: // codeElementStartingKeyword ::= DECLARATIVES
  2426. {
  2427. object RESULT = null;
  2428. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2429. }
  2430. return CUP_CobolCompilerDirectivesParser_result;
  2431. /*. . . . . . . . . . . . . . . . . . . .*/
  2432. case 31: // codeElementStartingKeyword ::= DATA
  2433. {
  2434. object RESULT = null;
  2435. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2436. }
  2437. return CUP_CobolCompilerDirectivesParser_result;
  2438. /*. . . . . . . . . . . . . . . . . . . .*/
  2439. case 30: // codeElementStartingKeyword ::= CONTINUE
  2440. {
  2441. object RESULT = null;
  2442. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2443. }
  2444. return CUP_CobolCompilerDirectivesParser_result;
  2445. /*. . . . . . . . . . . . . . . . . . . .*/
  2446. case 29: // codeElementStartingKeyword ::= CONFIGURATION
  2447. {
  2448. object RESULT = null;
  2449. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2450. }
  2451. return CUP_CobolCompilerDirectivesParser_result;
  2452. /*. . . . . . . . . . . . . . . . . . . .*/
  2453. case 28: // codeElementStartingKeyword ::= COMPUTE
  2454. {
  2455. object RESULT = null;
  2456. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2457. }
  2458. return CUP_CobolCompilerDirectivesParser_result;
  2459. /*. . . . . . . . . . . . . . . . . . . .*/
  2460. case 27: // codeElementStartingKeyword ::= CLOSE
  2461. {
  2462. object RESULT = null;
  2463. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2464. }
  2465. return CUP_CobolCompilerDirectivesParser_result;
  2466. /*. . . . . . . . . . . . . . . . . . . .*/
  2467. case 26: // codeElementStartingKeyword ::= CANCEL
  2468. {
  2469. object RESULT = null;
  2470. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2471. }
  2472. return CUP_CobolCompilerDirectivesParser_result;
  2473. /*. . . . . . . . . . . . . . . . . . . .*/
  2474. case 25: // codeElementStartingKeyword ::= CALL
  2475. {
  2476. object RESULT = null;
  2477. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2478. }
  2479. return CUP_CobolCompilerDirectivesParser_result;
  2480. /*. . . . . . . . . . . . . . . . . . . .*/
  2481. case 24: // codeElementStartingKeyword ::= APPLY
  2482. {
  2483. object RESULT = null;
  2484. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2485. }
  2486. return CUP_CobolCompilerDirectivesParser_result;
  2487. /*. . . . . . . . . . . . . . . . . . . .*/
  2488. case 23: // codeElementStartingKeyword ::= ALTER
  2489. {
  2490. object RESULT = null;
  2491. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2492. }
  2493. return CUP_CobolCompilerDirectivesParser_result;
  2494. /*. . . . . . . . . . . . . . . . . . . .*/
  2495. case 22: // codeElementStartingKeyword ::= ALLOCATE
  2496. {
  2497. object RESULT = null;
  2498. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2499. }
  2500. return CUP_CobolCompilerDirectivesParser_result;
  2501. /*. . . . . . . . . . . . . . . . . . . .*/
  2502. case 21: // codeElementStartingKeyword ::= ADD
  2503. {
  2504. object RESULT = null;
  2505. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2506. }
  2507. return CUP_CobolCompilerDirectivesParser_result;
  2508. /*. . . . . . . . . . . . . . . . . . . .*/
  2509. case 20: // codeElementStartingKeyword ::= ACCEPT
  2510. {
  2511. object RESULT = null;
  2512. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(172/*codeElementStartingKeyword*/, RESULT);
  2513. }
  2514. return CUP_CobolCompilerDirectivesParser_result;
  2515. /*. . . . . . . . . . . . . . . . . . . .*/
  2516. case 19: // controlCblOption ::= enumeratedValue1
  2517. {
  2518. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2519. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2520. RESULT = v;
  2521. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(129/*controlCblOption*/, RESULT);
  2522. }
  2523. return CUP_CobolCompilerDirectivesParser_result;
  2524. /*. . . . . . . . . . . . . . . . . . . .*/
  2525. case 18: // qualifiedTextName ::= textName in_of libraryName
  2526. {
  2527. TypeCobol.Compiler.CupCommon.QualifiedTextName RESULT = null;
  2528. TypeCobol.Compiler.Scanner.Token n = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
  2529. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  2530. TypeCobol.Compiler.Scanner.Token ln = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2531. RESULT = new QualifiedTextName(n, t, ln);
  2532. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(125/*qualifiedTextName*/, RESULT);
  2533. }
  2534. return CUP_CobolCompilerDirectivesParser_result;
  2535. /*. . . . . . . . . . . . . . . . . . . .*/
  2536. case 17: // qualifiedTextName ::= textName
  2537. {
  2538. TypeCobol.Compiler.CupCommon.QualifiedTextName RESULT = null;
  2539. TypeCobol.Compiler.Scanner.Token n = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2540. RESULT = new QualifiedTextName(n);
  2541. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(125/*qualifiedTextName*/, RESULT);
  2542. }
  2543. return CUP_CobolCompilerDirectivesParser_result;
  2544. /*. . . . . . . . . . . . . . . . . . . .*/
  2545. case 16: // in_of ::= OF
  2546. {
  2547. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2548. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2549. RESULT = t;
  2550. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(105/*in_of*/, RESULT);
  2551. }
  2552. return CUP_CobolCompilerDirectivesParser_result;
  2553. /*. . . . . . . . . . . . . . . . . . . .*/
  2554. case 15: // in_of ::= IN
  2555. {
  2556. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2557. TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2558. RESULT = t;
  2559. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(105/*in_of*/, RESULT);
  2560. }
  2561. return CUP_CobolCompilerDirectivesParser_result;
  2562. /*. . . . . . . . . . . . . . . . . . . .*/
  2563. case 14: // libraryName ::= externalName5
  2564. {
  2565. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2566. TypeCobol.Compiler.Scanner.Token n = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2567. RESULT = n;
  2568. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(124/*libraryName*/, RESULT);
  2569. }
  2570. return CUP_CobolCompilerDirectivesParser_result;
  2571. /*. . . . . . . . . . . . . . . . . . . .*/
  2572. case 13: // textName ::= externalName5
  2573. {
  2574. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2575. TypeCobol.Compiler.Scanner.Token n = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2576. RESULT = n;
  2577. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(123/*textName*/, RESULT);
  2578. }
  2579. return CUP_CobolCompilerDirectivesParser_result;
  2580. /*. . . . . . . . . . . . . . . . . . . .*/
  2581. case 12: // externalName5 ::= alphanumericValue5
  2582. {
  2583. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2584. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2585. RESULT = v;
  2586. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(49/*externalName5*/, RESULT);
  2587. }
  2588. return CUP_CobolCompilerDirectivesParser_result;
  2589. /*. . . . . . . . . . . . . . . . . . . .*/
  2590. case 11: // alphanumericValue5 ::= alphanumericLiteralToken
  2591. {
  2592. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2593. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2594. RESULT = v;
  2595. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(24/*alphanumericValue5*/, RESULT);
  2596. }
  2597. return CUP_CobolCompilerDirectivesParser_result;
  2598. /*. . . . . . . . . . . . . . . . . . . .*/
  2599. case 10: // alphanumericValue5 ::= UserDefinedWord
  2600. {
  2601. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2602. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2603. RESULT = v;
  2604. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(24/*alphanumericValue5*/, RESULT);
  2605. }
  2606. return CUP_CobolCompilerDirectivesParser_result;
  2607. /*. . . . . . . . . . . . . . . . . . . .*/
  2608. case 9: // alphanumericValue2 ::= alphanumericOrNationalLiteralToken
  2609. {
  2610. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2611. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2612. RESULT = v;
  2613. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(22/*alphanumericValue2*/, RESULT);
  2614. }
  2615. return CUP_CobolCompilerDirectivesParser_result;
  2616. /*. . . . . . . . . . . . . . . . . . . .*/
  2617. case 8: // alphanumericOrNationalLiteralToken ::= HexadecimalNationalLiteral
  2618. {
  2619. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2620. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2621. RESULT = lit;
  2622. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(5/*alphanumericOrNationalLiteralToken*/, RESULT);
  2623. }
  2624. return CUP_CobolCompilerDirectivesParser_result;
  2625. /*. . . . . . . . . . . . . . . . . . . .*/
  2626. case 7: // alphanumericOrNationalLiteralToken ::= NationalLiteral
  2627. {
  2628. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2629. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2630. RESULT = lit;
  2631. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(5/*alphanumericOrNationalLiteralToken*/, RESULT);
  2632. }
  2633. return CUP_CobolCompilerDirectivesParser_result;
  2634. /*. . . . . . . . . . . . . . . . . . . .*/
  2635. case 6: // alphanumericOrNationalLiteralToken ::= DBCSLiteral
  2636. {
  2637. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2638. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2639. RESULT = lit;
  2640. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(5/*alphanumericOrNationalLiteralToken*/, RESULT);
  2641. }
  2642. return CUP_CobolCompilerDirectivesParser_result;
  2643. /*. . . . . . . . . . . . . . . . . . . .*/
  2644. case 5: // alphanumericOrNationalLiteralToken ::= alphanumericLiteralToken
  2645. {
  2646. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2647. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2648. RESULT = lit;
  2649. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(5/*alphanumericOrNationalLiteralToken*/, RESULT);
  2650. }
  2651. return CUP_CobolCompilerDirectivesParser_result;
  2652. /*. . . . . . . . . . . . . . . . . . . .*/
  2653. case 4: // alphanumericLiteralToken ::= NullTerminatedAlphanumericLiteral
  2654. {
  2655. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2656. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2657. RESULT = lit;
  2658. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(4/*alphanumericLiteralToken*/, RESULT);
  2659. }
  2660. return CUP_CobolCompilerDirectivesParser_result;
  2661. /*. . . . . . . . . . . . . . . . . . . .*/
  2662. case 3: // alphanumericLiteralToken ::= HexadecimalAlphanumericLiteral
  2663. {
  2664. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2665. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2666. RESULT = lit;
  2667. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(4/*alphanumericLiteralToken*/, RESULT);
  2668. }
  2669. return CUP_CobolCompilerDirectivesParser_result;
  2670. /*. . . . . . . . . . . . . . . . . . . .*/
  2671. case 2: // alphanumericLiteralToken ::= AlphanumericLiteral
  2672. {
  2673. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2674. TypeCobol.Compiler.Scanner.Token lit = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2675. RESULT = lit;
  2676. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(4/*alphanumericLiteralToken*/, RESULT);
  2677. }
  2678. return CUP_CobolCompilerDirectivesParser_result;
  2679. /*. . . . . . . . . . . . . . . . . . . .*/
  2680. case 1: // enumeratedValue1 ::= UserDefinedWord
  2681. {
  2682. TypeCobol.Compiler.Scanner.Token RESULT = null;
  2683. TypeCobol.Compiler.Scanner.Token v = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
  2684. RESULT = v;
  2685. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(28/*enumeratedValue1*/, RESULT);
  2686. }
  2687. return CUP_CobolCompilerDirectivesParser_result;
  2688. /*. . . . . . . . . . . . . . . . . . . .*/
  2689. case 0: // $START ::= starts EOF
  2690. {
  2691. object RESULT = null;
  2692. object start_val = (object)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
  2693. RESULT = start_val;
  2694. CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(0/*$START*/, RESULT);
  2695. }
  2696. /* ACCEPT */
  2697. CUP_CobolCompilerDirectivesParser_parser.done_parsing();
  2698. return CUP_CobolCompilerDirectivesParser_result;
  2699. /* . . . . . .*/
  2700. default:
  2701. throw new System.Exception(
  2702. "Invalid action number found in internal parse table");
  2703. }
  2704. }
  2705. }
  2706. }