1 /******************************************************************************
2  *
3  * Module Name: dtio.c - File I/O support for data table compiler
4  *
5  *****************************************************************************/
6 
7 /******************************************************************************
8  *
9  * 1. Copyright Notice
10  *
11  * Some or all of this work - Copyright (c) 1999 - 2021, Intel Corp.
12  * All rights reserved.
13  *
14  * 2. License
15  *
16  * 2.1. This is your license from Intel Corp. under its intellectual property
17  * rights. You may have additional license terms from the party that provided
18  * you this software, covering your right to use that party's intellectual
19  * property rights.
20  *
21  * 2.2. Intel grants, free of charge, to any person ("Licensee") obtaining a
22  * copy of the source code appearing in this file ("Covered Code") an
23  * irrevocable, perpetual, worldwide license under Intel's copyrights in the
24  * base code distributed originally by Intel ("Original Intel Code") to copy,
25  * make derivatives, distribute, use and display any portion of the Covered
26  * Code in any form, with the right to sublicense such rights; and
27  *
28  * 2.3. Intel grants Licensee a non-exclusive and non-transferable patent
29  * license (with the right to sublicense), under only those claims of Intel
30  * patents that are infringed by the Original Intel Code, to make, use, sell,
31  * offer to sell, and import the Covered Code and derivative works thereof
32  * solely to the minimum extent necessary to exercise the above copyright
33  * license, and in no event shall the patent license extend to any additions
34  * to or modifications of the Original Intel Code. No other license or right
35  * is granted directly or by implication, estoppel or otherwise;
36  *
37  * The above copyright and patent license is granted only if the following
38  * conditions are met:
39  *
40  * 3. Conditions
41  *
42  * 3.1. Redistribution of Source with Rights to Further Distribute Source.
43  * Redistribution of source code of any substantial portion of the Covered
44  * Code or modification with rights to further distribute source must include
45  * the above Copyright Notice, the above License, this list of Conditions,
46  * and the following Disclaimer and Export Compliance provision. In addition,
47  * Licensee must cause all Covered Code to which Licensee contributes to
48  * contain a file documenting the changes Licensee made to create that Covered
49  * Code and the date of any change. Licensee must include in that file the
50  * documentation of any changes made by any predecessor Licensee. Licensee
51  * must include a prominent statement that the modification is derived,
52  * directly or indirectly, from Original Intel Code.
53  *
54  * 3.2. Redistribution of Source with no Rights to Further Distribute Source.
55  * Redistribution of source code of any substantial portion of the Covered
56  * Code or modification without rights to further distribute source must
57  * include the following Disclaimer and Export Compliance provision in the
58  * documentation and/or other materials provided with distribution. In
59  * addition, Licensee may not authorize further sublicense of source of any
60  * portion of the Covered Code, and must include terms to the effect that the
61  * license from Licensee to its licensee is limited to the intellectual
62  * property embodied in the software Licensee provides to its licensee, and
63  * not to intellectual property embodied in modifications its licensee may
64  * make.
65  *
66  * 3.3. Redistribution of Executable. Redistribution in executable form of any
67  * substantial portion of the Covered Code or modification must reproduce the
68  * above Copyright Notice, and the following Disclaimer and Export Compliance
69  * provision in the documentation and/or other materials provided with the
70  * distribution.
71  *
72  * 3.4. Intel retains all right, title, and interest in and to the Original
73  * Intel Code.
74  *
75  * 3.5. Neither the name Intel nor any other trademark owned or controlled by
76  * Intel shall be used in advertising or otherwise to promote the sale, use or
77  * other dealings in products derived from or relating to the Covered Code
78  * without prior written authorization from Intel.
79  *
80  * 4. Disclaimer and Export Compliance
81  *
82  * 4.1. INTEL MAKES NO WARRANTY OF ANY KIND REGARDING ANY SOFTWARE PROVIDED
83  * HERE. ANY SOFTWARE ORIGINATING FROM INTEL OR DERIVED FROM INTEL SOFTWARE
84  * IS PROVIDED "AS IS," AND INTEL WILL NOT PROVIDE ANY SUPPORT, ASSISTANCE,
85  * INSTALLATION, TRAINING OR OTHER SERVICES. INTEL WILL NOT PROVIDE ANY
86  * UPDATES, ENHANCEMENTS OR EXTENSIONS. INTEL SPECIFICALLY DISCLAIMS ANY
87  * IMPLIED WARRANTIES OF MERCHANTABILITY, NONINFRINGEMENT AND FITNESS FOR A
88  * PARTICULAR PURPOSE.
89  *
90  * 4.2. IN NO EVENT SHALL INTEL HAVE ANY LIABILITY TO LICENSEE, ITS LICENSEES
91  * OR ANY OTHER THIRD PARTY, FOR ANY LOST PROFITS, LOST DATA, LOSS OF USE OR
92  * COSTS OF PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES, OR FOR ANY INDIRECT,
93  * SPECIAL OR CONSEQUENTIAL DAMAGES ARISING OUT OF THIS AGREEMENT, UNDER ANY
94  * CAUSE OF ACTION OR THEORY OF LIABILITY, AND IRRESPECTIVE OF WHETHER INTEL
95  * HAS ADVANCE NOTICE OF THE POSSIBILITY OF SUCH DAMAGES. THESE LIMITATIONS
96  * SHALL APPLY NOTWITHSTANDING THE FAILURE OF THE ESSENTIAL PURPOSE OF ANY
97  * LIMITED REMEDY.
98  *
99  * 4.3. Licensee shall not export, either directly or indirectly, any of this
100  * software or system incorporating such software without first obtaining any
101  * required license or other approval from the U. S. Department of Commerce or
102  * any other agency or department of the United States Government. In the
103  * event Licensee exports any such software from the United States or
104  * re-exports any such software from a foreign destination, Licensee shall
105  * ensure that the distribution and export/re-export of the software is in
106  * compliance with all laws, regulations, orders, or other restrictions of the
107  * U.S. Export Administration Regulations. Licensee agrees that neither it nor
108  * any of its subsidiaries will export/re-export any technical data, process,
109  * software, or service, directly or indirectly, to any country for which the
110  * United States government or any agency thereof requires an export license,
111  * other governmental approval, or letter of assurance, without first obtaining
112  * such license, approval or letter.
113  *
114  *****************************************************************************
115  *
116  * Alternatively, you may choose to be licensed under the terms of the
117  * following license:
118  *
119  * Redistribution and use in source and binary forms, with or without
120  * modification, are permitted provided that the following conditions
121  * are met:
122  * 1. Redistributions of source code must retain the above copyright
123  *    notice, this list of conditions, and the following disclaimer,
124  *    without modification.
125  * 2. Redistributions in binary form must reproduce at minimum a disclaimer
126  *    substantially similar to the "NO WARRANTY" disclaimer below
127  *    ("Disclaimer") and any redistribution must be conditioned upon
128  *    including a substantially similar Disclaimer requirement for further
129  *    binary redistribution.
130  * 3. Neither the names of the above-listed copyright holders nor the names
131  *    of any contributors may be used to endorse or promote products derived
132  *    from this software without specific prior written permission.
133  *
134  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
135  * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
136  * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
137  * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
138  * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
139  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
140  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
141  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
142  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
143  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
144  * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
145  *
146  * Alternatively, you may choose to be licensed under the terms of the
147  * GNU General Public License ("GPL") version 2 as published by the Free
148  * Software Foundation.
149  *
150  *****************************************************************************/
151 
152 #include "aslcompiler.h"
153 #include "acapps.h"
154 
155 #define _COMPONENT          DT_COMPILER
156         ACPI_MODULE_NAME    ("dtio")
157 
158 
159 /* Local prototypes */
160 
161 static char *
162 DtTrim (
163     char                    *String);
164 
165 static ACPI_STATUS
166 DtParseLine (
167     char                    *LineBuffer,
168     UINT32                  Line,
169     UINT32                  Offset);
170 
171 static void
172 DtWriteBinary (
173     DT_SUBTABLE             *Subtable,
174     void                    *Context,
175     void                    *ReturnValue);
176 
177 static void
178 DtDumpBuffer (
179     UINT32                  FileId,
180     UINT8                   *Buffer,
181     UINT32                  Offset,
182     UINT32                  Length);
183 
184 static void
185 DtDumpSubtableInfo (
186     DT_SUBTABLE             *Subtable,
187     void                    *Context,
188     void                    *ReturnValue);
189 
190 static void
191 DtDumpSubtableTree (
192     DT_SUBTABLE             *Subtable,
193     void                    *Context,
194     void                    *ReturnValue);
195 
196 
197 /* States for DtGetNextLine */
198 
199 #define DT_NORMAL_TEXT              0
200 #define DT_START_QUOTED_STRING      1
201 #define DT_START_COMMENT            2
202 #define DT_SLASH_ASTERISK_COMMENT   3
203 #define DT_SLASH_SLASH_COMMENT      4
204 #define DT_END_COMMENT              5
205 #define DT_MERGE_LINES              6
206 #define DT_ESCAPE_SEQUENCE          7
207 
208 static UINT32               AslGbl_NextLineOffset;
209 
210 
211 /******************************************************************************
212  *
213  * FUNCTION:    DtTrim
214  *
215  * PARAMETERS:  String              - Current source code line to trim
216  *
217  * RETURN:      Trimmed line. Must be freed by caller.
218  *
219  * DESCRIPTION: Trim left and right spaces
220  *
221  *****************************************************************************/
222 
223 static char *
224 DtTrim (
225     char                    *String)
226 {
227     char                    *Start;
228     char                    *End;
229     char                    *ReturnString;
230     ACPI_SIZE               Length;
231 
232 
233     /* Skip lines that start with a space */
234 
235     if (*String == 0 || !strcmp (String, " "))
236     {
237         ReturnString = UtLocalCacheCalloc (1);
238         return (ReturnString);
239     }
240 
241     /* Setup pointers to start and end of input string */
242 
243     Start = String;
244     End = String + strlen (String) - 1;
245 
246     /* Find first non-whitespace character */
247 
248     while ((Start <= End) && ((*Start == ' ') || (*Start == '\t')))
249     {
250         Start++;
251     }
252 
253     /* Find last non-space character */
254 
255     while (End >= Start)
256     {
257         if (*End == '\n')
258         {
259             End--;
260             continue;
261         }
262 
263         if (*End != ' ')
264         {
265             break;
266         }
267 
268         End--;
269     }
270 
271     /* Remove any quotes around the string */
272 
273     if (*Start == '\"')
274     {
275         Start++;
276     }
277     if (*End == '\"')
278     {
279         End--;
280     }
281 
282     /* Create the trimmed return string */
283 
284     Length = ACPI_PTR_DIFF (End, Start) + 1;
285     ReturnString = UtLocalCacheCalloc (Length + 1);
286     if (strlen (Start))
287     {
288         strncpy (ReturnString, Start, Length);
289     }
290 
291     ReturnString[Length] = 0;
292     return (ReturnString);
293 }
294 
295 
296 /******************************************************************************
297  *
298  * FUNCTION:    DtParseLine
299  *
300  * PARAMETERS:  LineBuffer          - Current source code line
301  *              Line                - Current line number in the source
302  *              Offset              - Current byte offset of the line
303  *
304  * RETURN:      Status
305  *
306  * DESCRIPTION: Parse one source line
307  *
308  *****************************************************************************/
309 
310 static ACPI_STATUS
311 DtParseLine (
312     char                    *LineBuffer,
313     UINT32                  Line,
314     UINT32                  Offset)
315 {
316     char                    *Start;
317     char                    *End;
318     char                    *TmpName;
319     char                    *TmpValue;
320     char                    *Name;
321     char                    *Value;
322     char                    *Colon;
323     UINT32                  Length;
324     DT_FIELD                *Field;
325     UINT32                  Column;
326     UINT32                  NameColumn;
327     BOOLEAN                 IsNullString = FALSE;
328 
329 
330     if (!LineBuffer)
331     {
332         return (AE_OK);
333     }
334 
335     /* All lines after "Raw Table Data" are ignored */
336 
337     if (strstr (LineBuffer, ACPI_RAW_TABLE_DATA_HEADER))
338     {
339         return (AE_NOT_FOUND);
340     }
341 
342     Colon = strchr (LineBuffer, ':');
343     if (!Colon)
344     {
345         return (AE_OK);
346     }
347 
348     Start = LineBuffer;
349     End = Colon;
350 
351     while (Start < Colon)
352     {
353         if (*Start == '[')
354         {
355             /* Found left bracket, go to the right bracket */
356 
357             while (Start < Colon && *Start != ']')
358             {
359                 Start++;
360             }
361         }
362         else if (*Start != ' ')
363         {
364             break;
365         }
366 
367         Start++;
368     }
369 
370     /*
371      * There are two column values. One for the field name,
372      * and one for the field value.
373      */
374     Column = ACPI_PTR_DIFF (Colon, LineBuffer) + 3;
375     NameColumn = ACPI_PTR_DIFF (Start, LineBuffer) + 1;
376 
377     Length = ACPI_PTR_DIFF (End, Start);
378 
379     TmpName = UtLocalCalloc (Length + 1);
380     strncpy (TmpName, Start, Length);
381     Name = DtTrim (TmpName);
382     ACPI_FREE (TmpName);
383 
384     Start = End = (Colon + 1);
385     while (*End)
386     {
387         /* Found left quotation, go to the right quotation and break */
388 
389         if (*End == '"')
390         {
391             End++;
392 
393             /* Check for an explicit null string */
394 
395             if (*End == '"')
396             {
397                 IsNullString = TRUE;
398             }
399             while (*End && (*End != '"'))
400             {
401                 End++;
402             }
403 
404             End++;
405             break;
406         }
407 
408         /*
409          * Special "comment" fields at line end, ignore them.
410          * Note: normal slash-slash and slash-asterisk comments are
411          * stripped already by the DtGetNextLine parser.
412          *
413          * TBD: Perhaps DtGetNextLine should parse the following type
414          * of comments also.
415          */
416         if (*End == '[')
417         {
418             End--;
419             break;
420         }
421 
422         End++;
423     }
424 
425     Length = ACPI_PTR_DIFF (End, Start);
426     TmpValue = UtLocalCalloc (Length + 1);
427 
428     strncpy (TmpValue, Start, Length);
429     Value = DtTrim (TmpValue);
430     ACPI_FREE (TmpValue);
431 
432     /* Create a new field object only if we have a valid value field */
433 
434     if ((Value && *Value) || IsNullString)
435     {
436         Field = UtFieldCacheCalloc ();
437         Field->Name = Name;
438         Field->Value = Value;
439         Field->Line = Line;
440         Field->ByteOffset = Offset;
441         Field->NameColumn = NameColumn;
442         Field->Column = Column;
443         Field->StringLength = Length;
444 
445         DtLinkField (Field);
446     }
447     /* Else -- Ignore this field, it has no valid data */
448 
449     return (AE_OK);
450 }
451 
452 
453 /******************************************************************************
454  *
455  * FUNCTION:    DtGetNextLine
456  *
457  * PARAMETERS:  Handle              - Open file handle for the source file
458  *
459  * RETURN:      Filled line buffer and offset of start-of-line (ASL_EOF on EOF)
460  *
461  * DESCRIPTION: Get the next valid source line. Removes all comments.
462  *              Ignores empty lines.
463  *
464  * Handles both slash-asterisk and slash-slash comments.
465  * Also, quoted strings, but no escapes within.
466  *
467  * Line is returned in AslGbl_CurrentLineBuffer.
468  * Line number in original file is returned in AslGbl_CurrentLineNumber.
469  *
470  *****************************************************************************/
471 
472 UINT32
473 DtGetNextLine (
474     FILE                    *Handle,
475     UINT32                  Flags)
476 {
477     BOOLEAN                 LineNotAllBlanks = FALSE;
478     UINT32                  State = DT_NORMAL_TEXT;
479     UINT32                  CurrentLineOffset;
480     UINT32                  i;
481     int                     c;
482     int                     c1;
483 
484 
485     memset (AslGbl_CurrentLineBuffer, 0, AslGbl_LineBufferSize);
486     for (i = 0; ;)
487     {
488         /*
489          * If line is too long, expand the line buffers. Also increases
490          * AslGbl_LineBufferSize.
491          */
492         if (i >= AslGbl_LineBufferSize)
493         {
494             UtExpandLineBuffers ();
495         }
496 
497         c = getc (Handle);
498         if (c == EOF)
499         {
500             switch (State)
501             {
502             case DT_START_QUOTED_STRING:
503             case DT_SLASH_ASTERISK_COMMENT:
504 
505                 AcpiOsPrintf ("**** EOF within comment/string %u\n", State);
506                 break;
507 
508             default:
509 
510                 break;
511             }
512 
513             /* Standalone EOF is OK */
514 
515             if (i == 0)
516             {
517                 return (ASL_EOF);
518             }
519 
520             /*
521              * Received an EOF in the middle of a line. Terminate the
522              * line with a newline. The next call to this function will
523              * return a standalone EOF. Thus, the upper parsing software
524              * never has to deal with an EOF within a valid line (or
525              * the last line does not get tossed on the floor.)
526              */
527             c = '\n';
528             State = DT_NORMAL_TEXT;
529         }
530         else if (c == '\r')
531         {
532             c1 = getc (Handle);
533             if (c1 == '\n')
534             {
535                 /*
536                  * Skip the carriage return as if it didn't exist. This is
537                  * onlt meant for input files in DOS format in unix. fopen in
538                  * unix may not support "text mode" and leaves CRLF intact.
539                  */
540                 c = '\n';
541             }
542             else
543             {
544                 /* This was not a CRLF. Only a CR */
545 
546                 ungetc(c1, Handle);
547 
548                 DtFatal (ASL_MSG_COMPILER_INTERNAL, NULL,
549                     "Carriage return without linefeed detected");
550                 return (ASL_EOF);
551             }
552         }
553 
554         switch (State)
555         {
556         case DT_NORMAL_TEXT:
557 
558             /* Normal text, insert char into line buffer */
559 
560             AslGbl_CurrentLineBuffer[i] = (char) c;
561             switch (c)
562             {
563             case '/':
564 
565                 State = DT_START_COMMENT;
566                 break;
567 
568             case '"':
569 
570                 State = DT_START_QUOTED_STRING;
571                 LineNotAllBlanks = TRUE;
572                 i++;
573                 break;
574 
575             case '\\':
576                 /*
577                  * The continuation char MUST be last char on this line.
578                  * Otherwise, it will be assumed to be a valid ASL char.
579                  */
580                 State = DT_MERGE_LINES;
581                 break;
582 
583             case '\n':
584 
585                 CurrentLineOffset = AslGbl_NextLineOffset;
586                 AslGbl_NextLineOffset = (UINT32) ftell (Handle);
587                 AslGbl_CurrentLineNumber++;
588 
589                 /*
590                  * Exit if line is complete. Ignore empty lines (only \n)
591                  * or lines that contain nothing but blanks.
592                  */
593                 if ((i != 0) && LineNotAllBlanks)
594                 {
595                     if ((i + 1) >= AslGbl_LineBufferSize)
596                     {
597                         UtExpandLineBuffers ();
598                     }
599 
600                     AslGbl_CurrentLineBuffer[i+1] = 0; /* Terminate string */
601                     return (CurrentLineOffset);
602                 }
603 
604                 /* Toss this line and start a new one */
605 
606                 i = 0;
607                 LineNotAllBlanks = FALSE;
608                 break;
609 
610             default:
611 
612                 if (c != ' ')
613                 {
614                     LineNotAllBlanks = TRUE;
615                 }
616 
617                 i++;
618                 break;
619             }
620             break;
621 
622         case DT_START_QUOTED_STRING:
623 
624             /* Insert raw chars until end of quoted string */
625 
626             AslGbl_CurrentLineBuffer[i] = (char) c;
627             i++;
628 
629             switch (c)
630             {
631             case '"':
632 
633                 State = DT_NORMAL_TEXT;
634                 break;
635 
636             case '\\':
637 
638                 State = DT_ESCAPE_SEQUENCE;
639                 break;
640 
641             case '\n':
642 
643                 if (!(Flags & DT_ALLOW_MULTILINE_QUOTES))
644                 {
645                     AcpiOsPrintf (
646                         "ERROR at line %u: Unterminated quoted string\n",
647                         AslGbl_CurrentLineNumber++);
648                     State = DT_NORMAL_TEXT;
649                 }
650                 break;
651 
652             default:    /* Get next character */
653 
654                 break;
655             }
656             break;
657 
658         case DT_ESCAPE_SEQUENCE:
659 
660             /* Just copy the escaped character. TBD: sufficient for table compiler? */
661 
662             AslGbl_CurrentLineBuffer[i] = (char) c;
663             i++;
664             State = DT_START_QUOTED_STRING;
665             break;
666 
667         case DT_START_COMMENT:
668 
669             /* Open comment if this character is an asterisk or slash */
670 
671             switch (c)
672             {
673             case '*':
674 
675                 State = DT_SLASH_ASTERISK_COMMENT;
676                 break;
677 
678             case '/':
679 
680                 State = DT_SLASH_SLASH_COMMENT;
681                 break;
682 
683             default:    /* Not a comment */
684 
685                 i++;    /* Save the preceding slash */
686                 if (i >= AslGbl_LineBufferSize)
687                 {
688                     UtExpandLineBuffers ();
689                 }
690 
691                 AslGbl_CurrentLineBuffer[i] = (char) c;
692                 i++;
693                 State = DT_NORMAL_TEXT;
694                 break;
695             }
696             break;
697 
698         case DT_SLASH_ASTERISK_COMMENT:
699 
700             /* Ignore chars until an asterisk-slash is found */
701 
702             switch (c)
703             {
704             case '\n':
705 
706                 AslGbl_NextLineOffset = (UINT32) ftell (Handle);
707                 AslGbl_CurrentLineNumber++;
708                 break;
709 
710             case '*':
711 
712                 State = DT_END_COMMENT;
713                 break;
714 
715             default:
716 
717                 break;
718             }
719             break;
720 
721         case DT_SLASH_SLASH_COMMENT:
722 
723             /* Ignore chars until end-of-line */
724 
725             if (c == '\n')
726             {
727                 /* We will exit via the NORMAL_TEXT path */
728 
729                 ungetc (c, Handle);
730                 State = DT_NORMAL_TEXT;
731             }
732             break;
733 
734         case DT_END_COMMENT:
735 
736             /* End comment if this char is a slash */
737 
738             switch (c)
739             {
740             case '/':
741 
742                 State = DT_NORMAL_TEXT;
743                 break;
744 
745             case '\n':
746 
747                 AslGbl_NextLineOffset = (UINT32) ftell (Handle);
748                 AslGbl_CurrentLineNumber++;
749                 break;
750 
751             case '*':
752 
753                 /* Consume all adjacent asterisks */
754                 break;
755 
756             default:
757 
758                 State = DT_SLASH_ASTERISK_COMMENT;
759                 break;
760             }
761             break;
762 
763         case DT_MERGE_LINES:
764 
765             if (c != '\n')
766             {
767                 /*
768                  * This is not a continuation backslash, it is a normal
769                  * normal ASL backslash - for example: Scope(\_SB_)
770                  */
771                 i++; /* Keep the backslash that is already in the buffer */
772 
773                 ungetc (c, Handle);
774                 State = DT_NORMAL_TEXT;
775             }
776             else
777             {
778                 /*
779                  * This is a continuation line -- a backlash followed
780                  * immediately by a newline. Insert a space between the
781                  * lines (overwrite the backslash)
782                  */
783                 AslGbl_CurrentLineBuffer[i] = ' ';
784                 i++;
785 
786                 /* Ignore newline, this will merge the lines */
787 
788                 AslGbl_NextLineOffset = (UINT32) ftell (Handle);
789                 AslGbl_CurrentLineNumber++;
790                 State = DT_NORMAL_TEXT;
791             }
792             break;
793 
794         default:
795 
796             DtFatal (ASL_MSG_COMPILER_INTERNAL, NULL, "Unknown input state");
797             return (ASL_EOF);
798         }
799     }
800 }
801 
802 
803 /******************************************************************************
804  *
805  * FUNCTION:    DtScanFile
806  *
807  * PARAMETERS:  Handle              - Open file handle for the source file
808  *
809  * RETURN:      Pointer to start of the constructed parse tree.
810  *
811  * DESCRIPTION: Scan source file, link all field names and values
812  *              to the global parse tree: AslGbl_FieldList
813  *
814  *****************************************************************************/
815 
816 DT_FIELD *
817 DtScanFile (
818     FILE                    *Handle)
819 {
820     ACPI_STATUS             Status;
821     UINT32                  Offset;
822 
823 
824     ACPI_FUNCTION_NAME (DtScanFile);
825 
826 
827     /* Get the file size */
828 
829     AslGbl_InputByteCount = CmGetFileSize (Handle);
830     if (AslGbl_InputByteCount == ACPI_UINT32_MAX)
831     {
832         AslAbort ();
833     }
834 
835     AslGbl_CurrentLineNumber = 0;
836     AslGbl_CurrentLineOffset = 0;
837     AslGbl_NextLineOffset = 0;
838 
839     /* Scan line-by-line */
840 
841     while ((Offset = DtGetNextLine (Handle, 0)) != ASL_EOF)
842     {
843         ACPI_DEBUG_PRINT ((ACPI_DB_PARSE, "Line %2.2u/%4.4X - %s",
844             AslGbl_CurrentLineNumber, Offset, AslGbl_CurrentLineBuffer));
845 
846         Status = DtParseLine (AslGbl_CurrentLineBuffer,
847             AslGbl_CurrentLineNumber, Offset);
848         if (Status == AE_NOT_FOUND)
849         {
850             break;
851         }
852     }
853 
854     /* Dump the parse tree if debug enabled */
855 
856     DtDumpFieldList (AslGbl_FieldList);
857     return (AslGbl_FieldList);
858 }
859 
860 
861 /*
862  * Output functions
863  */
864 
865 /******************************************************************************
866  *
867  * FUNCTION:    DtWriteBinary
868  *
869  * PARAMETERS:  DT_WALK_CALLBACK
870  *
871  * RETURN:      Status
872  *
873  * DESCRIPTION: Write one subtable of a binary ACPI table
874  *
875  *****************************************************************************/
876 
877 static void
878 DtWriteBinary (
879     DT_SUBTABLE             *Subtable,
880     void                    *Context,
881     void                    *ReturnValue)
882 {
883 
884     FlWriteFile (ASL_FILE_AML_OUTPUT, Subtable->Buffer, Subtable->Length);
885 }
886 
887 
888 /******************************************************************************
889  *
890  * FUNCTION:    DtOutputBinary
891  *
892  * PARAMETERS:
893  *
894  * RETURN:      Status
895  *
896  * DESCRIPTION: Write entire binary ACPI table (result of compilation)
897  *
898  *****************************************************************************/
899 
900 void
901 DtOutputBinary (
902     DT_SUBTABLE             *RootTable)
903 {
904 
905     if (!RootTable)
906     {
907         return;
908     }
909 
910     /* Walk the entire parse tree, emitting the binary data */
911 
912     DtWalkTableTree (RootTable, DtWriteBinary, NULL, NULL);
913 
914     AslGbl_TableLength = CmGetFileSize (AslGbl_Files[ASL_FILE_AML_OUTPUT].Handle);
915     if (AslGbl_TableLength == ACPI_UINT32_MAX)
916     {
917         AslAbort ();
918     }
919 }
920 
921 
922 /*
923  * Listing support
924  */
925 
926 /******************************************************************************
927  *
928  * FUNCTION:    DtDumpBuffer
929  *
930  * PARAMETERS:  FileID              - Where to write buffer data
931  *              Buffer              - Buffer to dump
932  *              Offset              - Offset in current table
933  *              Length              - Buffer Length
934  *
935  * RETURN:      None
936  *
937  * DESCRIPTION: Another copy of DumpBuffer routine (unfortunately).
938  *
939  * TBD: merge dump buffer routines
940  *
941  *****************************************************************************/
942 
943 static void
944 DtDumpBuffer (
945     UINT32                  FileId,
946     UINT8                   *Buffer,
947     UINT32                  Offset,
948     UINT32                  Length)
949 {
950     UINT32                  i;
951     UINT32                  j;
952     UINT8                   BufChar;
953 
954 
955     FlPrintFile (FileId, "Output: [%3.3Xh %4.4d %3d] ",
956         Offset, Offset, Length);
957 
958     i = 0;
959     while (i < Length)
960     {
961         if (i >= 16)
962         {
963             FlPrintFile (FileId, "%24s", "");
964         }
965 
966         /* Print 16 hex chars */
967 
968         for (j = 0; j < 16;)
969         {
970             if (i + j >= Length)
971             {
972                 /* Dump fill spaces */
973 
974                 FlPrintFile (FileId, "   ");
975                 j++;
976                 continue;
977             }
978 
979             FlPrintFile (FileId, "%02X ", Buffer[i+j]);
980             j++;
981         }
982 
983         FlPrintFile (FileId, " ");
984         for (j = 0; j < 16; j++)
985         {
986             if (i + j >= Length)
987             {
988                 FlPrintFile (FileId, "\n\n");
989                 return;
990             }
991 
992             BufChar = Buffer[(ACPI_SIZE) i + j];
993             if (isprint (BufChar))
994             {
995                 FlPrintFile (FileId, "%c", BufChar);
996             }
997             else
998             {
999                 FlPrintFile (FileId, ".");
1000             }
1001         }
1002 
1003         /* Done with that line. */
1004 
1005         FlPrintFile (FileId, "\n");
1006         i += 16;
1007     }
1008 
1009     FlPrintFile (FileId, "\n\n");
1010 }
1011 
1012 
1013 /******************************************************************************
1014  *
1015  * FUNCTION:    DtDumpFieldList
1016  *
1017  * PARAMETERS:  Field               - Root field
1018  *
1019  * RETURN:      None
1020  *
1021  * DESCRIPTION: Dump the entire field list
1022  *
1023  *****************************************************************************/
1024 
1025 void
1026 DtDumpFieldList (
1027     DT_FIELD                *Field)
1028 {
1029 
1030     if (!AslGbl_DebugFlag || !Field)
1031     {
1032         return;
1033     }
1034 
1035     DbgPrint (ASL_DEBUG_OUTPUT,  "\nField List:\n"
1036         "LineNo   ByteOff  NameCol  Column   TableOff "
1037         "Flags %32s : %s\n\n", "Name", "Value");
1038 
1039     while (Field)
1040     {
1041         DbgPrint (ASL_DEBUG_OUTPUT,
1042             "%.08X %.08X %.08X %.08X %.08X %2.2X    %32s : %s\n",
1043             Field->Line, Field->ByteOffset, Field->NameColumn,
1044             Field->Column, Field->TableOffset, Field->Flags,
1045             Field->Name, Field->Value);
1046 
1047         Field = Field->Next;
1048     }
1049 
1050     DbgPrint (ASL_DEBUG_OUTPUT,  "\n\n");
1051 }
1052 
1053 
1054 /******************************************************************************
1055  *
1056  * FUNCTION:    DtDumpSubtableInfo, DtDumpSubtableTree
1057  *
1058  * PARAMETERS:  DT_WALK_CALLBACK
1059  *
1060  * RETURN:      None
1061  *
1062  * DESCRIPTION: Info - dump a subtable tree entry with extra information.
1063  *              Tree - dump a subtable tree formatted by depth indentation.
1064  *
1065  *****************************************************************************/
1066 
1067 static void
1068 DtDumpSubtableInfo (
1069     DT_SUBTABLE             *Subtable,
1070     void                    *Context,
1071     void                    *ReturnValue)
1072 {
1073 
1074     DbgPrint (ASL_DEBUG_OUTPUT,
1075         "[%.04X] %24s %.08X %.08X %.08X %.08X %p %p %p %p\n",
1076         Subtable->Depth, Subtable->Name, Subtable->Length, Subtable->TotalLength,
1077         Subtable->SizeOfLengthField, Subtable->Flags, Subtable,
1078         Subtable->Parent, Subtable->Child, Subtable->Peer);
1079 }
1080 
1081 static void
1082 DtDumpSubtableTree (
1083     DT_SUBTABLE             *Subtable,
1084     void                    *Context,
1085     void                    *ReturnValue)
1086 {
1087 
1088     DbgPrint (ASL_DEBUG_OUTPUT,
1089         "[%.04X] %24s %*s%p (%.02X) - (%.02X)        %.02X\n",
1090         Subtable->Depth, Subtable->Name, (4 * Subtable->Depth), " ",
1091         Subtable, Subtable->Length, Subtable->TotalLength, *Subtable->Buffer);
1092 }
1093 
1094 
1095 /******************************************************************************
1096  *
1097  * FUNCTION:    DtDumpSubtableList
1098  *
1099  * PARAMETERS:  None
1100  *
1101  * RETURN:      None
1102  *
1103  * DESCRIPTION: Dump the raw list of subtables with information, and also
1104  *              dump the subtable list in formatted tree format. Assists with
1105  *              the development of new table code.
1106  *
1107  *****************************************************************************/
1108 
1109 void
1110 DtDumpSubtableList (
1111     void)
1112 {
1113 
1114     if (!AslGbl_DebugFlag || !AslGbl_RootTable)
1115     {
1116         return;
1117     }
1118 
1119     DbgPrint (ASL_DEBUG_OUTPUT,
1120         "Subtable Info:\n"
1121         "Depth                      Name Length   TotalLen LenSize  Flags    "
1122         "This     Parent   Child    Peer\n\n");
1123     DtWalkTableTree (AslGbl_RootTable, DtDumpSubtableInfo, NULL, NULL);
1124 
1125     DbgPrint (ASL_DEBUG_OUTPUT,
1126         "\nSubtable Tree: (Depth, Name, Subtable, Length, TotalLength, Integer Value)\n\n");
1127     DtWalkTableTree (AslGbl_RootTable, DtDumpSubtableTree, NULL, NULL);
1128 
1129     DbgPrint (ASL_DEBUG_OUTPUT, "\n");
1130 }
1131 
1132 
1133 /******************************************************************************
1134  *
1135  * FUNCTION:    DtWriteFieldToListing
1136  *
1137  * PARAMETERS:  Buffer              - Contains the compiled data
1138  *              Field               - Field node for the input line
1139  *              Length              - Length of the output data
1140  *
1141  * RETURN:      None
1142  *
1143  * DESCRIPTION: Write one field to the listing file (if listing is enabled).
1144  *
1145  *****************************************************************************/
1146 
1147 void
1148 DtWriteFieldToListing (
1149     UINT8                   *Buffer,
1150     DT_FIELD                *Field,
1151     UINT32                  Length)
1152 {
1153     UINT8                   FileByte;
1154 
1155 
1156     if (!AslGbl_ListingFlag || !Field)
1157     {
1158         return;
1159     }
1160 
1161     /* Dump the original source line */
1162 
1163     FlPrintFile (ASL_FILE_LISTING_OUTPUT, "Input:  ");
1164     FlSeekFile (ASL_FILE_INPUT, Field->ByteOffset);
1165 
1166     while (FlReadFile (ASL_FILE_INPUT, &FileByte, 1) == AE_OK)
1167     {
1168         FlWriteFile (ASL_FILE_LISTING_OUTPUT, &FileByte, 1);
1169         if (FileByte == '\n')
1170         {
1171             break;
1172         }
1173     }
1174 
1175     /* Dump the line as parsed and represented internally */
1176 
1177     FlPrintFile (ASL_FILE_LISTING_OUTPUT, "Parsed: %*s : %.64s",
1178         Field->Column-4, Field->Name, Field->Value);
1179 
1180     if (strlen (Field->Value) > 64)
1181     {
1182         FlPrintFile (ASL_FILE_LISTING_OUTPUT, "...Additional data, length 0x%X\n",
1183             (UINT32) strlen (Field->Value));
1184     }
1185 
1186     FlPrintFile (ASL_FILE_LISTING_OUTPUT, "\n");
1187 
1188     /* Dump the hex data that will be output for this field */
1189 
1190     DtDumpBuffer (ASL_FILE_LISTING_OUTPUT, Buffer, Field->TableOffset, Length);
1191 }
1192 
1193 
1194 /******************************************************************************
1195  *
1196  * FUNCTION:    DtWriteTableToListing
1197  *
1198  * PARAMETERS:  None
1199  *
1200  * RETURN:      None
1201  *
1202  * DESCRIPTION: Write the entire compiled table to the listing file
1203  *              in hex format
1204  *
1205  *****************************************************************************/
1206 
1207 void
1208 DtWriteTableToListing (
1209     void)
1210 {
1211     UINT8                   *Buffer;
1212 
1213 
1214     if (!AslGbl_ListingFlag)
1215     {
1216         return;
1217     }
1218 
1219     /* Read the entire table from the output file */
1220 
1221     Buffer = UtLocalCalloc (AslGbl_TableLength);
1222     FlSeekFile (ASL_FILE_AML_OUTPUT, 0);
1223     FlReadFile (ASL_FILE_AML_OUTPUT, Buffer, AslGbl_TableLength);
1224 
1225     /* Dump the raw table data */
1226 
1227     AcpiOsRedirectOutput (AslGbl_Files[ASL_FILE_LISTING_OUTPUT].Handle);
1228 
1229     AcpiOsPrintf ("\n%s: Length %d (0x%X)\n\n",
1230         ACPI_RAW_TABLE_DATA_HEADER, AslGbl_TableLength, AslGbl_TableLength);
1231     AcpiUtDumpBuffer (Buffer, AslGbl_TableLength, DB_BYTE_DISPLAY, 0);
1232 
1233     AcpiOsRedirectOutput (stdout);
1234     ACPI_FREE (Buffer);
1235 }
1236