123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292 |
- #include "defs.h"
- /* The banner used here should be replaced with an #ident directive */
- /* if the target C compiler supports #ident directives. */
- /* */
- /* If the skeleton is changed, the banner should be changed so that */
- /* the altered version can easily be distinguished from the original. */
- char *banner[] =
- {
- "#ifndef lint",
- "static char yysccsid[] = \"@(#)yaccpar 1.8 (Berkeley) 01/20/90\";",
- "#endif",
- "#define YYBYACC 1",
- 0
- };
- char *tables[] =
- {
- "extern short yylhs[];",
- "extern short yylen[];",
- "extern short yydefred[];",
- "extern short yydgoto[];",
- "extern short yysindex[];",
- "extern short yyrindex[];",
- "extern short yygindex[];",
- "extern short yytable[];",
- "extern short yycheck[];",
- "#if YYDEBUG",
- "extern char *yyname[];",
- "extern char *yyrule[];",
- "#endif",
- 0
- };
- char *header[] =
- {
- "#define yyclearin (yychar=(-1))",
- "#define yyerrok (yyerrflag=0)",
- "#ifdef YYSTACKSIZE",
- "#ifndef YYMAXDEPTH",
- "#define YYMAXDEPTH YYSTACKSIZE",
- "#endif",
- "#else",
- "#ifdef YYMAXDEPTH",
- "#define YYSTACKSIZE YYMAXDEPTH",
- "#else",
- "#define YYSTACKSIZE 200", /* ACK mod: Changed from 600 to 200 */
- "#define YYMAXDEPTH 200", /* ACK mod: Changed from 600 to 200 */
- "#endif",
- "#endif",
- "#if YYDEBUG",
- "int yydebug;",
- "#endif",
- "int yynerrs;",
- "int yyerrflag;",
- "int yychar;",
- "YYSTYPE yyval;",
- "YYSTYPE yylval;",
- "short yyss[YYSTACKSIZE];",
- "YYSTYPE yyvs[YYSTACKSIZE];",
- "#define yystacksize YYSTACKSIZE",
- 0
- };
- char *body[] =
- {
- "#define YYABORT goto yyabort",
- "#define YYACCEPT goto yyaccept",
- "#define YYERROR goto yyerrlab",
- "int",
- "yyparse()",
- "{",
- " register int yym, yyn, yystate;",
- " register short *yyssp;", /* ACK mod: made this a local */
- " register YYSTYPE *yyvsp;", /* ACK mod: made this a local */
- "#if YYDEBUG",
- " register char *yys;",
- " extern char *getenv();",
- "",
- " if (yys = getenv(\"YYDEBUG\"))",
- " {",
- " yyn = *yys;",
- " if (yyn >= '0' && yyn <= '9')",
- " yydebug = yyn - '0';",
- " }",
- "#endif",
- "",
- " yynerrs = 0;",
- " yyerrflag = 0;",
- " yychar = (-1);",
- "",
- " yyssp = yyss;",
- " yyvsp = yyvs;",
- " *yyssp = yystate = 0;",
- "",
- "yyloop:",
- " if (yyn = yydefred[yystate]) goto yyreduce;",
- " if (yychar < 0)",
- " {",
- " if ((yychar = yylex()) < 0) yychar = 0;",
- "#if YYDEBUG",
- " if (yydebug)",
- " {",
- " yys = 0;",
- " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
- " if (!yys) yys = \"illegal-symbol\";",
- " printf(\"yydebug: state %d, reading %d (%s)\\n\", yystate,",
- " yychar, yys);",
- " }",
- "#endif",
- " }",
- " if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&",
- " yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
- " {",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: state %d, shifting to state %d\\n\",",
- " yystate, yytable[yyn]);",
- "#endif",
- " if (yyssp >= yyss + yystacksize - 1)",
- " {",
- " goto yyoverflow;",
- " }",
- " *++yyssp = yystate = yytable[yyn];",
- " *++yyvsp = yylval;",
- " yychar = (-1);",
- " if (yyerrflag > 0) --yyerrflag;",
- " goto yyloop;",
- " }",
- " if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&",
- " yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
- " {",
- " yyn = yytable[yyn];",
- " goto yyreduce;",
- " }",
- " if (yyerrflag) goto yyinrecovery;",
- "#ifdef lint",
- " goto yynewerror;",
- "#endif",
- "yynewerror:",
- " yyerror(\"syntax error\");",
- "#ifdef lint",
- " goto yyerrlab;",
- "#endif",
- "yyerrlab:",
- " ++yynerrs;",
- "yyinrecovery:",
- " if (yyerrflag < 3)",
- " {",
- " yyerrflag = 3;",
- " for (;;)",
- " {",
- " if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&",
- " yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)",
- " {",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: state %d, error recovery shifting\\",
- " to state %d\\n\", *yyssp, yytable[yyn]);",
- "#endif",
- " if (yyssp >= yyss + yystacksize - 1)",
- " {",
- " goto yyoverflow;",
- " }",
- " *++yyssp = yystate = yytable[yyn];",
- " *++yyvsp = yylval;",
- " goto yyloop;",
- " }",
- " else",
- " {",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: error recovery discarding state %d\
- \\n\",",
- " *yyssp);",
- "#endif",
- " if (yyssp <= yyss) goto yyabort;",
- " --yyssp;",
- " --yyvsp;",
- " }",
- " }",
- " }",
- " else",
- " {",
- " if (yychar == 0) goto yyabort;",
- "#if YYDEBUG",
- " if (yydebug)",
- " {",
- " yys = 0;",
- " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
- " if (!yys) yys = \"illegal-symbol\";",
- " printf(\"yydebug: state %d, error recovery discards token %d\
- (%s)\\n\",",
- " yystate, yychar, yys);",
- " }",
- "#endif",
- " yychar = (-1);",
- " goto yyloop;",
- " }",
- "yyreduce:",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: state %d, reducing by rule %d (%s)\\n\",",
- " yystate, yyn, yyrule[yyn]);",
- "#endif",
- " yym = yylen[yyn];",
- " yyval = yyvsp[1-yym];",
- " switch (yyn)",
- " {",
- 0
- };
- char *trailer[] =
- {
- " }",
- " yyssp -= yym;",
- " yystate = *yyssp;",
- " yyvsp -= yym;",
- " yym = yylhs[yyn];",
- " if (yystate == 0 && yym == 0)",
- " {",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: after reduction, shifting from state 0 to\\",
- " state %d\\n\", YYFINAL);",
- "#endif",
- " yystate = YYFINAL;",
- " *++yyssp = YYFINAL;",
- " *++yyvsp = yyval;",
- " if (yychar < 0)",
- " {",
- " if ((yychar = yylex()) < 0) yychar = 0;",
- "#if YYDEBUG",
- " if (yydebug)",
- " {",
- " yys = 0;",
- " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
- " if (!yys) yys = \"illegal-symbol\";",
- " printf(\"yydebug: state %d, reading %d (%s)\\n\",",
- " YYFINAL, yychar, yys);",
- " }",
- "#endif",
- " }",
- " if (yychar == 0) goto yyaccept;",
- " goto yyloop;",
- " }",
- " if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&",
- " yyn <= YYTABLESIZE && yycheck[yyn] == yystate)",
- " yystate = yytable[yyn];",
- " else",
- " yystate = yydgoto[yym];",
- "#if YYDEBUG",
- " if (yydebug)",
- " printf(\"yydebug: after reduction, shifting from state %d \\",
- "to state %d\\n\", *yyssp, yystate);",
- "#endif",
- " if (yyssp >= yyss + yystacksize - 1)",
- " {",
- " goto yyoverflow;",
- " }",
- " *++yyssp = yystate;",
- " *++yyvsp = yyval;",
- " goto yyloop;",
- "yyoverflow:",
- " yyerror(\"yacc stack overflow\");",
- "yyabort:",
- " return (1);",
- "yyaccept:",
- " return (0);",
- "}",
- 0
- };
- write_section(section)
- char *section[];
- {
- register int i;
- register FILE *fp;
- fp = code_file;
- for (i = 0; section[i]; ++i)
- {
- ++outline;
- fprintf(fp, "%s\n", section[i]);
- }
- }
|