parser.c

这是一个Linux下的集成开发环境

case 68: yyDecrement (2) yySetNT (yyNTstatements) {
/* line 204 "Parser.lrk" */
 yyS.statements.tree = Mstmt (yyA [1].statements.tree, yyA [0].statement.tree);
 ;

} break;
case 69: yyDecrement (2) yySetNT (yyNTstatements) {
/* line 207 "Parser.lrk" */
yyS.statements.tree = yyA [1].statements.tree;

} break;
case 70: yyDecrement (2) yySetNT (yyNTstatement) {
/* line 209 "Parser.lrk" */
 yyS.statement.tree = ReverseTree (yyA [0].words.tree);
 ;

} break;
case 71: yyDecrement (3) yySetNT (yyNTstatement) {
/* line 212 "Parser.lrk" */
 yyS.statement.tree = ReverseTree (yyA [1].words.tree);
 ;

} break;
case 72: yyDecrement (1) yySetNT (yyNTwords) {
/* line 215 "Parser.lrk" */
 yyS.words.tree = Mword (dnoword, yyA [0].word.tree);
 ;

} break;
case 73: yyDecrement (3) yySetNT (yyNTwords) {
/* line 218 "Parser.lrk" */
 yyS.words.tree = Mword (yyA [0].words.tree, yyA [2].word.tree);
 ;

} break;
case 74: yyDecrement (1) yySetNT (yyNTword) {
/* line 221 "Parser.lrk" */
yyS.word.tree = yyA [0].qualification.tree;

} break;
case 75:
case 43: yyDecrement (1) yySetNT (yyNTword) {
/* line 223 "Parser.lrk" */
 yyS.word.tree = mone_word (NoTree, i_rparent, yyA [0].Scan.Position);
 ;

} break;
case 76: yyDecrement (2) yySetNT (yyNTword) {
/* line 226 "Parser.lrk" */
 yyS.word.tree = mone_qualification (Mqualification (yyA [0].word.tree),
			yyA [1].qualification.tree);
 ;

} break;
case 77:
case 44: yyDecrement (2) yySetNT (yyNTword) {
/* line 230 "Parser.lrk" */
yyS.word.tree = yyA [0].word.tree;

} break;
case 78: yyDecrement (1) yySetNT (yyNTqualification) {
/* line 232 "Parser.lrk" */
yyS.qualification.tree = yyA [0].local_qualification.tree;

} break;
case 79: yyDecrement (2) yySetNT (yyNTqualification) {
/* line 234 "Parser.lrk" */
yyS.qualification.tree = yyA [0].local_qualification.tree;

} break;
case 80: yyDecrement (3) yySetNT (yyNTqualification) {
/* line 236 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position,
			yyA [0].local_qualification.tree, yyA [2].qualification.tree);
 ;

} break;
case 81:
case 45: yyDecrement (4) yySetNT (yyNTqualification) {
/* line 240 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position,
			yyA [0].local_qualification.tree, yyA [2].qualification.tree);
 ;

} break;
case 82: yyDecrement (1) yySetNT (yyNTqualification) {
/* line 244 "Parser.lrk" */
yyS.qualification.tree = yyA [0].global_qualification.tree;

} break;
case 83: yyDecrement (2) yySetNT (yyNTqualification) {
/* line 246 "Parser.lrk" */
yyS.qualification.tree = yyA [0].global_qualification.tree;

} break;
case 84: yyDecrement (3) yySetNT (yyNTqualification) {
/* line 248 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position,
			yyA [0].global_qualification.tree, yyA [2].qualification.tree);
 ;

} break;
case 85:
case 46: yyDecrement (4) yySetNT (yyNTqualification) {
/* line 252 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position,
			yyA [0].global_qualification.tree, yyA [2].qualification.tree);
 ;

} break;
case 86: yyDecrement (1) yySetNT (yyNTqualification) {
/* line 256 "Parser.lrk" */
 yyS.qualification.tree = mglobal_ident (yyA [0].Scan.Position, NoIdent);
 ;

} break;
case 87: yyDecrement (2) yySetNT (yyNTqualification) {
/* line 259 "Parser.lrk" */
 yyS.qualification.tree = mglobal_ident (yyA [1].Scan.Position, i_lparent);
 ;

} break;
case 88: yyDecrement (3) yySetNT (yyNTqualification) {
/* line 262 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position, mglobal_ident
			(yyA [0].Scan.Position, NoIdent), yyA [2].qualification.tree);
 ;

} break;
case 89:
case 47: yyDecrement (4) yySetNT (yyNTqualification) {
/* line 266 "Parser.lrk" */
 yyS.qualification.tree = msubscription (yyA [1].Scan.Position, mglobal_ident
			(yyA [0].Scan.Position, NoIdent), yyA [2].qualification.tree);
 ;

} break;
case 90: yyDecrement (1) yySetNT (yyNTqualification) {
/* line 270 "Parser.lrk" */
 yyS.qualification.tree = mlocal_ident (yyA [0].Scan.Position, i_lparent);
 ;

} break;
case 91: yyDecrement (2) yySetNT (yyNTqualification) {
/* line 273 "Parser.lrk" */
yyS.qualification.tree = yyA [1].qualification.tree;

} break;
case 92:
case 48: yyDecrement (3) yySetNT (yyNTqualification) {
/* line 275 "Parser.lrk" */
yyS.qualification.tree = yyA [1].qualification.tree;

} break;
case 93: yyDecrement (1) yySetNT (yyNTlocal_qualification) {
/* line 277 "Parser.lrk" */
 yyS.local_qualification.tree = yyA [0].fragments.is_simple ?
			mlocal_ident (yyA [0].fragments.tree->text.pos,
			   make_one_word (yyA [0].fragments.tree)) :
			mlocal_text (yyA [0].fragments.tree->text.pos,
			   yyA [0].fragments.tree);
 ;

} break;
case 94: yyDecrement (3) yySetNT (yyNTlocal_qualification) {
/* line 284 "Parser.lrk" */
 yyS.local_qualification.tree = yyA [2].fragments.is_simple ?
			mqualification (yyA [2].fragments.tree->text.pos,
			   yyA [0].local_qualification.tree, make_one_word (yyA [2].fragments.tree)) :
			mcomplex_qual (yyA [2].fragments.tree->text.pos,
			   yyA [0].local_qualification.tree, yyA [2].fragments.tree);
 ;

} break;
case 95: yyDecrement (2) yySetNT (yyNTlocal_qualification) {
/* line 291 "Parser.lrk" */
yyS.local_qualification.tree = yyA [0].local_qualification.tree;

} break;
case 96: yyDecrement (2) yySetNT (yyNTglobal_qualification) {
/* line 293 "Parser.lrk" */
 yyS.global_qualification.tree = yyA [1].fragments.is_simple ?
			mglobal_ident (yyA [1].fragments.tree->text.pos, make_one_word (yyA [1].fragments.tree)) :
			mglobal_text (yyA [1].fragments.tree->text.pos, yyA [1].fragments.tree);
 ;

} break;
case 97: yyDecrement (3) yySetNT (yyNTglobal_qualification) {
/* line 298 "Parser.lrk" */
 yyS.global_qualification.tree = yyA [2].fragments.is_simple ?
			mqualification (yyA [2].fragments.tree->text.pos,
			   yyA [0].global_qualification.tree, make_one_word (yyA [2].fragments.tree)) :
			mcomplex_qual (yyA [2].fragments.tree->text.pos,
			   yyA [0].global_qualification.tree, yyA [2].fragments.tree);
 ;

} break;
case 98: yyDecrement (2) yySetNT (yyNTglobal_qualification) {
/* line 305 "Parser.lrk" */
yyS.global_qualification.tree = yyA [0].global_qualification.tree;

} break;
case 99: yyDecrement (1) yySetNT (yyNTfragments) {
/* line 307 "Parser.lrk" */
yyS.fragments.is_simple = yyA [0].fragment.is_simple;
 yyS.fragments.tree = yyA [0].fragment.tree; yyS.fragments.tree->text.next = dnotext; ;
 ;

} break;
case 100: yyDecrement (2) yySetNT (yyNTfragments) {
/* line 311 "Parser.lrk" */
 yyS.fragments.tree = yyA [0].fragment.tree; yyS.fragments.tree->text.next = yyA [1].fragments.tree; ;

		  yyS.fragments.is_simple = yyA [0].fragment.is_simple & yyA [1].fragments.is_simple;
 ;

} break;
case 101: yyDecrement (1) yySetNT (yyNTfragment) {
/* line 316 "Parser.lrk" */
 yyS.fragment.tree = mcharacter (NoTree, yyA [0].Scan.Position, '$');

		  yyS.fragment.is_simple = rtrue;
 ;

} break;
case 102:
case 49: yyDecrement (1) yySetNT (yyNTfragment) {
/* line 321 "Parser.lrk" */
 yyS.fragment.tree = mcharacter (NoTree, yyA [0].Scan.Position, yyA [0].Scan.character.text);

		  yyS.fragment.is_simple = rtrue;
 ;

} break;
case 103:
case 50: yyDecrement (1) yySetNT (yyNTfragment) {
/* line 326 "Parser.lrk" */
 yyS.fragment.tree = mident (NoTree, yyA [0].Scan.Position, yyA [0].Scan.ident.ident);

		  yyS.fragment.is_simple = rtrue;
 ;

} break;
case 104:
case 51: yyDecrement (3) yySetNT (yyNTfragment) {
/* line 331 "Parser.lrk" */
 yyS.fragment.tree = mblock (NoTree, yyA [0].Scan.Position, yyA [2].Scan.Position, yyA [1].statements.tree, '"');

		  yyS.fragment.is_simple = rfalse;
 ;

} break;
case 105:
case 52: yyDecrement (3) yySetNT (yyNTfragment) {
/* line 336 "Parser.lrk" */
 yyS.fragment.tree = mblock (NoTree, yyA [0].Scan.Position, yyA [2].Scan.Position, yyA [1].statements.tree, '[');

		  yyS.fragment.is_simple = rfalse;
 ;

} break;
case 106:
case 53: yyDecrement (3) yySetNT (yyNTfragment) {
/* line 341 "Parser.lrk" */
 yyS.fragment.tree = mblock (NoTree, yyA [0].Scan.Position, yyA [2].Scan.Position, yyA [1].statements.tree, '{');

		  yyS.fragment.is_simple = rfalse;
 ;

} break;
case 107:
case 54: yyDecrement (4) yySetNT (yyNTfragment) {
/* line 346 "Parser.lrk" */
 yyS.fragment.tree = Mblock_content (yyA [0].Scan.Position, yyA [3].Scan.Position, yyA [2].statements.tree);

		  yyS.fragment.is_simple = rfalse;
 ;

} break;
case 108: yyDecrement (2) yySetNT (yyNTfragment) {
/* line 351 "Parser.lrk" */
 yyS.fragment.tree = mcontent (NoTree, yyA [0].Scan.Position, yyA [1].variable.tree);

		  yyS.fragment.is_simple = rfalse;
 ;

} break;
case 109: yyDecrement (2) yySetNT (yyNTfragment) {
/* line 356 "Parser.lrk" */
 yyS.fragment.tree = mcharacter (NoTree, yyA [0].Scan.Position, '$');

		  yyS.fragment.is_simple = rtrue;
 ;

} break;
case 110: yyDecrement (1) yySetNT (yyNTvariable) {
/* line 361 "Parser.lrk" */
yyS.variable.tree = yyA [0].simple_local_qual.tree;

} break;
case 111: yyDecrement (2) yySetNT (yyNTvariable) {
/* line 363 "Parser.lrk" */
yyS.variable.tree = yyA [0].simple_local_qual.tree;

} break;
case 112: yyDecrement (3) yySetNT (yyNTvariable) {
/* line 365 "Parser.lrk" */
 yyS.variable.tree = msubscription (yyA [1].Scan.Position, yyA [0].simple_local_qual.tree,
			yyA [2].qualification.tree);
 ;

} break;
case 113:
case 55: yyDecrement (4) yySetNT (yyNTvariable) {
/* line 369 "Parser.lrk" */
 yyS.variable.tree = msubscription (yyA [1].Scan.Position, yyA [0].simple_local_qual.tree,
			yyA [2].qualification.tree);
 ;

} break;
case 114: yyDecrement (1) yySetNT (yyNTvariable) {
/* line 373 "Parser.lrk" */
yyS.variable.tree = yyA [0].simple_global_qual.tree;

} break;
case 115: yyDecrement (2) yySetNT (yyNTvariable) {
/* line 375 "Parser.lrk" */
yyS.variable.tree = yyA [0].simple_global_qual.tree;

} break;
case 116: yyDecrement (3) yySetNT (yyNTvariable) {
/* line 377 "Parser.lrk" */
 yyS.variable.tree = msubscription (yyA [1].Scan.Position, yyA [0].simple_global_qual.tree,
			yyA [2].qualification.tree);
 ;

} break;
case 117:
case 56: yyDecrement (4) yySetNT (yyNTvariable) {
/* line 381 "Parser.lrk" */
 yyS.variable.tree = msubscription (yyA [1].Scan.Position, yyA [0].simple_global_qual.tree,
			yyA [2].qualification.tree);
 ;

} break;
case 118:
case 57: yyDecrement (1) yySetNT (yyNTsimple_local_qual) {
/* line 385 "Parser.lrk" */
 yyS.simple_local_qual.tree = mlocal_ident (yyA [0].Scan.Position, yyA [0].Scan.ident.ident);
 ;

} break;
case 119:
case 58: yyDecrement (3) yySetNT (yyNTsimple_local_qual) {
/* line 388 "Parser.lrk" */
 yyS.simple_local_qual.tree = mqualification (yyA [2].Scan.Position,
			yyA [0].simple_local_qual.tree, yyA [2].Scan.ident.ident);
 ;

} break;
case 120: yyDecrement (2) yySetNT (yyNTsimple_local_qual) {
/* line 392 "Parser.lrk" */
yyS.simple_local_qual.tree = yyA [0].simple_local_qual.tree;

} break;
case 121:
case 59: yyDecrement (2) yySetNT (yyNTsimple_global_qual) {
/* line 394 "Parser.lrk" */
 yyS.simple_global_qual.tree = mglobal_ident (yyA [1].Scan.Position, yyA [1].Scan.ident.ident);
 ;

} break;
case 122:
case 60: yyDecrement (3) yySetNT (yyNTsimple_global_qual) {
/* line 397 "Parser.lrk" */
 yyS.simple_global_qual.tree = mqualification (yyA [2].Scan.Position,
			yyA [0].simple_global_qual.tree, yyA [2].Scan.ident.ident);
 ;

} break;
case 123: yyDecrement (2) yySetNT (yyNTsimple_global_qual) {
/* line 401 "Parser.lrk" */
yyS.simple_global_qual.tree = yyA [0].simple_global_qual.tree;

} break;
case 124:
case 61: yyDecrement (1) yySetNT (yyNTend) {
} break;
case 125:
case 62: yyDecrement (2) yySetNT (yyNTend) {
} break;
case 126:
case 63: yyDecrement (1) yySetNT (yyNTend) {
} break;
case 127:
case 64: yyDecrement (2) yySetNT (yyNTend) {
} break;
default: switch (yyState) {
case 1: goto yyAbort;
case 2: goto yyRead;
case 3: goto yyReduce;
}
}

       /* SPEC State = Next (Top (), Nonterminal); nonterminal transition */
#ifdef YYNDefault
	       yyState = * yyStateStackPtr ++;
	       for (;;) {
		  register yytComb * yyNCombPtr =
				yyNBasePtr [yyState] + (int) yyNonterminal;
		  if (yyNCombPtr->Check == yyState) {
		     yyState = yyNCombPtr->Next; break;
		  }