1 /* Open and close files for bison,
2 Copyright (C) 1984, 1986, 1989, 1992 Free Software Foundation, Inc.
4 This file is part of Bison, the GNU Compiler Compiler.
6 Bison is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 Bison is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with Bison; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
21 #if defined (VMS) & !defined (__VMS_POSIX)
25 #define XPFILE "GNU_BISON:[000000]BISON.SIMPLE"
28 #define XPFILE1 "GNU_BISON:[000000]BISON.HAIRY"
32 #if defined (_MSC_VER)
34 #define XPFILE "c:/usr/local/lib/bison.simple"
37 #define XPFILE1 "c:/usr/local/lib/bison.hairy"
49 FILE *fdefines
= NULL
;
56 /* File name specified with -o for the output file, or 0 if no -o. */
70 extern int noparserflag
;
72 extern char *mktemp(); /* So the compiler won't complain */
73 extern char *getenv();
75 FILE *tryopen(); /* This might be a good idea */
78 extern char *program_name
;
79 extern int verboseflag
;
80 extern int definesflag
;
81 int fixed_outfiles
= 0;
85 stringappend(string1
, end1
, string2
)
90 register char *ostring
;
91 register char *cp
, *cp1
;
97 ostring
= NEW2(i
+end1
+1, char);
101 for (i
= 0; i
< end1
; i
++)
105 while (*cp
++ = *cp1
++) ;
111 /* JF this has been hacked to death. Nowaday it sets up the file names for
112 the output files, and opens the tmp files and the parser */
120 int short_base_length
;
122 #if defined (VMS) & !defined (__VMS_POSIX)
123 char *tmp_base
= "sys$scratch:b_";
125 char *tmp_base
= "/tmp/b.";
130 tmp_base
= getenv ("TMP");
136 #if (defined(_WIN32) && !defined(__CYGWIN32__))
137 tmp_base
= getenv ("TEMP"); /* Windows95 defines this ... */
139 tmp_base
= getenv ("Temp"); /* ... while NT prefers this */
143 #endif /* _WIN32 && !__CYGWIN32__ */
145 tmp_len
= strlen (tmp_base
);
149 /* -o was specified. The precise -o name will be used for ftable.
150 For other output files, remove the ".c" or ".tab.c" suffix. */
151 name_base
= spec_outfile
;
155 /* BASE_LENGTH includes ".tab" but not ".c". */
156 base_length
= strlen (name_base
);
157 if (!strcmp (name_base
+ base_length
- 2, ".c"))
159 /* SHORT_BASE_LENGTH includes neither ".tab" nor ".c". */
160 short_base_length
= base_length
;
161 if (!strncmp (name_base
+ short_base_length
- 4, ".tab", 4))
162 short_base_length
-= 4;
163 else if (!strncmp (name_base
+ short_base_length
- 4, "_tab", 4))
164 short_base_length
-= 4;
166 else if (spec_file_prefix
)
168 /* -b was specified. Construct names from it. */
169 /* SHORT_BASE_LENGTH includes neither ".tab" nor ".c". */
170 short_base_length
= strlen (spec_file_prefix
);
171 /* Count room for `.tab'. */
172 base_length
= short_base_length
+ 4;
173 name_base
= (char *) xmalloc (base_length
+ 1);
175 strcpy (name_base
, spec_file_prefix
);
177 strcat (name_base
, "_tab");
179 strcat (name_base
, ".tab");
187 /* -o was not specified; compute output file name from input
188 or use y.tab.c, etc., if -y was specified. */
190 name_base
= fixed_outfiles
? "y.y" : infile
;
192 /* BASE_LENGTH gets length of NAME_BASE, sans ".y" suffix if any. */
194 base_length
= strlen (name_base
);
195 if (!strcmp (name_base
+ base_length
- 2, ".y"))
197 short_base_length
= base_length
;
200 name_base
= stringappend(name_base
, short_base_length
, "_tab");
203 name_base
= stringappend(name_base
, short_base_length
, "_tab");
205 name_base
= stringappend(name_base
, short_base_length
, ".tab");
206 #endif /* not MSDOS */
208 base_length
= short_base_length
+ 4;
211 finput
= tryopen(infile
, "r");
215 filename
= getenv("BISON_SIMPLE");
217 /* File doesn't exist in current directory; try in INIT directory. */
219 if (filename
== 0 && cp
!= NULL
)
221 filename
= xmalloc(strlen(cp
) + strlen(PFILE
) + 2);
222 strcpy(filename
, cp
);
223 cp
= filename
+ strlen(filename
);
228 fparser
= tryopen(filename
? filename
: PFILE
, "r");
234 outfile
= stringappend(name_base
, short_base_length
, ".out");
236 /* We used to use just .out if spec_name_prefix (-p) was used,
237 but that conflicts with Posix. */
238 outfile
= stringappend(name_base
, short_base_length
, ".output");
240 foutput
= tryopen(outfile
, "w");
245 /* use permanent name for actions file */
246 actfile
= stringappend(name_base
, short_base_length
, ".act");
247 faction
= tryopen(actfile
, "w");
252 actfile
= mktemp(stringappend(tmp_base
, tmp_len
, "acXXXXXX"));
253 tmpattrsfile
= mktemp(stringappend(tmp_base
, tmp_len
, "atXXXXXX"));
254 tmptabfile
= mktemp(stringappend(tmp_base
, tmp_len
, "taXXXXXX"));
255 tmpdefsfile
= mktemp(stringappend(tmp_base
, tmp_len
, "deXXXXXX"));
258 actfile
= mktemp(stringappend(tmp_base
, tmp_len
, "act.XXXXXX"));
259 tmpattrsfile
= mktemp(stringappend(tmp_base
, tmp_len
, "attrs.XXXXXX"));
260 tmptabfile
= mktemp(stringappend(tmp_base
, tmp_len
, "tab.XXXXXX"));
261 tmpdefsfile
= mktemp(stringappend(tmp_base
, tmp_len
, "defs.XXXXXX"));
262 #endif /* not MSDOS */
265 faction
= tryopen(actfile
, "w+");
266 fattrs
= tryopen(tmpattrsfile
,"w+");
267 ftable
= tryopen(tmptabfile
, "w+");
271 defsfile
= stringappend(name_base
, base_length
, ".h");
272 fdefines
= tryopen(tmpdefsfile
, "w+");
275 #if !(defined (MSDOS) || (defined(_WIN32) && !defined(__CYGWIN32__)))
278 unlink(tmpattrsfile
);
281 #endif /* MSDOS || (_WIN32 && !__CYGWIN32__) */
283 /* These are opened by `done' or `open_extra_files', if at all */
285 tabfile
= spec_outfile
;
287 tabfile
= stringappend(name_base
, base_length
, ".c");
290 attrsfile
= stringappend(name_base
, short_base_length
, "_stype.h");
291 guardfile
= stringappend(name_base
, short_base_length
, "_guard.c");
294 attrsfile
= stringappend(name_base
, short_base_length
, ".sth");
295 guardfile
= stringappend(name_base
, short_base_length
, ".guc");
297 attrsfile
= stringappend(name_base
, short_base_length
, ".stype.h");
298 guardfile
= stringappend(name_base
, short_base_length
, ".guard.c");
299 #endif /* not MSDOS */
305 /* open the output files needed only for the semantic parser.
306 This is done when %semantic_parser is seen in the declarations section. */
320 filename
= (char *) getenv ("BISON_HAIRY");
322 /* File doesn't exist in current directory; try in INIT directory. */
324 if (filename
== 0 && cp
!= NULL
)
326 filename
= xmalloc(strlen(cp
) + strlen(PFILE1
) + 2);
327 strcpy(filename
, cp
);
328 cp
= filename
+ strlen(filename
);
333 fparser
= tryopen(filename
? filename
: PFILE1
, "r");
336 /* JF change from inline attrs file to separate one */
337 ftmp
= tryopen(attrsfile
, "w");
339 while((c
=getc(fattrs
))!=EOF
) /* Thank god for buffering */
344 fguard
= tryopen(guardfile
, "w");
348 /* JF to make file opening easier. This func tries to open file
349 NAME with mode MODE, and prints an error message if it fails. */
357 ptr
= fopen(name
, mode
);
360 fprintf(stderr
, "%s: ", program_name
);
389 /* JF write out the output file */
390 if (k
== 0 && ftable
)
395 ftmp
=tryopen(tabfile
, "w");
397 while((c
=getc(ftable
)) != EOF
)
404 ftmp
= tryopen(defsfile
, "w");
407 while((c
=getc(fdefines
)) != EOF
)
414 #if defined (VMS) & !defined (__VMS_POSIX)
415 if (faction
&& ! noparserflag
)
418 delete(tmpattrsfile
);
421 if (k
==0) sys$
exit(SS$_NORMAL
);
424 #if (defined (MSDOS) || (defined(_WIN32) && !defined(__CYGWIN32__)))
425 if (actfile
&& ! noparserflag
) unlink(actfile
);
426 if (tmpattrsfile
) unlink(tmpattrsfile
);
427 if (tmptabfile
) unlink(tmptabfile
);
428 if (tmpdefsfile
) unlink(tmpdefsfile
);
429 #endif /* MSDOS || (_WIN32 && !__CYGWIN32__) */
431 #endif /* not VMS, or __VMS_POSIX */