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 * 11e5e1f58aSJung-uk Kim * Some or all of this work - Copyright (c) 1999 - 2019, 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 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, 180*44b0f624SJung-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 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 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 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 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 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 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 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 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) ", 503*44b0f624SJung-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