X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/5191ef2421ba4ce9016781f4a9274fb74920fc87..cc84fd5dc79495429d3406f9088d01f477b52a7b:/src/files.c diff --git a/src/files.c b/src/files.c index e8556a25..b7f168a3 100644 --- a/src/files.c +++ b/src/files.c @@ -1,55 +1,51 @@ /* Open and close files for bison, - Copyright (C) 1984, 1986, 1989, 1992 Free Software Foundation, Inc. + Copyright (C) 1984, 1986, 1989, 1992, 2000 Free Software Foundation, Inc. -This file is part of Bison, the GNU Compiler Compiler. + This file is part of Bison, the GNU Compiler Compiler. -Bison is free software; you can redistribute it and/or modify -it under the terms of the GNU General Public License as published by -the Free Software Foundation; either version 2, or (at your option) -any later version. + Bison is free software; you can redistribute it and/or modify it + under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version. -Bison is distributed in the hope that it will be useful, -but WITHOUT ANY WARRANTY; without even the implied warranty of -MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -GNU General Public License for more details. + Bison is distributed in the hope that it will be useful, but + WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU + General Public License for more details. -You should have received a copy of the GNU General Public License -along with Bison; see the file COPYING. If not, write to -the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ + You should have received a copy of the GNU General Public License + along with Bison; see the file COPYING. If not, write to the Free + Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA + 02111-1307, USA. */ #include "system.h" #if defined (VMS) & !defined (__VMS_POSIX) -#include -#define unlink delete -#ifndef XPFILE -#define XPFILE "GNU_BISON:[000000]BISON.SIMPLE" -#endif -#ifndef XPFILE1 -#define XPFILE1 "GNU_BISON:[000000]BISON.HAIRY" -#endif +# include +# define unlink delete +# ifndef XPFILE +# define XPFILE "GNU_BISON:[000000]BISON.SIMPLE" +# endif +# ifndef XPFILE1 +# define XPFILE1 "GNU_BISON:[000000]BISON.HAIRY" +# endif #endif #if defined (_MSC_VER) -#ifndef XPFILE -#define XPFILE "c:/usr/local/lib/bison.simple" -#endif -#ifndef XPFILE1 -#define XPFILE1 "c:/usr/local/lib/bison.hairy" -#endif -#endif - -#include - -#ifdef HAVE_UNISTD_H -#include +# ifndef XPFILE +# define XPFILE "c:/usr/local/lib/bison.simple" +# endif +# ifndef XPFILE1 +# define XPFILE1 "c:/usr/local/lib/bison.hairy" +# endif #endif +#include "getargs.h" #include "files.h" #include "alloc.h" #include "gram.h" +#include "complain.h" FILE *finput = NULL; FILE *foutput = NULL; @@ -64,44 +60,40 @@ FILE *fparser = NULL; char *spec_outfile; char *infile; -char *outfile; -char *defsfile; -char *tabfile; char *attrsfile; -char *guardfile; -char *actfile; -char *tmpattrsfile; -char *tmptabfile; -char *tmpdefsfile; -extern int noparserflag; +static char *outfile; +static char *defsfile; +static char *tabfile; +static char *guardfile; +static char *actfile; +static char *tmpattrsfile; +static char *tmptabfile; +static char *tmpdefsfile; extern char *mktemp(); /* So the compiler won't complain */ extern char *getenv(); -extern void perror(); -char *stringappend PARAMS((char *, int, char *)); -void openfiles PARAMS((void)); -void open_extra_files PARAMS((void)); -FILE *tryopen PARAMS((char *, char *)); /* This might be a good idea */ -int tryclose PARAMS((FILE *)); -void done PARAMS((int)); +extern char *stringappend PARAMS((const char *, int, const char *)); +extern void openfiles PARAMS((void)); +extern void open_extra_files PARAMS((void)); -extern char *program_name; -extern int verboseflag; -extern int definesflag; int fixed_outfiles = 0; + +extern char *program_name; char * -stringappend (char *string1, int end1, char *string2) +stringappend (const char *string1, int end1, const char *string2) { register char *ostring; - register char *cp, *cp1; + register char *cp; + register const char *cp1; register int i; - cp = string2; i = 0; - while (*cp++) i++; + cp1 = string2; + i = 0; + while (*cp1++) i++; ostring = NEW2(i+end1+1, char); @@ -117,7 +109,42 @@ stringappend (char *string1, int end1, char *string2) return ostring; } +/*-----------------------------------------------------------------. +| Try to open file NAME with mode MODE, and print an error message | +| if fails. | +`-----------------------------------------------------------------*/ + +static FILE * +tryopen (const char *name, const char *mode) +{ + FILE *ptr; + + ptr = fopen (name, mode); + if (!ptr) + error (2, errno, _("cannot open file `%s'"), name); + + return ptr; +} + +/*-------------------------------------------------------------. +| Try to close file PTR, and print an error message if fails. | +`-------------------------------------------------------------*/ + +static int +tryclose (FILE *ptr) +{ + int result; + + if (ptr == NULL) + return 0; + + result = fclose (ptr); + if (result == EOF) + error (2, errno, _("cannot close file")); + return result; +} + /* 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 */ void @@ -132,9 +159,9 @@ openfiles (void) int short_base_length; #if defined (VMS) & !defined (__VMS_POSIX) - char *tmp_base = "sys$scratch:b_"; + const char *tmp_base = "sys$scratch:b_"; #else - char *tmp_base = "/tmp/b."; + const char *tmp_base = "/tmp/b."; #endif int tmp_len; @@ -208,7 +235,9 @@ openfiles (void) /* -o was not specified; compute output file name from input or use y.tab.c, etc., if -y was specified. */ - name_base = fixed_outfiles ? "y.y" : infile; + static char FIXED_NAME_BASE[] = "y.y"; + + name_base = fixed_outfiles ? FIXED_NAME_BASE : infile; /* BASE_LENGTH gets length of NAME_BASE, sans ".y" suffix if any. */ @@ -231,7 +260,7 @@ openfiles (void) finput = tryopen(infile, "r"); - if (! noparserflag) + if (! noparserflag) { filename = getenv("BISON_SIMPLE"); #ifdef MSDOS @@ -266,7 +295,7 @@ openfiles (void) /* use permanent name for actions file */ actfile = stringappend(name_base, short_base_length, ".act"); faction = tryopen(actfile, "w"); - } + } #ifdef MSDOS if (! noparserflag) @@ -323,8 +352,10 @@ openfiles (void) -/* open the output files needed only for the semantic parser. -This is done when %semantic_parser is seen in the declarations section. */ +/*--------------------------------------------------------------------. +| Open the output files needed only for the semantic parser. This | +| is done when %semantic_parser is seen in the declarations section. | +`--------------------------------------------------------------------*/ void open_extra_files (void) @@ -338,7 +369,7 @@ open_extra_files (void) tryclose(fparser); - if (! noparserflag) + if (! noparserflag) { filename = (char *) getenv ("BISON_HAIRY"); #ifdef MSDOS @@ -368,43 +399,8 @@ open_extra_files (void) } - /* JF to make file opening easier. This func tries to open file - NAME with mode MODE, and prints an error message if it fails. */ -FILE * -tryopen (char *name, char *mode) -{ - FILE *ptr; - - ptr = fopen(name, mode); - if (ptr == NULL) - { - fprintf(stderr, "%s: ", program_name); - perror(name); - done(2); - } - return ptr; -} - -int -tryclose (FILE *ptr) -{ - int result; - - if (ptr == NULL) - return 0; - - result = fclose (ptr); - if (result == EOF) - { - fprintf (stderr, "%s: ", program_name); - perror ("fclose"); - done (2); - } - return result; -} - void -done (int k) +done (void) { tryclose(faction); tryclose(fattrs); @@ -413,8 +409,8 @@ done (int k) tryclose(fparser); tryclose(foutput); - /* JF write out the output file */ - if (k == 0 && ftable) + /* JF write out the output file */ + if (!complain_message_count && ftable) { FILE *ftmp; register int c; @@ -445,8 +441,10 @@ done (int k) delete(tmpattrsfile); if (ftable) delete(tmptabfile); - if (k==0) sys$exit(SS$_NORMAL); - sys$exit(SS$_ABORT); +/* 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 (actfile && ! noparserflag) unlink(actfile); @@ -454,6 +452,7 @@ done (int k) if (tmptabfile) unlink(tmptabfile); if (tmpdefsfile) unlink(tmpdefsfile); #endif /* MSDOS || (_WIN32 && !__CYGWIN32__) */ - exit(k); +/* Don't call exit again, we're in atexit (). + exit (complain_message_count ? 1 : 0); */ #endif /* not VMS, or __VMS_POSIX */ }