util/byacc/skeleton.c

   1 #include "defs.h"
   2
   3 /*  The banner used here should be replaced with an #ident directive    */
   4 /*  if the target C compiler supports #ident directives.                */
   5 /*                                                                      */
   6 /*  If the skeleton is changed, the banner should be changed so that    */
   7 /*  the altered version can easily be distinguished from the original.  */
   8
   9 char *banner[] =
  10 {
  11     "#ifndef lint",
  12     "static char yysccsid[] = \"@(#)yaccpar     1.8 (Berkeley) 01/20/90\";",
  13     "#endif",
  14     "#define YYBYACC 1",
  15     0
  16 };
  17
  18
  19 char *tables[] =
  20 {
  21     "extern short yylhs[];",
  22     "extern short yylen[];",
  23     "extern short yydefred[];",
  24     "extern short yydgoto[];",
  25     "extern short yysindex[];",
  26     "extern short yyrindex[];",
  27     "extern short yygindex[];",
  28     "extern short yytable[];",
  29     "extern short yycheck[];",
  30     "#if YYDEBUG",
  31     "extern char *yyname[];",
  32     "extern char *yyrule[];",
  33     "#endif",
  34     0
  35 };
  36
  37
  38 char *header[] =
  39 {
  40     "#define yyclearin (yychar=(-1))",
  41     "#define yyerrok (yyerrflag=0)",
  42     "#ifdef YYSTACKSIZE",
  43     "#ifndef YYMAXDEPTH",
  44     "#define YYMAXDEPTH YYSTACKSIZE",
  45     "#endif",
  46     "#else",
  47     "#ifdef YYMAXDEPTH",
  48     "#define YYSTACKSIZE YYMAXDEPTH",
  49     "#else",
  50     "#define YYSTACKSIZE 200",          /* ACK mod: Changed from 600 to 200 */
  51     "#define YYMAXDEPTH 200",           /* ACK mod: Changed from 600 to 200 */
  52     "#endif",
  53     "#endif",
  54     "#if YYDEBUG",
  55     "int yydebug;",
  56     "#endif",
  57     "int yynerrs;",
  58     "int yyerrflag;",
  59     "int yychar;",
  60     "YYSTYPE yyval;",
  61     "YYSTYPE yylval;",
  62     "short yyss[YYSTACKSIZE];",
  63     "YYSTYPE yyvs[YYSTACKSIZE];",
  64     "#define yystacksize YYSTACKSIZE",
  65     0
  66 };
  67
  68
  69 char *body[] =
  70 {
  71     "#define YYABORT goto yyabort",
  72     "#define YYACCEPT goto yyaccept",
  73     "#define YYERROR goto yyerrlab",
  74     "int",
  75     "yyparse()",
  76     "{",
  77     "    register int yym, yyn, yystate;",
  78     "    register short *yyssp;",       /* ACK mod: made this a local */
  79     "    register YYSTYPE *yyvsp;",     /* ACK mod: made this a local */
  80     "#if YYDEBUG",
  81     "    register char *yys;",
  82     "    extern char *getenv();",
  83     "",
  84     "    if (yys = getenv(\"YYDEBUG\"))",
  85     "    {",
  86     "        yyn = *yys;",
  87     "        if (yyn >= '0' && yyn <= '9')",
  88     "            yydebug = yyn - '0';",
  89     "    }",
  90     "#endif",
  91     "",
  92     "    yynerrs = 0;",
  93     "    yyerrflag = 0;",
  94     "    yychar = (-1);",
  95     "",
  96     "    yyssp = yyss;",
  97     "    yyvsp = yyvs;",
  98     "    *yyssp = yystate = 0;",
  99     "",
 100     "yyloop:",
 101     "    if (yyn = yydefred[yystate]) goto yyreduce;",
 102     "    if (yychar < 0)",
 103     "    {",
 104     "        if ((yychar = yylex()) < 0) yychar = 0;",
 105     "#if YYDEBUG",
 106     "        if (yydebug)",
 107     "        {",
 108     "            yys = 0;",
 109     "            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
 110     "            if (!yys) yys = \"illegal-symbol\";",
 111     "            printf(\"yydebug: state %d, reading %d (%s)\\n\", yystate,",
 112     "                    yychar, yys);",
 113     "        }",
 114     "#endif",
 115     "    }",
 116     "    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&",
 117     "            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
 118     "    {",
 119     "#if YYDEBUG",
 120     "        if (yydebug)",
 121     "            printf(\"yydebug: state %d, shifting to state %d\\n\",",
 122     "                    yystate, yytable[yyn]);",
 123     "#endif",
 124     "        if (yyssp >= yyss + yystacksize - 1)",
 125     "        {",
 126     "            goto yyoverflow;",
 127     "        }",
 128     "        *++yyssp = yystate = yytable[yyn];",
 129     "        *++yyvsp = yylval;",
 130     "        yychar = (-1);",
 131     "        if (yyerrflag > 0)  --yyerrflag;",
 132     "        goto yyloop;",
 133     "    }",
 134     "    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&",
 135     "            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
 136     "    {",
 137     "        yyn = yytable[yyn];",
 138     "        goto yyreduce;",
 139     "    }",
 140     "    if (yyerrflag) goto yyinrecovery;",
 141     "#ifdef lint",
 142     "    goto yynewerror;",
 143     "#endif",
 144     "yynewerror:",
 145     "    yyerror(\"syntax error\");",
 146     "#ifdef lint",
 147     "    goto yyerrlab;",
 148     "#endif",
 149     "yyerrlab:",
 150     "    ++yynerrs;",
 151     "yyinrecovery:",
 152     "    if (yyerrflag < 3)",
 153     "    {",
 154     "        yyerrflag = 3;",
 155     "        for (;;)",
 156     "        {",
 157     "            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&",
 158     "                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)",
 159     "            {",
 160     "#if YYDEBUG",
 161     "                if (yydebug)",
 162     "                    printf(\"yydebug: state %d, error recovery shifting\\",
 163     " to state %d\\n\", *yyssp, yytable[yyn]);",
 164     "#endif",
 165     "                if (yyssp >= yyss + yystacksize - 1)",
 166     "                {",
 167     "                    goto yyoverflow;",
 168     "                }",
 169     "                *++yyssp = yystate = yytable[yyn];",
 170     "                *++yyvsp = yylval;",
 171     "                goto yyloop;",
 172     "            }",
 173     "            else",
 174     "            {",
 175     "#if YYDEBUG",
 176     "                if (yydebug)",
 177     "                    printf(\"yydebug: error recovery discarding state %d\
 178 \\n\",",
 179     "                            *yyssp);",
 180     "#endif",
 181     "                if (yyssp <= yyss) goto yyabort;",
 182     "                --yyssp;",
 183     "                --yyvsp;",
 184     "            }",
 185     "        }",
 186     "    }",
 187     "    else",
 188     "    {",
 189     "        if (yychar == 0) goto yyabort;",
 190     "#if YYDEBUG",
 191     "        if (yydebug)",
 192     "        {",
 193     "            yys = 0;",
 194     "            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
 195     "            if (!yys) yys = \"illegal-symbol\";",
 196     "            printf(\"yydebug: state %d, error recovery discards token %d\
 197  (%s)\\n\",",
 198     "                    yystate, yychar, yys);",
 199     "        }",
 200     "#endif",
 201     "        yychar = (-1);",
 202     "        goto yyloop;",
 203     "    }",
 204     "yyreduce:",
 205     "#if YYDEBUG",
 206     "    if (yydebug)",
 207     "        printf(\"yydebug: state %d, reducing by rule %d (%s)\\n\",",
 208     "                yystate, yyn, yyrule[yyn]);",
 209     "#endif",
 210     "    yym = yylen[yyn];",
 211     "    yyval = yyvsp[1-yym];",
 212     "    switch (yyn)",
 213     "    {",
 214     0
 215 };
 216
 217
 218 char *trailer[] =
 219 {
 220     "    }",
 221     "    yyssp -= yym;",
 222     "    yystate = *yyssp;",
 223     "    yyvsp -= yym;",
 224     "    yym = yylhs[yyn];",
 225     "    if (yystate == 0 && yym == 0)",
 226     "    {",
 227     "#if YYDEBUG",
 228     "        if (yydebug)",
 229     "            printf(\"yydebug: after reduction, shifting from state 0 to\\",
 230     " state %d\\n\", YYFINAL);",
 231     "#endif",
 232     "        yystate = YYFINAL;",
 233     "        *++yyssp = YYFINAL;",
 234     "        *++yyvsp = yyval;",
 235     "        if (yychar < 0)",
 236     "        {",
 237     "            if ((yychar = yylex()) < 0) yychar = 0;",
 238     "#if YYDEBUG",
 239     "            if (yydebug)",
 240     "            {",
 241     "                yys = 0;",
 242     "                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
 243     "                if (!yys) yys = \"illegal-symbol\";",
 244     "                printf(\"yydebug: state %d, reading %d (%s)\\n\",",
 245     "                        YYFINAL, yychar, yys);",
 246     "            }",
 247     "#endif",
 248     "        }",
 249     "        if (yychar == 0) goto yyaccept;",
 250     "        goto yyloop;",
 251     "    }",
 252     "    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&",
 253     "            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)",
 254     "        yystate = yytable[yyn];",
 255     "    else",
 256     "        yystate = yydgoto[yym];",
 257     "#if YYDEBUG",
 258     "    if (yydebug)",
 259     "        printf(\"yydebug: after reduction, shifting from state %d \\",
 260     "to state %d\\n\", *yyssp, yystate);",
 261     "#endif",
 262     "    if (yyssp >= yyss + yystacksize - 1)",
 263     "    {",
 264     "        goto yyoverflow;",
 265     "    }",
 266     "    *++yyssp = yystate;",
 267     "    *++yyvsp = yyval;",
 268     "    goto yyloop;",
 269     "yyoverflow:",
 270     "    yyerror(\"yacc stack overflow\");",
 271     "yyabort:",
 272     "    return (1);",
 273     "yyaccept:",
 274     "    return (0);",
 275     "}",
 276     0
 277 };
 278
 279
 280 write_section(section)
 281 char *section[];
 282 {
 283     register int i;
 284     register FILE *fp;
 285
 286     fp = code_file;
 287     for (i = 0; section[i]; ++i)
 288     {
 289         ++outline;
 290         fprintf(fp, "%s\n", section[i]);
 291     }
 292 }