1 /******************************************************************************
2 *
3 * Module Name: aslstartup - Compiler startup routines, called from main
4 *
5 *****************************************************************************/
6
7 /*
8 * Copyright (C) 2000 - 2013, Intel Corp.
9 * All rights reserved.
10 *
11 * Redistribution and use in source and binary forms, with or without
12 * modification, are permitted provided that the following conditions
13 * are met:
14 * 1. Redistributions of source code must retain the above copyright
15 * notice, this list of conditions, and the following disclaimer,
16 * without modification.
17 * 2. Redistributions in binary form must reproduce at minimum a disclaimer
18 * substantially similar to the "NO WARRANTY" disclaimer below
19 * ("Disclaimer") and any redistribution must be conditioned upon
20 * including a substantially similar Disclaimer requirement for further
21 * binary redistribution.
22 * 3. Neither the names of the above-listed copyright holders nor the names
23 * of any contributors may be used to endorse or promote products derived
24 * from this software without specific prior written permission.
25 *
26 * Alternatively, this software may be distributed under the terms of the
27 * GNU General Public License ("GPL") version 2 as published by the Free
28 * Software Foundation.
29 *
30 * NO WARRANTY
31 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
32 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
33 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
34 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
35 * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
36 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
37 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
38 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
39 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
40 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
41 * POSSIBILITY OF SUCH DAMAGES.
42 */
43
44
45 #include "aslcompiler.h"
46 #include "actables.h"
47 #include "acdisasm.h"
48 #include "acapps.h"
49
50 #define _COMPONENT ACPI_COMPILER
51 ACPI_MODULE_NAME ("aslstartup")
52
53
54 /* Local prototypes */
55
56 static UINT8
57 AslDetectSourceFileType (
58 ASL_FILE_INFO *Info);
59
60 static ACPI_STATUS
61 AslDoDisassembly (
62 void);
63
64
65 /* Globals */
66
67 static BOOLEAN AslToFile = TRUE;
68
69
70 /*******************************************************************************
71 *
72 * FUNCTION: AslInitializeGlobals
73 *
74 * PARAMETERS: None
75 *
76 * RETURN: None
77 *
78 * DESCRIPTION: Re-initialize globals needed to restart the compiler. This
79 * allows multiple files to be disassembled and/or compiled.
80 *
81 ******************************************************************************/
82
83 void
84 AslInitializeGlobals (
85 void)
86 {
87 UINT32 i;
88
89
90 /* Init compiler globals */
91
92 Gbl_CurrentColumn = 0;
93 Gbl_CurrentLineNumber = 1;
94 Gbl_LogicalLineNumber = 1;
95 Gbl_CurrentLineOffset = 0;
96 Gbl_InputFieldCount = 0;
97 Gbl_InputByteCount = 0;
98 Gbl_NsLookupCount = 0;
99 Gbl_LineBufPtr = Gbl_CurrentLineBuffer;
100
101 Gbl_ErrorLog = NULL;
102 Gbl_NextError = NULL;
103 Gbl_Signature = NULL;
104 Gbl_FileType = 0;
105
106 TotalExecutableOpcodes = 0;
107 TotalNamedObjects = 0;
108 TotalKeywords = 0;
109 TotalParseNodes = 0;
110 TotalMethods = 0;
111 TotalAllocations = 0;
112 TotalAllocated = 0;
113 TotalFolds = 0;
114
115 AslGbl_NextEvent = 0;
116 for (i = 0; i < ASL_NUM_REPORT_LEVELS; i++)
117 {
118 Gbl_ExceptionCount[i] = 0;
119 }
120
121 for (i = ASL_FILE_INPUT; i <= ASL_MAX_FILE_TYPE; i++)
122 {
123 Gbl_Files[i].Handle = NULL;
124 Gbl_Files[i].Filename = NULL;
125 }
126 }
127
128
129 /*******************************************************************************
130 *
131 * FUNCTION: AslDetectSourceFileType
132 *
133 * PARAMETERS: Info - Name/Handle for the file (must be open)
134 *
135 * RETURN: File Type
136 *
137 * DESCRIPTION: Determine the type of the input file. Either binary (contains
138 * non-ASCII characters), ASL file, or an ACPI Data Table file.
139 *
140 ******************************************************************************/
141
142 static UINT8
143 AslDetectSourceFileType (
144 ASL_FILE_INFO *Info)
145 {
146 char *FileChar;
147 UINT8 Type;
148 ACPI_STATUS Status;
149
150
151 /* Check for a valid binary ACPI table */
152
153 Status = FlCheckForAcpiTable (Info->Handle);
154 if (ACPI_SUCCESS (Status))
155 {
156 Type = ASL_INPUT_TYPE_ACPI_TABLE;
157 goto Cleanup;
158 }
159
160 /* Check for 100% ASCII source file (comments are ignored) */
161
162 Status = FlCheckForAscii (Info->Handle, Info->Filename, TRUE);
163 if (ACPI_FAILURE (Status))
164 {
165 printf ("Non-ascii input file - %s\n", Info->Filename);
166
167 if (!Gbl_IgnoreErrors)
168 {
169 Type = ASL_INPUT_TYPE_BINARY;
170 goto Cleanup;
171 }
172 }
173
174 /*
175 * File is ASCII. Determine if this is an ASL file or an ACPI data
176 * table file.
177 */
178 while (fgets (Gbl_CurrentLineBuffer, Gbl_LineBufferSize, Info->Handle))
179 {
180 /* Uppercase the buffer for caseless compare */
181
182 FileChar = Gbl_CurrentLineBuffer;
183 while (*FileChar)
184 {
185 *FileChar = (char) toupper ((int) *FileChar);
186 FileChar++;
187 }
188
189 /* Presence of "DefinitionBlock" indicates actual ASL code */
190
191 if (strstr (Gbl_CurrentLineBuffer, "DEFINITIONBLOCK"))
192 {
193 /* Appears to be an ASL file */
194
195 Type = ASL_INPUT_TYPE_ASCII_ASL;
196 goto Cleanup;
197 }
198 }
199
200 /* Not an ASL source file, default to a data table source file */
201
202 Type = ASL_INPUT_TYPE_ASCII_DATA;
203
204 Cleanup:
205
206 /* Must seek back to the start of the file */
207
208 fseek (Info->Handle, 0, SEEK_SET);
209 return (Type);
210 }
211
212
213 /*******************************************************************************
214 *
215 * FUNCTION: AslDoDisassembly
216 *
217 * PARAMETERS: None
218 *
219 * RETURN: Status
220 *
221 * DESCRIPTION: Initiate AML file disassembly. Uses ACPICA subsystem to build
222 * namespace.
223 *
224 ******************************************************************************/
225
226 static ACPI_STATUS
227 AslDoDisassembly (
228 void)
229 {
230 ACPI_STATUS Status;
231
232
233 /* ACPICA subsystem initialization */
234
235 Status = AdInitialize ();
236 if (ACPI_FAILURE (Status))
237 {
238 return (Status);
239 }
240
241 Status = AcpiAllocateRootTable (4);
242 if (ACPI_FAILURE (Status))
243 {
244 AcpiOsPrintf ("Could not initialize ACPI Table Manager, %s\n",
245 AcpiFormatException (Status));
246 return (Status);
247 }
248
249 /* This is where the disassembly happens */
250
251 AcpiGbl_DbOpt_disasm = TRUE;
252 Status = AdAmlDisassemble (AslToFile,
253 Gbl_Files[ASL_FILE_INPUT].Filename, Gbl_OutputFilenamePrefix,
254 &Gbl_Files[ASL_FILE_INPUT].Filename, Gbl_GetAllTables);
255 if (ACPI_FAILURE (Status))
256 {
257 return (Status);
258 }
259
260 /* Check if any control methods were unresolved */
261
262 AcpiDmUnresolvedWarning (0);
263
264 #if 0
265 /* TBD: Handle additional output files for disassembler */
266
267 Status = FlOpenMiscOutputFiles (Gbl_OutputFilenamePrefix);
268 NsDisplayNamespace ();
269 #endif
270
271 /* Shutdown compiler and ACPICA subsystem */
272
273 AeClearErrorLog ();
274 (void) AcpiTerminate ();
275
276 /*
277 * Gbl_Files[ASL_FILE_INPUT].Filename was replaced with the
278 * .DSL disassembly file, which can now be compiled if requested
279 */
280 if (Gbl_DoCompile)
281 {
282 AcpiOsPrintf ("\nCompiling \"%s\"\n",
283 Gbl_Files[ASL_FILE_INPUT].Filename);
284 return (AE_CTRL_CONTINUE);
285 }
286
287 ACPI_FREE (Gbl_Files[ASL_FILE_INPUT].Filename);
288 Gbl_Files[ASL_FILE_INPUT].Filename = NULL;
289 return (AE_OK);
290 }
291
292
293 /*******************************************************************************
294 *
295 * FUNCTION: AslDoOneFile
296 *
297 * PARAMETERS: Filename - Name of the file
298 *
299 * RETURN: Status
300 *
301 * DESCRIPTION: Process a single file - either disassemble, compile, or both
302 *
303 ******************************************************************************/
304
305 ACPI_STATUS
306 AslDoOneFile (
307 char *Filename)
308 {
309 ACPI_STATUS Status;
310
311
312 /* Re-initialize "some" compiler/preprocessor globals */
313
314 AslInitializeGlobals ();
315 PrInitializeGlobals ();
316
317 /*
318 * Extract the directory path. This path is used for possible include
319 * files and the optional AML filename embedded in the input file
320 * DefinitionBlock declaration.
321 */
322 Status = FlSplitInputPathname (Filename, &Gbl_DirectoryPath, NULL);
323 if (ACPI_FAILURE (Status))
324 {
325 return (Status);
326 }
327
328 Gbl_Files[ASL_FILE_INPUT].Filename = Filename;
329 UtConvertBackslashes (Filename);
330
331 /*
332 * AML Disassembly (Optional)
333 */
334 if (Gbl_DisasmFlag || Gbl_GetAllTables)
335 {
336 Status = AslDoDisassembly ();
337 if (Status != AE_CTRL_CONTINUE)
338 {
339 return (Status);
340 }
341 }
342
343 /*
344 * Open the input file. Here, this should be an ASCII source file,
345 * either an ASL file or a Data Table file
346 */
347 Status = FlOpenInputFile (Gbl_Files[ASL_FILE_INPUT].Filename);
348 if (ACPI_FAILURE (Status))
349 {
350 AePrintErrorLog (ASL_FILE_STDERR);
351 return (AE_ERROR);
352 }
353
354 /* Determine input file type */
355
356 Gbl_FileType = AslDetectSourceFileType (&Gbl_Files[ASL_FILE_INPUT]);
357 if (Gbl_FileType == ASL_INPUT_TYPE_BINARY)
358 {
359 return (AE_ERROR);
360 }
361
362 /*
363 * If -p not specified, we will use the input filename as the
364 * output filename prefix
365 */
366 if (Gbl_UseDefaultAmlFilename)
367 {
368 Gbl_OutputFilenamePrefix = Gbl_Files[ASL_FILE_INPUT].Filename;
369 }
370
371 /* Open the optional output files (listings, etc.) */
372
373 Status = FlOpenMiscOutputFiles (Gbl_OutputFilenamePrefix);
374 if (ACPI_FAILURE (Status))
375 {
376 AePrintErrorLog (ASL_FILE_STDERR);
377 return (AE_ERROR);
378 }
379
380 /*
381 * Compilation of ASL source versus DataTable source uses different
382 * compiler subsystems
383 */
384 switch (Gbl_FileType)
385 {
386 /*
387 * Data Table Compilation
388 */
389 case ASL_INPUT_TYPE_ASCII_DATA:
390
391 Status = DtDoCompile ();
392 if (ACPI_FAILURE (Status))
393 {
394 return (Status);
395 }
396
397 if (Gbl_Signature)
398 {
399 ACPI_FREE (Gbl_Signature);
400 Gbl_Signature = NULL;
401 }
402
403 /* Check if any errors occurred during compile */
404
405 Status = AslCheckForErrorExit ();
406 if (ACPI_FAILURE (Status))
407 {
408 return (Status);
409 }
410
411 /* Cleanup (for next source file) and exit */
412
413 AeClearErrorLog ();
414 PrTerminatePreprocessor ();
415 return (Status);
416
417 /*
418 * ASL Compilation
419 */
420 case ASL_INPUT_TYPE_ASCII_ASL:
421
422 /* ACPICA subsystem initialization */
423
424 Status = AdInitialize ();
425 if (ACPI_FAILURE (Status))
426 {
427 return (Status);
428 }
429
430 (void) CmDoCompile ();
431 (void) AcpiTerminate ();
432
433 /* Check if any errors occurred during compile */
434
435 Status = AslCheckForErrorExit ();
436 if (ACPI_FAILURE (Status))
437 {
438 return (Status);
439 }
440
441 /* Cleanup (for next source file) and exit */
442
443 AeClearErrorLog ();
444 PrTerminatePreprocessor ();
445 return (AE_OK);
446
447 /*
448 * Binary ACPI table was auto-detected, disassemble it
449 */
450 case ASL_INPUT_TYPE_ACPI_TABLE:
451
452 /* We have what appears to be an ACPI table, disassemble it */
453
454 FlCloseFile (ASL_FILE_INPUT);
455 Gbl_DoCompile = FALSE;
456 Gbl_DisasmFlag = TRUE;
457 Status = AslDoDisassembly ();
458 return (Status);
459
460 /* Unknown binary table */
461
462 case ASL_INPUT_TYPE_BINARY:
463
464 AePrintErrorLog (ASL_FILE_STDERR);
465 return (AE_ERROR);
466
467 default:
468
469 printf ("Unknown file type %X\n", Gbl_FileType);
470 return (AE_ERROR);
471 }
472 }
473
474
475 /*******************************************************************************
476 *
477 * FUNCTION: AslCheckForErrorExit
478 *
479 * PARAMETERS: None. Examines global exception count array
480 *
481 * RETURN: Status
482 *
483 * DESCRIPTION: Determine if compiler should abort with error status
484 *
485 ******************************************************************************/
486
487 ACPI_STATUS
488 AslCheckForErrorExit (
489 void)
490 {
491
492 /*
493 * Return non-zero exit code if there have been errors, unless the
494 * global ignore error flag has been set
495 */
496 if (!Gbl_IgnoreErrors)
497 {
498 if (Gbl_ExceptionCount[ASL_ERROR] > 0)
499 {
500 return (AE_ERROR);
501 }
502
503 /* Optionally treat warnings as errors */
504
505 if (Gbl_WarningsAsErrors)
506 {
507 if ((Gbl_ExceptionCount[ASL_WARNING] > 0) ||
508 (Gbl_ExceptionCount[ASL_WARNING2] > 0) ||
509 (Gbl_ExceptionCount[ASL_WARNING3] > 0))
510 {
511 return (AE_ERROR);
512 }
513 }
514 }
515
516 return (AE_OK);
517 }