| 1 | 706 | jeremybenn | ------------------------------------------------------------------------------
 | 
      
         | 2 |  |  | --                                                                          --
 | 
      
         | 3 |  |  | --                         GNAT COMPILER COMPONENTS                         --
 | 
      
         | 4 |  |  | --                                                                          --
 | 
      
         | 5 |  |  | --                             P R E P C O M P                              --
 | 
      
         | 6 |  |  | --                                                                          --
 | 
      
         | 7 |  |  | --                                 S p e c                                  --
 | 
      
         | 8 |  |  | --                                                                          --
 | 
      
         | 9 |  |  | --          Copyright (C) 2002-2010, Free Software Foundation, Inc.         --
 | 
      
         | 10 |  |  | --                                                                          --
 | 
      
         | 11 |  |  | -- GNAT is free software;  you can  redistribute it  and/or modify it under --
 | 
      
         | 12 |  |  | -- terms of the  GNU General Public License as published  by the Free Soft- --
 | 
      
         | 13 |  |  | -- ware  Foundation;  either version 3,  or (at your option) any later ver- --
 | 
      
         | 14 |  |  | -- sion.  GNAT is distributed in the hope that it will be useful, but WITH- --
 | 
      
         | 15 |  |  | -- OUT ANY WARRANTY;  without even the  implied warranty of MERCHANTABILITY --
 | 
      
         | 16 |  |  | -- or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License --
 | 
      
         | 17 |  |  | -- for  more details.  You should have  received  a copy of the GNU General --
 | 
      
         | 18 |  |  | -- Public License  distributed with GNAT; see file COPYING3.  If not, go to --
 | 
      
         | 19 |  |  | -- http://www.gnu.org/licenses for a complete copy of the license.          --
 | 
      
         | 20 |  |  | --                                                                          --
 | 
      
         | 21 |  |  | -- GNAT was originally developed  by the GNAT team at  New York University. --
 | 
      
         | 22 |  |  | -- Extensive contributions were provided by Ada Core Technologies Inc.      --
 | 
      
         | 23 |  |  | --                                                                          --
 | 
      
         | 24 |  |  | ------------------------------------------------------------------------------
 | 
      
         | 25 |  |  |  
 | 
      
         | 26 |  |  | --  This package stores all preprocessing data for the compiler
 | 
      
         | 27 |  |  |  
 | 
      
         | 28 |  |  | with Namet; use Namet;
 | 
      
         | 29 |  |  |  
 | 
      
         | 30 |  |  | package Prepcomp is
 | 
      
         | 31 |  |  |  
 | 
      
         | 32 |  |  |    procedure Add_Dependencies;
 | 
      
         | 33 |  |  |    --  Add dependencies on the preprocessing data file and the preprocessing
 | 
      
         | 34 |  |  |    --  definition files, if any.
 | 
      
         | 35 |  |  |  
 | 
      
         | 36 |  |  |    procedure Check_Symbols;
 | 
      
         | 37 |  |  |    --  Check if there are preprocessing symbols on the command line and set
 | 
      
         | 38 |  |  |    --  preprocessing if there are some: all files are preprocessed with these
 | 
      
         | 39 |  |  |    --  symbols. This procedure should not be called if there is a preprocessing
 | 
      
         | 40 |  |  |    --  data file specified on the command line. Instead a call should be made
 | 
      
         | 41 |  |  |    --  to Parse_Preprocessing_Data_File.
 | 
      
         | 42 |  |  |  
 | 
      
         | 43 |  |  |    procedure Parse_Preprocessing_Data_File (N : File_Name_Type);
 | 
      
         | 44 |  |  |    --  Parse a preprocessing data file, specified with a -gnatep= switch
 | 
      
         | 45 |  |  |  
 | 
      
         | 46 |  |  |    procedure Prepare_To_Preprocess
 | 
      
         | 47 |  |  |      (Source               : File_Name_Type;
 | 
      
         | 48 |  |  |       Preprocessing_Needed : out Boolean);
 | 
      
         | 49 |  |  |    --  Prepare, if necessary, the preprocessor for a source file. If the source
 | 
      
         | 50 |  |  |    --  file needs to be preprocessed, Preprocessing_Needed is set to True.
 | 
      
         | 51 |  |  |    --  Otherwise, Preprocessing_Needed is set to False and no preprocessing
 | 
      
         | 52 |  |  |    --  needs to be done.
 | 
      
         | 53 |  |  |  
 | 
      
         | 54 |  |  |    procedure Process_Command_Line_Symbol_Definitions;
 | 
      
         | 55 |  |  |    --  Check symbol definitions that have been added by calls to procedure
 | 
      
         | 56 |  |  |    --  Add_Symbol_Definition and stored as pointers to string, and put them in
 | 
      
         | 57 |  |  |    --  a table. The reason the definitions were stored as pointer to strings is
 | 
      
         | 58 |  |  |    --  that the name table is not yest initialized when we process the command
 | 
      
         | 59 |  |  |    --  line switches. These symbol definitions will be later used in
 | 
      
         | 60 |  |  |    --  the call to Prepare_To_Preprocess.
 | 
      
         | 61 |  |  |  
 | 
      
         | 62 |  |  | end Prepcomp;
 |