1 /* input_file.c - Deal with Input Files -
2 Copyright (C) 1987, 1990, 1991, 1992 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 2, 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. */
21 * Confines all details of reading source bytes to this module.
22 * All O/S specific crocks should live here.
23 * What we lose in "efficiency" we gain in modularity.
24 * Note we don't need to #include the "as.h" file. No common coupling!
28 #define setbuffer(stream, buf, size) setvbuf((stream), (buf), _IOFBF, (size))
36 #include "input-file.h"
38 /* This variable is non-zero if the file currently being read should be
39 preprocessed by app. It is zero if the file can be read straight in.
44 * This code opens a file, then delivers BUFFER_SIZE character
45 * chunks of the file on demand.
46 * BUFFER_SIZE is supposed to be a number chosen for speed.
47 * The caller only asks once what BUFFER_SIZE is, and asks before
48 * the nature of the input files (if any) is known.
51 #define BUFFER_SIZE (32 * 1024)
54 * We use static data: the data area is not sharable.
58 /* static JF remove static so app.c can use file_name */
61 /* Struct for saving the state of this module for file includes. */
70 /* These hooks accomodate most operating systems. */
83 /* Return BUFFER_SIZE. */
85 input_file_buffer_size ()
93 return f_in
!= (FILE *) 0;
96 /* Push the state of our input, returning a pointer to saved info that
97 can be restored with input_file_pop (). */
101 register struct saved_file
*saved
;
103 saved
= (struct saved_file
*) xmalloc (sizeof *saved
);
106 saved
->file_name
= file_name
;
107 saved
->preprocess
= preprocess
;
109 saved
->app_save
= app_push ();
111 input_file_begin (); /* Initialize for new file */
113 return (char *) saved
;
120 register struct saved_file
*saved
= (struct saved_file
*) arg
;
122 input_file_end (); /* Close out old file */
125 file_name
= saved
->file_name
;
126 preprocess
= saved
->preprocess
;
128 app_pop (saved
->app_save
);
133 #ifdef DONTDEF /* JF save old version in case we need it */
135 input_file_open (filename
, preprocess
, debugging
)
136 char *filename
; /* "" means use stdin. Must not be 0. */
137 int preprocess
; /* TRUE if needs app. */
138 int debugging
; /* TRUE if we are debugging assembler. */
140 assert (filename
!= 0); /* Filename may not be NULL. */
142 { /* We have a file name. Suck it and see. */
143 file_handle
= open (filename
, O_RDONLY
, 0);
144 file_name
= filename
;
147 { /* use stdin for the input file. */
148 file_handle
= fileno (stdin
);
149 file_name
= "{standard input}"; /* For error messages. */
152 as_perror ("Can't open %s for reading", file_name
);
156 * This code was written in haste for a frobbed BSD 4.2.
157 * I have a flight to catch: will someone please do proper
158 * error checks? - Dean.
161 char temporary_file_name
[12];
165 (void) strcpy (temporary_file_name
, "#appXXXXXX");
166 (void) mktemp (temporary_file_name
);
170 as_perror ("Vfork failed", file_name
);
175 (void) dup2 (file_handle
, fileno (stdin
));
176 fd
= open (temporary_file_name
, O_WRONLY
+ O_TRUNC
+ O_CREAT
, 0666);
179 (void) write (2, "Can't open temporary\n", 21);
182 (void) dup2 (fd
, fileno (stdout
));
183 /* JF for testing #define PREPROCESSOR "/lib/app" */
184 #define PREPROCESSOR "./app"
185 execl (PREPROCESSOR
, PREPROCESSOR
, 0);
186 execl ("app", "app", 0);
187 (void) write (2, "Exec of app failed. Get help.\n", 31);
188 (void) unlink (temporary_file_name
);
191 (void) wait (&status
);
192 if (status
.w_status
& 0xFF00) /* JF was 0xF000, was wrong */
195 as_bad ("Can't preprocess file \"%s\", status = %xx", file_name
, status
.w_status
);
199 file_handle
= open (temporary_file_name
, O_RDONLY
, 0);
200 if (!debugging
&& unlink (temporary_file_name
))
201 as_perror ("Can't delete temp file %s", temporary_file_name
);
203 if (file_handle
== -1)
204 as_perror ("Can't retrieve temp file %s", temporary_file_name
);
211 input_file_open (filename
, pre
)
212 char *filename
; /* "" means use stdin. Must not be 0. */
220 assert (filename
!= 0); /* Filename may not be NULL. */
222 { /* We have a file name. Suck it and see. */
223 f_in
= fopen (filename
, "r");
224 file_name
= filename
;
227 { /* use stdin for the input file. */
229 file_name
= "{standard input}"; /* For error messages. */
231 if (f_in
== (FILE *) 0)
233 as_perror ("Can't open %s for reading", file_name
);
238 /* Ask stdio to buffer our input at BUFFER_SIZE, with a dynamically
240 setvbuf (f_in
, (char *) NULL
, _IOFBF
, BUFFER_SIZE
);
245 { /* Begins with comment, may not want to preprocess */
249 fgets (buf
, 80, f_in
);
250 if (!strcmp (buf
, "O_APP\n"))
252 if (!strchr (buf
, '\n'))
253 ungetc ('#', f_in
); /* It was longer */
268 char temporary_file_name
[17];
271 (void) strcpy (temporary_file_name
, "/tmp/#appXXXXXX");
272 (void) mktemp (temporary_file_name
);
273 f_out
= fopen (temporary_file_name
, "w+");
274 if (f_out
== (FILE *) 0)
275 as_perror ("Can't open temp file %s", temporary_file_name
);
277 /* JF this will have to be moved on any system that
278 does not support removal of open files. */
279 (void) unlink (temporary_file_name
); /* JF do it NOW */
280 do_scrub (f_in
, f_out
);
281 (void) fclose (f_in
); /* All done with it */
282 (void) rewind (f_out
);
290 /* Close input file. */
297 } /* don't close a null file pointer */
299 } /* input_file_close() */
302 input_file_give_next_buffer (where
)
303 char *where
; /* Where to place 1st character of new buffer. */
305 char *return_value
; /* -> Last char of what we read, + 1. */
308 if (f_in
== (FILE *) 0)
311 * fflush (stdin); could be done here if you want to synchronise
312 * stdin and stdout, for the case where our input file is stdin.
313 * Since the assembler shouldn't do any output to stdout, we
314 * don't bother to synch output and input.
321 extern FILE *scrub_file
;
324 for (p
= where
, n
= BUFFER_SIZE
; n
; --n
)
327 ch
= do_scrub_next_char (scrub_from_file
, scrub_to_file
);
332 size
= BUFFER_SIZE
- n
;
335 size
= fread (where
, sizeof (char), BUFFER_SIZE
, f_in
);
338 as_perror ("Can't read from %s", file_name
);
342 return_value
= where
+ size
;
346 as_perror ("Can't close %s", file_name
);
350 return (return_value
);
353 /* end of input-file.c */
This page took 0.036545 seconds and 4 git commands to generate.