#include "system.h"
#if defined (VMS) & !defined (__VMS_POSIX)
-# include <ssdef.h>
-# define unlink delete
-# ifndef XPFILE
-# define XPFILE "GNU_BISON:[000000]BISON.SIMPLE"
+# ifndef BISON_SIMPLE
+# define BISON_SIMPLE "GNU_BISON:[000000]BISON.SIMPLE"
# endif
-# ifndef XPFILE1
-# define XPFILE1 "GNU_BISON:[000000]BISON.HAIRY"
+# ifndef BISON_HAIRY
+# define BISON_HARIRY "GNU_BISON:[000000]BISON.HAIRY"
# endif
#endif
#if defined (_MSC_VER)
-# ifndef XPFILE
-# define XPFILE "c:/usr/local/lib/bison.simple"
+# ifndef BISON_SIMPLE
+# define BISON_SIMPLE "c:/usr/local/lib/bison.simple"
# endif
-# ifndef XPFILE1
-# define XPFILE1 "c:/usr/local/lib/bison.hairy"
+# ifndef BISON_HAIRY
+# define BISON_HAIRY "c:/usr/local/lib/bison.hairy"
# endif
#endif
FILE *finput = NULL;
FILE *foutput = NULL;
-FILE *fdefines = NULL;
-FILE *ftable = NULL;
FILE *fguard = NULL;
FILE *fparser = NULL;
struct obstack action_obstack;
struct obstack attrs_obstack;
+struct obstack table_obstack;
+struct obstack defines_obstack;
/* File name specified with -o for the output file, or 0 if no -o. */
char *spec_outfile;
static char *tabfile;
static char *guardfile;
static char *actfile;
-static char *tmptabfile;
-static char *tmpdefsfile;
-extern char *mktemp (); /* So the compiler won't complain */
extern char *getenv ();
extern char *program_name;
return result;
}
+
+/*--------------------------------------------------.
+| Save the content of the obstack OBS in FILENAME. |
+`--------------------------------------------------*/
+
+static void
+obstack_save (struct obstack *obs, const char *filename)
+{
+ FILE *out = xfopen (filename, "w");
+ size_t size = obstack_object_size (obs);
+ fwrite (obstack_finish (obs), 1, size, out);
+ xfclose (out);
+}
+
+
+static const char *
+skeleton_find (const char *envvar, const char *skeleton)
+{
+ const char *res = getenv (envvar);
+
+#ifdef MSDOS
+ const char *cp;
+
+ /* File doesn't exist in current directory; try in INIT directory. */
+ if (!res && (cp = getenv ("INIT")))
+ {
+ res = XMALLOC (char, strlen (cp) + strlen (skeleton) + 2);
+ sprintf (res, "%s%c%s", cp, '/', skeleton);
+ }
+#endif /* !MSDOS */
+
+ if (!res)
+ res = skeleton;
+
+ return res;
+}
+
\f
-/* JF this has been hacked to death. Nowaday it sets up the file names for
- the output files, and opens the tmp files and the parser */
+/*-----------------------------------------------------------------.
+| Open the input file. Look for the skeletons. Find the names of |
+| the output files. Prepare the obstacks. |
+`-----------------------------------------------------------------*/
+
void
open_files (void)
{
#ifdef MSDOS
register char *cp;
#endif
- char *filename;
int base_length;
int short_base_length;
if (spec_outfile)
{
- /* -o was specified. The precise -o name will be used for ftable.
+ /* -o was specified. The precise -o name will be used for FTABLE.
For other output files, remove the ".c" or ".tab.c" suffix. */
name_base = spec_outfile;
#ifdef MSDOS
finput = xfopen (infile, "r");
if (!no_parser_flag)
- {
- filename = getenv ("BISON_SIMPLE");
-#ifdef MSDOS
- /* File doesn't exist in current directory; try in INIT directory. */
- cp = getenv ("INIT");
- if (filename == 0 && cp != NULL)
- {
- filename = XMALLOC (char, strlen (cp) + strlen (PFILE) + 2);
- strcpy (filename, cp);
- cp = filename + strlen (filename);
- *cp++ = '/';
- strcpy (cp, PFILE);
- }
-#endif /* MSDOS */
- fparser = xfopen (filename ? filename : PFILE, "r");
- }
+ fparser = xfopen (skeleton_find ("BISON_SIMPLE", BISON_SIMPLE), "r");
if (verbose_flag)
{
actfile = stringappend (name_base, short_base_length, ".act");
}
-#ifdef MSDOS
- tmptabfile = mktemp (stringappend (tmp_base, tmp_len, "taXXXXXX"));
- tmpdefsfile = mktemp (stringappend (tmp_base, tmp_len, "deXXXXXX"));
-#else
- tmptabfile = mktemp (stringappend (tmp_base, tmp_len, "tab.XXXXXX"));
- tmpdefsfile = mktemp (stringappend (tmp_base, tmp_len, "defs.XXXXXX"));
-#endif /* not MSDOS */
-
- ftable = xfopen (tmptabfile, "w+");
-
if (defines_flag)
{
defsfile = stringappend (name_base, base_length, ".h");
- fdefines = xfopen (tmpdefsfile, "w+");
}
-#if !(defined (MSDOS) || (defined(_WIN32) && !defined(__CYGWIN32__)))
- unlink (tmptabfile);
- unlink (tmpdefsfile);
-#endif /* MSDOS || (_WIN32 && !__CYGWIN32__) */
-
/* These are opened by `done' or `open_extra_files', if at all */
if (spec_outfile)
tabfile = spec_outfile;
/* Initialize the obstacks. */
obstack_init (&action_obstack);
obstack_init (&attrs_obstack);
+ obstack_init (&table_obstack);
+ obstack_init (&defines_obstack);
}
void
open_extra_files (void)
{
- int c;
- char *filename;
-
xfclose (fparser);
if (!no_parser_flag)
- {
- filename = (char *) getenv ("BISON_HAIRY");
-#ifdef MSDOS
- {
- /* File doesn't exist in current directory; try in INIT
- directory. */
- char *cp = getenv ("INIT");
- if (filename == 0 && cp != NULL)
- {
- filename = XMALLOC (char, strlen (cp) + strlen (PFILE1) + 2);
- strcpy (filename, cp);
- cp = filename + strlen (filename);
- *cp++ = '/';
- strcpy (cp, PFILE1);
- }
- }
-#endif
- fparser = xfopen (filename ? filename : PFILE1, "r");
- }
-
+ fparser = xfopen (skeleton_find ("BISON_HAIRY", BISON_HAIRY), "r");
fguard = xfopen (guardfile, "w");
}
+
+/*-----------------------------------------------------.
+| Close the open files, produce all the output files. |
+`-----------------------------------------------------*/
+
void
-done (void)
+output_files (void)
{
xfclose (fguard);
xfclose (finput);
xfclose (fparser);
xfclose (foutput);
- /* JF write out the output file */
- if (!complain_message_count && ftable)
- {
- FILE *ftmp;
- register int c;
-
- ftmp = xfopen (tabfile, "w");
- rewind (ftable);
- while ((c = getc (ftable)) != EOF)
- putc (c, ftmp);
- xfclose (ftmp);
- xfclose (ftable);
-
- if (defines_flag)
- {
- ftmp = xfopen (defsfile, "w");
- fflush (fdefines);
- rewind (fdefines);
- while ((c = getc (fdefines)) != EOF)
- putc (c, ftmp);
- xfclose (ftmp);
- xfclose (fdefines);
- }
- }
+ /* Output the main file. */
+ obstack_save (&table_obstack, tabfile);
- /* If we output only the table, dump the actions in ACTION_OBSTACK.
+ /* Output the header file if wanted. */
+ if (defines_flag)
+ obstack_save (&defines_obstack, defsfile);
+
+ /* If we output only the table, dump the actions in ACTFILE.
*/
if (no_parser_flag)
- {
- FILE *faction = xfopen (actfile, "w");
- size_t size = obstack_object_size (&action_obstack);
- fwrite (obstack_finish (&action_obstack), 1, size, faction);
- xfclose (faction);
- }
+ obstack_save (&action_obstack, actfile);
/* If we produced a semantic parser ATTRS_OBSTACK must be dumped
into its own file, ATTTRSFILE. */
if (semantic_parser)
- {
- FILE *fattrs = xfopen (attrsfile, "w");
- size_t size = obstack_object_size (&attrs_obstack);
- fwrite (obstack_finish (&attrs_obstack), 1, size, fattrs);
- xfclose (fattrs);
- }
-
-#if defined (VMS) & !defined (__VMS_POSIX)
- if (ftable)
- delete (tmptabfile);
-/* Don't call exit again, we're in atexit ().
- if (!complain_message_count)
- sys$exit(SS$_NORMAL);
- sys$exit(SS$_ABORT); */
-#else
-#if (defined (MSDOS) || (defined(_WIN32) && !defined(__CYGWIN32__)))
- if (tmptabfile)
- unlink (tmptabfile);
- if (tmpdefsfile)
- unlink (tmpdefsfile);
-#endif /* MSDOS || (_WIN32 && !__CYGWIN32__) */
-/* Don't call exit again, we're in atexit ().
- exit (complain_message_count ? 1 : 0); */
-#endif /* not VMS, or __VMS_POSIX */
+ obstack_save (&attrs_obstack, attrsfile);
}
projects / bison.git / blobdiff