/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
Large files are truncated click here to view the full file
- //----------------------------------------------------
- // The following code was generated by C# CUP v0.1
- //----------------------------------------------------
- namespace TypeCobol.Compiler.CupPreprocessor
- {
- using TypeCobol.Compiler.Directives;
- using TypeCobol.Compiler.Scanner;
- using TypeCobol.Compiler.CupCommon;
- using System.Collections.Generic;
- using System;
- using TUVienna.CS_CUP.Runtime;
- using CSCupRuntime;
- /** C# CUP v0.1 generated parser.
- */
- public class CobolCompilerDirectivesParser : TUVienna.CS_CUP.Runtime.lr_parser {
- /** Default constructor. */
- public CobolCompilerDirectivesParser():base() {;}
- /** Constructor which sets the default scanner. */
- public CobolCompilerDirectivesParser(TUVienna.CS_CUP.Runtime.Scanner s): base(s) {;}
- /** Production table. */
- protected static readonly short[][] _production_table =
- new short[234][] {
- new short[2]{0,2},
- new short[2]{28,1},
- new short[2]{4,1},
- new short[2]{4,1},
- new short[2]{4,1},
- new short[2]{5,1},
- new short[2]{5,1},
- new short[2]{5,1},
- new short[2]{5,1},
- new short[2]{22,1},
- new short[2]{24,1},
- new short[2]{24,1},
- new short[2]{49,1},
- new short[2]{123,1},
- new short[2]{124,1},
- new short[2]{105,1},
- new short[2]{105,1},
- new short[2]{125,1},
- new short[2]{125,3},
- new short[2]{129,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{172,1},
- new short[2]{132,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{133,1},
- new short[2]{175,0},
- new short[2]{176,0},
- new short[2]{134,4},
- new short[2]{135,2},
- new short[2]{135,2},
- new short[2]{136,0},
- new short[2]{136,1},
- new short[2]{138,1},
- new short[2]{138,3},
- new short[2]{140,0},
- new short[2]{140,1},
- new short[2]{140,2},
- new short[2]{139,0},
- new short[2]{139,1},
- new short[2]{139,2},
- new short[2]{137,1},
- new short[2]{177,0},
- new short[2]{137,5},
- new short[2]{141,1},
- new short[2]{141,2},
- new short[2]{178,0},
- new short[2]{142,2},
- new short[2]{179,0},
- new short[2]{142,2},
- new short[2]{143,0},
- new short[2]{143,1},
- new short[2]{180,0},
- new short[2]{144,4},
- new short[2]{181,0},
- new short[2]{182,0},
- new short[2]{145,5},
- new short[2]{146,2},
- new short[2]{146,3},
- new short[2]{147,0},
- new short[2]{183,0},
- new short[2]{147,3},
- new short[2]{174,1},
- new short[2]{174,1},
- new short[2]{148,3},
- new short[2]{148,4},
- new short[2]{149,1},
- new short[2]{149,1},
- new short[2]{184,0},
- new short[2]{150,4},
- new short[2]{185,0},
- new short[2]{152,3},
- new short[2]{186,0},
- new short[2]{153,2},
- new short[2]{187,0},
- new short[2]{153,3},
- new short[2]{188,0},
- new short[2]{154,2},
- new short[2]{189,0},
- new short[2]{190,0},
- new short[2]{155,6},
- new short[2]{156,1},
- new short[2]{157,0},
- new short[2]{157,1},
- new short[2]{158,1},
- new short[2]{158,1},
- new short[2]{173,1},
- new short[2]{173,1},
- new short[2]{191,0},
- new short[2]{192,0},
- new short[2]{159,8},
- new short[2]{193,0},
- new short[2]{194,0},
- new short[2]{160,4},
- new short[2]{161,1},
- new short[2]{195,0},
- new short[2]{162,2},
- new short[2]{196,0},
- new short[2]{162,2},
- new short[2]{197,0},
- new short[2]{163,4},
- new short[2]{198,0},
- new short[2]{164,2},
- new short[2]{199,0},
- new short[2]{165,4},
- new short[2]{200,0},
- new short[2]{201,0},
- new short[2]{165,5},
- new short[2]{166,3},
- new short[2]{166,4},
- new short[2]{202,0},
- new short[2]{167,3},
- new short[2]{203,0},
- new short[2]{204,0},
- new short[2]{168,5},
- new short[2]{205,0},
- new short[2]{169,2},
- new short[2]{206,0},
- new short[2]{169,2},
- new short[2]{207,0},
- new short[2]{169,2},
- new short[2]{170,1},
- new short[2]{208,0},
- new short[2]{209,0},
- new short[2]{171,4}
- };
- /** Access to production table. */
- public override short[][] production_table() {return _production_table;}
- /** Parse-action table. */
- protected static readonly short[][] _action_table =
- new short[173][] {
- 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},
- new short[4]{62,173,-1,0},
- new short[4]{63,165,-1,0},
- new short[6]{323,-220,385,-222,-1,0},
- new short[4]{0,-125,-1,0},
- new short[4]{42,-195,-1,0},
- new short[4]{0,-132,-1,0},
- new short[4]{42,-198,-1,0},
- new short[4]{47,147,-1,0},
- new short[4]{42,-194,-1,0},
- new short[4]{56,146,-1,0},
- new short[4]{57,145,-1,0},
- new short[4]{58,144,-1,0},
- new short[10]{27,-164,28,-164,29,-164,44,-164,-1,0},
- new short[4]{0,-123,-1,0},
- new short[4]{0,-124,-1,0},
- new short[4]{45,109,-1,0},
- new short[4]{50,103,-1,0},
- new short[4]{51,102,-1,0},
- new short[4]{52,95,-1,0},
- new short[4]{46,94,-1,0},
- new short[4]{54,90,-1,0},
- new short[4]{0,-128,-1,0},
- new short[4]{0,-135,-1,0},
- new short[4]{60,89,-1,0},
- new short[6]{0,-141,44,79,-1,0},
- new short[4]{0,-130,-1,0},
- new short[6]{0,-141,44,79,-1,0},
- new short[4]{0,-122,-1,0},
- new short[4]{0,-231,-1,0},
- new short[4]{0,-121,-1,0},
- new short[4]{0,-127,-1,0},
- new short[4]{0,75,-1,0},
- new short[6]{16,-178,349,-215,-1,0},
- new short[4]{0,-126,-1,0},
- new short[4]{429,53,-1,0},
- new short[4]{44,-162,-1,0},
- new short[4]{0,-133,-1,0},
- new short[4]{0,-134,-1,0},
- new short[4]{0,-129,-1,0},
- new short[4]{0,-131,-1,0},
- new short[4]{0,-120,-1,0},
- new short[4]{61,44,-1,0},
- new short[4]{0,-228,-1,0},
- new short[4]{44,49,-1,0},
- new short[8]{0,-154,11,-154,44,-154,-1,0},
- new short[8]{0,-20,11,-20,44,-20,-1,0},
- new short[8]{0,-160,11,52,44,49,-1,0},
- new short[8]{0,-2,11,-2,44,-2,-1,0},
- new short[4]{0,-163,-1,0},
- new short[8]{0,-155,11,-155,44,-155,-1,0},
- new short[4]{0,-161,-1,0},
- new short[4]{11,-209,-1,0},
- new short[4]{11,55,-1,0},
- new short[4]{0,-210,-1,0},
- new short[4]{236,73,-1,0},
- new short[4]{349,70,-1,0},
- new short[4]{16,65,-1,0},
- new short[6]{11,-213,16,-178,-1,0},
- new short[4]{236,63,-1,0},
- new short[4]{11,62,-1,0},
- new short[4]{0,-214,-1,0},
- new short[4]{16,-178,-1,0},
- new short[6]{11,-219,16,-219,-1,0},
- new short[6]{2,67,16,-148,-1,0},
- new short[6]{2,69,16,68,-1,0},
- new short[6]{2,-149,16,-149,-1,0},
- new short[16]{3,-179,4,-179,5,-179,11,-179,16,-179,89,-179,236,-179,-1,0},
- new short[6]{2,-150,16,-150,-1,0},
- new short[4]{11,-216,-1,0},
- new short[4]{11,72,-1,0},
- new short[4]{0,-217,-1,0},
- new short[4]{16,-178,-1,0},
- new short[6]{11,-218,16,-218,-1,0},
- new short[4]{0,-1,-1,0},
- new short[4]{0,-140,-1,0},
- new short[6]{0,-143,7,-143,-1,0},
- new short[6]{0,-142,7,86,-1,0},
- new short[8]{0,-151,7,-151,14,-152,-1,0},
- new short[4]{14,81,-1,0},
- new short[6]{2,83,15,-145,-1,0},
- new short[6]{2,85,15,84,-1,0},
- new short[6]{2,-146,15,-146,-1,0},
- new short[6]{0,-153,7,-153,-1,0},
- new short[6]{2,-147,15,-147,-1,0},
- new short[4]{44,79,-1,0},
- new short[6]{0,-144,7,-144,-1,0},
- new short[4]{0,-139,-1,0},
- new short[4]{0,-226,-1,0},
- new short[4]{34,-202,-1,0},
- new short[4]{34,93,-1,0},
- new short[4]{0,-203,-1,0},
- new short[4]{0,-204,-1,0},
- new short[4]{44,-157,-1,0},
- new short[4]{44,97,-1,0},
- new short[6]{11,-192,44,99,-1,0},
- new short[6]{11,-191,44,-191,-1,0},
- new short[4]{11,-189,-1,0},
- new short[4]{11,-193,-1,0},
- new short[4]{11,101,-1,0},
- new short[4]{0,-190,-1,0},
- new short[4]{0,-187,-1,0},
- new short[4]{34,-182,-1,0},
- new short[4]{34,108,-1,0},
- new short[6]{0,-181,34,-184,-1,0},
- new short[4]{34,107,-1,0},
- new short[6]{0,-185,34,-185,-1,0},
- new short[6]{0,-183,34,-183,-1,0},
- new short[4]{44,-159,-1,0},
- new short[10]{27,120,28,117,29,112,44,118,-1,0},
- new short[4]{11,-165,-1,0},
- new short[18]{0,-5,3,-5,11,-5,89,-5,309,-5,348,-5,389,-5,413,-5,-1,0},
- new short[18]{0,-13,3,-13,11,-13,89,-13,309,-13,348,-13,389,-13,413,-13,-1,0},
- new short[18]{0,-12,3,-12,11,-12,89,-12,309,-12,348,-12,389,-12,413,-12,-1,0},
- new short[18]{0,-14,3,-14,11,-14,89,-14,309,-14,348,-14,389,-14,413,-14,-1,0},
- new short[16]{3,-18,11,-18,89,-18,309,138,348,137,389,-18,413,-18,-1,0},
- new short[18]{0,-4,3,-4,11,-4,89,-4,309,-4,348,-4,389,-4,413,-4,-1,0},
- new short[18]{0,-11,3,-11,11,-11,89,-11,309,-11,348,-11,389,-11,413,-11,-1,0},
- new short[12]{3,-169,11,-169,89,-169,389,-170,413,123,-1,0},
- new short[18]{0,-3,3,-3,11,-3,89,-3,309,-3,348,-3,389,-3,413,-3,-1,0},
- new short[4]{389,125,-1,0},
- new short[8]{3,-167,11,-167,89,-167,-1,0},
- new short[10]{3,-169,11,-169,89,-169,389,-170,-1,0},
- new short[8]{3,-168,11,-168,89,-168,-1,0},
- new short[6]{4,126,16,-178,-1,0},
- new short[16]{3,-177,4,-177,5,-177,11,-177,16,-177,89,-177,236,-177,-1,0},
- new short[16]{3,-176,4,-176,5,-176,11,-176,16,-176,89,-176,236,-176,-1,0},
- new short[12]{3,-171,4,126,11,-171,16,-178,89,-171,-1,0},
- new short[6]{5,131,236,132,-1,0},
- new short[6]{4,126,16,-178,-1,0},
- new short[6]{4,-173,16,-173,-1,0},
- new short[6]{4,-172,16,-172,-1,0},
- new short[12]{3,-174,4,-174,11,-174,16,-174,89,-174,-1,0},
- new short[6]{5,131,236,132,-1,0},
- new short[6]{4,126,16,-178,-1,0},
- new short[12]{3,-175,4,-175,11,-175,16,-175,89,-175,-1,0},
- new short[10]{27,-17,28,-17,29,-17,44,-17,-1,0},
- new short[10]{27,-16,28,-16,29,-16,44,-16,-1,0},
- new short[10]{27,120,28,117,29,112,44,118,-1,0},
- new short[12]{3,-15,11,-15,89,-15,389,-15,413,-15,-1,0},
- new short[12]{3,-19,11,-19,89,-19,389,-19,413,-19,-1,0},
- new short[4]{11,143,-1,0},
- new short[4]{0,-166,-1,0},
- new short[6]{16,-212,349,-212,-1,0},
- new short[4]{429,-208,-1,0},
- new short[4]{429,-206,-1,0},
- new short[10]{27,-137,28,-137,29,-137,44,-137,-1,0},
- new short[10]{27,120,28,117,29,112,44,118,-1,0},
- new short[4]{0,-138,-1,0},
- new short[4]{42,151,-1,0},
- new short[4]{53,152,-1,0},
- new short[10]{27,120,28,117,29,112,44,118,-1,0},
- new short[6]{3,154,89,155,-1,0},
- new short[4]{11,-197,-1,0},
- new short[4]{11,-196,-1,0},
- new short[4]{11,-199,-1,0},
- new short[4]{11,158,-1,0},
- new short[4]{0,-200,-1,0},
- new short[4]{323,164,-1,0},
- new short[4]{385,161,-1,0},
- new short[4]{44,-223,-1,0},
- new short[4]{44,163,-1,0},
- new short[4]{0,-224,-1,0},
- new short[4]{0,-221,-1,0},
- new short[14]{27,-233,28,-233,29,-233,30,-233,31,-233,32,-233,-1,0},
- new short[14]{27,120,28,117,29,112,30,168,31,169,32,171,-1,0},
- new short[4]{0,-234,-1,0},
- new short[4]{0,-8,-1,0},
- new short[4]{0,-9,-1,0},
- new short[4]{0,-6,-1,0},
- new short[4]{0,-7,-1,0},
- new short[4]{0,-10,-1,0},
- new short[4]{0,-230,-1,0}
- };
- /** Access to parse-action table. */
- public override short[][] action_table() {return _action_table;}
- /** <code>reduce_goto</code> table. */
- protected static readonly short[][] _reduce_table =
- new short[173][] {
- 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},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{202,158,203,159,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{191,149,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{181,109,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[8]{136,87,137,76,138,77,-1,-1},
- new short[2]{-1,-1},
- new short[8]{136,75,137,76,138,77,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[10]{150,55,166,58,184,57,200,56,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{180,44,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[8]{28,46,129,45,141,47,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[8]{28,46,129,50,143,49,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{197,53,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[8]{150,59,184,57,199,60,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{150,63,184,57,-1,-1},
- new short[2]{-1,-1},
- new short[4]{139,65,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{201,70,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{150,73,184,57,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{177,79,-1,-1},
- new short[2]{-1,-1},
- new short[4]{140,81,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{137,86,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{194,90,-1,-1},
- new short[4]{161,91,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{156,95,-1,-1},
- new short[4]{157,97,-1,-1},
- new short[2]{-1,-1},
- new short[4]{190,99,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{153,104,186,103,-1,-1},
- new short[2]{-1,-1},
- new short[4]{187,105,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[14]{4,113,24,112,49,114,123,115,125,118,146,110,-1,-1},
- new short[4]{182,141,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{105,138,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{147,121,183,120,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[6]{147,123,183,120,-1,-1},
- new short[2]{-1,-1},
- new short[10]{148,127,149,128,150,126,184,57,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[8]{149,133,150,126,184,57,-1,-1},
- new short[4]{174,129,-1,-1},
- new short[8]{149,132,150,126,184,57,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{174,134,-1,-1},
- new short[8]{149,135,150,126,184,57,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[10]{4,113,24,112,49,139,124,140,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{176,147,-1,-1},
- new short[10]{4,113,24,112,49,114,123,148,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[14]{4,113,24,112,49,114,123,115,125,118,146,152,-1,-1},
- new short[4]{173,155,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{192,156,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{204,161,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[4]{209,165,-1,-1},
- new short[8]{4,169,5,171,22,166,-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1},
- new short[2]{-1,-1}
- };
- /** Access to <code>reduce_goto</code> table. */
- public override short[][] reduce_table() {return _reduce_table;}
- /** Instance of action encapsulation class. */
- protected CUP_CobolCompilerDirectivesParser_actions action_obj;
- /** Action encapsulation object initializer. */
- protected override void init_actions()
- {
- action_obj = new CUP_CobolCompilerDirectivesParser_actions(this);
- }
- /** Invoke a user supplied parse action. */
- public override TUVienna.CS_CUP.Runtime.Symbol do_action(
- int act_num,
- TUVienna.CS_CUP.Runtime.lr_parser parser,
- StackList<Symbol> CUP_parser_stack,
- int top)
- {
- /* call code in generated class */
- return action_obj.CUP_CobolCompilerDirectivesParser_do_action(act_num, parser, stack, top);
- }
- /** Indicates start state. */
- public override int start_state() {return 0;}
- /** Indicates start production. */
- public override int start_production() {return 0;}
- /** <code>EOF</code> Symbol index. */
- public override int EOF_sym() {return 0;}
- /** <code>error</code> Symbol index. */
- public override int error_sym() {return 1;}
- // The Compiler Directive Builder instance.
- public ICompilerDirectiveBuilder Builder
- {
- get;
- set;
- }
- // The Error Reporter instance
- public ICupParserErrorReporter ErrorReporter
- {
- get;
- set;
- }
- // Test wheither or not this parser is a trial parser
- public bool IsTrial
- {
- get;
- set;
- }
- // get the current state of the parser.
- public int getParserState()
- {
- return stack.Peek().parse_state;
- }
- //get the parser stack.
- public StackList<Symbol> getParserStack()
- {
- return stack;
- }
- public override void report_fatal_error(
- string message,
- object info)
- {
- if(ErrorReporter != null) {
- if (ErrorReporter.ReportFatalError(this, getParserStack(), message, info))
- {
- return;
- }
- }
- base.report_fatal_error(message, info);
- }
- public override void report_error(string message, object info)
- {
- if(ErrorReporter != null) {
- if (ErrorReporter.ReportError(this, getParserStack(), message, info))
- {
- return;
- }
- }
- base.report_error(message, info);
- }
- public override void syntax_error(Symbol cur_token)
- {
- if(ErrorReporter != null) {
- if (ErrorReporter.SyntaxError(this, getParserStack(), cur_token))
- {
- return;
- }
- }
- base.syntax_error(cur_token);
- }
- public override void unrecovered_syntax_error(Symbol cur_token)
- {
- if(ErrorReporter != null) {
- if (ErrorReporter.UnrecoveredSyntaxError(this, getParserStack(), cur_token))
- {
- return;
- }
- }
- base.unrecovered_syntax_error(cur_token);
- }
- public void ReportScannerDirectiveError()
- {
- ErrorReporter.SyntaxError(this, getParserStack(), ((CobolWordsTokenizer)getScanner()).LastStopSymbol);
- }
- }
- /** Cup generated class to encapsulate user supplied action code.*/
- public class CUP_CobolCompilerDirectivesParser_actions {
- private CobolCompilerDirectivesParser my_parser;
- /** Constructor */
- public CUP_CobolCompilerDirectivesParser_actions(CobolCompilerDirectivesParser t_parser) {
- this.my_parser = t_parser;
- }
- /** Method with the actual generated action code. */
- public TUVienna.CS_CUP.Runtime.Symbol CUP_CobolCompilerDirectivesParser_do_action(
- int CUP_CobolCompilerDirectivesParser_act_num,
- TUVienna.CS_CUP.Runtime.lr_parser CUP_CobolCompilerDirectivesParser_parser,
- StackList<Symbol> xstack1,
- int CUP_CobolCompilerDirectivesParser_top)
- {
- /* Symbol object for return from actions */
- StackList<Symbol> CUP_CobolCompilerDirectivesParser_stack = xstack1;
- TUVienna.CS_CUP.Runtime.Symbol CUP_CobolCompilerDirectivesParser_result;
- /* select the action based on the action number */
- switch (CUP_CobolCompilerDirectivesParser_act_num)
- {
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 233: // titleCompilerStatement ::= NT$33 TITLE NT$34 alphanumericValue2
- {
- object RESULT = null;
- // propagate RESULT from NT$33
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- // propagate RESULT from NT$34
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TypeCobol.Compiler.Scanner.Token a = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
-
- my_parser.Builder.EnterTitleCompilerStatement(t, a);
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(171/*titleCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 232: // NT$34 ::=
- {
- object RESULT = null;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(209/*NT$34*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 231: // NT$33 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartTitleCompilerStatement();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(208/*NT$33*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 230: // skipCompilerStatement ::= skipTokens
- {
- object RESULT = null;
- Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
-
- my_parser.Builder.EnterSkipCompilerStatement(t);
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(170/*skipCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 229: // skipTokens ::= NT$32 SKIP3
- {
- Token RESULT = null;
- // propagate RESULT from NT$32
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = t;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 228: // NT$32 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP3);
- ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(207/*NT$32*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 227: // skipTokens ::= NT$31 SKIP2
- {
- Token RESULT = null;
- // propagate RESULT from NT$31
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = t;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 226: // NT$31 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP2);
- ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(206/*NT$31*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 225: // skipTokens ::= NT$30 SKIP1
- {
- Token RESULT = null;
- // propagate RESULT from NT$30
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = t;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(169/*skipTokens*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 224: // NT$30 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartSkipCompilerStatement(CompilerDirectiveType.SKIP1);
- ((CobolWordsTokenizer)my_parser.getScanner()).ConsumeNextTokenOnTheSameLineAndStop(TokenType.PeriodSeparator);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(205/*NT$30*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 223: // serviceReloadCompilerStatement ::= SERVICE_CD NT$28 RELOAD NT$29 UserDefinedWord
- {
- object RESULT = null;
- // propagate RESULT from NT$28
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- // propagate RESULT from NT$29
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
- TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TypeCobol.Compiler.Scanner.Token w = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- my_parser.Builder.EnterServiceReloadCompilerStatement(s, l, w);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(168/*serviceReloadCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 222: // NT$29 ::=
- {
- object RESULT = null;
- TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(204/*NT$29*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 221: // NT$28 ::=
- {
- object RESULT = null;
- TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- my_parser.Builder.StartServiceReloadCompilerStatement();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(203/*NT$28*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 220: // serviceLabelCompilerStatement ::= SERVICE_CD NT$27 LABEL
- {
- object RESULT = null;
- // propagate RESULT from NT$27
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TypeCobol.Compiler.Scanner.Token l = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- my_parser.Builder.EnterServiceLabelCompilerStatement(s, l);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(167/*serviceLabelCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 219: // NT$27 ::=
- {
- object RESULT = null;
- TypeCobol.Compiler.Scanner.Token s = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
-
- my_parser.Builder.StartServiceLabelCompilerStatement();
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(202/*NT$27*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 218: // pseudoTextReplaces ::= pseudoTextReplaces pseudoText BY pseudoText
- {
- PairTokenListList RESULT = null;
- PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- replaces.Add(new Tuple<List<Token>, List<Token>>(from,by)); RESULT = replaces;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(166/*pseudoTextReplaces*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 217: // pseudoTextReplaces ::= pseudoText BY pseudoText
- {
- PairTokenListList RESULT = null;
- TokenList from = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TokenList by = (TokenList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = new PairTokenListList() {new Tuple<List<Token>, List<Token>>(from,by)};
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(166/*pseudoTextReplaces*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 216: // replaceCompilerStatement ::= replaceToken NT$25 OFF NT$26 PeriodSeparator
- {
- object RESULT = null;
- // propagate RESULT from NT$25
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- // propagate RESULT from NT$26
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-4)).value;
- TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- my_parser.Builder.EnterReplaceCompilerStatement(r, o, null);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(165/*replaceCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 215: // NT$26 ::=
- {
- object RESULT = null;
- Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- TypeCobol.Compiler.Scanner.Token o = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(201/*NT$26*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 214: // NT$25 ::=
- {
- object RESULT = null;
- Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- my_parser.Builder.StartReplaceCompilerStatement(CompilerDirectiveType.REPLACE_OFF);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(200/*NT$25*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 213: // replaceCompilerStatement ::= replaceToken pseudoTextReplaces NT$24 PeriodSeparator
- {
- object RESULT = null;
- // propagate RESULT from NT$24
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- my_parser.Builder.EnterReplaceCompilerStatement(r, null, replaces);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(165/*replaceCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 212: // NT$24 ::=
- {
- object RESULT = null;
- Token r = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- PairTokenListList replaces = (PairTokenListList)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
-
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(199/*NT$24*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 211: // replaceToken ::= NT$23 REPLACE
- {
- Token RESULT = null;
- // propagate RESULT from NT$23
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token r = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
-
- RESULT = r;
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(164/*replaceToken*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 210: // NT$23 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartReplaceCompilerStatement(CompilerDirectiveType.REPLACE);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(198/*NT$23*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 209: // readyOrResetTraceCompilerStatement ::= readyOrReset TRACE NT$22 PeriodSeparator
- {
- object RESULT = null;
- // propagate RESULT from NT$22
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- Token rt = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- my_parser.Builder.EnterReadyOrResetTraceCompilerStatement(rt);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(163/*readyOrResetTraceCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 208: // NT$22 ::=
- {
- object RESULT = null;
- Token rt = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(197/*NT$22*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 207: // readyOrReset ::= NT$21 RESET
- {
- Token RESULT = null;
- // propagate RESULT from NT$21
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = t;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(162/*readyOrReset*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 206: // NT$21 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartReadyOrResetTraceCompilerStatement(CompilerDirectiveType.RESET_TRACE);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(196/*NT$21*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 205: // readyOrReset ::= NT$20 READY
- {
- Token RESULT = null;
- // propagate RESULT from NT$20
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (Token) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token t = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = t;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(162/*readyOrReset*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 204: // NT$20 ::=
- {
- object RESULT = null;
- my_parser.Builder.StartReadyOrResetTraceCompilerStatement(CompilerDirectiveType.READY_TRACE);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(195/*NT$20*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 203: // sequenceNumber ::= IntegerLiteral
- {
- Token RESULT = null;
- TypeCobol.Compiler.Scanner.Token il = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- RESULT = il;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(161/*sequenceNumber*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 202: // insertCompilerStatement ::= NT$18 INSERT NT$19 sequenceNumber
- {
- object RESULT = null;
- // propagate RESULT from NT$18
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-3)).value;
- // propagate RESULT from NT$19
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- TypeCobol.Compiler.Scanner.Token tins = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-2)).value;
- Token sn = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- my_parser.Builder.EnterInsertCompilerStatement(tins,sn);
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(160/*insertCompilerStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 201: // NT$19 ::=
- {
- object RESULT = null;
- TypeCobol.Compiler.Scanner.Token tins = (TypeCobol.Compiler.Scanner.Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(194/*NT$19*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 200: // NT$18 ::=
- {
- object RESULT = null;
-
- my_parser.Builder.StartInsertCompilerStatement();
-
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(193/*NT$18*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 199: // execSqlIncludeStatement ::= execToken NT$16 ExecTranslatorName EXEC_SQL copyCompilerStatementBody end_exec NT$17 PeriodSeparator
- {
- object RESULT = null;
- // propagate RESULT from NT$16
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-6)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-6)).value;
- // propagate RESULT from NT$17
- if ( (CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value != null )
- RESULT = (object) ( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-1)).value;
- Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-7)).value;
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(159/*execSqlIncludeStatement*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 198: // NT$17 ::=
- {
- object RESULT = null;
- Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolCompilerDirectivesParser_top-5)).value;
- ((CobolWordsTokenizer)my_parser.getScanner()).EnterStopScanningMode();
- CUP_CobolCompilerDirectivesParser_result = new TUVienna.CS_CUP.Runtime.Symbol(192/*NT$17*/, RESULT);
- }
- return CUP_CobolCompilerDirectivesParser_result;
- /*. . . . . . . . . . . . . . . . . . . .*/
- case 197: // NT$16 ::=
- {
- object RESULT = null;
- Token t = (Token)( CUP_CobolCompilerDirectivesParser_stack.ElementAtFromBottom(CUP_CobolComp…