home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / compcomp / byacc / skeleton.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-01-08  |  8.2 KB  |  291 lines
  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.7 (Berkeley) 09/09/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 600",
  51.     "#define YYMAXDEPTH 600",
  52.     "#endif",
  53.     "#endif",
  54.     "int yydebug;",
  55.     "int yynerrs;",
  56.     "int yyerrflag;",
  57.     "int yychar;",
  58.     "short *yyssp;",
  59.     "YYSTYPE *yyvsp;",
  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.     "#if YYDEBUG",
  79.     "    register char *yys;",
  80.     "    extern char *getenv();",
  81.     "",
  82.     "    if (yys = getenv(\"YYDEBUG\"))",
  83.     "    {",
  84.     "        yyn = *yys;",
  85.     "        if (yyn >= '0' && yyn <= '9')",
  86.     "            yydebug = yyn - '0';",
  87.     "    }",
  88.     "#endif",
  89.     "",
  90.     "    yynerrs = 0;",
  91.     "    yyerrflag = 0;",
  92.     "    yychar = (-1);",
  93.     "",
  94.     "    yyssp = yyss;",
  95.     "    yyvsp = yyvs;",
  96.     "    *yyssp = yystate = 0;",
  97.     "",
  98.     "yyloop:",
  99.     "    if (yyn = yydefred[yystate]) goto yyreduce;",
  100.     "    if (yychar < 0)",
  101.     "    {",
  102.     "        if ((yychar = yylex()) < 0) yychar = 0;",
  103.     "#if YYDEBUG",
  104.     "        if (yydebug)",
  105.     "        {",
  106.     "            yys = 0;",
  107.     "            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
  108.     "            if (!yys) yys = \"illegal-symbol\";",
  109.     "            printf(\"yydebug: state %d, reading %d (%s)\\n\", yystate,",
  110.     "                    yychar, yys);",
  111.     "        }",
  112.     "#endif",
  113.     "    }",
  114.     "    if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&",
  115.     "            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
  116.     "    {",
  117.     "#if YYDEBUG",
  118.     "        if (yydebug)",
  119.     "            printf(\"yydebug: state %d, shifting to state %d\\n\",",
  120.     "                    yystate, yytable[yyn]);",
  121.     "#endif",
  122.     "        if (yyssp >= yyss + yystacksize - 1)",
  123.     "        {",
  124.     "            goto yyoverflow;",
  125.     "        }",
  126.     "        *++yyssp = yystate = yytable[yyn];",
  127.     "        *++yyvsp = yylval;",
  128.     "        yychar = (-1);",
  129.     "        if (yyerrflag > 0)  --yyerrflag;",
  130.     "        goto yyloop;",
  131.     "    }",
  132.     "    if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&",
  133.     "            yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
  134.     "    {",
  135.     "        yyn = yytable[yyn];",
  136.     "        goto yyreduce;",
  137.     "    }",
  138.     "    if (yyerrflag) goto yyinrecovery;",
  139.     "#ifdef lint",
  140.     "    goto yynewerror;",
  141.     "#endif",
  142.     "yynewerror:",
  143.     "    yyerror(\"syntax error\");",
  144.     "#ifdef lint",
  145.     "    goto yyerrlab;",
  146.     "#endif",
  147.     "yyerrlab:",
  148.     "    ++yynerrs;",
  149.     "yyinrecovery:",
  150.     "    if (yyerrflag < 3)",
  151.     "    {",
  152.     "        yyerrflag = 3;",
  153.     "        for (;;)",
  154.     "        {",
  155.     "            if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&",
  156.     "                    yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)",
  157.     "            {",
  158.     "#if YYDEBUG",
  159.     "                if (yydebug)",
  160.     "                    printf(\"yydebug: state %d, error recovery shifting\\",
  161.     " to state %d\\n\", *yyssp, yytable[yyn]);",
  162.     "#endif",
  163.     "                if (yyssp >= yyss + yystacksize - 1)",
  164.     "                {",
  165.     "                    goto yyoverflow;",
  166.     "                }",
  167.     "                *++yyssp = yystate = yytable[yyn];",
  168.     "                *++yyvsp = yylval;",
  169.     "                goto yyloop;",
  170.     "            }",
  171.     "            else",
  172.     "            {",
  173.     "#if YYDEBUG",
  174.     "                if (yydebug)",
  175.     "                    printf(\"yydebug: error recovery discarding state %d\
  176. \\n\",",
  177.     "                            *yyssp);",
  178.     "#endif",
  179.     "                if (yyssp <= yyss) goto yyabort;",
  180.     "                --yyssp;",
  181.     "                --yyvsp;",
  182.     "            }",
  183.     "        }",
  184.     "    }",
  185.     "    else",
  186.     "    {",
  187.     "        if (yychar == 0) goto yyabort;",
  188.     "#if YYDEBUG",
  189.     "        if (yydebug)",
  190.     "        {",
  191.     "            yys = 0;",
  192.     "            if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
  193.     "            if (!yys) yys = \"illegal-symbol\";",
  194.     "            printf(\"yydebug: state %d, error recovery discards token %d\
  195.  (%s)\\n\",",
  196.     "                    yystate, yychar, yys);",
  197.     "        }",
  198.     "#endif",
  199.     "        yychar = (-1);",
  200.     "        goto yyloop;",
  201.     "    }",
  202.     "yyreduce:",
  203.     "#if YYDEBUG",
  204.     "    if (yydebug)",
  205.     "        printf(\"yydebug: state %d, reducing by rule %d (%s)\\n\",",
  206.     "                yystate, yyn, yyrule[yyn]);",
  207.     "#endif",
  208.     "    yym = yylen[yyn];",
  209.     "    yyval = yyvsp[1-yym];",
  210.     "    switch (yyn)",
  211.     "    {",
  212.     0
  213. };
  214.  
  215.  
  216. char *trailer[] =
  217. {
  218.     "    }",
  219.     "    yyssp -= yym;",
  220.     "    yystate = *yyssp;",
  221.     "    yyvsp -= yym;",
  222.     "    yym = yylhs[yyn];",
  223.     "    if (yystate == 0 && yym == 0)",
  224.     "    {",
  225.     "#if YYDEBUG",
  226.     "        if (yydebug)",
  227.     "            printf(\"yydebug: after reduction, shifting from state 0 to\\",
  228.     " state %d\\n\", YYFINAL);",
  229.     "#endif",
  230.     "        yystate = YYFINAL;",
  231.     "        *++yyssp = YYFINAL;",
  232.     "        *++yyvsp = yyval;",
  233.     "        if (yychar < 0)",
  234.     "        {",
  235.     "            if ((yychar = yylex()) < 0) yychar = 0;",
  236.     "#if YYDEBUG",
  237.     "            if (yydebug)",
  238.     "            {",
  239.     "                yys = 0;",
  240.     "                if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
  241.     "                if (!yys) yys = \"illegal-symbol\";",
  242.     "                printf(\"yydebug: state %d, reading %d (%s)\\n\",",
  243.     "                        YYFINAL, yychar, yys);",
  244.     "            }",
  245.     "#endif",
  246.     "        }",
  247.     "        if (yychar == 0) goto yyaccept;",
  248.     "        goto yyloop;",
  249.     "    }",
  250.     "    if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&",
  251.     "            yyn <= YYTABLESIZE && yycheck[yyn] == yystate)",
  252.     "        yystate = yytable[yyn];",
  253.     "    else",
  254.     "        yystate = yydgoto[yym];",
  255.     "#if YYDEBUG",
  256.     "    if (yydebug)",
  257.     "        printf(\"yydebug: after reduction, shifting from state %d \\",
  258.     "to state %d\\n\", *yyssp, yystate);",
  259.     "#endif",
  260.     "    if (yyssp >= yyss + yystacksize - 1)",
  261.     "    {",
  262.     "        goto yyoverflow;",
  263.     "    }",
  264.     "    *++yyssp = yystate;",
  265.     "    *++yyvsp = yyval;",
  266.     "    goto yyloop;",
  267.     "yyoverflow:",
  268.     "    yyerror(\"yacc stack overflow\");",
  269.     "yyabort:",
  270.     "    return (1);",
  271.     "yyaccept:",
  272.     "    return (0);",
  273.     "}",
  274.     0
  275. };
  276.  
  277.  
  278. write_section(section)
  279. char *section[];
  280. {
  281.     register int i;
  282.     register FILE *fp;
  283.  
  284.     fp = code_file;
  285.     for (i = 0; section[i]; ++i)
  286.     {
  287.         ++outline;
  288.         fprintf(fp, "%s\n", section[i]);
  289.     }
  290. }
  291.