skeleton.c 7.8 KB

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