6 #define CountLine(fp)   (!rflag || ((fp) == code_file))  argument
35 putc_code(FILE * fp, int c)  in putc_code()  argument
37     if ((c == '\n') && (fp == code_file))  in putc_code()
39     putc(c, fp);  in putc_code()
43 putl_code(FILE * fp, const char *s)  in putl_code()  argument
45     if (fp == code_file)  in putl_code()
47     fputs(s, fp);  in putl_code()
51 puts_code(FILE * fp, const char *s)  in puts_code()  argument
53     fputs(s, fp);  in puts_code()
57 puts_param_types(FILE * fp, param *list, int more)  in puts_param_types()  argument
66 	    fprintf(fp, "%s%s%s%s%s", p->type,  in puts_param_types()
77 	    fprintf(fp, "void");  in puts_param_types()
82 puts_param_names(FILE * fp, param *list, int more)  in puts_param_names()  argument
88 	fprintf(fp, "%s%s", p->name,  in puts_param_names()
94 write_code_lineno(FILE * fp)  in write_code_lineno()  argument
96     if (!lflag && (fp == code_file))  in write_code_lineno()
99 	fprintf_lineno(fp, outline + 1, code_file_name);  in write_code_lineno()
114 define_prefixed(FILE * fp, const char *name)  in define_prefixed()  argument
116     int bump_line = CountLine(fp);  in define_prefixed()
119     fprintf(fp, "\n");  in define_prefixed()
123     fprintf(fp, "#ifndef %s\n", name);  in define_prefixed()
127     fprintf(fp, "#define %-10s %s%s\n", name, symbol_prefix, name + 2);  in define_prefixed()
131     fprintf(fp, "#endif /* %s */\n", name);  in define_prefixed()
135 output_prefix(FILE * fp)  in output_prefix()  argument
143 	define_prefixed(fp, "yyparse");  in output_prefix()
144 	define_prefixed(fp, "yylex");  in output_prefix()
145 	define_prefixed(fp, "yyerror");  in output_prefix()
146 	define_prefixed(fp, "yychar");  in output_prefix()
147 	define_prefixed(fp, "yyval");  in output_prefix()
148 	define_prefixed(fp, "yylval");  in output_prefix()
149 	define_prefixed(fp, "yydebug");  in output_prefix()
150 	define_prefixed(fp, "yynerrs");  in output_prefix()
151 	define_prefixed(fp, "yyerrflag");  in output_prefix()
152 	define_prefixed(fp, "yylhs");  in output_prefix()
153 	define_prefixed(fp, "yylen");  in output_prefix()
154 	define_prefixed(fp, "yydefred");  in output_prefix()
156 	define_prefixed(fp, "yystos");  in output_prefix()
158 	define_prefixed(fp, "yydgoto");  in output_prefix()
159 	define_prefixed(fp, "yysindex");  in output_prefix()
160 	define_prefixed(fp, "yyrindex");  in output_prefix()
161 	define_prefixed(fp, "yygindex");  in output_prefix()
162 	define_prefixed(fp, "yytable");  in output_prefix()
163 	define_prefixed(fp, "yycheck");  in output_prefix()
164 	define_prefixed(fp, "yyname");  in output_prefix()
165 	define_prefixed(fp, "yyrule");  in output_prefix()
169 	    define_prefixed(fp, "yyloc");  in output_prefix()
170 	    define_prefixed(fp, "yylloc");  in output_prefix()
172 	putc_code(fp, '\n');  in output_prefix()
173 	putl_code(fp, "#if YYBTYACC\n");  in output_prefix()
175 	define_prefixed(fp, "yycindex");  in output_prefix()
176 	define_prefixed(fp, "yyctable");  in output_prefix()
178 	putc_code(fp, '\n');  in output_prefix()
179 	putl_code(fp, "#endif /* YYBTYACC */\n");  in output_prefix()
180 	putc_code(fp, '\n');  in output_prefix()
183     if (CountLine(fp))  in output_prefix()
185     fprintf(fp, "#define YYPREFIX \"%s\"\n", symbol_prefix);  in output_prefix()
189 output_code_lines(FILE * fp, int cl)  in output_code_lines()  argument
193 	if (fp == code_file)  in output_code_lines()
197 	    fprintf(fp, "\n");  in output_code_lines()
199 	fprintf(fp, "/* %%code \"%s\" block start */\n", code_lines[cl].name);  in output_code_lines()
200 	fputs(code_lines[cl].lines, fp);  in output_code_lines()
201 	fprintf(fp, "/* %%code \"%s\" block end */\n", code_lines[cl].name);  in output_code_lines()
202 	if (fp == code_file)  in output_code_lines()
204 	    write_code_lineno(fp);  in output_code_lines()
259 output_stype(FILE * fp)  in output_stype()  argument
263 	putc_code(fp, '\n');  in output_stype()
264 	putl_code(fp, "#if "  in output_stype()
267 	putl_code(fp, "/* Default: YYSTYPE is the semantic value type. */\n");  in output_stype()
268 	putl_code(fp, "typedef int YYSTYPE;\n");  in output_stype()
269 	putl_code(fp, "# define YYSTYPE_IS_DECLARED 1\n");  in output_stype()
270 	putl_code(fp, "#endif\n");  in output_stype()
276 output_ltype(FILE * fp)  in output_ltype()  argument
278     putc_code(fp, '\n');  in output_ltype()
279     putl_code(fp, "#if ! defined YYLTYPE && ! defined YYLTYPE_IS_DECLARED\n");  in output_ltype()
280     putl_code(fp, "/* Default: YYLTYPE is the text position type. */\n");  in output_ltype()
281     putl_code(fp, "typedef struct YYLTYPE\n");  in output_ltype()
282     putl_code(fp, "{\n");  in output_ltype()
283     putl_code(fp, "    int first_line;\n");  in output_ltype()
284     putl_code(fp, "    int first_column;\n");  in output_ltype()
285     putl_code(fp, "    int last_line;\n");  in output_ltype()
286     putl_code(fp, "    int last_column;\n");  in output_ltype()
287     putl_code(fp, "    unsigned source;\n");  in output_ltype()
288     putl_code(fp, "} YYLTYPE;\n");  in output_ltype()
289     putl_code(fp, "#define YYLTYPE_IS_DECLARED 1\n");  in output_ltype()
290     putl_code(fp, "#endif\n");  in output_ltype()
291     putl_code(fp, "#define YYRHSLOC(rhs, k) ((rhs)[k])\n");  in output_ltype()
296 output_YYINT_typedef(FILE * fp)  in output_YYINT_typedef()  argument
299     if (CountLine(fp))  in output_YYINT_typedef()
301     fprintf(fp, "typedef %s YYINT;\n", CONCAT1("", YYINT));  in output_YYINT_typedef()
1228 output_defines(FILE * fp)  in output_defines()  argument
1232     if (fp == defines_file)  in output_defines()
1234 	output_code_lines(fp, CODE_REQUIRES);  in output_defines()
1243 	    fprintf(fp, "#define ");  in output_defines()
1249 		    putc(c, fp);  in output_defines()
1256 		    putc(c, fp);  in output_defines()
1260 	    if (fp == code_file)  in output_defines()
1262 	    fprintf(fp, " %ld\n", (long)symbol_value[i]);  in output_defines()
1266     if (fp == code_file)  in output_defines()
1268     if (fp != defines_file || iflag)  in output_defines()
1269 	fprintf(fp, "#define YYERRCODE %ld\n", (long)symbol_value[1]);  in output_defines()
1271     if (fp == defines_file)  in output_defines()
1273 	output_code_lines(fp, CODE_PROVIDES);  in output_defines()
1276     if (token_table && rflag && fp != externs_file)  in output_defines()
1278 	if (fp == code_file)  in output_defines()
1280 	fputs("#undef yytname\n", fp);  in output_defines()
1281 	if (fp == code_file)  in output_defines()
1283 	fputs("#define yytname yyname\n", fp);  in output_defines()
1286     if (fp == defines_file || (iflag && !dflag))  in output_defines()
1294 		    putc_code(fp, c);  in output_defines()
1297 		fprintf(fp, "extern YYSTYPE %slval;\n", symbol_prefix);  in output_defines()
1302 	    output_ltype(fp);  in output_defines()
1303 	    fprintf(fp, "extern YYLTYPE %slloc;\n", symbol_prefix);  in output_defines()
1310 output_stored_text(FILE * fp)  in output_stored_text()  argument
1321     putc_code(fp, c);  in output_stored_text()
1324 	putc_code(fp, c);  in output_stored_text()
1326     write_code_lineno(fp);  in output_stored_text()
1330 output_yydebug(FILE * fp)  in output_yydebug()  argument
1332     fprintf(fp, "#ifndef YYDEBUG\n");  in output_yydebug()
1333     fprintf(fp, "#define YYDEBUG %d\n", tflag);  in output_yydebug()
1334     fprintf(fp, "#endif\n");  in output_yydebug()
1599 output_backtracking_parser(FILE * fp)  in output_backtracking_parser()  argument
1601     putl_code(fp, "#undef YYBTYACC\n");  in output_backtracking_parser()
1605 	putl_code(fp, "#define YYBTYACC 1\n");  in output_backtracking_parser()
1606 	putl_code(fp,  in output_backtracking_parser()
1612 	putl_code(fp, "#define YYBTYACC 0\n");  in output_backtracking_parser()
1613 	putl_code(fp, "#define YYDEBUGSTR YYPREFIX \"debug\"\n");  in output_backtracking_parser()
1619 output_pure_parser(FILE * fp)  in output_pure_parser()  argument
1621     putc_code(fp, '\n');  in output_pure_parser()
1623     if (fp == code_file)  in output_pure_parser()
1625     fprintf(fp, "#define YYPURE %d\n", pure_parser);  in output_pure_parser()
1627     if (fp == code_file)  in output_pure_parser()
1629     fputs("#define YY_NO_LEAKS 1\n", fp);  in output_pure_parser()
1631     putc_code(fp, '\n');  in output_pure_parser()
1740 output_parse_decl(FILE * fp)  in output_parse_decl()  argument
1742     putc_code(fp, '\n');  in output_parse_decl()
1743     putl_code(fp, "/* compatibility with bison */\n");  in output_parse_decl()
1744     putl_code(fp, "#ifdef YYPARSE_PARAM\n");  in output_parse_decl()
1745     putl_code(fp, "/* compatibility with FreeBSD */\n");  in output_parse_decl()
1746     putl_code(fp, "# ifdef YYPARSE_PARAM_TYPE\n");  in output_parse_decl()
1747     putl_code(fp,  in output_parse_decl()
1749     putl_code(fp, "# else\n");  in output_parse_decl()
1750     putl_code(fp, "#  define YYPARSE_DECL() yyparse(void *YYPARSE_PARAM)\n");  in output_parse_decl()
1751     putl_code(fp, "# endif\n");  in output_parse_decl()
1752     putl_code(fp, "#else\n");  in output_parse_decl()
1754     puts_code(fp, "# define YYPARSE_DECL() yyparse(");  in output_parse_decl()
1755     puts_param_types(fp, parse_param, 0);  in output_parse_decl()
1756     putl_code(fp, ")\n");  in output_parse_decl()
1758     putl_code(fp, "#endif\n");  in output_parse_decl()
1762 output_lex_decl(FILE * fp)  in output_lex_decl()  argument
1764     putc_code(fp, '\n');  in output_lex_decl()
1765     putl_code(fp, "/* Parameters sent to lex. */\n");  in output_lex_decl()
1766     putl_code(fp, "#ifdef YYLEX_PARAM\n");  in output_lex_decl()
1769 	putl_code(fp, "# ifdef YYLEX_PARAM_TYPE\n");  in output_lex_decl()
1773 	    putl_code(fp, "#  define YYLEX_DECL() yylex(YYSTYPE *yylval,"  in output_lex_decl()
1780 	    putl_code(fp, "#  define YYLEX_DECL() yylex(YYSTYPE *yylval,"  in output_lex_decl()
1783 	putl_code(fp, "# else\n");  in output_lex_decl()
1787 	    putl_code(fp, "#  define YYLEX_DECL() yylex(YYSTYPE *yylval,"  in output_lex_decl()
1794 	    putl_code(fp, "#  define YYLEX_DECL() yylex(YYSTYPE *yylval,"  in output_lex_decl()
1797 	putl_code(fp, "# endif\n");  in output_lex_decl()
1800 	    putl_code(fp,  in output_lex_decl()
1804 	    putl_code(fp, "# define YYLEX yylex(&yylval, YYLEX_PARAM)\n");  in output_lex_decl()
1808 	putl_code(fp, "# define YYLEX_DECL() yylex(void *YYLEX_PARAM)\n");  in output_lex_decl()
1809 	putl_code(fp, "# define YYLEX yylex(YYLEX_PARAM)\n");  in output_lex_decl()
1811     putl_code(fp, "#else\n");  in output_lex_decl()
1816 	    puts_code(fp,  in output_lex_decl()
1820 	    puts_code(fp, "# define YYLEX_DECL() yylex(YYSTYPE *yylval, ");  in output_lex_decl()
1821 	puts_param_types(fp, lex_param, 0);  in output_lex_decl()
1822 	putl_code(fp, ")\n");  in output_lex_decl()
1826 	    puts_code(fp, "# define YYLEX yylex(&yylval, &yylloc, ");  in output_lex_decl()
1829 	    puts_code(fp, "# define YYLEX yylex(&yylval, ");  in output_lex_decl()
1830 	puts_param_names(fp, lex_param, 0);  in output_lex_decl()
1831 	putl_code(fp, ")\n");  in output_lex_decl()
1838 	    putl_code(fp,  in output_lex_decl()
1840 	    putl_code(fp, "# define YYLEX yylex(&yylval, &yylloc)\n");  in output_lex_decl()
1845 	    putl_code(fp, "# define YYLEX_DECL() yylex(YYSTYPE *yylval)\n");  in output_lex_decl()
1846 	    putl_code(fp, "# define YYLEX yylex(&yylval)\n");  in output_lex_decl()
1851 	puts_code(fp, "# define YYLEX_DECL() yylex(");  in output_lex_decl()
1852 	puts_param_types(fp, lex_param, 0);  in output_lex_decl()
1853 	putl_code(fp, ")\n");  in output_lex_decl()
1855 	puts_code(fp, "# define YYLEX yylex(");  in output_lex_decl()
1856 	puts_param_names(fp, lex_param, 0);  in output_lex_decl()
1857 	putl_code(fp, ")\n");  in output_lex_decl()
1861 	putl_code(fp, "# define YYLEX_DECL() yylex(void)\n");  in output_lex_decl()
1862 	putl_code(fp, "# define YYLEX yylex()\n");  in output_lex_decl()
1864     putl_code(fp, "#endif\n");  in output_lex_decl()
1877 	putl_code(fp, "\n");  in output_lex_decl()
1878 	putl_code(fp, "#if !(defined(yylex) || defined(YYSTATE))\n");  in output_lex_decl()
1879 	putl_code(fp, "int YYLEX_DECL();\n");  in output_lex_decl()
1880 	putl_code(fp, "#endif\n");  in output_lex_decl()
1885 output_error_decl(FILE * fp)  in output_error_decl()  argument
1887     putc_code(fp, '\n');  in output_error_decl()
1888     putl_code(fp, "/* Parameters sent to yyerror. */\n");  in output_error_decl()
1889     putl_code(fp, "#ifndef YYERROR_DECL\n");  in output_error_decl()
1890     puts_code(fp, "#define YYERROR_DECL() yyerror(");  in output_error_decl()
1893 	puts_code(fp, "YYLTYPE *loc, ");  in output_error_decl()
1895     puts_param_types(fp, parse_param, 1);  in output_error_decl()
1896     putl_code(fp, "const char *s)\n");  in output_error_decl()
1897     putl_code(fp, "#endif\n");  in output_error_decl()
1899     putl_code(fp, "#ifndef YYERROR_CALL\n");  in output_error_decl()
1901     puts_code(fp, "#define YYERROR_CALL(msg) yyerror(");  in output_error_decl()
1904 	puts_code(fp, "&yylloc, ");  in output_error_decl()
1906     puts_param_names(fp, parse_param, 1);  in output_error_decl()
1907     putl_code(fp, "msg)\n");  in output_error_decl()
1909     putl_code(fp, "#endif\n");  in output_error_decl()
1914 output_yydestruct_decl(FILE * fp)  in output_yydestruct_decl()  argument
1916     putc_code(fp, '\n');  in output_yydestruct_decl()
1917     putl_code(fp, "#ifndef YYDESTRUCT_DECL\n");  in output_yydestruct_decl()
1919     puts_code(fp,  in output_yydestruct_decl()
1924 	puts_code(fp, ", YYLTYPE *loc");  in output_yydestruct_decl()
1928 	puts_code(fp, ", ");  in output_yydestruct_decl()
1929 	puts_param_types(fp, parse_param, 0);  in output_yydestruct_decl()
1931     putl_code(fp, ")\n");  in output_yydestruct_decl()
1933     putl_code(fp, "#endif\n");  in output_yydestruct_decl()
1935     putl_code(fp, "#ifndef YYDESTRUCT_CALL\n");  in output_yydestruct_decl()
1937     puts_code(fp, "#define YYDESTRUCT_CALL(msg, psymb, val");  in output_yydestruct_decl()
1940 	puts_code(fp, ", loc");  in output_yydestruct_decl()
1942     puts_code(fp, ") yydestruct(msg, psymb, val");  in output_yydestruct_decl()
1945 	puts_code(fp, ", loc");  in output_yydestruct_decl()
1949 	puts_code(fp, ", ");  in output_yydestruct_decl()
1950 	puts_param_names(fp, parse_param, 0);  in output_yydestruct_decl()
1952     putl_code(fp, ")\n");  in output_yydestruct_decl()
1954     putl_code(fp, "#endif\n");  in output_yydestruct_decl()
2043 output_externs(FILE * fp, const char *const section[])  in output_externs()  argument
2053 	    fputs("extern\t", fp);  in output_externs()
2054 	if (fp == code_file)  in output_externs()
2056 	fprintf(fp, "%s\n", s);  in output_externs()
2063     FILE *fp;  in output()  local
2081 	fp = externs_file;  in output()
2084 	fp = code_file;  in output()
2086     output_prefix(fp);  in output()
2087     output_pure_parser(fp);  in output()
2088     output_stored_text(fp);  in output()
2089     output_stype(fp);  in output()
2092 	output_ltype(fp);  in output()
2094     output_parse_decl(fp);  in output()
2095     output_lex_decl(fp);  in output()
2096     output_error_decl(fp);  in output()
2099 	output_yydestruct_decl(fp);  in output()
2103 	write_section(fp, xdecls);  in output()