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