1*5152d3b1SAntonio Huete Jimenez /* $Id: main.c,v 1.73 2021/08/08 20:39:34 tom Exp $ */
2b2605375SPeter Avalos
3b2605375SPeter Avalos #include <signal.h>
4faa6539eSSascha Wildner #if !defined(_WIN32) || defined(__MINGW32__)
5b2605375SPeter Avalos #include <unistd.h> /* for _exit() */
6c4d42299SSascha Wildner #else
7c4d42299SSascha Wildner #include <stdlib.h> /* for _exit() */
8c4d42299SSascha Wildner #endif
9b2605375SPeter Avalos
10b2605375SPeter Avalos #include "defs.h"
11b2605375SPeter Avalos
12b2605375SPeter Avalos #ifdef HAVE_MKSTEMP
13b2605375SPeter Avalos # define USE_MKSTEMP 1
14b2605375SPeter Avalos #elif defined(HAVE_FCNTL_H)
15b2605375SPeter Avalos # define USE_MKSTEMP 1
16b2605375SPeter Avalos # include <fcntl.h> /* for open(), O_EXCL, etc. */
17b2605375SPeter Avalos #else
18b2605375SPeter Avalos # define USE_MKSTEMP 0
19b2605375SPeter Avalos #endif
20b2605375SPeter Avalos
21b2605375SPeter Avalos #if USE_MKSTEMP
22b2605375SPeter Avalos #include <sys/types.h>
23b2605375SPeter Avalos #include <sys/stat.h>
24b2605375SPeter Avalos
25b2605375SPeter Avalos typedef struct _my_tmpfiles
26b2605375SPeter Avalos {
27b2605375SPeter Avalos struct _my_tmpfiles *next;
28b2605375SPeter Avalos char *name;
29b2605375SPeter Avalos }
30b2605375SPeter Avalos MY_TMPFILES;
31b2605375SPeter Avalos
32b2605375SPeter Avalos static MY_TMPFILES *my_tmpfiles;
33b2605375SPeter Avalos #endif /* USE_MKSTEMP */
34b2605375SPeter Avalos
35b2605375SPeter Avalos char dflag;
36faa6539eSSascha Wildner char dflag2;
37b2605375SPeter Avalos char gflag;
38b2605375SPeter Avalos char iflag;
39b2605375SPeter Avalos char lflag;
40b2605375SPeter Avalos static char oflag;
41b2605375SPeter Avalos char rflag;
42b2605375SPeter Avalos char sflag;
43b2605375SPeter Avalos char tflag;
44b2605375SPeter Avalos char vflag;
45b2605375SPeter Avalos
46b2605375SPeter Avalos const char *symbol_prefix;
47b2605375SPeter Avalos const char *myname = "yacc";
48b2605375SPeter Avalos
49b2605375SPeter Avalos int lineno;
50b2605375SPeter Avalos int outline;
51b2605375SPeter Avalos
52b2605375SPeter Avalos static char default_file_prefix[] = "y";
53b2605375SPeter Avalos
54b2605375SPeter Avalos static char *file_prefix = default_file_prefix;
55b2605375SPeter Avalos
56b2605375SPeter Avalos char *code_file_name;
57ca0c2f89SAntonio Huete Jimenez char *input_file_name;
58ca0c2f89SAntonio Huete Jimenez size_t input_file_name_len = 0;
59b2605375SPeter Avalos char *defines_file_name;
60b2605375SPeter Avalos char *externs_file_name;
61b2605375SPeter Avalos
62b2605375SPeter Avalos static char *graph_file_name;
63b2605375SPeter Avalos static char *output_file_name;
64b2605375SPeter Avalos static char *verbose_file_name;
65b2605375SPeter Avalos
66b2605375SPeter Avalos FILE *action_file; /* a temp file, used to save actions associated */
67b2605375SPeter Avalos /* with rules until the parser is written */
68b2605375SPeter Avalos FILE *code_file; /* y.code.c (used when the -r option is specified) */
69b2605375SPeter Avalos FILE *defines_file; /* y.tab.h */
70b2605375SPeter Avalos FILE *externs_file; /* y.tab.i */
71b2605375SPeter Avalos FILE *input_file; /* the input file */
72b2605375SPeter Avalos FILE *output_file; /* y.tab.c */
73b2605375SPeter Avalos FILE *text_file; /* a temp file, used to save text until all */
74b2605375SPeter Avalos /* symbols have been defined */
75b2605375SPeter Avalos FILE *union_file; /* a temp file, used to save the union */
76b2605375SPeter Avalos /* definition until all symbol have been */
77b2605375SPeter Avalos /* defined */
78b2605375SPeter Avalos FILE *verbose_file; /* y.output */
79b2605375SPeter Avalos FILE *graph_file; /* y.dot */
80b2605375SPeter Avalos
81c4d42299SSascha Wildner Value_t nitems;
82c4d42299SSascha Wildner Value_t nrules;
83c4d42299SSascha Wildner Value_t nsyms;
84c4d42299SSascha Wildner Value_t ntokens;
85c4d42299SSascha Wildner Value_t nvars;
86b2605375SPeter Avalos
87b2605375SPeter Avalos Value_t start_symbol;
88b2605375SPeter Avalos char **symbol_name;
89b2605375SPeter Avalos char **symbol_pname;
90b2605375SPeter Avalos Value_t *symbol_value;
91c4d42299SSascha Wildner Value_t *symbol_prec;
92b2605375SPeter Avalos char *symbol_assoc;
93b2605375SPeter Avalos
94b2605375SPeter Avalos int pure_parser;
95c4d42299SSascha Wildner int token_table;
96ca0c2f89SAntonio Huete Jimenez int error_verbose;
97c4d42299SSascha Wildner
98c4d42299SSascha Wildner #if defined(YYBTYACC)
99c4d42299SSascha Wildner Value_t *symbol_pval;
100c4d42299SSascha Wildner char **symbol_destructor;
101c4d42299SSascha Wildner char **symbol_type_tag;
102c4d42299SSascha Wildner int locations = 0; /* default to no position processing */
103c4d42299SSascha Wildner int backtrack = 0; /* default is no backtracking */
104ca0c2f89SAntonio Huete Jimenez char *initial_action = NULL;
105c4d42299SSascha Wildner #endif
106c4d42299SSascha Wildner
107b2605375SPeter Avalos int exit_code;
108b2605375SPeter Avalos
109b2605375SPeter Avalos Value_t *ritem;
110b2605375SPeter Avalos Value_t *rlhs;
111b2605375SPeter Avalos Value_t *rrhs;
112b2605375SPeter Avalos Value_t *rprec;
113b2605375SPeter Avalos Assoc_t *rassoc;
114b2605375SPeter Avalos Value_t **derives;
115b2605375SPeter Avalos char *nullable;
116b2605375SPeter Avalos
117b2605375SPeter Avalos /*
118b2605375SPeter Avalos * Since fclose() is called via the signal handler, it might die. Don't loop
119b2605375SPeter Avalos * if there is a problem closing a file.
120b2605375SPeter Avalos */
121b2605375SPeter Avalos #define DO_CLOSE(fp) \
122b2605375SPeter Avalos if (fp != 0) { \
123b2605375SPeter Avalos FILE *use = fp; \
124b2605375SPeter Avalos fp = 0; \
125b2605375SPeter Avalos fclose(use); \
126b2605375SPeter Avalos }
127b2605375SPeter Avalos
128b2605375SPeter Avalos static int got_intr = 0;
129b2605375SPeter Avalos
130b2605375SPeter Avalos void
done(int k)131b2605375SPeter Avalos done(int k)
132b2605375SPeter Avalos {
133b2605375SPeter Avalos DO_CLOSE(input_file);
134b2605375SPeter Avalos DO_CLOSE(output_file);
135c4d42299SSascha Wildner if (iflag)
136c4d42299SSascha Wildner DO_CLOSE(externs_file);
137c4d42299SSascha Wildner if (rflag)
138c4d42299SSascha Wildner DO_CLOSE(code_file);
139b2605375SPeter Avalos
140b2605375SPeter Avalos DO_CLOSE(action_file);
141b2605375SPeter Avalos DO_CLOSE(defines_file);
142b2605375SPeter Avalos DO_CLOSE(graph_file);
143b2605375SPeter Avalos DO_CLOSE(text_file);
144b2605375SPeter Avalos DO_CLOSE(union_file);
145b2605375SPeter Avalos DO_CLOSE(verbose_file);
146b2605375SPeter Avalos
147b2605375SPeter Avalos if (got_intr)
148b2605375SPeter Avalos _exit(EXIT_FAILURE);
149b2605375SPeter Avalos
150b2605375SPeter Avalos #ifdef NO_LEAKS
151*5152d3b1SAntonio Huete Jimenez DO_FREE(input_file_name);
152*5152d3b1SAntonio Huete Jimenez
153b2605375SPeter Avalos if (rflag)
154b2605375SPeter Avalos DO_FREE(code_file_name);
155b2605375SPeter Avalos
156faa6539eSSascha Wildner if (dflag && !dflag2)
157b2605375SPeter Avalos DO_FREE(defines_file_name);
158b2605375SPeter Avalos
159b2605375SPeter Avalos if (iflag)
160b2605375SPeter Avalos DO_FREE(externs_file_name);
161b2605375SPeter Avalos
162b2605375SPeter Avalos if (oflag)
163b2605375SPeter Avalos DO_FREE(output_file_name);
164b2605375SPeter Avalos
165b2605375SPeter Avalos if (vflag)
166b2605375SPeter Avalos DO_FREE(verbose_file_name);
167b2605375SPeter Avalos
168b2605375SPeter Avalos if (gflag)
169b2605375SPeter Avalos DO_FREE(graph_file_name);
170b2605375SPeter Avalos
171b2605375SPeter Avalos lr0_leaks();
172b2605375SPeter Avalos lalr_leaks();
173b2605375SPeter Avalos mkpar_leaks();
174c4d42299SSascha Wildner mstring_leaks();
175b2605375SPeter Avalos output_leaks();
176b2605375SPeter Avalos reader_leaks();
177b2605375SPeter Avalos #endif
178b2605375SPeter Avalos
179b2605375SPeter Avalos exit(k);
180b2605375SPeter Avalos }
181b2605375SPeter Avalos
182b2605375SPeter Avalos static void
onintr(int sig GCC_UNUSED)183b2605375SPeter Avalos onintr(int sig GCC_UNUSED)
184b2605375SPeter Avalos {
185b2605375SPeter Avalos got_intr = 1;
186b2605375SPeter Avalos done(EXIT_FAILURE);
187b2605375SPeter Avalos }
188b2605375SPeter Avalos
189b2605375SPeter Avalos static void
set_signals(void)190b2605375SPeter Avalos set_signals(void)
191b2605375SPeter Avalos {
192b2605375SPeter Avalos #ifdef SIGINT
193b2605375SPeter Avalos if (signal(SIGINT, SIG_IGN) != SIG_IGN)
194b2605375SPeter Avalos signal(SIGINT, onintr);
195b2605375SPeter Avalos #endif
196b2605375SPeter Avalos #ifdef SIGTERM
197b2605375SPeter Avalos if (signal(SIGTERM, SIG_IGN) != SIG_IGN)
198b2605375SPeter Avalos signal(SIGTERM, onintr);
199b2605375SPeter Avalos #endif
200b2605375SPeter Avalos #ifdef SIGHUP
201b2605375SPeter Avalos if (signal(SIGHUP, SIG_IGN) != SIG_IGN)
202b2605375SPeter Avalos signal(SIGHUP, onintr);
203b2605375SPeter Avalos #endif
204b2605375SPeter Avalos }
205b2605375SPeter Avalos
206*5152d3b1SAntonio Huete Jimenez #define SIZEOF(v) (sizeof(v) / sizeof((v)[0]))
207*5152d3b1SAntonio Huete Jimenez
208*5152d3b1SAntonio Huete Jimenez /*
209*5152d3b1SAntonio Huete Jimenez * Long options are provided only as a compatibility aid for scripters.
210*5152d3b1SAntonio Huete Jimenez */
211*5152d3b1SAntonio Huete Jimenez /* *INDENT-OFF* */
212*5152d3b1SAntonio Huete Jimenez static const struct {
213*5152d3b1SAntonio Huete Jimenez const char long_opt[16];
214*5152d3b1SAntonio Huete Jimenez const char yacc_arg;
215*5152d3b1SAntonio Huete Jimenez const char yacc_opt;
216*5152d3b1SAntonio Huete Jimenez } long_opts[] = {
217*5152d3b1SAntonio Huete Jimenez { "defines", 1, 'H' },
218*5152d3b1SAntonio Huete Jimenez { "file-prefix", 1, 'b' },
219*5152d3b1SAntonio Huete Jimenez { "graph", 0, 'g' },
220*5152d3b1SAntonio Huete Jimenez { "help", 0, 'h' },
221*5152d3b1SAntonio Huete Jimenez { "name-prefix", 1, 'p' },
222*5152d3b1SAntonio Huete Jimenez { "no-lines", 0, 'l' },
223*5152d3b1SAntonio Huete Jimenez { "output", 1, 'o' },
224*5152d3b1SAntonio Huete Jimenez { "version", 0, 'V' }
225*5152d3b1SAntonio Huete Jimenez };
226*5152d3b1SAntonio Huete Jimenez /* *INDENT-ON* */
227*5152d3b1SAntonio Huete Jimenez
228*5152d3b1SAntonio Huete Jimenez /*
229*5152d3b1SAntonio Huete Jimenez * Usage-message is designed for 80 columns, with some unknowns. Account for
230*5152d3b1SAntonio Huete Jimenez * those in the maximum width so that the usage message uses no relocatable
231*5152d3b1SAntonio Huete Jimenez * pointers.
232*5152d3b1SAntonio Huete Jimenez */
233*5152d3b1SAntonio Huete Jimenez #define USAGE_COLS (80 + sizeof(DEFINES_SUFFIX) + sizeof(OUTPUT_SUFFIX))
234*5152d3b1SAntonio Huete Jimenez
235b2605375SPeter Avalos static void
usage(void)236b2605375SPeter Avalos usage(void)
237b2605375SPeter Avalos {
238*5152d3b1SAntonio Huete Jimenez /* *INDENT-OFF* */
239*5152d3b1SAntonio Huete Jimenez static const char msg[][USAGE_COLS] =
240b2605375SPeter Avalos {
241*5152d3b1SAntonio Huete Jimenez { " -b file_prefix set filename prefix (default \"y.\")" },
242*5152d3b1SAntonio Huete Jimenez { " -B create a backtracking parser" },
243*5152d3b1SAntonio Huete Jimenez { " -d write definitions (" DEFINES_SUFFIX ")" },
244*5152d3b1SAntonio Huete Jimenez { " -h print this help-message" },
245*5152d3b1SAntonio Huete Jimenez { " -H defines_file write definitions to defines_file" },
246*5152d3b1SAntonio Huete Jimenez { " -i write interface (y.tab.i)" },
247*5152d3b1SAntonio Huete Jimenez { " -g write a graphical description" },
248*5152d3b1SAntonio Huete Jimenez { " -l suppress #line directives" },
249*5152d3b1SAntonio Huete Jimenez { " -L enable position processing, e.g., \"%locations\"" },
250*5152d3b1SAntonio Huete Jimenez { " -o output_file (default \"" OUTPUT_SUFFIX "\")" },
251*5152d3b1SAntonio Huete Jimenez { " -p symbol_prefix set symbol prefix (default \"yy\")" },
252*5152d3b1SAntonio Huete Jimenez { " -P create a reentrant parser, e.g., \"%pure-parser\"" },
253*5152d3b1SAntonio Huete Jimenez { " -r produce separate code and table files (y.code.c)" },
254*5152d3b1SAntonio Huete Jimenez { " -s suppress #define's for quoted names in %token lines" },
255*5152d3b1SAntonio Huete Jimenez { " -t add debugging support" },
256*5152d3b1SAntonio Huete Jimenez { " -v write description (y.output)" },
257*5152d3b1SAntonio Huete Jimenez { " -V show version information and exit" },
258b2605375SPeter Avalos };
259*5152d3b1SAntonio Huete Jimenez /* *INDENT-ON* */
260b2605375SPeter Avalos unsigned n;
261b2605375SPeter Avalos
262b2605375SPeter Avalos fflush(stdout);
263b2605375SPeter Avalos fprintf(stderr, "Usage: %s [options] filename\n", myname);
264*5152d3b1SAntonio Huete Jimenez
265*5152d3b1SAntonio Huete Jimenez fprintf(stderr, "\nOptions:\n");
266*5152d3b1SAntonio Huete Jimenez for (n = 0; n < SIZEOF(msg); ++n)
267*5152d3b1SAntonio Huete Jimenez {
268b2605375SPeter Avalos fprintf(stderr, "%s\n", msg[n]);
269*5152d3b1SAntonio Huete Jimenez }
270*5152d3b1SAntonio Huete Jimenez
271*5152d3b1SAntonio Huete Jimenez fprintf(stderr, "\nLong options:\n");
272*5152d3b1SAntonio Huete Jimenez for (n = 0; n < SIZEOF(long_opts); ++n)
273*5152d3b1SAntonio Huete Jimenez {
274*5152d3b1SAntonio Huete Jimenez fprintf(stderr, " --%-20s-%c\n",
275*5152d3b1SAntonio Huete Jimenez long_opts[n].long_opt,
276*5152d3b1SAntonio Huete Jimenez long_opts[n].yacc_opt);
277*5152d3b1SAntonio Huete Jimenez }
278b2605375SPeter Avalos
279faa6539eSSascha Wildner exit(EXIT_FAILURE);
280b2605375SPeter Avalos }
281b2605375SPeter Avalos
282b2605375SPeter Avalos static void
invalid_option(const char * option)283*5152d3b1SAntonio Huete Jimenez invalid_option(const char *option)
284*5152d3b1SAntonio Huete Jimenez {
285*5152d3b1SAntonio Huete Jimenez fprintf(stderr, "invalid option: %s\n", option);
286*5152d3b1SAntonio Huete Jimenez usage();
287*5152d3b1SAntonio Huete Jimenez }
288*5152d3b1SAntonio Huete Jimenez
289*5152d3b1SAntonio Huete Jimenez static void
setflag(int ch)290b2605375SPeter Avalos setflag(int ch)
291b2605375SPeter Avalos {
292b2605375SPeter Avalos switch (ch)
293b2605375SPeter Avalos {
294c4d42299SSascha Wildner case 'B':
295c4d42299SSascha Wildner #if defined(YYBTYACC)
296c4d42299SSascha Wildner backtrack = 1;
297c4d42299SSascha Wildner #else
298c4d42299SSascha Wildner unsupported_flag_warning("-B", "reconfigure with --enable-btyacc");
299c4d42299SSascha Wildner #endif
300c4d42299SSascha Wildner break;
301c4d42299SSascha Wildner
302b2605375SPeter Avalos case 'd':
303b2605375SPeter Avalos dflag = 1;
304faa6539eSSascha Wildner dflag2 = 0;
305b2605375SPeter Avalos break;
306b2605375SPeter Avalos
307b2605375SPeter Avalos case 'g':
308b2605375SPeter Avalos gflag = 1;
309b2605375SPeter Avalos break;
310b2605375SPeter Avalos
311b2605375SPeter Avalos case 'i':
312b2605375SPeter Avalos iflag = 1;
313b2605375SPeter Avalos break;
314b2605375SPeter Avalos
315b2605375SPeter Avalos case 'l':
316b2605375SPeter Avalos lflag = 1;
317b2605375SPeter Avalos break;
318b2605375SPeter Avalos
319c4d42299SSascha Wildner case 'L':
320c4d42299SSascha Wildner #if defined(YYBTYACC)
321c4d42299SSascha Wildner locations = 1;
322c4d42299SSascha Wildner #else
323ca0c2f89SAntonio Huete Jimenez unsupported_flag_warning("-L", "reconfigure with --enable-btyacc");
324c4d42299SSascha Wildner #endif
325c4d42299SSascha Wildner break;
326c4d42299SSascha Wildner
327b2605375SPeter Avalos case 'P':
328b2605375SPeter Avalos pure_parser = 1;
329b2605375SPeter Avalos break;
330b2605375SPeter Avalos
331b2605375SPeter Avalos case 'r':
332b2605375SPeter Avalos rflag = 1;
333b2605375SPeter Avalos break;
334b2605375SPeter Avalos
335b2605375SPeter Avalos case 's':
336b2605375SPeter Avalos sflag = 1;
337b2605375SPeter Avalos break;
338b2605375SPeter Avalos
339b2605375SPeter Avalos case 't':
340b2605375SPeter Avalos tflag = 1;
341b2605375SPeter Avalos break;
342b2605375SPeter Avalos
343b2605375SPeter Avalos case 'v':
344b2605375SPeter Avalos vflag = 1;
345b2605375SPeter Avalos break;
346b2605375SPeter Avalos
347b2605375SPeter Avalos case 'V':
348b2605375SPeter Avalos printf("%s - %s\n", myname, VERSION);
349b2605375SPeter Avalos exit(EXIT_SUCCESS);
350b2605375SPeter Avalos
351b2605375SPeter Avalos case 'y':
352b2605375SPeter Avalos /* noop for bison compatibility. byacc is already designed to be posix
353b2605375SPeter Avalos * yacc compatible. */
354b2605375SPeter Avalos break;
355b2605375SPeter Avalos
356b2605375SPeter Avalos default:
357b2605375SPeter Avalos usage();
358b2605375SPeter Avalos }
359b2605375SPeter Avalos }
360b2605375SPeter Avalos
361b2605375SPeter Avalos static void
getargs(int argc,char * argv[])362b2605375SPeter Avalos getargs(int argc, char *argv[])
363b2605375SPeter Avalos {
364b2605375SPeter Avalos int i;
365faa6539eSSascha Wildner #ifdef HAVE_GETOPT
366faa6539eSSascha Wildner int ch;
367*5152d3b1SAntonio Huete Jimenez #endif
368faa6539eSSascha Wildner
369*5152d3b1SAntonio Huete Jimenez /*
370*5152d3b1SAntonio Huete Jimenez * Map bison's long-options into yacc short options.
371*5152d3b1SAntonio Huete Jimenez */
372*5152d3b1SAntonio Huete Jimenez for (i = 1; i < argc; ++i)
373*5152d3b1SAntonio Huete Jimenez {
374*5152d3b1SAntonio Huete Jimenez char *a = argv[i];
375*5152d3b1SAntonio Huete Jimenez
376*5152d3b1SAntonio Huete Jimenez if (!strncmp(a, "--", 2))
377*5152d3b1SAntonio Huete Jimenez {
378*5152d3b1SAntonio Huete Jimenez char *eqls;
379*5152d3b1SAntonio Huete Jimenez size_t lc;
380*5152d3b1SAntonio Huete Jimenez size_t len;
381*5152d3b1SAntonio Huete Jimenez
382*5152d3b1SAntonio Huete Jimenez if ((len = strlen(a)) == 2)
383*5152d3b1SAntonio Huete Jimenez break;
384*5152d3b1SAntonio Huete Jimenez
385*5152d3b1SAntonio Huete Jimenez if ((eqls = strchr(a, '=')) != NULL)
386*5152d3b1SAntonio Huete Jimenez {
387*5152d3b1SAntonio Huete Jimenez len = (size_t)(eqls - a);
388*5152d3b1SAntonio Huete Jimenez if (len == 0 || eqls[1] == '\0')
389*5152d3b1SAntonio Huete Jimenez invalid_option(a);
390*5152d3b1SAntonio Huete Jimenez }
391*5152d3b1SAntonio Huete Jimenez
392*5152d3b1SAntonio Huete Jimenez for (lc = 0; lc < SIZEOF(long_opts); ++lc)
393*5152d3b1SAntonio Huete Jimenez {
394*5152d3b1SAntonio Huete Jimenez if (!strncmp(long_opts[lc].long_opt, a + 2, len - 2))
395*5152d3b1SAntonio Huete Jimenez {
396*5152d3b1SAntonio Huete Jimenez if (eqls != NULL && !long_opts[lc].yacc_arg)
397*5152d3b1SAntonio Huete Jimenez invalid_option(a);
398*5152d3b1SAntonio Huete Jimenez *a++ = '-';
399*5152d3b1SAntonio Huete Jimenez *a++ = long_opts[lc].yacc_opt;
400*5152d3b1SAntonio Huete Jimenez *a = '\0';
401*5152d3b1SAntonio Huete Jimenez if (eqls)
402*5152d3b1SAntonio Huete Jimenez {
403*5152d3b1SAntonio Huete Jimenez while ((*a++ = *++eqls) != '\0') /* empty */ ;
404*5152d3b1SAntonio Huete Jimenez }
405*5152d3b1SAntonio Huete Jimenez break;
406*5152d3b1SAntonio Huete Jimenez }
407*5152d3b1SAntonio Huete Jimenez }
408*5152d3b1SAntonio Huete Jimenez if (!strncmp(a, "--", 2))
409*5152d3b1SAntonio Huete Jimenez invalid_option(a);
410*5152d3b1SAntonio Huete Jimenez }
411*5152d3b1SAntonio Huete Jimenez }
412*5152d3b1SAntonio Huete Jimenez
413*5152d3b1SAntonio Huete Jimenez #ifdef HAVE_GETOPT
414faa6539eSSascha Wildner if (argc > 0)
415faa6539eSSascha Wildner myname = argv[0];
416faa6539eSSascha Wildner
417*5152d3b1SAntonio Huete Jimenez while ((ch = getopt(argc, argv, "Bb:dghH:ilLo:Pp:rstVvy")) != -1)
418faa6539eSSascha Wildner {
419faa6539eSSascha Wildner switch (ch)
420faa6539eSSascha Wildner {
421faa6539eSSascha Wildner case 'b':
422faa6539eSSascha Wildner file_prefix = optarg;
423faa6539eSSascha Wildner break;
424*5152d3b1SAntonio Huete Jimenez case 'h':
425*5152d3b1SAntonio Huete Jimenez usage();
426*5152d3b1SAntonio Huete Jimenez break;
427faa6539eSSascha Wildner case 'H':
428faa6539eSSascha Wildner dflag = dflag2 = 1;
429faa6539eSSascha Wildner defines_file_name = optarg;
430faa6539eSSascha Wildner break;
431faa6539eSSascha Wildner case 'o':
432faa6539eSSascha Wildner output_file_name = optarg;
433faa6539eSSascha Wildner break;
434faa6539eSSascha Wildner case 'p':
435faa6539eSSascha Wildner symbol_prefix = optarg;
436faa6539eSSascha Wildner break;
437faa6539eSSascha Wildner default:
438faa6539eSSascha Wildner setflag(ch);
439faa6539eSSascha Wildner break;
440faa6539eSSascha Wildner }
441faa6539eSSascha Wildner }
442faa6539eSSascha Wildner if ((i = optind) < argc)
443faa6539eSSascha Wildner {
444faa6539eSSascha Wildner /* getopt handles "--" specially, while we handle "-" specially */
445faa6539eSSascha Wildner if (!strcmp(argv[i], "-"))
446faa6539eSSascha Wildner {
447faa6539eSSascha Wildner if ((i + 1) < argc)
448faa6539eSSascha Wildner usage();
449faa6539eSSascha Wildner input_file = stdin;
450faa6539eSSascha Wildner return;
451faa6539eSSascha Wildner }
452faa6539eSSascha Wildner }
453faa6539eSSascha Wildner #else
454b2605375SPeter Avalos char *s;
455b2605375SPeter Avalos int ch;
456b2605375SPeter Avalos
457b2605375SPeter Avalos if (argc > 0)
458b2605375SPeter Avalos myname = argv[0];
459b2605375SPeter Avalos
460b2605375SPeter Avalos for (i = 1; i < argc; ++i)
461b2605375SPeter Avalos {
462b2605375SPeter Avalos s = argv[i];
463b2605375SPeter Avalos if (*s != '-')
464b2605375SPeter Avalos break;
465b2605375SPeter Avalos switch (ch = *++s)
466b2605375SPeter Avalos {
467b2605375SPeter Avalos case '\0':
468b2605375SPeter Avalos input_file = stdin;
469b2605375SPeter Avalos if (i + 1 < argc)
470b2605375SPeter Avalos usage();
471b2605375SPeter Avalos return;
472b2605375SPeter Avalos
473b2605375SPeter Avalos case '-':
474b2605375SPeter Avalos ++i;
475b2605375SPeter Avalos goto no_more_options;
476b2605375SPeter Avalos
477b2605375SPeter Avalos case 'b':
478b2605375SPeter Avalos if (*++s)
479b2605375SPeter Avalos file_prefix = s;
480b2605375SPeter Avalos else if (++i < argc)
481b2605375SPeter Avalos file_prefix = argv[i];
482b2605375SPeter Avalos else
483b2605375SPeter Avalos usage();
484b2605375SPeter Avalos continue;
485b2605375SPeter Avalos
486faa6539eSSascha Wildner case 'H':
487faa6539eSSascha Wildner dflag = dflag2 = 1;
488faa6539eSSascha Wildner if (*++s)
489faa6539eSSascha Wildner defines_file_name = s;
490faa6539eSSascha Wildner else if (++i < argc)
491faa6539eSSascha Wildner defines_file_name = argv[i];
492faa6539eSSascha Wildner else
493faa6539eSSascha Wildner usage();
494faa6539eSSascha Wildner continue;
495faa6539eSSascha Wildner
496b2605375SPeter Avalos case 'o':
497b2605375SPeter Avalos if (*++s)
498b2605375SPeter Avalos output_file_name = s;
499b2605375SPeter Avalos else if (++i < argc)
500b2605375SPeter Avalos output_file_name = argv[i];
501b2605375SPeter Avalos else
502b2605375SPeter Avalos usage();
503b2605375SPeter Avalos continue;
504b2605375SPeter Avalos
505b2605375SPeter Avalos case 'p':
506b2605375SPeter Avalos if (*++s)
507b2605375SPeter Avalos symbol_prefix = s;
508b2605375SPeter Avalos else if (++i < argc)
509b2605375SPeter Avalos symbol_prefix = argv[i];
510b2605375SPeter Avalos else
511b2605375SPeter Avalos usage();
512b2605375SPeter Avalos continue;
513b2605375SPeter Avalos
514b2605375SPeter Avalos default:
515b2605375SPeter Avalos setflag(ch);
516b2605375SPeter Avalos break;
517b2605375SPeter Avalos }
518b2605375SPeter Avalos
519b2605375SPeter Avalos for (;;)
520b2605375SPeter Avalos {
521b2605375SPeter Avalos switch (ch = *++s)
522b2605375SPeter Avalos {
523b2605375SPeter Avalos case '\0':
524b2605375SPeter Avalos goto end_of_option;
525b2605375SPeter Avalos
526b2605375SPeter Avalos default:
527b2605375SPeter Avalos setflag(ch);
528b2605375SPeter Avalos break;
529b2605375SPeter Avalos }
530b2605375SPeter Avalos }
531b2605375SPeter Avalos end_of_option:;
532b2605375SPeter Avalos }
533b2605375SPeter Avalos
534faa6539eSSascha Wildner no_more_options:
535faa6539eSSascha Wildner
536faa6539eSSascha Wildner #endif /* HAVE_GETOPT */
537b2605375SPeter Avalos if (i + 1 != argc)
538b2605375SPeter Avalos usage();
539ca0c2f89SAntonio Huete Jimenez input_file_name_len = strlen(argv[i]);
540ca0c2f89SAntonio Huete Jimenez input_file_name = TMALLOC(char, input_file_name_len + 1);
541ca0c2f89SAntonio Huete Jimenez NO_SPACE(input_file_name);
542ca0c2f89SAntonio Huete Jimenez strcpy(input_file_name, argv[i]);
543b2605375SPeter Avalos }
544b2605375SPeter Avalos
545b2605375SPeter Avalos void *
allocate(size_t n)546b2605375SPeter Avalos allocate(size_t n)
547b2605375SPeter Avalos {
548b2605375SPeter Avalos void *p;
549b2605375SPeter Avalos
550b2605375SPeter Avalos p = NULL;
551b2605375SPeter Avalos if (n)
552b2605375SPeter Avalos {
553b2605375SPeter Avalos p = CALLOC(1, n);
554b2605375SPeter Avalos NO_SPACE(p);
555b2605375SPeter Avalos }
556b2605375SPeter Avalos return (p);
557b2605375SPeter Avalos }
558b2605375SPeter Avalos
559b2605375SPeter Avalos #define CREATE_FILE_NAME(dest, suffix) \
560c4d42299SSascha Wildner dest = alloc_file_name(len, suffix)
561c4d42299SSascha Wildner
562c4d42299SSascha Wildner static char *
alloc_file_name(size_t len,const char * suffix)563c4d42299SSascha Wildner alloc_file_name(size_t len, const char *suffix)
564c4d42299SSascha Wildner {
565c4d42299SSascha Wildner char *result = TMALLOC(char, len + strlen(suffix) + 1);
566c4d42299SSascha Wildner if (result == 0)
567c4d42299SSascha Wildner no_space();
568c4d42299SSascha Wildner strcpy(result, file_prefix);
569c4d42299SSascha Wildner strcpy(result + len, suffix);
570c4d42299SSascha Wildner return result;
571c4d42299SSascha Wildner }
572b2605375SPeter Avalos
573ca0c2f89SAntonio Huete Jimenez static char *
find_suffix(char * name,const char * suffix)574ca0c2f89SAntonio Huete Jimenez find_suffix(char *name, const char *suffix)
575ca0c2f89SAntonio Huete Jimenez {
576ca0c2f89SAntonio Huete Jimenez size_t len = strlen(name);
577ca0c2f89SAntonio Huete Jimenez size_t slen = strlen(suffix);
578ca0c2f89SAntonio Huete Jimenez if (len >= slen)
579ca0c2f89SAntonio Huete Jimenez {
580ca0c2f89SAntonio Huete Jimenez name += len - slen;
581ca0c2f89SAntonio Huete Jimenez if (strcmp(name, suffix) == 0)
582ca0c2f89SAntonio Huete Jimenez return name;
583ca0c2f89SAntonio Huete Jimenez }
584ca0c2f89SAntonio Huete Jimenez return NULL;
585ca0c2f89SAntonio Huete Jimenez }
586ca0c2f89SAntonio Huete Jimenez
587b2605375SPeter Avalos static void
create_file_names(void)588b2605375SPeter Avalos create_file_names(void)
589b2605375SPeter Avalos {
590b2605375SPeter Avalos size_t len;
591b2605375SPeter Avalos const char *defines_suffix;
592b2605375SPeter Avalos const char *externs_suffix;
593ca0c2f89SAntonio Huete Jimenez char *suffix;
594b2605375SPeter Avalos
595ca0c2f89SAntonio Huete Jimenez suffix = NULL;
596b2605375SPeter Avalos defines_suffix = DEFINES_SUFFIX;
597b2605375SPeter Avalos externs_suffix = EXTERNS_SUFFIX;
598b2605375SPeter Avalos
599b2605375SPeter Avalos /* compute the file_prefix from the user provided output_file_name */
600b2605375SPeter Avalos if (output_file_name != 0)
601b2605375SPeter Avalos {
602ca0c2f89SAntonio Huete Jimenez if (!(suffix = find_suffix(output_file_name, OUTPUT_SUFFIX))
603ca0c2f89SAntonio Huete Jimenez && (suffix = find_suffix(output_file_name, ".c")))
604b2605375SPeter Avalos {
605b2605375SPeter Avalos defines_suffix = ".h";
606b2605375SPeter Avalos externs_suffix = ".i";
607b2605375SPeter Avalos }
608b2605375SPeter Avalos }
609b2605375SPeter Avalos
610ca0c2f89SAntonio Huete Jimenez if (suffix != NULL)
611b2605375SPeter Avalos {
612ca0c2f89SAntonio Huete Jimenez len = (size_t)(suffix - output_file_name);
613b2605375SPeter Avalos file_prefix = TMALLOC(char, len + 1);
614b2605375SPeter Avalos NO_SPACE(file_prefix);
615b2605375SPeter Avalos strncpy(file_prefix, output_file_name, len)[len] = 0;
616b2605375SPeter Avalos }
617b2605375SPeter Avalos else
618b2605375SPeter Avalos len = strlen(file_prefix);
619b2605375SPeter Avalos
620b2605375SPeter Avalos /* if "-o filename" was not given */
621b2605375SPeter Avalos if (output_file_name == 0)
622b2605375SPeter Avalos {
623b2605375SPeter Avalos oflag = 1;
624b2605375SPeter Avalos CREATE_FILE_NAME(output_file_name, OUTPUT_SUFFIX);
625b2605375SPeter Avalos }
626b2605375SPeter Avalos
627b2605375SPeter Avalos if (rflag)
628b2605375SPeter Avalos {
629b2605375SPeter Avalos CREATE_FILE_NAME(code_file_name, CODE_SUFFIX);
630b2605375SPeter Avalos }
631b2605375SPeter Avalos else
632b2605375SPeter Avalos code_file_name = output_file_name;
633b2605375SPeter Avalos
634faa6539eSSascha Wildner if (dflag && !dflag2)
635b2605375SPeter Avalos {
636b2605375SPeter Avalos CREATE_FILE_NAME(defines_file_name, defines_suffix);
637b2605375SPeter Avalos }
638b2605375SPeter Avalos
639b2605375SPeter Avalos if (iflag)
640b2605375SPeter Avalos {
641b2605375SPeter Avalos CREATE_FILE_NAME(externs_file_name, externs_suffix);
642b2605375SPeter Avalos }
643b2605375SPeter Avalos
644b2605375SPeter Avalos if (vflag)
645b2605375SPeter Avalos {
646b2605375SPeter Avalos CREATE_FILE_NAME(verbose_file_name, VERBOSE_SUFFIX);
647b2605375SPeter Avalos }
648b2605375SPeter Avalos
649b2605375SPeter Avalos if (gflag)
650b2605375SPeter Avalos {
651b2605375SPeter Avalos CREATE_FILE_NAME(graph_file_name, GRAPH_SUFFIX);
652b2605375SPeter Avalos }
653b2605375SPeter Avalos
654ca0c2f89SAntonio Huete Jimenez if (suffix != NULL)
655b2605375SPeter Avalos {
656b2605375SPeter Avalos FREE(file_prefix);
657b2605375SPeter Avalos }
658b2605375SPeter Avalos }
659b2605375SPeter Avalos
660b2605375SPeter Avalos #if USE_MKSTEMP
661b2605375SPeter Avalos static void
close_tmpfiles(void)662b2605375SPeter Avalos close_tmpfiles(void)
663b2605375SPeter Avalos {
664b2605375SPeter Avalos while (my_tmpfiles != 0)
665b2605375SPeter Avalos {
666b2605375SPeter Avalos MY_TMPFILES *next = my_tmpfiles->next;
667b2605375SPeter Avalos
668c4d42299SSascha Wildner (void)chmod(my_tmpfiles->name, 0644);
669c4d42299SSascha Wildner (void)unlink(my_tmpfiles->name);
670b2605375SPeter Avalos
671b2605375SPeter Avalos free(my_tmpfiles->name);
672b2605375SPeter Avalos free(my_tmpfiles);
673b2605375SPeter Avalos
674b2605375SPeter Avalos my_tmpfiles = next;
675b2605375SPeter Avalos }
676b2605375SPeter Avalos }
677b2605375SPeter Avalos
678b2605375SPeter Avalos #ifndef HAVE_MKSTEMP
679b2605375SPeter Avalos static int
my_mkstemp(char * temp)680b2605375SPeter Avalos my_mkstemp(char *temp)
681b2605375SPeter Avalos {
682b2605375SPeter Avalos int fd;
683b2605375SPeter Avalos char *dname;
684b2605375SPeter Avalos char *fname;
685b2605375SPeter Avalos char *name;
686b2605375SPeter Avalos
687b2605375SPeter Avalos /*
688b2605375SPeter Avalos * Split-up to use tempnam, rather than tmpnam; the latter (like
689b2605375SPeter Avalos * mkstemp) is unusable on Windows.
690b2605375SPeter Avalos */
691b2605375SPeter Avalos if ((fname = strrchr(temp, '/')) != 0)
692b2605375SPeter Avalos {
693b2605375SPeter Avalos dname = strdup(temp);
694b2605375SPeter Avalos dname[++fname - temp] = '\0';
695b2605375SPeter Avalos }
696b2605375SPeter Avalos else
697b2605375SPeter Avalos {
698b2605375SPeter Avalos dname = 0;
699b2605375SPeter Avalos fname = temp;
700b2605375SPeter Avalos }
701b2605375SPeter Avalos if ((name = tempnam(dname, fname)) != 0)
702b2605375SPeter Avalos {
703b2605375SPeter Avalos fd = open(name, O_CREAT | O_EXCL | O_RDWR);
704b2605375SPeter Avalos strcpy(temp, name);
705b2605375SPeter Avalos }
706b2605375SPeter Avalos else
707b2605375SPeter Avalos {
708b2605375SPeter Avalos fd = -1;
709b2605375SPeter Avalos }
710b2605375SPeter Avalos
711b2605375SPeter Avalos if (dname != 0)
712b2605375SPeter Avalos free(dname);
713b2605375SPeter Avalos
714b2605375SPeter Avalos return fd;
715b2605375SPeter Avalos }
716b2605375SPeter Avalos #define mkstemp(s) my_mkstemp(s)
717b2605375SPeter Avalos #endif
718b2605375SPeter Avalos
719b2605375SPeter Avalos #endif
720b2605375SPeter Avalos
721b2605375SPeter Avalos /*
722b2605375SPeter Avalos * tmpfile() should be adequate, except that it may require special privileges
723b2605375SPeter Avalos * to use, e.g., MinGW and Windows 7 where it tries to use the root directory.
724b2605375SPeter Avalos */
725b2605375SPeter Avalos static FILE *
open_tmpfile(const char * label)726b2605375SPeter Avalos open_tmpfile(const char *label)
727b2605375SPeter Avalos {
728ca0c2f89SAntonio Huete Jimenez #define MY_FMT "%s/%.*sXXXXXX"
729b2605375SPeter Avalos FILE *result;
730b2605375SPeter Avalos #if USE_MKSTEMP
731b2605375SPeter Avalos const char *tmpdir;
732b2605375SPeter Avalos char *name;
733b2605375SPeter Avalos
734faa6539eSSascha Wildner if (((tmpdir = getenv("TMPDIR")) == 0 || access(tmpdir, W_OK) != 0) ||
735faa6539eSSascha Wildner ((tmpdir = getenv("TEMP")) == 0 || access(tmpdir, W_OK) != 0))
736b2605375SPeter Avalos {
737b2605375SPeter Avalos #ifdef P_tmpdir
738b2605375SPeter Avalos tmpdir = P_tmpdir;
739b2605375SPeter Avalos #else
740b2605375SPeter Avalos tmpdir = "/tmp";
741b2605375SPeter Avalos #endif
742b2605375SPeter Avalos if (access(tmpdir, W_OK) != 0)
743b2605375SPeter Avalos tmpdir = ".";
744b2605375SPeter Avalos }
745b2605375SPeter Avalos
746ca0c2f89SAntonio Huete Jimenez /* The size of the format is guaranteed to be longer than the result from
747ca0c2f89SAntonio Huete Jimenez * printing empty strings with it; this calculation accounts for the
748ca0c2f89SAntonio Huete Jimenez * string-lengths as well.
749ca0c2f89SAntonio Huete Jimenez */
750ca0c2f89SAntonio Huete Jimenez name = malloc(strlen(tmpdir) + sizeof(MY_FMT) + strlen(label));
751b2605375SPeter Avalos
752b2605375SPeter Avalos result = 0;
753b2605375SPeter Avalos if (name != 0)
754b2605375SPeter Avalos {
755faa6539eSSascha Wildner int fd;
756faa6539eSSascha Wildner const char *mark;
757faa6539eSSascha Wildner
758c4d42299SSascha Wildner mode_t save_umask = umask(0177);
759c4d42299SSascha Wildner
760b2605375SPeter Avalos if ((mark = strrchr(label, '_')) == 0)
761b2605375SPeter Avalos mark = label + strlen(label);
762b2605375SPeter Avalos
763ca0c2f89SAntonio Huete Jimenez sprintf(name, MY_FMT, tmpdir, (int)(mark - label), label);
764b2605375SPeter Avalos fd = mkstemp(name);
765faa6539eSSascha Wildner if (fd >= 0
766faa6539eSSascha Wildner && (result = fdopen(fd, "w+")) != 0)
767b2605375SPeter Avalos {
768b2605375SPeter Avalos MY_TMPFILES *item;
769b2605375SPeter Avalos
770b2605375SPeter Avalos if (my_tmpfiles == 0)
771b2605375SPeter Avalos {
772b2605375SPeter Avalos atexit(close_tmpfiles);
773b2605375SPeter Avalos }
774b2605375SPeter Avalos
775b2605375SPeter Avalos item = NEW(MY_TMPFILES);
776b2605375SPeter Avalos NO_SPACE(item);
777b2605375SPeter Avalos
778b2605375SPeter Avalos item->name = name;
779b2605375SPeter Avalos NO_SPACE(item->name);
780b2605375SPeter Avalos
781b2605375SPeter Avalos item->next = my_tmpfiles;
782b2605375SPeter Avalos my_tmpfiles = item;
783b2605375SPeter Avalos }
784faa6539eSSascha Wildner else
785faa6539eSSascha Wildner {
786faa6539eSSascha Wildner FREE(name);
787b2605375SPeter Avalos }
788c4d42299SSascha Wildner (void)umask(save_umask);
789b2605375SPeter Avalos }
790b2605375SPeter Avalos #else
791b2605375SPeter Avalos result = tmpfile();
792b2605375SPeter Avalos #endif
793b2605375SPeter Avalos
794b2605375SPeter Avalos if (result == 0)
795b2605375SPeter Avalos open_error(label);
796b2605375SPeter Avalos return result;
797ca0c2f89SAntonio Huete Jimenez #undef MY_FMT
798b2605375SPeter Avalos }
799b2605375SPeter Avalos
800b2605375SPeter Avalos static void
open_files(void)801b2605375SPeter Avalos open_files(void)
802b2605375SPeter Avalos {
803b2605375SPeter Avalos create_file_names();
804b2605375SPeter Avalos
805b2605375SPeter Avalos if (input_file == 0)
806b2605375SPeter Avalos {
807b2605375SPeter Avalos input_file = fopen(input_file_name, "r");
808b2605375SPeter Avalos if (input_file == 0)
809b2605375SPeter Avalos open_error(input_file_name);
810b2605375SPeter Avalos }
811b2605375SPeter Avalos
812b2605375SPeter Avalos action_file = open_tmpfile("action_file");
813b2605375SPeter Avalos text_file = open_tmpfile("text_file");
814b2605375SPeter Avalos
815b2605375SPeter Avalos if (vflag)
816b2605375SPeter Avalos {
817b2605375SPeter Avalos verbose_file = fopen(verbose_file_name, "w");
818b2605375SPeter Avalos if (verbose_file == 0)
819b2605375SPeter Avalos open_error(verbose_file_name);
820b2605375SPeter Avalos }
821b2605375SPeter Avalos
822b2605375SPeter Avalos if (gflag)
823b2605375SPeter Avalos {
824b2605375SPeter Avalos graph_file = fopen(graph_file_name, "w");
825b2605375SPeter Avalos if (graph_file == 0)
826b2605375SPeter Avalos open_error(graph_file_name);
827b2605375SPeter Avalos fprintf(graph_file, "digraph %s {\n", file_prefix);
828b2605375SPeter Avalos fprintf(graph_file, "\tedge [fontsize=10];\n");
829b2605375SPeter Avalos fprintf(graph_file, "\tnode [shape=box,fontsize=10];\n");
830b2605375SPeter Avalos fprintf(graph_file, "\torientation=landscape;\n");
831b2605375SPeter Avalos fprintf(graph_file, "\trankdir=LR;\n");
832b2605375SPeter Avalos fprintf(graph_file, "\t/*\n");
833b2605375SPeter Avalos fprintf(graph_file, "\tmargin=0.2;\n");
834b2605375SPeter Avalos fprintf(graph_file, "\tpage=\"8.27,11.69\"; // for A4 printing\n");
835b2605375SPeter Avalos fprintf(graph_file, "\tratio=auto;\n");
836b2605375SPeter Avalos fprintf(graph_file, "\t*/\n");
837b2605375SPeter Avalos }
838b2605375SPeter Avalos
839faa6539eSSascha Wildner if (dflag || dflag2)
840b2605375SPeter Avalos {
841b2605375SPeter Avalos defines_file = fopen(defines_file_name, "w");
842b2605375SPeter Avalos if (defines_file == 0)
843b2605375SPeter Avalos open_error(defines_file_name);
844b2605375SPeter Avalos union_file = open_tmpfile("union_file");
845b2605375SPeter Avalos }
846b2605375SPeter Avalos
847b2605375SPeter Avalos if (iflag)
848b2605375SPeter Avalos {
849b2605375SPeter Avalos externs_file = fopen(externs_file_name, "w");
850b2605375SPeter Avalos if (externs_file == 0)
851b2605375SPeter Avalos open_error(externs_file_name);
852b2605375SPeter Avalos }
853b2605375SPeter Avalos
854b2605375SPeter Avalos output_file = fopen(output_file_name, "w");
855b2605375SPeter Avalos if (output_file == 0)
856b2605375SPeter Avalos open_error(output_file_name);
857b2605375SPeter Avalos
858b2605375SPeter Avalos if (rflag)
859b2605375SPeter Avalos {
860b2605375SPeter Avalos code_file = fopen(code_file_name, "w");
861b2605375SPeter Avalos if (code_file == 0)
862b2605375SPeter Avalos open_error(code_file_name);
863b2605375SPeter Avalos }
864b2605375SPeter Avalos else
865b2605375SPeter Avalos code_file = output_file;
866b2605375SPeter Avalos }
867b2605375SPeter Avalos
868b2605375SPeter Avalos int
main(int argc,char * argv[])869b2605375SPeter Avalos main(int argc, char *argv[])
870b2605375SPeter Avalos {
871b2605375SPeter Avalos SRexpect = -1;
872b2605375SPeter Avalos RRexpect = -1;
873b2605375SPeter Avalos exit_code = EXIT_SUCCESS;
874b2605375SPeter Avalos
875b2605375SPeter Avalos set_signals();
876b2605375SPeter Avalos getargs(argc, argv);
877b2605375SPeter Avalos open_files();
878b2605375SPeter Avalos reader();
879b2605375SPeter Avalos lr0();
880b2605375SPeter Avalos lalr();
881b2605375SPeter Avalos make_parser();
882b2605375SPeter Avalos graph();
883b2605375SPeter Avalos finalize_closure();
884b2605375SPeter Avalos verbose();
885b2605375SPeter Avalos output();
886b2605375SPeter Avalos done(exit_code);
887b2605375SPeter Avalos /*NOTREACHED */
888b2605375SPeter Avalos }
889