1 /* input_file.c - Deal with Input Files -
2 Copyright (C) 1987, 1990, 1991 Free Software Foundation, Inc.
4 This file is part of GAS, the GNU Assembler.
6 GAS 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 1, or (at your option)
11 GAS 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 GAS; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20 /* static const char rcsid[] = "$Id$"; */
23 * Confines all details of reading source bytes to this module.
24 * All O/S specific crocks should live here.
25 * What we lose in "efficiency" we gain in modularity.
26 * Note we don't need to #include the "as.h" file. No common coupling!
30 #define setbuffer(stream, buf, size) setvbuf((stream), (buf), _IOFBF, (size))
38 #include "input-file.h"
40 /* This variable is non-zero if the file currently being read should be
41 preprocessed by app. It is zero if the file can be read straight in.
46 * This code opens a file, then delivers BUFFER_SIZE character
47 * chunks of the file on demand.
48 * BUFFER_SIZE is supposed to be a number chosen for speed.
49 * The caller only asks once what BUFFER_SIZE is, and asks before
50 * the nature of the input files (if any) is known.
53 #define BUFFER_SIZE (32 * 1024)
56 * We use static data: the data area is not sharable.
60 /* static JF remove static so app.c can use file_name */
63 /* Struct for saving the state of this module for file includes. */
71 /* These hooks accomodate most operating systems. */
73 void input_file_begin() {
77 void input_file_end () { }
79 /* Return BUFFER_SIZE. */
80 int input_file_buffer_size() {
84 int input_file_is_open() {
85 return f_in
!=(FILE *)0;
88 /* Push the state of our input, returning a pointer to saved info that
89 can be restored with input_file_pop (). */
90 char *input_file_push () {
91 register struct saved_file
*saved
;
93 saved
= (struct saved_file
*)xmalloc (sizeof *saved
);
96 saved
->file_name
= file_name
;
97 saved
->preprocess
= preprocess
;
99 saved
->app_save
= app_push ();
101 input_file_begin (); /* Initialize for new file */
103 return (char *)saved
;
110 register struct saved_file
*saved
= (struct saved_file
*)arg
;
112 input_file_end (); /* Close out old file */
115 file_name
= saved
->file_name
;
116 preprocess
= saved
->preprocess
;
118 app_pop (saved
->app_save
);
123 #ifdef DONTDEF /* JF save old version in case we need it */
125 input_file_open (filename
, preprocess
, debugging
)
126 char * filename
; /* "" means use stdin. Must not be 0. */
127 int preprocess
; /* TRUE if needs app. */
128 int debugging
; /* TRUE if we are debugging assembler. */
130 assert( filename
!= 0 ); /* Filename may not be NULL. */
132 { /* We have a file name. Suck it and see. */
133 file_handle
= open (filename
, O_RDONLY
, 0);
134 file_name
= filename
;
137 { /* use stdin for the input file. */
138 file_handle
= fileno (stdin
);
139 file_name
= "{standard input}"; /* For error messages. */
142 as_perror ("Can't open %s for reading", file_name
);
146 * This code was written in haste for a frobbed BSD 4.2.
147 * I have a flight to catch: will someone please do proper
148 * error checks? - Dean.
151 char temporary_file_name
[12];
155 (void)strcpy (temporary_file_name
, "#appXXXXXX");
156 (void)mktemp (temporary_file_name
);
160 as_perror ("Vfork failed", file_name
);
165 (void)dup2 (file_handle
, fileno(stdin
));
166 fd
= open (temporary_file_name
, O_WRONLY
+ O_TRUNC
+ O_CREAT
, 0666);
169 (void)write(2,"Can't open temporary\n",21);
172 (void)dup2 (fd
, fileno(stdout
));
173 /* JF for testing #define PREPROCESSOR "/lib/app" */
174 #define PREPROCESSOR "./app"
175 execl (PREPROCESSOR
, PREPROCESSOR
, 0);
176 execl ("app","app",0);
177 (void)write(2,"Exec of app failed. Get help.\n",31);
178 (void)unlink(temporary_file_name
);
181 (void)wait (& status
);
182 if (status
.w_status
& 0xFF00) /* JF was 0xF000, was wrong */
185 as_bad( "Can't preprocess file \"%s\", status = %xx", file_name
, status
.w_status
);
189 file_handle
= open (temporary_file_name
, O_RDONLY
, 0);
190 if ( ! debugging
&& unlink(temporary_file_name
))
191 as_perror ("Can't delete temp file %s", temporary_file_name
);
193 if (file_handle
== -1)
194 as_perror ("Can't retrieve temp file %s", temporary_file_name
);
200 input_file_open (filename
,pre
)
201 char * filename
; /* "" means use stdin. Must not be 0. */
209 assert( filename
!= 0 ); /* Filename may not be NULL. */
210 if (filename
[0]) { /* We have a file name. Suck it and see. */
211 f_in
=fopen(filename
,"r");
213 } else { /* use stdin for the input file. */
215 file_name
= "{standard input}"; /* For error messages. */
217 if (f_in
==(FILE *)0) {
218 as_perror ("Can't open %s for reading", file_name
);
223 /* Ask stdio to buffer our input at BUFFER_SIZE, with a dynamically
225 setvbuf(f_in
, (char *)NULL
, _IOFBF
, BUFFER_SIZE
);
229 if (c
== '#') { /* Begins with comment, may not want to preprocess */
233 if (!strcmp(buf
,"O_APP\n"))
235 if (!strchr(buf
,'\n'))
236 ungetc('#',f_in
); /* It was longer */
248 char temporary_file_name
[17];
251 (void)strcpy (temporary_file_name
, "/tmp/#appXXXXXX");
252 (void)mktemp (temporary_file_name
);
253 f_out
=fopen(temporary_file_name
,"w+");
255 as_perror("Can't open temp file %s",temporary_file_name
);
257 /* JF this will have to be moved on any system that
258 does not support removal of open files. */
259 (void)unlink(temporary_file_name
);/* JF do it NOW */
260 do_scrub(f_in
,f_out
);
261 (void)fclose(f_in
); /* All done with it */
269 /* Close input file. */
270 void input_file_close() {
276 input_file_give_next_buffer (where
)
277 char * where
; /* Where to place 1st character of new buffer. */
279 char * return_value
; /* -> Last char of what we read, + 1. */
282 if (f_in
== (FILE *)0)
285 * fflush (stdin); could be done here if you want to synchronise
286 * stdin and stdout, for the case where our input file is stdin.
287 * Since the assembler shouldn't do any output to stdout, we
288 * don't bother to synch output and input.
294 extern FILE *scrub_file
;
297 for (p
= where
, n
= BUFFER_SIZE
; n
; --n
) {
299 ch
= do_scrub_next_char(scrub_from_file
, scrub_to_file
);
306 size
= fread(where
,sizeof(char),BUFFER_SIZE
,f_in
);
309 as_perror ("Can't read from %s", file_name
);
313 return_value
= where
+ size
;
317 as_perror ("Can't close %s", file_name
);
321 return (return_value
);
This page took 0.043915 seconds and 4 git commands to generate.