minix/external/bsd/byacc/dist/skeleton.c

458 lines
12 KiB
C
Raw Normal View History

/* $NetBSD: skeleton.c,v 1.13 2013/09/13 18:53:29 joerg Exp $ */
/* Id: skeleton.c,v 1.32 2013/03/04 23:19:39 tom Exp */
2012-06-06 15:25:48 +02:00
#include "defs.h"
#include <sys/cdefs.h>
__RCSID("$NetBSD: skeleton.c,v 1.13 2013/09/13 18:53:29 joerg Exp $");
2005-04-21 16:53:53 +02:00
/* The definition of yysccsid in the banner should be replaced with */
/* a #pragma ident directive if the target C compiler supports */
/* #pragma ident directives. */
/* */
/* If the skeleton is changed, the banner should be changed so that */
/* the altered version can be easily distinguished from the original. */
/* */
/* The #defines included with the banner are there because they are */
/* useful in subsequent code. The macros #defined in the header or */
/* the body either are not useful outside of semantic actions or */
/* are conditional. */
2012-06-06 15:25:48 +02:00
const char *const banner[] =
2005-04-21 16:53:53 +02:00
{
"#ifndef lint",
"#if __GNUC__ - 0 >= 4 || (__GNUC__ - 0 == 3 && __GNUC_MINOR__ >= 1)",
"__attribute__((__used__))",
"#endif",
2012-06-06 15:25:48 +02:00
"static const char yysccsid[] = \"@(#)yaccpar 1.9 (Berkeley) 02/21/93\";",
"#endif",
"",
"#ifdef _LIBC",
"#include \"namespace.h\"",
"#endif",
"#include <stdlib.h>",
"#include <string.h>",
"",
2005-04-21 16:53:53 +02:00
"#define YYBYACC 1",
2012-06-06 15:25:48 +02:00
CONCAT1("#define YYMAJOR ", YYMAJOR),
CONCAT1("#define YYMINOR ", YYMINOR),
#ifdef YYPATCH
CONCAT1("#define YYPATCH ", YYPATCH),
#endif
"",
"#define YYEMPTY (-1)",
"#define yyclearin (yychar = YYEMPTY)",
"#define yyerrok (yyerrflag = 0)",
"#define YYRECOVERING() (yyerrflag != 0)",
"",
2005-04-21 16:53:53 +02:00
0
};
2012-06-06 15:25:48 +02:00
const char *const xdecls[] =
{
"",
"extern int YYPARSE_DECL();",
#ifdef notdef
"extern int YYLEX_DECL();",
#endif
"",
0
};
2005-04-21 16:53:53 +02:00
2012-06-06 15:25:48 +02:00
const char *const tables[] =
2005-04-21 16:53:53 +02:00
{
2012-06-06 15:25:48 +02:00
"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[];",
"",
2005-04-21 16:53:53 +02:00
"#if YYDEBUG",
2012-06-06 15:25:48 +02:00
"extern char *yyname[];",
"extern char *yyrule[];",
2005-04-21 16:53:53 +02:00
"#endif",
0
};
2012-06-06 15:25:48 +02:00
const char *const global_vars[] =
{
"",
"int yydebug;",
"int yynerrs;",
0
};
const char *const impure_vars[] =
{
"",
"int yyerrflag;",
"int yychar;",
"YYSTYPE yyval;",
"YYSTYPE yylval;",
0
};
2005-04-21 16:53:53 +02:00
2012-06-06 15:25:48 +02:00
const char *const hdr_defs[] =
2005-04-21 16:53:53 +02:00
{
2012-06-06 15:25:48 +02:00
"",
"/* define the initial stack-sizes */",
2005-04-21 16:53:53 +02:00
"#ifdef YYSTACKSIZE",
"#undef YYMAXDEPTH",
2012-06-06 15:25:48 +02:00
"#define YYMAXDEPTH YYSTACKSIZE",
2005-04-21 16:53:53 +02:00
"#else",
"#ifdef YYMAXDEPTH",
"#define YYSTACKSIZE YYMAXDEPTH",
"#else",
2012-06-06 15:25:48 +02:00
"#define YYSTACKSIZE 500",
"#define YYMAXDEPTH 500",
2005-04-21 16:53:53 +02:00
"#endif",
"#endif",
2012-06-06 15:25:48 +02:00
"",
"#define YYINITSTACKSIZE 500",
"",
"typedef struct {",
" unsigned stacksize;",
" short *s_base;",
" short *s_mark;",
" short *s_last;",
" YYSTYPE *l_base;",
" YYSTYPE *l_mark;",
"} YYSTACKDATA;",
2005-04-21 16:53:53 +02:00
0
};
2012-06-06 15:25:48 +02:00
const char *const hdr_vars[] =
{
"/* variables for the parser stack */",
"static YYSTACKDATA yystack;",
0
};
const char *const body_vars[] =
{
" int yyerrflag;",
" int yychar;",
" YYSTYPE yyval;",
" YYSTYPE yylval;",
"",
" /* variables for the parser stack */",
" YYSTACKDATA yystack;",
0
};
2005-04-21 16:53:53 +02:00
2012-06-06 15:25:48 +02:00
const char *const body_1[] =
2005-04-21 16:53:53 +02:00
{
2012-06-06 15:25:48 +02:00
"",
"#if YYDEBUG",
"#include <stdio.h> /* needed for printf */",
"#endif",
"",
"#include <stdlib.h> /* needed for malloc, etc */",
"#include <string.h> /* needed for memset */",
"",
"/* allocate initial stack or double stack size, up to YYMAXDEPTH */",
2012-06-06 15:25:48 +02:00
"static int yygrowstack(YYSTACKDATA *data)",
"{",
2012-06-06 15:25:48 +02:00
" int i;",
" unsigned newsize;",
" short *newss;",
" YYSTYPE *newvs;",
"",
2012-06-06 15:25:48 +02:00
" if ((newsize = data->stacksize) == 0)",
" newsize = YYINITSTACKSIZE;",
" else if (newsize >= YYMAXDEPTH)",
" return -1;",
" else if ((newsize *= 2) > YYMAXDEPTH)",
" newsize = YYMAXDEPTH;",
2012-06-06 15:25:48 +02:00
"",
" i = (int) (data->s_mark - data->s_base);",
2012-06-06 15:25:48 +02:00
" newss = (short *)realloc(data->s_base, newsize * sizeof(*newss));",
" if (newss == 0)",
" return -1;",
2012-06-06 15:25:48 +02:00
"",
" data->s_base = newss;",
" data->s_mark = newss + i;",
"",
" newvs = (YYSTYPE *)realloc(data->l_base, newsize * sizeof(*newvs));",
" if (newvs == 0)",
" return -1;",
2012-06-06 15:25:48 +02:00
"",
" data->l_base = newvs;",
" data->l_mark = newvs + i;",
"",
" data->stacksize = newsize;",
" data->s_last = data->s_base + newsize - 1;",
" return 0;",
"}",
"",
2012-06-06 15:25:48 +02:00
"#if YYPURE || defined(YY_NO_LEAKS)",
"static void yyfreestack(YYSTACKDATA *data)",
"{",
" free(data->s_base);",
" free(data->l_base);",
" memset(data, 0, sizeof(*data));",
"}",
"#else",
"#define yyfreestack(data) /* nothing */",
"#endif",
"",
"#define YYABORT goto yyabort",
2005-04-21 16:53:53 +02:00
"#define YYREJECT goto yyabort",
"#define YYACCEPT goto yyaccept",
2012-06-06 15:25:48 +02:00
"#define YYERROR goto yyerrlab",
"",
2005-04-21 16:53:53 +02:00
"int",
2012-06-06 15:25:48 +02:00
"YYPARSE_DECL()",
2005-04-21 16:53:53 +02:00
"{",
2012-06-06 15:25:48 +02:00
0
};
const char *const body_2[] =
{
" int yym, yyn, yystate;",
2005-04-21 16:53:53 +02:00
"#if YYDEBUG",
" const char *yys;",
2005-04-21 16:53:53 +02:00
"",
2012-06-06 15:25:48 +02:00
" if ((yys = getenv(\"YYDEBUG\")) != 0)",
2005-04-21 16:53:53 +02:00
" {",
" yyn = *yys;",
" if (yyn >= '0' && yyn <= '9')",
" yydebug = yyn - '0';",
" }",
"#endif",
"",
" yynerrs = 0;",
" yyerrflag = 0;",
2012-06-06 15:25:48 +02:00
" yychar = YYEMPTY;",
" yystate = 0;",
"",
"#if YYPURE",
" memset(&yystack, 0, sizeof(yystack));",
"#endif",
2005-04-21 16:53:53 +02:00
"",
2012-06-06 15:25:48 +02:00
" if (yystack.s_base == NULL && yygrowstack(&yystack)) goto yyoverflow;",
" yystack.s_mark = yystack.s_base;",
" yystack.l_mark = yystack.l_base;",
" yystate = 0;",
" *yystack.s_mark = 0;",
2005-04-21 16:53:53 +02:00
"",
"yyloop:",
" if ((yyn = yydefred[yystate]) != 0) goto yyreduce;",
2005-04-21 16:53:53 +02:00
" if (yychar < 0)",
" {",
2012-06-06 15:25:48 +02:00
" if ((yychar = YYLEX) < 0) yychar = 0;",
2005-04-21 16:53:53 +02:00
"#if YYDEBUG",
" if (yydebug)",
" {",
" yys = 0;",
" if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
" if (!yys) yys = \"illegal-symbol\";",
" printf(\"%sdebug: state %d, reading %d (%s)\\n\",",
" YYPREFIX, yystate, yychar, yys);",
" }",
"#endif",
" }",
" if ((yyn = yysindex[yystate]) && (yyn += yychar) >= 0 &&",
" yyn <= YYTABLESIZE && yycheck[yyn] == yychar)",
" {",
"#if YYDEBUG",
" if (yydebug)",
" printf(\"%sdebug: state %d, shifting to state %d\\n\",",
" YYPREFIX, yystate, yytable[yyn]);",
"#endif",
2012-06-06 15:25:48 +02:00
" if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))",
2005-04-21 16:53:53 +02:00
" {",
" goto yyoverflow;",
" }",
2012-06-06 15:25:48 +02:00
" yystate = yytable[yyn];",
" *++yystack.s_mark = yytable[yyn];",
" *++yystack.l_mark = yylval;",
" yychar = YYEMPTY;",
2005-04-21 16:53:53 +02:00
" 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;",
2012-06-06 15:25:48 +02:00
"",
0
};
const char *const body_3[] =
{
"",
2005-04-21 16:53:53 +02:00
" goto yyerrlab;",
2012-06-06 15:25:48 +02:00
"",
2005-04-21 16:53:53 +02:00
"yyerrlab:",
" ++yynerrs;",
2012-06-06 15:25:48 +02:00
"",
2005-04-21 16:53:53 +02:00
"yyinrecovery:",
" if (yyerrflag < 3)",
" {",
" yyerrflag = 3;",
" for (;;)",
" {",
2012-06-06 15:25:48 +02:00
" if ((yyn = yysindex[*yystack.s_mark]) && (yyn += YYERRCODE) >= 0 &&",
2005-04-21 16:53:53 +02:00
" yyn <= YYTABLESIZE && yycheck[yyn] == YYERRCODE)",
" {",
"#if YYDEBUG",
" if (yydebug)",
" printf(\"%sdebug: state %d, error recovery shifting\\",
2012-06-06 15:25:48 +02:00
" to state %d\\n\", YYPREFIX, *yystack.s_mark, yytable[yyn]);",
2005-04-21 16:53:53 +02:00
"#endif",
2012-06-06 15:25:48 +02:00
" if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))",
2005-04-21 16:53:53 +02:00
" {",
" goto yyoverflow;",
" }",
2012-06-06 15:25:48 +02:00
" yystate = yytable[yyn];",
" *++yystack.s_mark = yytable[yyn];",
" *++yystack.l_mark = yylval;",
2005-04-21 16:53:53 +02:00
" goto yyloop;",
" }",
" else",
" {",
"#if YYDEBUG",
" if (yydebug)",
" printf(\"%sdebug: error recovery discarding state %d\
\\n\",",
2012-06-06 15:25:48 +02:00
" YYPREFIX, *yystack.s_mark);",
2005-04-21 16:53:53 +02:00
"#endif",
2012-06-06 15:25:48 +02:00
" if (yystack.s_mark <= yystack.s_base) goto yyabort;",
" --yystack.s_mark;",
" --yystack.l_mark;",
2005-04-21 16:53:53 +02:00
" }",
" }",
" }",
" else",
" {",
" if (yychar == 0) goto yyabort;",
"#if YYDEBUG",
" if (yydebug)",
" {",
" yys = 0;",
" if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
" if (!yys) yys = \"illegal-symbol\";",
" printf(\"%sdebug: state %d, error recovery discards token %d\
(%s)\\n\",",
" YYPREFIX, yystate, yychar, yys);",
" }",
"#endif",
2012-06-06 15:25:48 +02:00
" yychar = YYEMPTY;",
2005-04-21 16:53:53 +02:00
" goto yyloop;",
" }",
2012-06-06 15:25:48 +02:00
"",
2005-04-21 16:53:53 +02:00
"yyreduce:",
"#if YYDEBUG",
" if (yydebug)",
" printf(\"%sdebug: state %d, reducing by rule %d (%s)\\n\",",
" YYPREFIX, yystate, yyn, yyrule[yyn]);",
"#endif",
" yym = yylen[yyn];",
" if (yym)",
2012-06-06 15:25:48 +02:00
" yyval = yystack.l_mark[1-yym];",
" else",
2012-06-06 15:25:48 +02:00
" memset(&yyval, 0, sizeof yyval);",
2005-04-21 16:53:53 +02:00
" switch (yyn)",
" {",
0
};
2012-06-06 15:25:48 +02:00
const char *const trailer[] =
2005-04-21 16:53:53 +02:00
{
" }",
2012-06-06 15:25:48 +02:00
" yystack.s_mark -= yym;",
" yystate = *yystack.s_mark;",
" yystack.l_mark -= yym;",
2005-04-21 16:53:53 +02:00
" yym = yylhs[yyn];",
" if (yystate == 0 && yym == 0)",
" {",
"#if YYDEBUG",
" if (yydebug)",
" printf(\"%sdebug: after reduction, shifting from state 0 to\\",
" state %d\\n\", YYPREFIX, YYFINAL);",
"#endif",
" yystate = YYFINAL;",
2012-06-06 15:25:48 +02:00
" *++yystack.s_mark = YYFINAL;",
" *++yystack.l_mark = yyval;",
2005-04-21 16:53:53 +02:00
" if (yychar < 0)",
" {",
2012-06-06 15:25:48 +02:00
" if ((yychar = YYLEX) < 0) yychar = 0;",
2005-04-21 16:53:53 +02:00
"#if YYDEBUG",
" if (yydebug)",
" {",
" yys = 0;",
" if (yychar <= YYMAXTOKEN) yys = yyname[yychar];",
" if (!yys) yys = \"illegal-symbol\";",
" printf(\"%sdebug: state %d, reading %d (%s)\\n\",",
" YYPREFIX, 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(\"%sdebug: after reduction, shifting from state %d \\",
2012-06-06 15:25:48 +02:00
"to state %d\\n\", YYPREFIX, *yystack.s_mark, yystate);",
2005-04-21 16:53:53 +02:00
"#endif",
2012-06-06 15:25:48 +02:00
" if (yystack.s_mark >= yystack.s_last && yygrowstack(&yystack))",
2005-04-21 16:53:53 +02:00
" {",
" goto yyoverflow;",
" }",
2012-06-06 15:25:48 +02:00
" *++yystack.s_mark = (short) yystate;",
" *++yystack.l_mark = yyval;",
2005-04-21 16:53:53 +02:00
" goto yyloop;",
2012-06-06 15:25:48 +02:00
"",
2005-04-21 16:53:53 +02:00
"yyoverflow:",
2012-06-06 15:25:48 +02:00
0
};
const char *const trailer_2[] =
{
"",
2005-04-21 16:53:53 +02:00
"yyabort:",
2012-06-06 15:25:48 +02:00
" yyfreestack(&yystack);",
2005-04-21 16:53:53 +02:00
" return (1);",
2012-06-06 15:25:48 +02:00
"",
2005-04-21 16:53:53 +02:00
"yyaccept:",
2012-06-06 15:25:48 +02:00
" yyfreestack(&yystack);",
2005-04-21 16:53:53 +02:00
" return (0);",
"}",
0
};
void
2012-06-06 15:25:48 +02:00
write_section(FILE * fp, const char *const section[])
2005-04-21 16:53:53 +02:00
{
int c;
int i;
const char *s;
2005-04-21 16:53:53 +02:00
2012-06-06 15:25:48 +02:00
for (i = 0; (s = section[i]) != 0; ++i)
2005-04-21 16:53:53 +02:00
{
2012-06-06 15:25:48 +02:00
while ((c = *s) != 0)
2005-04-21 16:53:53 +02:00
{
2012-06-06 15:25:48 +02:00
putc(c, fp);
2005-04-21 16:53:53 +02:00
++s;
}
2012-06-06 15:25:48 +02:00
if (fp == code_file)
++outline;
putc('\n', fp);
2005-04-21 16:53:53 +02:00
}
}