Home | History | Annotate | Line # | Download | only in compiler
aslfileio.c revision 1.1.1.14
      1       1.1  christos /******************************************************************************
      2       1.1  christos  *
      3       1.1  christos  * Module Name: aslfileio - File I/O support
      4       1.1  christos  *
      5       1.1  christos  *****************************************************************************/
      6       1.1  christos 
      7  1.1.1.14  christos /******************************************************************************
      8  1.1.1.14  christos  *
      9  1.1.1.14  christos  * 1. Copyright Notice
     10  1.1.1.14  christos  *
     11  1.1.1.14  christos  * Some or all of this work - Copyright (c) 1999 - 2024, Intel Corp.
     12       1.1  christos  * All rights reserved.
     13       1.1  christos  *
     14  1.1.1.14  christos  * 2. License
     15  1.1.1.14  christos  *
     16  1.1.1.14  christos  * 2.1. This is your license from Intel Corp. under its intellectual property
     17  1.1.1.14  christos  * rights. You may have additional license terms from the party that provided
     18  1.1.1.14  christos  * you this software, covering your right to use that party's intellectual
     19  1.1.1.14  christos  * property rights.
     20  1.1.1.14  christos  *
     21  1.1.1.14  christos  * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
     22  1.1.1.14  christos  * copy of the source code appearing in this file ("Covered Code") an
     23  1.1.1.14  christos  * irrevocable, perpetual, worldwide license under Intel's copyrights in the
     24  1.1.1.14  christos  * base code distributed originally by Intel ("Original Intel Code") to copy,
     25  1.1.1.14  christos  * make derivatives, distribute, use and display any portion of the Covered
     26  1.1.1.14  christos  * Code in any form, with the right to sublicense such rights; and
     27  1.1.1.14  christos  *
     28  1.1.1.14  christos  * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
     29  1.1.1.14  christos  * license (with the right to sublicense), under only those claims of Intel
     30  1.1.1.14  christos  * patents that are infringed by the Original Intel Code, to make, use, sell,
     31  1.1.1.14  christos  * offer to sell, and import the Covered Code and derivative works thereof
     32  1.1.1.14  christos  * solely to the minimum extent necessary to exercise the above copyright
     33  1.1.1.14  christos  * license, and in no event shall the patent license extend to any additions
     34  1.1.1.14  christos  * to or modifications of the Original Intel Code. No other license or right
     35  1.1.1.14  christos  * is granted directly or by implication, estoppel or otherwise;
     36  1.1.1.14  christos  *
     37  1.1.1.14  christos  * The above copyright and patent license is granted only if the following
     38  1.1.1.14  christos  * conditions are met:
     39  1.1.1.14  christos  *
     40  1.1.1.14  christos  * 3. Conditions
     41  1.1.1.14  christos  *
     42  1.1.1.14  christos  * 3.1. Redistribution of Source with Rights to Further Distribute Source.
     43  1.1.1.14  christos  * Redistribution of source code of any substantial portion of the Covered
     44  1.1.1.14  christos  * Code or modification with rights to further distribute source must include
     45  1.1.1.14  christos  * the above Copyright Notice, the above License, this list of Conditions,
     46  1.1.1.14  christos  * and the following Disclaimer and Export Compliance provision. In addition,
     47  1.1.1.14  christos  * Licensee must cause all Covered Code to which Licensee contributes to
     48  1.1.1.14  christos  * contain a file documenting the changes Licensee made to create that Covered
     49  1.1.1.14  christos  * Code and the date of any change. Licensee must include in that file the
     50  1.1.1.14  christos  * documentation of any changes made by any predecessor Licensee. Licensee
     51  1.1.1.14  christos  * must include a prominent statement that the modification is derived,
     52  1.1.1.14  christos  * directly or indirectly, from Original Intel Code.
     53  1.1.1.14  christos  *
     54  1.1.1.14  christos  * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
     55  1.1.1.14  christos  * Redistribution of source code of any substantial portion of the Covered
     56  1.1.1.14  christos  * Code or modification without rights to further distribute source must
     57  1.1.1.14  christos  * include the following Disclaimer and Export Compliance provision in the
     58  1.1.1.14  christos  * documentation and/or other materials provided with distribution. In
     59  1.1.1.14  christos  * addition, Licensee may not authorize further sublicense of source of any
     60  1.1.1.14  christos  * portion of the Covered Code, and must include terms to the effect that the
     61  1.1.1.14  christos  * license from Licensee to its licensee is limited to the intellectual
     62  1.1.1.14  christos  * property embodied in the software Licensee provides to its licensee, and
     63  1.1.1.14  christos  * not to intellectual property embodied in modifications its licensee may
     64  1.1.1.14  christos  * make.
     65  1.1.1.14  christos  *
     66  1.1.1.14  christos  * 3.3. Redistribution of Executable. Redistribution in executable form of any
     67  1.1.1.14  christos  * substantial portion of the Covered Code or modification must reproduce the
     68  1.1.1.14  christos  * above Copyright Notice, and the following Disclaimer and Export Compliance
     69  1.1.1.14  christos  * provision in the documentation and/or other materials provided with the
     70  1.1.1.14  christos  * distribution.
     71  1.1.1.14  christos  *
     72  1.1.1.14  christos  * 3.4. Intel retains all right, title, and interest in and to the Original
     73  1.1.1.14  christos  * Intel Code.
     74  1.1.1.14  christos  *
     75  1.1.1.14  christos  * 3.5. Neither the name Intel nor any other trademark owned or controlled by
     76  1.1.1.14  christos  * Intel shall be used in advertising or otherwise to promote the sale, use or
     77  1.1.1.14  christos  * other dealings in products derived from or relating to the Covered Code
     78  1.1.1.14  christos  * without prior written authorization from Intel.
     79  1.1.1.14  christos  *
     80  1.1.1.14  christos  * 4. Disclaimer and Export Compliance
     81  1.1.1.14  christos  *
     82  1.1.1.14  christos  * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
     83  1.1.1.14  christos  * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
     84  1.1.1.14  christos  * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
     85  1.1.1.14  christos  * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
     86  1.1.1.14  christos  * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
     87  1.1.1.14  christos  * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
     88  1.1.1.14  christos  * PARTICULAR PURPOSE.
     89  1.1.1.14  christos  *
     90  1.1.1.14  christos  * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
     91  1.1.1.14  christos  * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
     92  1.1.1.14  christos  * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
     93  1.1.1.14  christos  * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
     94  1.1.1.14  christos  * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
     95  1.1.1.14  christos  * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
     96  1.1.1.14  christos  * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
     97  1.1.1.14  christos  * LIMITED REMEDY.
     98  1.1.1.14  christos  *
     99  1.1.1.14  christos  * 4.3. Licensee shall not export, either directly or indirectly, any of this
    100  1.1.1.14  christos  * software or system incorporating such software without first obtaining any
    101  1.1.1.14  christos  * required license or other approval from the U. S. Department of Commerce or
    102  1.1.1.14  christos  * any other agency or department of the United States Government. In the
    103  1.1.1.14  christos  * event Licensee exports any such software from the United States or
    104  1.1.1.14  christos  * re-exports any such software from a foreign destination, Licensee shall
    105  1.1.1.14  christos  * ensure that the distribution and export/re-export of the software is in
    106  1.1.1.14  christos  * compliance with all laws, regulations, orders, or other restrictions of the
    107  1.1.1.14  christos  * U.S. Export Administration Regulations. Licensee agrees that neither it nor
    108  1.1.1.14  christos  * any of its subsidiaries will export/re-export any technical data, process,
    109  1.1.1.14  christos  * software, or service, directly or indirectly, to any country for which the
    110  1.1.1.14  christos  * United States government or any agency thereof requires an export license,
    111  1.1.1.14  christos  * other governmental approval, or letter of assurance, without first obtaining
    112  1.1.1.14  christos  * such license, approval or letter.
    113  1.1.1.14  christos  *
    114  1.1.1.14  christos  *****************************************************************************
    115  1.1.1.14  christos  *
    116  1.1.1.14  christos  * Alternatively, you may choose to be licensed under the terms of the
    117  1.1.1.14  christos  * following license:
    118  1.1.1.14  christos  *
    119       1.1  christos  * Redistribution and use in source and binary forms, with or without
    120       1.1  christos  * modification, are permitted provided that the following conditions
    121       1.1  christos  * are met:
    122       1.1  christos  * 1. Redistributions of source code must retain the above copyright
    123       1.1  christos  *    notice, this list of conditions, and the following disclaimer,
    124       1.1  christos  *    without modification.
    125       1.1  christos  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
    126       1.1  christos  *    substantially similar to the "NO WARRANTY" disclaimer below
    127       1.1  christos  *    ("Disclaimer") and any redistribution must be conditioned upon
    128       1.1  christos  *    including a substantially similar Disclaimer requirement for further
    129       1.1  christos  *    binary redistribution.
    130       1.1  christos  * 3. Neither the names of the above-listed copyright holders nor the names
    131       1.1  christos  *    of any contributors may be used to endorse or promote products derived
    132       1.1  christos  *    from this software without specific prior written permission.
    133       1.1  christos  *
    134       1.1  christos  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
    135       1.1  christos  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
    136  1.1.1.11  christos  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
    137       1.1  christos  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
    138  1.1.1.14  christos  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
    139  1.1.1.14  christos  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
    140  1.1.1.14  christos  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
    141  1.1.1.14  christos  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
    142  1.1.1.14  christos  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
    143  1.1.1.14  christos  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
    144  1.1.1.14  christos  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
    145  1.1.1.14  christos  *
    146  1.1.1.14  christos  * Alternatively, you may choose to be licensed under the terms of the
    147  1.1.1.14  christos  * GNU General Public License ("GPL") version 2 as published by the Free
    148  1.1.1.14  christos  * Software Foundation.
    149  1.1.1.14  christos  *
    150  1.1.1.14  christos  *****************************************************************************/
    151       1.1  christos 
    152       1.1  christos #include "aslcompiler.h"
    153   1.1.1.2  christos #include "acapps.h"
    154       1.1  christos 
    155       1.1  christos #define _COMPONENT          ACPI_COMPILER
    156       1.1  christos         ACPI_MODULE_NAME    ("aslfileio")
    157       1.1  christos 
    158       1.1  christos 
    159       1.1  christos /*******************************************************************************
    160       1.1  christos  *
    161       1.1  christos  * FUNCTION:    FlFileError
    162       1.1  christos  *
    163       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    164       1.1  christos  *              ErrorId             - Index into error message array
    165       1.1  christos  *
    166       1.1  christos  * RETURN:      None
    167       1.1  christos  *
    168       1.1  christos  * DESCRIPTION: Decode errno to an error message and add the entire error
    169       1.1  christos  *              to the error log.
    170       1.1  christos  *
    171       1.1  christos  ******************************************************************************/
    172       1.1  christos 
    173       1.1  christos void
    174       1.1  christos FlFileError (
    175       1.1  christos     UINT32                  FileId,
    176       1.1  christos     UINT8                   ErrorId)
    177       1.1  christos {
    178       1.1  christos 
    179   1.1.1.8  christos     sprintf (AslGbl_MsgBuffer, "\"%s\" (%s) - %s", AslGbl_Files[FileId].Filename,
    180   1.1.1.9  christos         AslGbl_FileDescs[FileId].Description, strerror (errno));
    181   1.1.1.5  christos 
    182   1.1.1.8  christos     AslCommonError (ASL_ERROR, ErrorId, 0, 0, 0, 0, NULL, AslGbl_MsgBuffer);
    183       1.1  christos }
    184       1.1  christos 
    185       1.1  christos 
    186       1.1  christos /*******************************************************************************
    187       1.1  christos  *
    188       1.1  christos  * FUNCTION:    FlOpenFile
    189       1.1  christos  *
    190       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    191       1.1  christos  *              Filename            - file pathname to open
    192       1.1  christos  *              Mode                - Open mode for fopen
    193       1.1  christos  *
    194       1.1  christos  * RETURN:      None
    195       1.1  christos  *
    196       1.1  christos  * DESCRIPTION: Open a file.
    197       1.1  christos  *              NOTE: Aborts compiler on any error.
    198       1.1  christos  *
    199       1.1  christos  ******************************************************************************/
    200       1.1  christos 
    201       1.1  christos void
    202       1.1  christos FlOpenFile (
    203       1.1  christos     UINT32                  FileId,
    204       1.1  christos     char                    *Filename,
    205       1.1  christos     char                    *Mode)
    206       1.1  christos {
    207       1.1  christos     FILE                    *File;
    208       1.1  christos 
    209       1.1  christos 
    210   1.1.1.8  christos     AslGbl_Files[FileId].Filename = Filename;
    211   1.1.1.8  christos     AslGbl_Files[FileId].Handle = NULL;
    212   1.1.1.3  christos 
    213       1.1  christos     File = fopen (Filename, Mode);
    214       1.1  christos     if (!File)
    215       1.1  christos     {
    216       1.1  christos         FlFileError (FileId, ASL_MSG_OPEN);
    217       1.1  christos         AslAbort ();
    218       1.1  christos     }
    219       1.1  christos 
    220   1.1.1.8  christos     AslGbl_Files[FileId].Handle = File;
    221       1.1  christos }
    222       1.1  christos 
    223       1.1  christos 
    224       1.1  christos /*******************************************************************************
    225       1.1  christos  *
    226       1.1  christos  * FUNCTION:    FlGetFileSize
    227       1.1  christos  *
    228       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    229       1.1  christos  *
    230       1.1  christos  * RETURN:      File Size
    231       1.1  christos  *
    232   1.1.1.2  christos  * DESCRIPTION: Get current file size. Uses common seek-to-EOF function.
    233   1.1.1.2  christos  *              File must be open. Aborts compiler on error.
    234       1.1  christos  *
    235       1.1  christos  ******************************************************************************/
    236       1.1  christos 
    237       1.1  christos UINT32
    238       1.1  christos FlGetFileSize (
    239       1.1  christos     UINT32                  FileId)
    240       1.1  christos {
    241       1.1  christos     UINT32                  FileSize;
    242       1.1  christos 
    243       1.1  christos 
    244   1.1.1.8  christos     FileSize = CmGetFileSize (AslGbl_Files[FileId].Handle);
    245   1.1.1.2  christos     if (FileSize == ACPI_UINT32_MAX)
    246   1.1.1.2  christos     {
    247   1.1.1.2  christos         AslAbort();
    248   1.1.1.2  christos     }
    249       1.1  christos 
    250       1.1  christos     return (FileSize);
    251       1.1  christos }
    252       1.1  christos 
    253       1.1  christos 
    254       1.1  christos /*******************************************************************************
    255       1.1  christos  *
    256       1.1  christos  * FUNCTION:    FlReadFile
    257       1.1  christos  *
    258       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    259       1.1  christos  *              Buffer              - Where to place the data
    260       1.1  christos  *              Length              - Amount to read
    261       1.1  christos  *
    262       1.1  christos  * RETURN:      Status. AE_ERROR indicates EOF.
    263       1.1  christos  *
    264       1.1  christos  * DESCRIPTION: Read data from an open file.
    265       1.1  christos  *              NOTE: Aborts compiler on any error.
    266       1.1  christos  *
    267       1.1  christos  ******************************************************************************/
    268       1.1  christos 
    269       1.1  christos ACPI_STATUS
    270       1.1  christos FlReadFile (
    271       1.1  christos     UINT32                  FileId,
    272       1.1  christos     void                    *Buffer,
    273       1.1  christos     UINT32                  Length)
    274       1.1  christos {
    275       1.1  christos     UINT32                  Actual;
    276       1.1  christos 
    277       1.1  christos 
    278       1.1  christos     /* Read and check for error */
    279       1.1  christos 
    280   1.1.1.8  christos     Actual = fread (Buffer, 1, Length, AslGbl_Files[FileId].Handle);
    281       1.1  christos     if (Actual < Length)
    282       1.1  christos     {
    283   1.1.1.8  christos         if (feof (AslGbl_Files[FileId].Handle))
    284       1.1  christos         {
    285       1.1  christos             /* End-of-file, just return error */
    286       1.1  christos 
    287       1.1  christos             return (AE_ERROR);
    288       1.1  christos         }
    289       1.1  christos 
    290       1.1  christos         FlFileError (FileId, ASL_MSG_READ);
    291       1.1  christos         AslAbort ();
    292       1.1  christos     }
    293       1.1  christos 
    294       1.1  christos     return (AE_OK);
    295       1.1  christos }
    296       1.1  christos 
    297       1.1  christos 
    298       1.1  christos /*******************************************************************************
    299       1.1  christos  *
    300       1.1  christos  * FUNCTION:    FlWriteFile
    301       1.1  christos  *
    302       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    303       1.1  christos  *              Buffer              - Data to write
    304       1.1  christos  *              Length              - Amount of data to write
    305       1.1  christos  *
    306       1.1  christos  * RETURN:      None
    307       1.1  christos  *
    308       1.1  christos  * DESCRIPTION: Write data to an open file.
    309       1.1  christos  *              NOTE: Aborts compiler on any error.
    310       1.1  christos  *
    311       1.1  christos  ******************************************************************************/
    312       1.1  christos 
    313       1.1  christos void
    314       1.1  christos FlWriteFile (
    315       1.1  christos     UINT32                  FileId,
    316       1.1  christos     void                    *Buffer,
    317       1.1  christos     UINT32                  Length)
    318       1.1  christos {
    319       1.1  christos     UINT32                  Actual;
    320       1.1  christos 
    321       1.1  christos 
    322       1.1  christos     /* Write and check for error */
    323       1.1  christos 
    324   1.1.1.8  christos     Actual = fwrite ((char *) Buffer, 1, Length, AslGbl_Files[FileId].Handle);
    325       1.1  christos     if (Actual != Length)
    326       1.1  christos     {
    327       1.1  christos         FlFileError (FileId, ASL_MSG_WRITE);
    328       1.1  christos         AslAbort ();
    329       1.1  christos     }
    330   1.1.1.4  christos 
    331   1.1.1.8  christos     if ((FileId == ASL_FILE_PREPROCESSOR) && AslGbl_PreprocessorOutputFlag)
    332   1.1.1.4  christos     {
    333   1.1.1.4  christos         /* Duplicate the output to the user preprocessor (.i) file */
    334   1.1.1.4  christos 
    335   1.1.1.4  christos         Actual = fwrite ((char *) Buffer, 1, Length,
    336   1.1.1.8  christos             AslGbl_Files[ASL_FILE_PREPROCESSOR_USER].Handle);
    337   1.1.1.4  christos         if (Actual != Length)
    338   1.1.1.4  christos         {
    339   1.1.1.4  christos             FlFileError (FileId, ASL_MSG_WRITE);
    340   1.1.1.4  christos             AslAbort ();
    341   1.1.1.4  christos         }
    342   1.1.1.4  christos     }
    343       1.1  christos }
    344       1.1  christos 
    345       1.1  christos 
    346       1.1  christos /*******************************************************************************
    347       1.1  christos  *
    348       1.1  christos  * FUNCTION:    FlPrintFile
    349       1.1  christos  *
    350       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    351       1.1  christos  *              Format              - Printf format string
    352       1.1  christos  *              ...                 - Printf arguments
    353       1.1  christos  *
    354       1.1  christos  * RETURN:      None
    355       1.1  christos  *
    356       1.1  christos  * DESCRIPTION: Formatted write to an open file.
    357       1.1  christos  *              NOTE: Aborts compiler on any error.
    358       1.1  christos  *
    359       1.1  christos  ******************************************************************************/
    360       1.1  christos 
    361       1.1  christos void
    362       1.1  christos FlPrintFile (
    363       1.1  christos     UINT32                  FileId,
    364       1.1  christos     char                    *Format,
    365       1.1  christos     ...)
    366       1.1  christos {
    367       1.1  christos     INT32                   Actual;
    368       1.1  christos     va_list                 Args;
    369       1.1  christos 
    370       1.1  christos 
    371       1.1  christos     va_start (Args, Format);
    372   1.1.1.8  christos     Actual = vfprintf (AslGbl_Files[FileId].Handle, Format, Args);
    373       1.1  christos     va_end (Args);
    374       1.1  christos 
    375       1.1  christos     if (Actual == -1)
    376       1.1  christos     {
    377       1.1  christos         FlFileError (FileId, ASL_MSG_WRITE);
    378       1.1  christos         AslAbort ();
    379       1.1  christos     }
    380   1.1.1.4  christos 
    381   1.1.1.5  christos     if ((FileId == ASL_FILE_PREPROCESSOR) &&
    382   1.1.1.8  christos         AslGbl_PreprocessorOutputFlag)
    383   1.1.1.4  christos     {
    384   1.1.1.4  christos         /*
    385   1.1.1.4  christos          * Duplicate the output to the user preprocessor (.i) file,
    386   1.1.1.4  christos          * except: no #line directives.
    387   1.1.1.4  christos          */
    388   1.1.1.4  christos         if (!strncmp (Format, "#line", 5))
    389   1.1.1.4  christos         {
    390   1.1.1.4  christos             return;
    391   1.1.1.4  christos         }
    392   1.1.1.4  christos 
    393   1.1.1.4  christos         va_start (Args, Format);
    394   1.1.1.8  christos         Actual = vfprintf (AslGbl_Files[ASL_FILE_PREPROCESSOR_USER].Handle,
    395   1.1.1.4  christos             Format, Args);
    396   1.1.1.4  christos         va_end (Args);
    397   1.1.1.4  christos 
    398   1.1.1.4  christos         if (Actual == -1)
    399   1.1.1.4  christos         {
    400   1.1.1.4  christos             FlFileError (FileId, ASL_MSG_WRITE);
    401   1.1.1.4  christos             AslAbort ();
    402   1.1.1.4  christos         }
    403   1.1.1.4  christos     }
    404       1.1  christos }
    405       1.1  christos 
    406       1.1  christos 
    407       1.1  christos /*******************************************************************************
    408       1.1  christos  *
    409       1.1  christos  * FUNCTION:    FlSeekFile
    410       1.1  christos  *
    411       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    412       1.1  christos  *              Offset              - Absolute byte offset in file
    413       1.1  christos  *
    414       1.1  christos  * RETURN:      None
    415       1.1  christos  *
    416       1.1  christos  * DESCRIPTION: Seek to absolute offset.
    417       1.1  christos  *              NOTE: Aborts compiler on any error.
    418       1.1  christos  *
    419       1.1  christos  ******************************************************************************/
    420       1.1  christos 
    421       1.1  christos void
    422       1.1  christos FlSeekFile (
    423       1.1  christos     UINT32                  FileId,
    424       1.1  christos     long                    Offset)
    425       1.1  christos {
    426       1.1  christos     int                     Error;
    427       1.1  christos 
    428       1.1  christos 
    429   1.1.1.8  christos     Error = fseek (AslGbl_Files[FileId].Handle, Offset, SEEK_SET);
    430       1.1  christos     if (Error)
    431       1.1  christos     {
    432       1.1  christos         FlFileError (FileId, ASL_MSG_SEEK);
    433       1.1  christos         AslAbort ();
    434       1.1  christos     }
    435       1.1  christos }
    436       1.1  christos 
    437       1.1  christos 
    438       1.1  christos /*******************************************************************************
    439       1.1  christos  *
    440       1.1  christos  * FUNCTION:    FlCloseFile
    441       1.1  christos  *
    442       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    443       1.1  christos  *
    444       1.1  christos  * RETURN:      None
    445       1.1  christos  *
    446       1.1  christos  * DESCRIPTION: Close an open file. Aborts compiler on error
    447       1.1  christos  *
    448       1.1  christos  ******************************************************************************/
    449       1.1  christos 
    450       1.1  christos void
    451       1.1  christos FlCloseFile (
    452       1.1  christos     UINT32                  FileId)
    453       1.1  christos {
    454       1.1  christos     int                     Error;
    455       1.1  christos 
    456       1.1  christos 
    457   1.1.1.8  christos     if (!AslGbl_Files[FileId].Handle)
    458       1.1  christos     {
    459       1.1  christos         return;
    460       1.1  christos     }
    461       1.1  christos 
    462   1.1.1.8  christos     Error = fclose (AslGbl_Files[FileId].Handle);
    463       1.1  christos     if (Error)
    464       1.1  christos     {
    465       1.1  christos         FlFileError (FileId, ASL_MSG_CLOSE);
    466       1.1  christos         AslAbort ();
    467       1.1  christos     }
    468       1.1  christos 
    469   1.1.1.2  christos     /* Do not clear/free the filename string */
    470   1.1.1.2  christos 
    471   1.1.1.8  christos     AslGbl_Files[FileId].Handle = NULL;
    472       1.1  christos     return;
    473       1.1  christos }
    474       1.1  christos 
    475       1.1  christos 
    476       1.1  christos /*******************************************************************************
    477       1.1  christos  *
    478       1.1  christos  * FUNCTION:    FlDeleteFile
    479       1.1  christos  *
    480       1.1  christos  * PARAMETERS:  FileId              - Index into file info array
    481       1.1  christos  *
    482       1.1  christos  * RETURN:      None
    483       1.1  christos  *
    484       1.1  christos  * DESCRIPTION: Delete a file.
    485       1.1  christos  *
    486       1.1  christos  ******************************************************************************/
    487       1.1  christos 
    488       1.1  christos void
    489       1.1  christos FlDeleteFile (
    490       1.1  christos     UINT32                  FileId)
    491       1.1  christos {
    492   1.1.1.8  christos     ASL_FILE_INFO           *Info = &AslGbl_Files[FileId];
    493       1.1  christos 
    494       1.1  christos 
    495       1.1  christos     if (!Info->Filename)
    496       1.1  christos     {
    497       1.1  christos         return;
    498       1.1  christos     }
    499       1.1  christos 
    500       1.1  christos     if (remove (Info->Filename))
    501       1.1  christos     {
    502       1.1  christos         printf ("%s (%s file) ",
    503   1.1.1.9  christos             Info->Filename, AslGbl_FileDescs[FileId].Description);
    504       1.1  christos         perror ("Could not delete");
    505       1.1  christos     }
    506       1.1  christos 
    507       1.1  christos     Info->Filename = NULL;
    508       1.1  christos     return;
    509       1.1  christos }
    510