1efcc2a30SJung-uk Kim /******************************************************************************
2efcc2a30SJung-uk Kim *
3efcc2a30SJung-uk Kim * Module Name: aslfileio - File I/O support
4efcc2a30SJung-uk Kim *
5efcc2a30SJung-uk Kim *****************************************************************************/
6efcc2a30SJung-uk Kim
70d84335fSJung-uk Kim /******************************************************************************
80d84335fSJung-uk Kim *
90d84335fSJung-uk Kim * 1. Copyright Notice
100d84335fSJung-uk Kim *
11722b1667SJung-uk Kim * Some or all of this work - Copyright (c) 1999 - 2023, Intel Corp.
12efcc2a30SJung-uk Kim * All rights reserved.
13efcc2a30SJung-uk Kim *
140d84335fSJung-uk Kim * 2. License
150d84335fSJung-uk Kim *
160d84335fSJung-uk Kim * 2.1. This is your license from Intel Corp. under its intellectual property
170d84335fSJung-uk Kim * rights. You may have additional license terms from the party that provided
180d84335fSJung-uk Kim * you this software, covering your right to use that party's intellectual
190d84335fSJung-uk Kim * property rights.
200d84335fSJung-uk Kim *
210d84335fSJung-uk Kim * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
220d84335fSJung-uk Kim * copy of the source code appearing in this file ("Covered Code") an
230d84335fSJung-uk Kim * irrevocable, perpetual, worldwide license under Intel's copyrights in the
240d84335fSJung-uk Kim * base code distributed originally by Intel ("Original Intel Code") to copy,
250d84335fSJung-uk Kim * make derivatives, distribute, use and display any portion of the Covered
260d84335fSJung-uk Kim * Code in any form, with the right to sublicense such rights; and
270d84335fSJung-uk Kim *
280d84335fSJung-uk Kim * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
290d84335fSJung-uk Kim * license (with the right to sublicense), under only those claims of Intel
300d84335fSJung-uk Kim * patents that are infringed by the Original Intel Code, to make, use, sell,
310d84335fSJung-uk Kim * offer to sell, and import the Covered Code and derivative works thereof
320d84335fSJung-uk Kim * solely to the minimum extent necessary to exercise the above copyright
330d84335fSJung-uk Kim * license, and in no event shall the patent license extend to any additions
340d84335fSJung-uk Kim * to or modifications of the Original Intel Code. No other license or right
350d84335fSJung-uk Kim * is granted directly or by implication, estoppel or otherwise;
360d84335fSJung-uk Kim *
370d84335fSJung-uk Kim * The above copyright and patent license is granted only if the following
380d84335fSJung-uk Kim * conditions are met:
390d84335fSJung-uk Kim *
400d84335fSJung-uk Kim * 3. Conditions
410d84335fSJung-uk Kim *
420d84335fSJung-uk Kim * 3.1. Redistribution of Source with Rights to Further Distribute Source.
430d84335fSJung-uk Kim * Redistribution of source code of any substantial portion of the Covered
440d84335fSJung-uk Kim * Code or modification with rights to further distribute source must include
450d84335fSJung-uk Kim * the above Copyright Notice, the above License, this list of Conditions,
460d84335fSJung-uk Kim * and the following Disclaimer and Export Compliance provision. In addition,
470d84335fSJung-uk Kim * Licensee must cause all Covered Code to which Licensee contributes to
480d84335fSJung-uk Kim * contain a file documenting the changes Licensee made to create that Covered
490d84335fSJung-uk Kim * Code and the date of any change. Licensee must include in that file the
500d84335fSJung-uk Kim * documentation of any changes made by any predecessor Licensee. Licensee
510d84335fSJung-uk Kim * must include a prominent statement that the modification is derived,
520d84335fSJung-uk Kim * directly or indirectly, from Original Intel Code.
530d84335fSJung-uk Kim *
540d84335fSJung-uk Kim * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
550d84335fSJung-uk Kim * Redistribution of source code of any substantial portion of the Covered
560d84335fSJung-uk Kim * Code or modification without rights to further distribute source must
570d84335fSJung-uk Kim * include the following Disclaimer and Export Compliance provision in the
580d84335fSJung-uk Kim * documentation and/or other materials provided with distribution. In
590d84335fSJung-uk Kim * addition, Licensee may not authorize further sublicense of source of any
600d84335fSJung-uk Kim * portion of the Covered Code, and must include terms to the effect that the
610d84335fSJung-uk Kim * license from Licensee to its licensee is limited to the intellectual
620d84335fSJung-uk Kim * property embodied in the software Licensee provides to its licensee, and
630d84335fSJung-uk Kim * not to intellectual property embodied in modifications its licensee may
640d84335fSJung-uk Kim * make.
650d84335fSJung-uk Kim *
660d84335fSJung-uk Kim * 3.3. Redistribution of Executable. Redistribution in executable form of any
670d84335fSJung-uk Kim * substantial portion of the Covered Code or modification must reproduce the
680d84335fSJung-uk Kim * above Copyright Notice, and the following Disclaimer and Export Compliance
690d84335fSJung-uk Kim * provision in the documentation and/or other materials provided with the
700d84335fSJung-uk Kim * distribution.
710d84335fSJung-uk Kim *
720d84335fSJung-uk Kim * 3.4. Intel retains all right, title, and interest in and to the Original
730d84335fSJung-uk Kim * Intel Code.
740d84335fSJung-uk Kim *
750d84335fSJung-uk Kim * 3.5. Neither the name Intel nor any other trademark owned or controlled by
760d84335fSJung-uk Kim * Intel shall be used in advertising or otherwise to promote the sale, use or
770d84335fSJung-uk Kim * other dealings in products derived from or relating to the Covered Code
780d84335fSJung-uk Kim * without prior written authorization from Intel.
790d84335fSJung-uk Kim *
800d84335fSJung-uk Kim * 4. Disclaimer and Export Compliance
810d84335fSJung-uk Kim *
820d84335fSJung-uk Kim * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
830d84335fSJung-uk Kim * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
840d84335fSJung-uk Kim * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
850d84335fSJung-uk Kim * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
860d84335fSJung-uk Kim * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
870d84335fSJung-uk Kim * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
880d84335fSJung-uk Kim * PARTICULAR PURPOSE.
890d84335fSJung-uk Kim *
900d84335fSJung-uk Kim * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
910d84335fSJung-uk Kim * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
920d84335fSJung-uk Kim * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
930d84335fSJung-uk Kim * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
940d84335fSJung-uk Kim * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
950d84335fSJung-uk Kim * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
960d84335fSJung-uk Kim * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
970d84335fSJung-uk Kim * LIMITED REMEDY.
980d84335fSJung-uk Kim *
990d84335fSJung-uk Kim * 4.3. Licensee shall not export, either directly or indirectly, any of this
1000d84335fSJung-uk Kim * software or system incorporating such software without first obtaining any
1010d84335fSJung-uk Kim * required license or other approval from the U. S. Department of Commerce or
1020d84335fSJung-uk Kim * any other agency or department of the United States Government. In the
1030d84335fSJung-uk Kim * event Licensee exports any such software from the United States or
1040d84335fSJung-uk Kim * re-exports any such software from a foreign destination, Licensee shall
1050d84335fSJung-uk Kim * ensure that the distribution and export/re-export of the software is in
1060d84335fSJung-uk Kim * compliance with all laws, regulations, orders, or other restrictions of the
1070d84335fSJung-uk Kim * U.S. Export Administration Regulations. Licensee agrees that neither it nor
1080d84335fSJung-uk Kim * any of its subsidiaries will export/re-export any technical data, process,
1090d84335fSJung-uk Kim * software, or service, directly or indirectly, to any country for which the
1100d84335fSJung-uk Kim * United States government or any agency thereof requires an export license,
1110d84335fSJung-uk Kim * other governmental approval, or letter of assurance, without first obtaining
1120d84335fSJung-uk Kim * such license, approval or letter.
1130d84335fSJung-uk Kim *
1140d84335fSJung-uk Kim *****************************************************************************
1150d84335fSJung-uk Kim *
1160d84335fSJung-uk Kim * Alternatively, you may choose to be licensed under the terms of the
1170d84335fSJung-uk Kim * following license:
1180d84335fSJung-uk Kim *
119efcc2a30SJung-uk Kim * Redistribution and use in source and binary forms, with or without
120efcc2a30SJung-uk Kim * modification, are permitted provided that the following conditions
121efcc2a30SJung-uk Kim * are met:
122efcc2a30SJung-uk Kim * 1. Redistributions of source code must retain the above copyright
123efcc2a30SJung-uk Kim * notice, this list of conditions, and the following disclaimer,
124efcc2a30SJung-uk Kim * without modification.
125efcc2a30SJung-uk Kim * 2. Redistributions in binary form must reproduce at minimum a disclaimer
126efcc2a30SJung-uk Kim * substantially similar to the "NO WARRANTY" disclaimer below
127efcc2a30SJung-uk Kim * ("Disclaimer") and any redistribution must be conditioned upon
128efcc2a30SJung-uk Kim * including a substantially similar Disclaimer requirement for further
129efcc2a30SJung-uk Kim * binary redistribution.
130efcc2a30SJung-uk Kim * 3. Neither the names of the above-listed copyright holders nor the names
131efcc2a30SJung-uk Kim * of any contributors may be used to endorse or promote products derived
132efcc2a30SJung-uk Kim * from this software without specific prior written permission.
133efcc2a30SJung-uk Kim *
1340d84335fSJung-uk Kim * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
1350d84335fSJung-uk Kim * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
1360d84335fSJung-uk Kim * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
1370d84335fSJung-uk Kim * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
1380d84335fSJung-uk Kim * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
1390d84335fSJung-uk Kim * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
1400d84335fSJung-uk Kim * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
1410d84335fSJung-uk Kim * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
1420d84335fSJung-uk Kim * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
1430d84335fSJung-uk Kim * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
1440d84335fSJung-uk Kim * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
1450d84335fSJung-uk Kim *
1460d84335fSJung-uk Kim * Alternatively, you may choose to be licensed under the terms of the
147efcc2a30SJung-uk Kim * GNU General Public License ("GPL") version 2 as published by the Free
148efcc2a30SJung-uk Kim * Software Foundation.
149efcc2a30SJung-uk Kim *
1500d84335fSJung-uk Kim *****************************************************************************/
151efcc2a30SJung-uk Kim
152efcc2a30SJung-uk Kim #include <contrib/dev/acpica/compiler/aslcompiler.h>
153313a0c13SJung-uk Kim #include <contrib/dev/acpica/include/acapps.h>
154efcc2a30SJung-uk Kim
155efcc2a30SJung-uk Kim #define _COMPONENT ACPI_COMPILER
156efcc2a30SJung-uk Kim ACPI_MODULE_NAME ("aslfileio")
157efcc2a30SJung-uk Kim
158efcc2a30SJung-uk Kim
159efcc2a30SJung-uk Kim /*******************************************************************************
160efcc2a30SJung-uk Kim *
161efcc2a30SJung-uk Kim * FUNCTION: FlFileError
162efcc2a30SJung-uk Kim *
163efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
164efcc2a30SJung-uk Kim * ErrorId - Index into error message array
165efcc2a30SJung-uk Kim *
166efcc2a30SJung-uk Kim * RETURN: None
167efcc2a30SJung-uk Kim *
168efcc2a30SJung-uk Kim * DESCRIPTION: Decode errno to an error message and add the entire error
169efcc2a30SJung-uk Kim * to the error log.
170efcc2a30SJung-uk Kim *
171efcc2a30SJung-uk Kim ******************************************************************************/
172efcc2a30SJung-uk Kim
173efcc2a30SJung-uk Kim void
FlFileError(UINT32 FileId,UINT8 ErrorId)174efcc2a30SJung-uk Kim FlFileError (
175efcc2a30SJung-uk Kim UINT32 FileId,
176efcc2a30SJung-uk Kim UINT8 ErrorId)
177efcc2a30SJung-uk Kim {
178efcc2a30SJung-uk Kim
1796f1f1a63SJung-uk Kim sprintf (AslGbl_MsgBuffer, "\"%s\" (%s) - %s", AslGbl_Files[FileId].Filename,
18044b0f624SJung-uk Kim AslGbl_FileDescs[FileId].Description, strerror (errno));
181f8146b88SJung-uk Kim
1826f1f1a63SJung-uk Kim AslCommonError (ASL_ERROR, ErrorId, 0, 0, 0, 0, NULL, AslGbl_MsgBuffer);
183efcc2a30SJung-uk Kim }
184efcc2a30SJung-uk Kim
185efcc2a30SJung-uk Kim
186efcc2a30SJung-uk Kim /*******************************************************************************
187efcc2a30SJung-uk Kim *
188efcc2a30SJung-uk Kim * FUNCTION: FlOpenFile
189efcc2a30SJung-uk Kim *
190efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
191efcc2a30SJung-uk Kim * Filename - file pathname to open
192efcc2a30SJung-uk Kim * Mode - Open mode for fopen
193efcc2a30SJung-uk Kim *
194efcc2a30SJung-uk Kim * RETURN: None
195efcc2a30SJung-uk Kim *
196efcc2a30SJung-uk Kim * DESCRIPTION: Open a file.
197efcc2a30SJung-uk Kim * NOTE: Aborts compiler on any error.
198efcc2a30SJung-uk Kim *
199efcc2a30SJung-uk Kim ******************************************************************************/
200efcc2a30SJung-uk Kim
201efcc2a30SJung-uk Kim void
FlOpenFile(UINT32 FileId,char * Filename,char * Mode)202efcc2a30SJung-uk Kim FlOpenFile (
203efcc2a30SJung-uk Kim UINT32 FileId,
204efcc2a30SJung-uk Kim char *Filename,
205efcc2a30SJung-uk Kim char *Mode)
206efcc2a30SJung-uk Kim {
207efcc2a30SJung-uk Kim FILE *File;
208efcc2a30SJung-uk Kim
209efcc2a30SJung-uk Kim
2106f1f1a63SJung-uk Kim AslGbl_Files[FileId].Filename = Filename;
2116f1f1a63SJung-uk Kim AslGbl_Files[FileId].Handle = NULL;
2121c0e1b6dSJung-uk Kim
213efcc2a30SJung-uk Kim File = fopen (Filename, Mode);
214efcc2a30SJung-uk Kim if (!File)
215efcc2a30SJung-uk Kim {
216efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_OPEN);
217efcc2a30SJung-uk Kim AslAbort ();
218efcc2a30SJung-uk Kim }
219efcc2a30SJung-uk Kim
2206f1f1a63SJung-uk Kim AslGbl_Files[FileId].Handle = File;
221efcc2a30SJung-uk Kim }
222efcc2a30SJung-uk Kim
223efcc2a30SJung-uk Kim
224efcc2a30SJung-uk Kim /*******************************************************************************
225efcc2a30SJung-uk Kim *
226efcc2a30SJung-uk Kim * FUNCTION: FlGetFileSize
227efcc2a30SJung-uk Kim *
228efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
229efcc2a30SJung-uk Kim *
230efcc2a30SJung-uk Kim * RETURN: File Size
231efcc2a30SJung-uk Kim *
232313a0c13SJung-uk Kim * DESCRIPTION: Get current file size. Uses common seek-to-EOF function.
233313a0c13SJung-uk Kim * File must be open. Aborts compiler on error.
234efcc2a30SJung-uk Kim *
235efcc2a30SJung-uk Kim ******************************************************************************/
236efcc2a30SJung-uk Kim
237efcc2a30SJung-uk Kim UINT32
FlGetFileSize(UINT32 FileId)238efcc2a30SJung-uk Kim FlGetFileSize (
239efcc2a30SJung-uk Kim UINT32 FileId)
240efcc2a30SJung-uk Kim {
241efcc2a30SJung-uk Kim UINT32 FileSize;
242efcc2a30SJung-uk Kim
243efcc2a30SJung-uk Kim
2446f1f1a63SJung-uk Kim FileSize = CmGetFileSize (AslGbl_Files[FileId].Handle);
245313a0c13SJung-uk Kim if (FileSize == ACPI_UINT32_MAX)
246313a0c13SJung-uk Kim {
247313a0c13SJung-uk Kim AslAbort();
248313a0c13SJung-uk Kim }
249efcc2a30SJung-uk Kim
250efcc2a30SJung-uk Kim return (FileSize);
251efcc2a30SJung-uk Kim }
252efcc2a30SJung-uk Kim
253efcc2a30SJung-uk Kim
254efcc2a30SJung-uk Kim /*******************************************************************************
255efcc2a30SJung-uk Kim *
256efcc2a30SJung-uk Kim * FUNCTION: FlReadFile
257efcc2a30SJung-uk Kim *
258efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
259efcc2a30SJung-uk Kim * Buffer - Where to place the data
260efcc2a30SJung-uk Kim * Length - Amount to read
261efcc2a30SJung-uk Kim *
262efcc2a30SJung-uk Kim * RETURN: Status. AE_ERROR indicates EOF.
263efcc2a30SJung-uk Kim *
264efcc2a30SJung-uk Kim * DESCRIPTION: Read data from an open file.
265efcc2a30SJung-uk Kim * NOTE: Aborts compiler on any error.
266efcc2a30SJung-uk Kim *
267efcc2a30SJung-uk Kim ******************************************************************************/
268efcc2a30SJung-uk Kim
269efcc2a30SJung-uk Kim ACPI_STATUS
FlReadFile(UINT32 FileId,void * Buffer,UINT32 Length)270efcc2a30SJung-uk Kim FlReadFile (
271efcc2a30SJung-uk Kim UINT32 FileId,
272efcc2a30SJung-uk Kim void *Buffer,
273efcc2a30SJung-uk Kim UINT32 Length)
274efcc2a30SJung-uk Kim {
275efcc2a30SJung-uk Kim UINT32 Actual;
276efcc2a30SJung-uk Kim
277efcc2a30SJung-uk Kim
278efcc2a30SJung-uk Kim /* Read and check for error */
279efcc2a30SJung-uk Kim
2806f1f1a63SJung-uk Kim Actual = fread (Buffer, 1, Length, AslGbl_Files[FileId].Handle);
281efcc2a30SJung-uk Kim if (Actual < Length)
282efcc2a30SJung-uk Kim {
2836f1f1a63SJung-uk Kim if (feof (AslGbl_Files[FileId].Handle))
284efcc2a30SJung-uk Kim {
285efcc2a30SJung-uk Kim /* End-of-file, just return error */
286efcc2a30SJung-uk Kim
287efcc2a30SJung-uk Kim return (AE_ERROR);
288efcc2a30SJung-uk Kim }
289efcc2a30SJung-uk Kim
290efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_READ);
291efcc2a30SJung-uk Kim AslAbort ();
292efcc2a30SJung-uk Kim }
293efcc2a30SJung-uk Kim
294efcc2a30SJung-uk Kim return (AE_OK);
295efcc2a30SJung-uk Kim }
296efcc2a30SJung-uk Kim
297efcc2a30SJung-uk Kim
298efcc2a30SJung-uk Kim /*******************************************************************************
299efcc2a30SJung-uk Kim *
300efcc2a30SJung-uk Kim * FUNCTION: FlWriteFile
301efcc2a30SJung-uk Kim *
302efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
303efcc2a30SJung-uk Kim * Buffer - Data to write
304efcc2a30SJung-uk Kim * Length - Amount of data to write
305efcc2a30SJung-uk Kim *
306efcc2a30SJung-uk Kim * RETURN: None
307efcc2a30SJung-uk Kim *
308efcc2a30SJung-uk Kim * DESCRIPTION: Write data to an open file.
309efcc2a30SJung-uk Kim * NOTE: Aborts compiler on any error.
310efcc2a30SJung-uk Kim *
311efcc2a30SJung-uk Kim ******************************************************************************/
312efcc2a30SJung-uk Kim
313efcc2a30SJung-uk Kim void
FlWriteFile(UINT32 FileId,void * Buffer,UINT32 Length)314efcc2a30SJung-uk Kim FlWriteFile (
315efcc2a30SJung-uk Kim UINT32 FileId,
316efcc2a30SJung-uk Kim void *Buffer,
317efcc2a30SJung-uk Kim UINT32 Length)
318efcc2a30SJung-uk Kim {
319efcc2a30SJung-uk Kim UINT32 Actual;
320efcc2a30SJung-uk Kim
321efcc2a30SJung-uk Kim
322efcc2a30SJung-uk Kim /* Write and check for error */
323efcc2a30SJung-uk Kim
3246f1f1a63SJung-uk Kim Actual = fwrite ((char *) Buffer, 1, Length, AslGbl_Files[FileId].Handle);
325efcc2a30SJung-uk Kim if (Actual != Length)
326efcc2a30SJung-uk Kim {
327efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_WRITE);
328efcc2a30SJung-uk Kim AslAbort ();
329efcc2a30SJung-uk Kim }
3305ef50723SJung-uk Kim
3316f1f1a63SJung-uk Kim if ((FileId == ASL_FILE_PREPROCESSOR) && AslGbl_PreprocessorOutputFlag)
3325ef50723SJung-uk Kim {
3335ef50723SJung-uk Kim /* Duplicate the output to the user preprocessor (.i) file */
3345ef50723SJung-uk Kim
3355ef50723SJung-uk Kim Actual = fwrite ((char *) Buffer, 1, Length,
3366f1f1a63SJung-uk Kim AslGbl_Files[ASL_FILE_PREPROCESSOR_USER].Handle);
3375ef50723SJung-uk Kim if (Actual != Length)
3385ef50723SJung-uk Kim {
3395ef50723SJung-uk Kim FlFileError (FileId, ASL_MSG_WRITE);
3405ef50723SJung-uk Kim AslAbort ();
3415ef50723SJung-uk Kim }
3425ef50723SJung-uk Kim }
343efcc2a30SJung-uk Kim }
344efcc2a30SJung-uk Kim
345efcc2a30SJung-uk Kim
346efcc2a30SJung-uk Kim /*******************************************************************************
347efcc2a30SJung-uk Kim *
348efcc2a30SJung-uk Kim * FUNCTION: FlPrintFile
349efcc2a30SJung-uk Kim *
350efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
351efcc2a30SJung-uk Kim * Format - Printf format string
352efcc2a30SJung-uk Kim * ... - Printf arguments
353efcc2a30SJung-uk Kim *
354efcc2a30SJung-uk Kim * RETURN: None
355efcc2a30SJung-uk Kim *
356efcc2a30SJung-uk Kim * DESCRIPTION: Formatted write to an open file.
357efcc2a30SJung-uk Kim * NOTE: Aborts compiler on any error.
358efcc2a30SJung-uk Kim *
359efcc2a30SJung-uk Kim ******************************************************************************/
360efcc2a30SJung-uk Kim
361efcc2a30SJung-uk Kim void
FlPrintFile(UINT32 FileId,char * Format,...)362efcc2a30SJung-uk Kim FlPrintFile (
363efcc2a30SJung-uk Kim UINT32 FileId,
364efcc2a30SJung-uk Kim char *Format,
365efcc2a30SJung-uk Kim ...)
366efcc2a30SJung-uk Kim {
367efcc2a30SJung-uk Kim INT32 Actual;
368efcc2a30SJung-uk Kim va_list Args;
369efcc2a30SJung-uk Kim
370efcc2a30SJung-uk Kim
371efcc2a30SJung-uk Kim va_start (Args, Format);
3726f1f1a63SJung-uk Kim Actual = vfprintf (AslGbl_Files[FileId].Handle, Format, Args);
373efcc2a30SJung-uk Kim va_end (Args);
374efcc2a30SJung-uk Kim
375efcc2a30SJung-uk Kim if (Actual == -1)
376efcc2a30SJung-uk Kim {
377efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_WRITE);
378efcc2a30SJung-uk Kim AslAbort ();
379efcc2a30SJung-uk Kim }
3805ef50723SJung-uk Kim
381f8146b88SJung-uk Kim if ((FileId == ASL_FILE_PREPROCESSOR) &&
3826f1f1a63SJung-uk Kim AslGbl_PreprocessorOutputFlag)
3835ef50723SJung-uk Kim {
3845ef50723SJung-uk Kim /*
3855ef50723SJung-uk Kim * Duplicate the output to the user preprocessor (.i) file,
3865ef50723SJung-uk Kim * except: no #line directives.
3875ef50723SJung-uk Kim */
3885ef50723SJung-uk Kim if (!strncmp (Format, "#line", 5))
3895ef50723SJung-uk Kim {
3905ef50723SJung-uk Kim return;
3915ef50723SJung-uk Kim }
3925ef50723SJung-uk Kim
3935ef50723SJung-uk Kim va_start (Args, Format);
3946f1f1a63SJung-uk Kim Actual = vfprintf (AslGbl_Files[ASL_FILE_PREPROCESSOR_USER].Handle,
3955ef50723SJung-uk Kim Format, Args);
3965ef50723SJung-uk Kim va_end (Args);
3975ef50723SJung-uk Kim
3985ef50723SJung-uk Kim if (Actual == -1)
3995ef50723SJung-uk Kim {
4005ef50723SJung-uk Kim FlFileError (FileId, ASL_MSG_WRITE);
4015ef50723SJung-uk Kim AslAbort ();
4025ef50723SJung-uk Kim }
4035ef50723SJung-uk Kim }
404efcc2a30SJung-uk Kim }
405efcc2a30SJung-uk Kim
406efcc2a30SJung-uk Kim
407efcc2a30SJung-uk Kim /*******************************************************************************
408efcc2a30SJung-uk Kim *
409efcc2a30SJung-uk Kim * FUNCTION: FlSeekFile
410efcc2a30SJung-uk Kim *
411efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
412efcc2a30SJung-uk Kim * Offset - Absolute byte offset in file
413efcc2a30SJung-uk Kim *
414efcc2a30SJung-uk Kim * RETURN: None
415efcc2a30SJung-uk Kim *
416efcc2a30SJung-uk Kim * DESCRIPTION: Seek to absolute offset.
417efcc2a30SJung-uk Kim * NOTE: Aborts compiler on any error.
418efcc2a30SJung-uk Kim *
419efcc2a30SJung-uk Kim ******************************************************************************/
420efcc2a30SJung-uk Kim
421efcc2a30SJung-uk Kim void
FlSeekFile(UINT32 FileId,long Offset)422efcc2a30SJung-uk Kim FlSeekFile (
423efcc2a30SJung-uk Kim UINT32 FileId,
424efcc2a30SJung-uk Kim long Offset)
425efcc2a30SJung-uk Kim {
426efcc2a30SJung-uk Kim int Error;
427efcc2a30SJung-uk Kim
428efcc2a30SJung-uk Kim
4296f1f1a63SJung-uk Kim Error = fseek (AslGbl_Files[FileId].Handle, Offset, SEEK_SET);
430efcc2a30SJung-uk Kim if (Error)
431efcc2a30SJung-uk Kim {
432efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_SEEK);
433efcc2a30SJung-uk Kim AslAbort ();
434efcc2a30SJung-uk Kim }
435efcc2a30SJung-uk Kim }
436efcc2a30SJung-uk Kim
437efcc2a30SJung-uk Kim
438efcc2a30SJung-uk Kim /*******************************************************************************
439efcc2a30SJung-uk Kim *
440efcc2a30SJung-uk Kim * FUNCTION: FlCloseFile
441efcc2a30SJung-uk Kim *
442efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
443efcc2a30SJung-uk Kim *
444efcc2a30SJung-uk Kim * RETURN: None
445efcc2a30SJung-uk Kim *
446efcc2a30SJung-uk Kim * DESCRIPTION: Close an open file. Aborts compiler on error
447efcc2a30SJung-uk Kim *
448efcc2a30SJung-uk Kim ******************************************************************************/
449efcc2a30SJung-uk Kim
450efcc2a30SJung-uk Kim void
FlCloseFile(UINT32 FileId)451efcc2a30SJung-uk Kim FlCloseFile (
452efcc2a30SJung-uk Kim UINT32 FileId)
453efcc2a30SJung-uk Kim {
454efcc2a30SJung-uk Kim int Error;
455efcc2a30SJung-uk Kim
456efcc2a30SJung-uk Kim
4576f1f1a63SJung-uk Kim if (!AslGbl_Files[FileId].Handle)
458efcc2a30SJung-uk Kim {
459efcc2a30SJung-uk Kim return;
460efcc2a30SJung-uk Kim }
461efcc2a30SJung-uk Kim
4626f1f1a63SJung-uk Kim Error = fclose (AslGbl_Files[FileId].Handle);
463efcc2a30SJung-uk Kim if (Error)
464efcc2a30SJung-uk Kim {
465efcc2a30SJung-uk Kim FlFileError (FileId, ASL_MSG_CLOSE);
466efcc2a30SJung-uk Kim AslAbort ();
467efcc2a30SJung-uk Kim }
468efcc2a30SJung-uk Kim
469313a0c13SJung-uk Kim /* Do not clear/free the filename string */
470313a0c13SJung-uk Kim
4716f1f1a63SJung-uk Kim AslGbl_Files[FileId].Handle = NULL;
472efcc2a30SJung-uk Kim return;
473efcc2a30SJung-uk Kim }
474efcc2a30SJung-uk Kim
475efcc2a30SJung-uk Kim
476efcc2a30SJung-uk Kim /*******************************************************************************
477efcc2a30SJung-uk Kim *
478efcc2a30SJung-uk Kim * FUNCTION: FlDeleteFile
479efcc2a30SJung-uk Kim *
480efcc2a30SJung-uk Kim * PARAMETERS: FileId - Index into file info array
481efcc2a30SJung-uk Kim *
482efcc2a30SJung-uk Kim * RETURN: None
483efcc2a30SJung-uk Kim *
484efcc2a30SJung-uk Kim * DESCRIPTION: Delete a file.
485efcc2a30SJung-uk Kim *
486efcc2a30SJung-uk Kim ******************************************************************************/
487efcc2a30SJung-uk Kim
488efcc2a30SJung-uk Kim void
FlDeleteFile(UINT32 FileId)489efcc2a30SJung-uk Kim FlDeleteFile (
490efcc2a30SJung-uk Kim UINT32 FileId)
491efcc2a30SJung-uk Kim {
4926f1f1a63SJung-uk Kim ASL_FILE_INFO *Info = &AslGbl_Files[FileId];
493efcc2a30SJung-uk Kim
494efcc2a30SJung-uk Kim
495efcc2a30SJung-uk Kim if (!Info->Filename)
496efcc2a30SJung-uk Kim {
497efcc2a30SJung-uk Kim return;
498efcc2a30SJung-uk Kim }
499efcc2a30SJung-uk Kim
500efcc2a30SJung-uk Kim if (remove (Info->Filename))
501efcc2a30SJung-uk Kim {
502efcc2a30SJung-uk Kim printf ("%s (%s file) ",
50344b0f624SJung-uk Kim Info->Filename, AslGbl_FileDescs[FileId].Description);
504efcc2a30SJung-uk Kim perror ("Could not delete");
505efcc2a30SJung-uk Kim }
506efcc2a30SJung-uk Kim
507efcc2a30SJung-uk Kim Info->Filename = NULL;
508efcc2a30SJung-uk Kim return;
509efcc2a30SJung-uk Kim }
510