parser.c

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

#define yyFirstReadReduceState	2218
#define yyLastReadReduceState	2887
#define yyFirstReduceState	2888
#define yyLastReduceState	5053
#define yyLastState	5296
#define yyLastStopState	2889
#define YYTDefault
#define YYNDefault
#define YYTrialParse
#define YYGetLook
#define YYDEC_TABLE
#define YYaccDefault

#define yyFirstFinalState	yyFirstReadReduceState

#define ErrorMessages(Messages) yyControl.yyMessages = Messages
#define SemActions(Actions)	 yyControl.yyActions = Actions

#ifdef YYGetLook

#define GetLookahead(k)	yyGetLookahead ((k) - 1, yyTerminal)
#define GetAttribute(k, a)	xxGetAttribute ((k) - 1, yyTerminal, a)

static int yyGetLookahead	ARGS ((int yyk, yySymbolRange yyToken));
static void xxGetAttribute	ARGS ((int yyk, yySymbolRange yyToken,
				tScanAttribute * yyAttribute));

#endif

/* line 5 "Parser.lrk" */


#include <ctype.h>
#include "Position.h"
#include "StringM.h"
#include "Idents.h"
#include "keywdef.h"
#include "keywords.h"
#include "def.h"
#include "deftab.h"
#include "sn.h"

#define yyInitStackSize	200
#define yyInitBufferSize	32

#define TOKENOP	PrevEPos = CurrentEPos; CurrentEPos = Attribute.name.EPos;
#define BEFORE_TRIAL	tPosition SavePEPos, SaveCEPos; SavePEPos = PrevEPos; SaveCEPos = CurrentEPos;
#define AFTER_TRIAL	PrevEPos = SavePEPos; CurrentEPos = SaveCEPos;

extern	rbool		Copy ARGS ((tIdent ident, tPosition pos));

static	tPosition	PrevEPos, CurrentEPos;
static	tIdent		iCURRENT_DATE	;
static	tIdent		iWHEN_COMPILED	;

typedef struct { tScanAttribute Scan; } zzname_or_Filler;
typedef struct { tIdent Ident; tPosition Pos; } zzcopy_name;
typedef struct { tpdecl decl; tScanAttribute Scan; } zzqualification;
typedef struct { tScanAttribute Scan; } zzqualification_n;
typedef struct { tScanAttribute Scan; } zzchapter_name;
typedef struct { long Value; } zzinteger;
typedef struct { long Value; tScanAttribute Scan; } zzu_integer;

typedef union {
tScanAttribute Scan;
zzname_or_Filler name_or_Filler;
zzcopy_name copy_name;
zzqualification qualification;
zzqualification_n qualification_n;
zzchapter_name chapter_name;
zzinteger integer;
zzu_integer u_integer;
} tParsAttribute;


#if defined lex_interface & ! defined yylvalDef
     tParsAttribute yylval;
#endif

#ifndef yyInitStackSize
#define yyInitStackSize	100
#endif
#ifndef ERROR
#define ERROR
#endif
#define yyNoState		0
#define yystandard		1
#define yytrial		2
#define yybuffer		4
#define yyreparse		8
#define yyS			yySynAttribute
#define yyA			yyAttrStackPtr
#define YYACCEPT		goto yyAccept
#define YYABORT		goto yyAbort

#ifdef YYDEC_TABLE
#define yyDecrement(x)
#define yySetNT(x)
#else
#define yyDecrement(x)		yyStateStackPtr -= x; yyAttrStackPtr -= x;
#define yySetNT(x)		yyNonterminal = x;
#endif

#ifdef YYNDefault
#define yytNComb yytComb
#else
#define yytNComb yyStateRange
#endif

#if defined YYDEBUG | defined YYDCRP
static	long		yyCount		= 0;
static	FILE *		yyTrace		;

static	void		yyPrintState	ARGS ((yyStateRange yyState));
static	void		yyNl		ARGS ((void));

