/usr.bin/yacc/skeleton.c
C | 426 lines | 373 code | 11 blank | 42 comment | 19 complexity | 42830e8461d5eb5862209c50999fc715 MD5 | raw file
1/* 2 * Copyright (c) 1989 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * This code is derived from software contributed to Berkeley by 6 * Robert Paul Corbett. 7 * 8 * Redistribution and use in source and binary forms, with or without 9 * modification, are permitted provided that the following conditions 10 * are met: 11 * 1. Redistributions of source code must retain the above copyright 12 * notice, this list of conditions and the following disclaimer. 13 * 2. Redistributions in binary form must reproduce the above copyright 14 * notice, this list of conditions and the following disclaimer in the 15 * documentation and/or other materials provided with the distribution. 16 * 4. Neither the name of the University nor the names of its contributors 17 * may be used to endorse or promote products derived from this software 18 * without specific prior written permission. 19 * 20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND 21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 23 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE 24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 30 * SUCH DAMAGE. 31 */ 32 33#if 0 34#ifndef lint 35static char sccsid[] = "@(#)skeleton.c 5.8 (Berkeley) 4/29/95"; 36#endif 37#endif 38 39#include <sys/cdefs.h> 40__FBSDID("$FreeBSD$"); 41 42#include "defs.h" 43 44/* The definition of yysccsid in the banner should be replaced with */ 45/* a #pragma ident directive if the target C compiler supports */ 46/* #pragma ident directives. */ 47/* */ 48/* If the skeleton is changed, the banner should be changed so that */ 49/* the altered version can be easily distinguished from the original. */ 50/* */ 51/* The #defines included with the banner are there because they are */ 52/* useful in subsequent code. The macros #defined in the header or */ 53/* the body either are not useful outside of semantic actions or */ 54/* are conditional. */ 55 56const char *banner[] = 57{ 58 "#include <stdlib.h>", 59 "#include <string.h>", 60 "#ifndef lint", 61 "#ifdef __unused", 62 "__unused", 63 "#endif", 64 "static char const ", 65 "yyrcsid[] = \"$FreeBSD$\";", 66 "#endif", 67 "#define YYBYACC 1", 68 "#define YYMAJOR 1", 69 "#define YYMINOR 9", 70 "#define YYLEX yylex()", 71 "#define YYEMPTY -1", 72 "#define yyclearin (yychar=(YYEMPTY))", 73 "#define yyerrok (yyerrflag=0)", 74 "#define YYRECOVERING() (yyerrflag!=0)", 75 "#if defined(__cplusplus) || __STDC__", 76 "static int yygrowstack(void);", 77 "#else", 78 "static int yygrowstack();", 79 "#endif", 80 0 81}; 82 83 84const char *tables[] = 85{ 86 "extern const short yylhs[];", 87 "extern const short yylen[];", 88 "extern const short yydefred[];", 89 "extern const short yydgoto[];", 90 "extern const short yysindex[];", 91 "extern const short yyrindex[];", 92 "extern const short yygindex[];", 93 "extern const short yytable[];", 94 "extern const short yycheck[];", 95 "#if YYDEBUG", 96 "extern char *yyname[];", 97 "extern char *yyrule[];", 98 "#endif", 99 0 100}; 101 102 103const char *header[] = 104{ 105 "#if YYDEBUG", 106 "#include <stdio.h>", 107 "#endif", 108 "#ifdef YYSTACKSIZE", 109 "#undef YYMAXDEPTH", 110 "#define YYMAXDEPTH YYSTACKSIZE", 111 "#else", 112 "#ifdef YYMAXDEPTH", 113 "#define YYSTACKSIZE YYMAXDEPTH", 114 "#else", 115 "#define YYSTACKSIZE 10000", 116 "#define YYMAXDEPTH 10000", 117 "#endif", 118 "#endif", 119 "#define YYINITSTACKSIZE 200", 120 "int yydebug;", 121 "int yynerrs;", 122 "int yyerrflag;", 123 "int yychar;", 124 "short *yyssp;", 125 "YYSTYPE *yyvsp;", 126 "YYSTYPE yyval;", 127 "YYSTYPE yylval;", 128 "short *yyss;", 129 "short *yysslim;", 130 "YYSTYPE *yyvs;", 131 "int yystacksize;", 132 0 133}; 134 135 136const char *body[] = 137{ 138 "/* allocate initial stack or double stack size, up to YYMAXDEPTH */", 139 "#if defined(__cplusplus) || __STDC__", 140 "static int yygrowstack(void)", 141 "#else", 142 "static int yygrowstack()", 143 "#endif", 144 "{", 145 " int newsize, i;", 146 " short *newss;", 147 " YYSTYPE *newvs;", 148 "", 149 " if ((newsize = yystacksize) == 0)", 150 " newsize = YYINITSTACKSIZE;", 151 " else if (newsize >= YYMAXDEPTH)", 152 " return -1;", 153 " else if ((newsize *= 2) > YYMAXDEPTH)", 154 " newsize = YYMAXDEPTH;", 155 " i = yyssp - yyss;", 156 " newss = yyss ? (short *)realloc(yyss, newsize * sizeof *newss) :", 157 " (short *)malloc(newsize * sizeof *newss);", 158 " if (newss == NULL)", 159 " return -1;", 160 " yyss = newss;", 161 " yyssp = newss + i;", 162 " newvs = yyvs ? (YYSTYPE *)realloc(yyvs, newsize * sizeof *newvs) :", 163 " (YYSTYPE *)malloc(newsize * sizeof *newvs);", 164 " if (newvs == NULL)", 165 " return -1;", 166 " yyvs = newvs;", 167 " yyvsp = newvs + i;", 168 " yystacksize = newsize;", 169 " yysslim = yyss + newsize - 1;", 170 " return 0;", 171 "}", 172 "", 173 "#define YYABORT goto yyabort", 174 "#define YYREJECT goto yyabort", 175 "#define YYACCEPT goto yyaccept", 176 "#define YYERROR goto yyerrlab", 177 "", 178 "#ifndef YYPARSE_PARAM", 179 "#if defined(__cplusplus) || __STDC__", 180 "#define YYPARSE_PARAM_ARG void", 181 "#define YYPARSE_PARAM_DECL", 182 "#else /* ! ANSI-C/C++ */", 183 "#define YYPARSE_PARAM_ARG", 184 "#define YYPARSE_PARAM_DECL", 185 "#endif /* ANSI-C/C++ */", 186 "#else /* YYPARSE_PARAM */", 187 "#ifndef YYPARSE_PARAM_TYPE", 188 "#define YYPARSE_PARAM_TYPE void *", 189 "#endif", 190 "#if defined(__cplusplus) || __STDC__", 191 "#define YYPARSE_PARAM_ARG YYPARSE_PARAM_TYPE YYPARSE_PARAM", 192 "#define YYPARSE_PARAM_DECL", 193 "#else /* ! ANSI-C/C++ */", 194 "#define YYPARSE_PARAM_ARG YYPARSE_PARAM", 195 "#define YYPARSE_PARAM_DECL YYPARSE_PARAM_TYPE YYPARSE_PARAM;", 196 "#endif /* ANSI-C/C++ */", 197 "#endif /* ! YYPARSE_PARAM */", 198 "", 199 "int", 200 "yyparse (YYPARSE_PARAM_ARG)", 201 " YYPARSE_PARAM_DECL", 202 "{", 203 " int yym, yyn, yystate;", 204 "#if YYDEBUG", 205 " const char *yys;", 206 "", 207 " if ((yys = getenv(\"YYDEBUG\")))", 208 " {", 209 " yyn = *yys;", 210 " if (yyn >= '0' && yyn <= '9')", 211 " yydebug = yyn - '0';", 212 " }", 213 "#endif", 214 "", 215 " yynerrs = 0;", 216 " yyerrflag = 0;", 217 " yychar = (-1);", 218 "", 219 " if (yyss == NULL && yygrowstack()) goto yyoverflow;", 220 " yyssp = yyss;", 221 " yyvsp = yyvs;", 222 " *yyssp = yystate = 0;", 223 "", 224 "yyloop:", 225 " if ((yyn = yydefred[yystate])) goto yyreduce;", 226 " if (yychar < 0)", 227 " {", 228 " if ((yychar = yylex()) < 0) yychar = 0;", 229 "#if YYDEBUG", 230 " if (yydebug)", 231 " {", 232 " yys = 0;", 233 " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];", 234 " if (!yys) yys = \"illegal-symbol\";", 235 " printf(\"%sdebug: state %d, reading %d (%s)\\n\",", 236 " YYPREFIX, yystate, yychar, yys);", 237 " }", 238 "#endif", 239 " }", 240 " if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&", 241 " yyn <= YYTABLESIZE && yycheck[yyn] == yychar)", 242 " {", 243 "#if YYDEBUG", 244 " if (yydebug)", 245 " printf(\"%sdebug: state %d, shifting to state %d\\n\",", 246 " YYPREFIX, yystate, yytable[yyn]);", 247 "#endif", 248 " if (yyssp >= yysslim && yygrowstack())", 249 " {", 250 " goto yyoverflow;", 251 " }", 252 " *++yyssp = yystate = yytable[yyn];", 253 " *++yyvsp = yylval;", 254 " yychar = (-1);", 255 " if (yyerrflag > 0) --yyerrflag;", 256 " goto yyloop;", 257 " }", 258 " if ((yyn = yyrindex[yystate]) && (yyn += yychar) >= 0 &&", 259 " yyn <= YYTABLESIZE && yycheck[yyn] == yychar)", 260 " {", 261 " yyn = yytable[yyn];", 262 " goto yyreduce;", 263 " }", 264 " if (yyerrflag) goto yyinrecovery;", 265 "#if defined(lint) || defined(__GNUC__)", 266 " goto yynewerror;", 267 "#endif", 268 "yynewerror:", 269 " yyerror(\"syntax error\");", 270 "#if defined(lint) || defined(__GNUC__)", 271 " goto yyerrlab;", 272 "#endif", 273 "yyerrlab:", 274 " ++yynerrs;", 275 "yyinrecovery:", 276 " if (yyerrflag < 3)", 277 " {", 278 " yyerrflag = 3;", 279 " for (;;)", 280 " {", 281 " if ((yyn = yysindex[*yyssp]) && (yyn += YYERRCODE) >= 0 &&", 282 " yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)", 283 " {", 284 "#if YYDEBUG", 285 " if (yydebug)", 286 " printf(\"%sdebug: state %d, error recovery shifting\\", 287 " to state %d\\n\", YYPREFIX, *yyssp, yytable[yyn]);", 288 "#endif", 289 " if (yyssp >= yysslim && yygrowstack())", 290 " {", 291 " goto yyoverflow;", 292 " }", 293 " *++yyssp = yystate = yytable[yyn];", 294 " *++yyvsp = yylval;", 295 " goto yyloop;", 296 " }", 297 " else", 298 " {", 299 "#if YYDEBUG", 300 " if (yydebug)", 301 " printf(\"%sdebug: error recovery discarding state %d\ 302\\n\",", 303 " YYPREFIX, *yyssp);", 304 "#endif", 305 " if (yyssp <= yyss) goto yyabort;", 306 " --yyssp;", 307 " --yyvsp;", 308 " }", 309 " }", 310 " }", 311 " else", 312 " {", 313 " if (yychar == 0) goto yyabort;", 314 "#if YYDEBUG", 315 " if (yydebug)", 316 " {", 317 " yys = 0;", 318 " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];", 319 " if (!yys) yys = \"illegal-symbol\";", 320 " printf(\"%sdebug: state %d, error recovery discards token %d\ 321 (%s)\\n\",", 322 " YYPREFIX, yystate, yychar, yys);", 323 " }", 324 "#endif", 325 " yychar = (-1);", 326 " goto yyloop;", 327 " }", 328 "yyreduce:", 329 "#if YYDEBUG", 330 " if (yydebug)", 331 " printf(\"%sdebug: state %d, reducing by rule %d (%s)\\n\",", 332 " YYPREFIX, yystate, yyn, yyrule[yyn]);", 333 "#endif", 334 " yym = yylen[yyn];", 335 " if (yym)", 336 " yyval = yyvsp[1-yym];", 337 " else", 338 " memset(&yyval, 0, sizeof yyval);", 339 " switch (yyn)", 340 " {", 341 0 342}; 343 344 345const char *trailer[] = 346{ 347 " }", 348 " yyssp -= yym;", 349 " yystate = *yyssp;", 350 " yyvsp -= yym;", 351 " yym = yylhs[yyn];", 352 " if (yystate == 0 && yym == 0)", 353 " {", 354 "#if YYDEBUG", 355 " if (yydebug)", 356 " printf(\"%sdebug: after reduction, shifting from state 0 to\\", 357 " state %d\\n\", YYPREFIX, YYFINAL);", 358 "#endif", 359 " yystate = YYFINAL;", 360 " *++yyssp = YYFINAL;", 361 " *++yyvsp = yyval;", 362 " if (yychar < 0)", 363 " {", 364 " if ((yychar = yylex()) < 0) yychar = 0;", 365 "#if YYDEBUG", 366 " if (yydebug)", 367 " {", 368 " yys = 0;", 369 " if (yychar <= YYMAXTOKEN) yys = yyname[yychar];", 370 " if (!yys) yys = \"illegal-symbol\";", 371 " printf(\"%sdebug: state %d, reading %d (%s)\\n\",", 372 " YYPREFIX, YYFINAL, yychar, yys);", 373 " }", 374 "#endif", 375 " }", 376 " if (yychar == 0) goto yyaccept;", 377 " goto yyloop;", 378 " }", 379 " if ((yyn = yygindex[yym]) && (yyn += yystate) >= 0 &&", 380 " yyn <= YYTABLESIZE && yycheck[yyn] == yystate)", 381 " yystate = yytable[yyn];", 382 " else", 383 " yystate = yydgoto[yym];", 384 "#if YYDEBUG", 385 " if (yydebug)", 386 " printf(\"%sdebug: after reduction, shifting from state %d \\", 387 "to state %d\\n\", YYPREFIX, *yyssp, yystate);", 388 "#endif", 389 " if (yyssp >= yysslim && yygrowstack())", 390 " {", 391 " goto yyoverflow;", 392 " }", 393 " *++yyssp = yystate;", 394 " *++yyvsp = yyval;", 395 " goto yyloop;", 396 "yyoverflow:", 397 " yyerror(\"yacc stack overflow\");", 398 "yyabort:", 399 " return (1);", 400 "yyaccept:", 401 " return (0);", 402 "}", 403 0 404}; 405 406 407void 408write_section(const char *section[]) 409{ 410 int c; 411 int i; 412 const char *s; 413 FILE *f; 414 415 f = code_file; 416 for (i = 0; (s = section[i]); ++i) 417 { 418 ++outline; 419 while ((c = *s)) 420 { 421 putc(c, f); 422 ++s; 423 } 424 putc('\n', f); 425 } 426}