static	char *		yyRule		[] = { 0,
""
};
#endif
	char *		Parser_TokenName	[yyLastTerminal + 2] = {
"_EOF_",
"name",
"paragraph_name",
"unsigned_integer",
"plus_integer",
"minus_integer",
"level_number",
"real",
"string",
"pseudo_text",
"picture_string",
"illegal_character",
".",
"ACCEPT",
"ACCESS",
"ADD",
"ADDRESS",
"ADVANCING",
"AFTER",
"ALL",
"ALPHABET",
"ALPHABETIC",
"ALPHANUMERIC",
"ALPHANUMERIC-EDITED",
"ALSO",
"ALTER",
"ALTERNATE",
"AND",
"ANY",
"APPLY",
"ARE",
"AREA",
"AREAS",
"ASCENDING",
"ASSIGN",
"AT",
"AUTHOR",
"AUTO",
"AUTO-SKIP",
"AUTOMATIC",
"BACKGROUND-COLOR",
"BEEP",
"BEFORE",
"BEGINNING",
"BELL",
"BINARY",
"BLANK",
"BLINK",
"BLOCK",
"BOTTOM",
"BY",
"CALL",
"CALL-CONVENTION",
"CANCEL",
"CD",
"CF",
"CH",
"CHAIN",
"CHAINING",
"CHANGED",
"CHARACTER",
"CHARACTERS",
"CLASS",
"CLOCK-UNITS",
"CLOSE",
"CODE",
"CODE-SET",
"COL",
"COLLATING",
"COLUMN",
"COMMA",
"COMMIT",
"COMMON",
"COMMUNICATION",
"COMPUTATIONAL",
"COMPUTATIONAL-0",
"COMPUTATIONAL-1",
"COMPUTATIONAL-2",
"COMPUTATIONAL-3",
"COMPUTATIONAL-4",
"COMPUTATIONAL-5",
"COMPUTATIONAL-6",
"COMPUTATIONAL-X",
"COMPUTE",
"CONFIGURATION",
"CONSOLE",
"CONTAINS",
"CONTENT",
"CONTINUE",
"CONTROL",
"CONTROLS",
"CONVERTING",
"COPY",
"CORE-INDEX",
"CORRESPONDING",
"COUNT",
"CRT",
"CRT-UNDER",
"CURRENCY",
"CURSOR",
"CYCLE",
"DATA",
"DATE",
"DATE-COMPILED",
"DATE-WRITTEN",
"DAY",
"DAY-OF-WEEK",
"DBCS",
"DEBUGGING",
"DECIMAL-POINT",
"DECLARATIVES",
"DELETE",
"DELIMITED",
"DELIMITER",
"DEPENDING",
"DESCENDING",
"DESTINATION",
"DETAIL",
"DISABLE",
"DISK",
"DISP",
"DISPLAY",
"DISPLAY-1",
"DIVIDE",
"DIVISION",
"DOWN",
"DUPLICATES",
"DYNAMIC",
"ELSE",
"EMPTY-CHECK",
"ENABLE",
"END",
"END-ACCEPT",
"END-ADD",
"END-CALL",
"END-CHAIN",
"END-COMPUTE",
"END-DELETE",
"END-DISPLAY",
"END-DIVIDE",
"END-EVALUATE",
"END-IF",
"END-MULTIPLY",
"END-OF-PAGE",
"END-PERFORM",
"END-READ",
"END-RECEIVE",
"END-RETURN",
"END-REWRITE",
"END-SEARCH",
"END-START",
"END-STRING",
"END-SUBTRACT",
"END-UNSTRING",
"END-WRITE",
"ENDING",
"ENTER",
"ENTRY",
"ENVIRONMENT",
"EOL",
"EOS",
"EQUAL",
"EQUALS",
"ERASE",
"ERROR",
"ESCAPE",
"EVALUATE",
"EVERY",
"EXAMINE",
"EXCEEDS",
"EXCEPTION",
"EXCLUSIVE",
"EXECUTE",
"EXHIBIT",
"EXIT",
"EXTEND",
"EXTERNAL",
"FALSE",
"FD",
"FILE",
"FILE-CONTROL",
"FILE-ID",
"FILLER",
"FINAL",
"FIRST",
"FIXED",
"FOOTING",
"FOR",
"FOREGROUND-COLOR",
"FROM",
"FULL",
"FUNCTION",
"GENERATE",
"GIVING",
"GLOBAL",
"GO",
"GOBACK",
"GREATER",
"GRID",
"GROUP",
"HEADING",
"HIGH-VALUE",
"HIGHLIGHT",
"I-O",
"I-O-CONTROL",
"IDENTIFICATION",
"IF",
"IGNORE",
"IN",
"INDEX",
"INDEXED",
"INDICATE",
"INITIAL",
"INITIALIZE",
"INITIATE",
"INPUT",
"INPUT-OUTPUT",
"INSPECT",
"INSTALLATION",
"INTO",
"INVALID",
"IS",
"JUSTIFIED",
"KEPT",
"KEY",
"KEYBOARD",
"LABEL",
"LAST",
"LEADING",
"LEFT",
"LEFT-JUSTIFY",
"LEFTLINE",
"LENGTH",
"LENGTH-CHECK",
"LESS",
"LIMIT",
"LIMITS",
"LINAGE",
"LINE",
"LINES",
"LINKAGE",
"LOCAL-STORAGE",
"LOCK",
"LOW-VALUE",
"LOWER",
"LOWLIGHT",
"MANUAL",
"MEMORY",
"MERGE",
"MESSAGE",
"MODE",
"MODULES",
"MOVE",
"MULTIPLE",
"MULTIPLY",
"NAME",
"NAMED",
"NATIONAL",
"NATIONAL-EDITED",