diff options
Diffstat (limited to 'gcc-4.4.3/gcc/ada/prj.ads')
| -rw-r--r-- | gcc-4.4.3/gcc/ada/prj.ads | 1627 |
1 files changed, 0 insertions, 1627 deletions
diff --git a/gcc-4.4.3/gcc/ada/prj.ads b/gcc-4.4.3/gcc/ada/prj.ads deleted file mode 100644 index d06138e1b..000000000 --- a/gcc-4.4.3/gcc/ada/prj.ads +++ /dev/null @@ -1,1627 +0,0 @@ ------------------------------------------------------------------------------- --- -- --- GNAT COMPILER COMPONENTS -- --- -- --- P R J -- --- -- --- S p e c -- --- -- --- Copyright (C) 2001-2008, Free Software Foundation, Inc. -- --- -- --- GNAT is free software; you can redistribute it and/or modify it under -- --- terms of the GNU General Public License as published by the Free Soft- -- --- ware Foundation; either version 3, or (at your option) any later ver- -- --- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- --- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- --- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- --- for more details. You should have received a copy of the GNU General -- --- Public License distributed with GNAT; see file COPYING3. If not, go to -- --- http://www.gnu.org/licenses for a complete copy of the license. -- --- -- --- GNAT was originally developed by the GNAT team at New York University. -- --- Extensive contributions were provided by Ada Core Technologies Inc. -- --- -- ------------------------------------------------------------------------------- - --- The following package declares the data types for GNAT project. --- These data types may be used by GNAT Project-aware tools. - --- Children of these package implements various services on these data types. --- See in particular Prj.Pars and Prj.Env. - -with Casing; use Casing; -with Namet; use Namet; -with Scans; use Scans; -with Types; use Types; - -with GNAT.Dynamic_HTables; use GNAT.Dynamic_HTables; -with GNAT.Dynamic_Tables; -with GNAT.OS_Lib; use GNAT.OS_Lib; - -package Prj is - - All_Other_Names : constant Name_Id := Names_High_Bound; - -- Name used to replace others as an index of an associative array - -- attribute in situations where this is allowed. - - Subdirs_Option : constant String := "--subdirs="; - -- Switch used to indicate that the real directories (object, exec, - -- library, ...) are subdirectories of those in the project file. - - Subdirs : String_Ptr := null; - -- The value after the equal sign in switch --subdirs=... - -- Contains the relative subdirectory. - - type Library_Support is (None, Static_Only, Full); - -- Support for Library Project File. - -- - None: Library Project Files are not supported at all - -- - Static_Only: Library Project Files are only supported for static - -- libraries. - -- - Full: Library Project Files are supported for static and dynamic - -- (shared) libraries. - - type Yes_No_Unknown is (Yes, No, Unknown); - -- Tri-state to decide if -lgnarl is needed when linking - - type Mode is (Multi_Language, Ada_Only); - -- Ada_Only: mode for gnatmake, gnatclean, gnatname, the GNAT driver - -- Multi_Language: mode for gprbuild, gprclean - - type Project_Qualifier is - (Unspecified, - Standard, - Library, - Dry, - Aggregate, - Aggregate_Library); - -- Qualifiers that can prefix the reserved word "project" in a project - -- file: - -- Standard: standard project ... - -- Library: library project is ... - -- Dry: abstract project is - -- Aggregate: aggregate project is - -- Aggregate_Library: aggregate library project is ... - - function Get_Mode return Mode; - pragma Inline (Get_Mode); - - procedure Set_Mode (New_Mode : Mode); - pragma Inline (Set_Mode); - - Default_Language_Is_Ada : Boolean := True; - -- If no language was defined in the project or the configuration file, it - -- is an error, unless this variable is True, in which case it defaults to - -- Ada. Calling Set_Mode will reset this variable, default is for Ada_Only. - - Must_Check_Configuration : Boolean := False; - -- True when the contents of the configuration file must be checked. This - -- is in general only needed by gprbuild itself, since other applications - -- can ignore such errors when they don't need to build directly. Calling - -- Set_Mode will reset this variable, default is for Ada_Only. - - function In_Configuration return Boolean; - pragma Inline (In_Configuration); - - procedure Set_In_Configuration (Value : Boolean); - pragma Inline (Set_In_Configuration); - - All_Packages : constant String_List_Access; - -- Default value of parameter Packages of procedures Parse, in Prj.Pars and - -- Prj.Part, indicating that all packages should be checked. - - type Project_Tree_Data; - type Project_Tree_Ref is access all Project_Tree_Data; - -- Reference to a project tree. Several project trees may exist in memory - -- at the same time. - - No_Project_Tree : constant Project_Tree_Ref; - - function Default_Ada_Spec_Suffix return File_Name_Type; - pragma Inline (Default_Ada_Spec_Suffix); - -- The name for the standard GNAT suffix for Ada spec source file name - -- ".ads". Initialized by Prj.Initialize. - - function Default_Ada_Body_Suffix return File_Name_Type; - pragma Inline (Default_Ada_Body_Suffix); - -- The name for the standard GNAT suffix for Ada body source file name - -- ".adb". Initialized by Prj.Initialize. - - function Slash return Path_Name_Type; - pragma Inline (Slash); - -- "/", used as the path of locally removed files - - Config_Project_File_Extension : String := ".cgpr"; - Project_File_Extension : String := ".gpr"; - -- The standard config and user project file name extensions. They are not - -- constants, because Canonical_Case_File_Name is called on these variables - -- in the body of Prj. - - type Error_Warning is (Silent, Warning, Error); - -- Severity of some situations, such as: no Ada sources in a project where - -- Ada is one of the language. - -- - -- When the situation occurs, the behaviour depends on the setting: - -- - -- - Silent: no action - -- - Warning: issue a warning, does not cause the tool to fail - -- - Error: issue an error, causes the tool to fail - - function Empty_File return File_Name_Type; - function Empty_String return Name_Id; - -- Return the id for an empty string "" - - type Path_Information is record - Name : Path_Name_Type := No_Path; - Display_Name : Path_Name_Type := No_Path; - end record; - - No_Path_Information : constant Path_Information := (No_Path, No_Path); - - type Project_Id is new Nat; - No_Project : constant Project_Id := 0; - -- Id of a Project File - - type String_List_Id is new Nat; - Nil_String : constant String_List_Id := 0; - type String_Element is record - Value : Name_Id := No_Name; - Index : Int := 0; - Display_Value : Name_Id := No_Name; - Location : Source_Ptr := No_Location; - Flag : Boolean := False; - Next : String_List_Id := Nil_String; - end record; - -- To hold values for string list variables and array elements. - -- Component Flag may be used for various purposes. For source - -- directories, it indicates if the directory contains Ada source(s). - - package String_Element_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => String_Element, - Table_Index_Type => String_List_Id, - Table_Low_Bound => 1, - Table_Initial => 200, - Table_Increment => 100); - -- The table for string elements in string lists - - type Variable_Kind is (Undefined, List, Single); - -- Different kinds of variables - - subtype Defined_Variable_Kind is Variable_Kind range List .. Single; - -- The defined kinds of variables - - Ignored : constant Variable_Kind; - -- Used to indicate that a package declaration must be ignored - -- while processing the project tree (unknown package name). - - type Variable_Value (Kind : Variable_Kind := Undefined) is record - Project : Project_Id := No_Project; - Location : Source_Ptr := No_Location; - Default : Boolean := False; - case Kind is - when Undefined => - null; - when List => - Values : String_List_Id := Nil_String; - when Single => - Value : Name_Id := No_Name; - Index : Int := 0; - end case; - end record; - -- Values for variables and array elements. Default is True if the - -- current value is the default one for the variable - - Nil_Variable_Value : constant Variable_Value; - -- Value of a non existing variable or array element - - type Variable_Id is new Nat; - No_Variable : constant Variable_Id := 0; - type Variable is record - Next : Variable_Id := No_Variable; - Name : Name_Id; - Value : Variable_Value; - end record; - -- To hold the list of variables in a project file and in packages - - package Variable_Element_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Variable, - Table_Index_Type => Variable_Id, - Table_Low_Bound => 1, - Table_Initial => 200, - Table_Increment => 100); - -- The table of variable in list of variables - - type Array_Element_Id is new Nat; - No_Array_Element : constant Array_Element_Id := 0; - type Array_Element is record - Index : Name_Id; - Src_Index : Int := 0; - Index_Case_Sensitive : Boolean := True; - Value : Variable_Value; - Next : Array_Element_Id := No_Array_Element; - end record; - -- Each Array_Element represents an array element and is linked (Next) - -- to the next array element, if any, in the array. - - package Array_Element_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Array_Element, - Table_Index_Type => Array_Element_Id, - Table_Low_Bound => 1, - Table_Initial => 200, - Table_Increment => 100); - -- The table that contains all array elements - - type Array_Id is new Nat; - No_Array : constant Array_Id := 0; - type Array_Data is record - Name : Name_Id := No_Name; - Location : Source_Ptr := No_Location; - Value : Array_Element_Id := No_Array_Element; - Next : Array_Id := No_Array; - end record; - -- Each Array_Data value represents an array. - -- Value is the id of the first element. - -- Next is the id of the next array in the project file or package. - - package Array_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Array_Data, - Table_Index_Type => Array_Id, - Table_Low_Bound => 1, - Table_Initial => 200, - Table_Increment => 100); - -- The table that contains all arrays - - type Package_Id is new Nat; - No_Package : constant Package_Id := 0; - type Declarations is record - Variables : Variable_Id := No_Variable; - Attributes : Variable_Id := No_Variable; - Arrays : Array_Id := No_Array; - Packages : Package_Id := No_Package; - end record; - -- Contains the declarations (variables, single and array attributes, - -- packages) for a project or a package in a project. - - No_Declarations : constant Declarations := - (Variables => No_Variable, - Attributes => No_Variable, - Arrays => No_Array, - Packages => No_Package); - -- Default value of Declarations: indicates that there is no declarations - - type Package_Element is record - Name : Name_Id := No_Name; - Decl : Declarations := No_Declarations; - Parent : Package_Id := No_Package; - Next : Package_Id := No_Package; - end record; - -- A package (includes declarations that may include other packages) - - package Package_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Package_Element, - Table_Index_Type => Package_Id, - Table_Low_Bound => 1, - Table_Initial => 100, - Table_Increment => 100); - -- The table that contains all packages - - type Language_Index is new Nat; - -- Index of language data - - No_Language_Index : constant Language_Index := 0; - -- Constant indicating that there is no language data - - procedure Display_Language_Name - (In_Tree : Project_Tree_Ref; - Language : Language_Index); - -- Output the name of a language - - Max_Header_Num : constant := 6150; - type Header_Num is range 0 .. Max_Header_Num; - -- Size for hash table below. The upper bound is an arbitrary value, the - -- value here was chosen after testing to determine a good compromise - -- between speed of access and memory usage. - - function Hash (Name : Name_Id) return Header_Num; - function Hash (Name : File_Name_Type) return Header_Num; - function Hash (Name : Path_Name_Type) return Header_Num; - -- Used for computing hash values for names put into above hash table - - function Hash (Project : Project_Id) return Header_Num; - -- Used for hash tables where Project_Id is the Key - - type Language_Kind is (File_Based, Unit_Based); - -- Type for the kind of language. All languages are file based, except Ada - -- which is unit based. - - type Dependency_File_Kind is (None, Makefile, ALI_File); - -- Type of dependency to be checked: no dependency file, Makefile fragment - -- or ALI file (for Ada). - - Makefile_Dependency_Suffix : constant String := ".d"; - ALI_Dependency_Suffix : constant String := ".ali"; - - Switches_Dependency_Suffix : constant String := ".cswi"; - - Binder_Exchange_Suffix : constant String := ".bexch"; - -- Suffix for binder exchange files - - Library_Exchange_Suffix : constant String := ".lexch"; - -- Suffix for library exchange files - - type Name_List_Index is new Nat; - No_Name_List : constant Name_List_Index := 0; - - type Name_Node is record - Name : Name_Id := No_Name; - Next : Name_List_Index := No_Name_List; - end record; - - package Name_List_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Name_Node, - Table_Index_Type => Name_List_Index, - Table_Low_Bound => 1, - Table_Initial => 10, - Table_Increment => 100); - -- The table for lists of names used in package Language_Processing - - package Mapping_Files_Htable is new Simple_HTable - (Header_Num => Header_Num, - Element => Path_Name_Type, - No_Element => No_Path, - Key => Path_Name_Type, - Hash => Hash, - Equal => "="); - -- A hash table to store the mapping files that are not used - - type Lang_Naming_Data is record - Dot_Replacement : File_Name_Type := No_File; - -- The string to replace '.' in the source file name (for Ada) - - Casing : Casing_Type := All_Lower_Case; - -- The casing of the source file name (for Ada) - - Separate_Suffix : File_Name_Type := No_File; - -- String to append to unit name for source file name of an Ada subunit - - Spec_Suffix : File_Name_Type := No_File; - -- The string to append to the unit name for the - -- source file name of a spec. - - Body_Suffix : File_Name_Type := No_File; - -- The string to append to the unit name for the - -- source file name of a body. - end record; - - No_Lang_Naming_Data : constant Lang_Naming_Data := - (Dot_Replacement => No_File, - Casing => All_Lower_Case, - Separate_Suffix => No_File, - Spec_Suffix => No_File, - Body_Suffix => No_File); - - type Source_Id is new Nat; - - No_Source : constant Source_Id := 0; - - type Path_Syntax_Kind is - (Canonical, - -- Unix style - - Host); - -- Host specific syntax, for example on VMS (the default) - - type Language_Config is record - Kind : Language_Kind := File_Based; - -- Kind of language. All languages are file based, except Ada which is - -- unit based. - - Naming_Data : Lang_Naming_Data; - -- The naming data for the languages (prefixes, etc.) - - Include_Compatible_Languages : Name_List_Index := No_Name_List; - -- The list of languages that are "include compatible" with this - -- language. A language B (for example "C") is "include compatible" with - -- a language A (for example "C++") if it is expected that sources of - -- language A may "include" header files from language B. - - Compiler_Driver : File_Name_Type := No_File; - -- The name of the executable for the compiler of the language - - Compiler_Driver_Path : String_Access := null; - -- The path name of the executable for the compiler of the language - - Compiler_Required_Switches : Name_List_Index := No_Name_List; - -- The list of switches that are required as a minimum to invoke the - -- compiler driver. - - Path_Syntax : Path_Syntax_Kind := Host; - -- Value may be Canonical (Unix style) or Host (host syntax, for example - -- on VMS for DEC C). - - Compilation_PIC_Option : Name_List_Index := No_Name_List; - -- The option(s) to compile a source in Position Independent Code for - -- shared libraries. Specified in the configuration. When not specified, - -- there is no need for such switch. - - Object_Generated : Boolean := True; - -- False in no object file is generated - - Objects_Linked : Boolean := True; - -- False if object files are not use to link executables and build - -- libraries. - - Runtime_Library_Dir : Name_Id := No_Name; - -- Path name of the runtime library directory, if any - - Mapping_File_Switches : Name_List_Index := No_Name_List; - -- The option(s) to provide a mapping file to the compiler. Specified in - -- the configuration. When value is No_Name_List, there is no mapping - -- file. - - Mapping_Spec_Suffix : File_Name_Type := No_File; - -- Placeholder representing the spec suffix in a mapping file - - Mapping_Body_Suffix : File_Name_Type := No_File; - -- Placeholder representing the body suffix in a mapping file - - Config_File_Switches : Name_List_Index := No_Name_List; - -- The option(s) to provide a config file to the compiler. Specified in - -- the configuration. When value is No_Name_List, there is no config - -- file. - - Dependency_Kind : Dependency_File_Kind := None; - -- The kind of dependency to be checked: none, Makefile fragment or - -- ALI file (for Ada). - - Dependency_Option : Name_List_Index := No_Name_List; - -- The option(s) to be used to create the dependency file. When value is - -- No_Name_List, there is not such option(s). - - Compute_Dependency : Name_List_Index := No_Name_List; - -- Hold the value of attribute Dependency_Driver, if declared for the - -- language. - - Include_Option : Name_List_Index := No_Name_List; - -- Hold the value of attribute Include_Switches, if declared for the - -- language. - - Include_Path : Name_Id := No_Name; - -- Name of environment variable declared by attribute Include_Path for - -- the language. - - Include_Path_File : Name_Id := No_Name; - -- Name of environment variable declared by attribute Include_Path_File - -- for the language. - - Objects_Path : Name_Id := No_Name; - -- Name of environment variable declared by attribute Objects_Path for - -- the language. - - Objects_Path_File : Name_Id := No_Name; - -- Name of environment variable declared by attribute Objects_Path_File - -- for the language. - - Config_Body : Name_Id := No_Name; - -- The template for a pragma Source_File_Name(_Project) for a specific - -- file name of a body. - - Config_Spec : Name_Id := No_Name; - -- The template for a pragma Source_File_Name(_Project) for a specific - -- file name of a spec. - - Config_Body_Pattern : Name_Id := No_Name; - -- The template for a pragma Source_File_Name(_Project) for a naming - -- body pattern. - - Config_Spec_Pattern : Name_Id := No_Name; - -- The template for a pragma Source_File_Name(_Project) for a naming - -- spec pattern. - - Config_File_Unique : Boolean := False; - -- Indicate if the config file specified to the compiler needs to be - -- unique. If it is unique, then all config files are concatenated into - -- a temp config file. - - Binder_Driver : File_Name_Type := No_File; - -- The name of the binder driver for the language, if any - - Binder_Driver_Path : Path_Name_Type := No_Path; - -- The path name of the binder driver - - Binder_Required_Switches : Name_List_Index := No_Name_List; - -- Hold the value of attribute Binder'Required_Switches for the language - - Binder_Prefix : Name_Id := No_Name; - -- Hold the value of attribute Binder'Prefix for the language - - Toolchain_Version : Name_Id := No_Name; - -- Hold the value of attribute Toolchain_Version for the language - - Toolchain_Description : Name_Id := No_Name; - -- Hold the value of attribute Toolchain_Description for the language - - end record; - -- Record describing the configuration of a language - - No_Language_Config : constant Language_Config := - (Kind => File_Based, - Naming_Data => No_Lang_Naming_Data, - Include_Compatible_Languages => No_Name_List, - Compiler_Driver => No_File, - Compiler_Driver_Path => null, - Compiler_Required_Switches => No_Name_List, - Path_Syntax => Canonical, - Compilation_PIC_Option => No_Name_List, - Object_Generated => True, - Objects_Linked => True, - Runtime_Library_Dir => No_Name, - Mapping_File_Switches => No_Name_List, - Mapping_Spec_Suffix => No_File, - Mapping_Body_Suffix => No_File, - Config_File_Switches => No_Name_List, - Dependency_Kind => Makefile, - Dependency_Option => No_Name_List, - Compute_Dependency => No_Name_List, - Include_Option => No_Name_List, - Include_Path => No_Name, - Include_Path_File => No_Name, - Objects_Path => No_Name, - Objects_Path_File => No_Name, - Config_Body => No_Name, - Config_Spec => No_Name, - Config_Body_Pattern => No_Name, - Config_Spec_Pattern => No_Name, - Config_File_Unique => False, - Binder_Driver => No_File, - Binder_Driver_Path => No_Path, - Binder_Required_Switches => No_Name_List, - Binder_Prefix => No_Name, - Toolchain_Version => No_Name, - Toolchain_Description => No_Name); - - type Language_Data is record - Name : Name_Id := No_Name; - Display_Name : Name_Id := No_Name; - Config : Language_Config := No_Language_Config; - First_Source : Source_Id := No_Source; - Mapping_Files : Mapping_Files_Htable.Instance := - Mapping_Files_Htable.Nil; - Next : Language_Index := No_Language_Index; - end record; - - No_Language_Data : constant Language_Data := - (Name => No_Name, - Display_Name => No_Name, - Config => No_Language_Config, - First_Source => No_Source, - Mapping_Files => Mapping_Files_Htable.Nil, - Next => No_Language_Index); - - package Language_Data_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Language_Data, - Table_Index_Type => Language_Index, - Table_Low_Bound => 1, - Table_Initial => 10, - Table_Increment => 100); - -- The table for lists of names used in package Language_Processing - - type Alternate_Language_Id is new Nat; - - No_Alternate_Language : constant Alternate_Language_Id := 0; - - type Alternate_Language_Data is record - Language : Language_Index := No_Language_Index; - Next : Alternate_Language_Id := No_Alternate_Language; - end record; - - package Alternate_Language_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Alternate_Language_Data, - Table_Index_Type => Alternate_Language_Id, - Table_Low_Bound => 1, - Table_Initial => 10, - Table_Increment => 100); - -- The table for storing the alternate languages of a header file that - -- is used for several languages. - - type Source_Kind is (Spec, Impl, Sep); - - type Source_Data is record - Project : Project_Id := No_Project; - -- Project of the source - - Language_Name : Name_Id := No_Name; - -- Name of the language of the source - - Language : Language_Index := No_Language_Index; - -- Index of the language - - Lang_Kind : Language_Kind := File_Based; - -- Kind of the language - - Compiled : Boolean := True; - -- False when there is no compiler for the language - - In_Interfaces : Boolean := True; - -- False when the source is not included in interfaces, when attribute - -- Interfaces is declared. - - Declared_In_Interfaces : Boolean := False; - -- True when source is declared in attribute Interfaces - - Alternate_Languages : Alternate_Language_Id := No_Alternate_Language; - -- List of languages a header file may also be, in addition of - -- language Language_Name. - - Kind : Source_Kind := Spec; - -- Kind of the source: spec, body or subunit - - Dependency : Dependency_File_Kind := None; - -- Kind of dependency: none, Makefile fragment or ALI file - - Other_Part : Source_Id := No_Source; - -- Source ID for the other part, if any: for a spec, indicates its body; - -- for a body, indicates its spec. - - Unit : Name_Id := No_Name; - -- Name of the unit, if language is unit based - - Index : Int := 0; - -- Index of the source in a multi unit source file - - Locally_Removed : Boolean := False; - -- True if the source has been "excluded" - - Get_Object : Boolean := False; - -- Indicates that the object of the source should be put in the global - -- archive. This is for Ada, when only the closure of a main needs to - -- be compiled/recompiled. - - Replaced_By : Source_Id := No_Source; - - File : File_Name_Type := No_File; - -- Canonical file name of the source - - Display_File : File_Name_Type := No_File; - -- File name of the source, for display purposes - - Path : Path_Information := No_Path_Information; - -- Path name of the source - - Source_TS : Time_Stamp_Type := Empty_Time_Stamp; - -- Time stamp of the source file - - Object_Project : Project_Id := No_Project; - -- Project where the object file is - - Object_Exists : Boolean := True; - -- True if an object file exists - - Object_Linked : Boolean := True; - -- False if the object file is not use to link executables or included - -- in libraries. - - Object : File_Name_Type := No_File; - -- File name of the object file - - Current_Object_Path : Path_Name_Type := No_Path; - -- Object path of an existing object file - - Object_Path : Path_Name_Type := No_Path; - -- Object path of the real object file - - Object_TS : Time_Stamp_Type := Empty_Time_Stamp; - -- Object file time stamp - - Dep_Name : File_Name_Type := No_File; - -- Dependency file simple name - - Current_Dep_Path : Path_Name_Type := No_Path; - -- Path name of an existing dependency file - - Dep_Path : Path_Name_Type := No_Path; - -- Path name of the real dependency file - - Dep_TS : Time_Stamp_Type := Empty_Time_Stamp; - -- Dependency file time stamp - - Switches : File_Name_Type := No_File; - -- File name of the switches file - - Switches_Path : Path_Name_Type := No_Path; - -- Path name of the switches file - - Switches_TS : Time_Stamp_Type := Empty_Time_Stamp; - -- Switches file time stamp - - Naming_Exception : Boolean := False; - -- True if the source has an exceptional name - - Next_In_Sources : Source_Id := No_Source; - -- Link to another source in the project tree - - Next_In_Project : Source_Id := No_Source; - -- Link to another source in the project - - Next_In_Lang : Source_Id := No_Source; - -- Link to another source of the same language - end record; - - No_Source_Data : constant Source_Data := - (Project => No_Project, - Language_Name => No_Name, - Language => No_Language_Index, - Lang_Kind => File_Based, - Compiled => True, - In_Interfaces => True, - Declared_In_Interfaces => False, - Alternate_Languages => No_Alternate_Language, - Kind => Spec, - Dependency => None, - Other_Part => No_Source, - Unit => No_Name, - Index => 0, - Locally_Removed => False, - Get_Object => False, - Replaced_By => No_Source, - File => No_File, - Display_File => No_File, - Path => No_Path_Information, - Source_TS => Empty_Time_Stamp, - Object_Project => No_Project, - Object_Exists => True, - Object_Linked => True, - Object => No_File, - Current_Object_Path => No_Path, - Object_Path => No_Path, - Object_TS => Empty_Time_Stamp, - Dep_Name => No_File, - Current_Dep_Path => No_Path, - Dep_Path => No_Path, - Dep_TS => Empty_Time_Stamp, - Switches => No_File, - Switches_Path => No_Path, - Switches_TS => Empty_Time_Stamp, - Naming_Exception => False, - Next_In_Sources => No_Source, - Next_In_Project => No_Source, - Next_In_Lang => No_Source); - - package Source_Data_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Source_Data, - Table_Index_Type => Source_Id, - Table_Low_Bound => 1, - Table_Initial => 1000, - Table_Increment => 100); - -- The table for the sources - - package Source_Paths_Htable is new Simple_HTable - (Header_Num => Header_Num, - Element => Source_Id, - No_Element => No_Source, - Key => Path_Name_Type, - Hash => Hash, - Equal => "="); - -- Mapping of source paths to source ids - - type Verbosity is (Default, Medium, High); - -- Verbosity when parsing GNAT Project Files - -- Default is default (very quiet, if no errors). - -- Medium is more verbose. - -- High is extremely verbose. - - Current_Verbosity : Verbosity := Default; - -- The current value of the verbosity the project files are parsed with - - type Lib_Kind is (Static, Dynamic, Relocatable); - - type Policy is (Autonomous, Compliant, Controlled, Restricted, Direct); - -- Type to specify the symbol policy, when symbol control is supported. - -- See full explanation about this type in package Symbols. - -- Autonomous: Create a symbol file without considering any reference - -- Compliant: Try to be as compatible as possible with an existing ref - -- Controlled: Fail if symbols are not the same as those in the reference - -- Restricted: Restrict the symbols to those in the symbol file - -- Direct: The symbol file is used as is - - type Symbol_Record is record - Symbol_File : Path_Name_Type := No_Path; - Reference : Path_Name_Type := No_Path; - Symbol_Policy : Policy := Autonomous; - end record; - -- Type to keep the symbol data to be used when building a shared library - - No_Symbols : constant Symbol_Record := - (Symbol_File => No_Path, - Reference => No_Path, - Symbol_Policy => Autonomous); - -- The default value of the symbol data - - function Image (Casing : Casing_Type) return String; - -- Similar to 'Image (but avoid use of this attribute in compiler) - - function Value (Image : String) return Casing_Type; - -- Similar to 'Value (but avoid use of this attribute in compiler) - -- Raises Constraint_Error if not a Casing_Type image. - - -- The following record contains data for a naming scheme - - type Naming_Data is record - - Dot_Replacement : File_Name_Type := No_File; - -- The string to replace '.' in the source file name (for Ada) - - Dot_Repl_Loc : Source_Ptr := No_Location; - - Casing : Casing_Type := All_Lower_Case; - -- The casing of the source file name (for Ada) - - Spec_Suffix : Array_Element_Id := No_Array_Element; - -- The string to append to the unit name for the - -- source file name of a spec. - -- Indexed by the programming language. - - Ada_Spec_Suffix_Loc : Source_Ptr := No_Location; - - Body_Suffix : Array_Element_Id := No_Array_Element; - -- The string to append to the unit name for the - -- source file name of a body. - -- Indexed by the programming language. - - Ada_Body_Suffix_Loc : Source_Ptr := No_Location; - - Separate_Suffix : File_Name_Type := No_File; - -- String to append to unit name for source file name of an Ada subunit - - Sep_Suffix_Loc : Source_Ptr := No_Location; - -- Position in the project file source where Separate_Suffix is defined - - Specs : Array_Element_Id := No_Array_Element; - -- An associative array mapping individual specs to source file names - -- This is specific to Ada. - - Bodies : Array_Element_Id := No_Array_Element; - -- An associative array mapping individual bodies to source file names - -- This is specific to Ada. - - Specification_Exceptions : Array_Element_Id := No_Array_Element; - -- An associative array listing spec file names that do not have the - -- spec suffix. Not used by Ada. Indexed by programming language name. - - Implementation_Exceptions : Array_Element_Id := No_Array_Element; - -- An associative array listing body file names that do not have the - -- body suffix. Not used by Ada. Indexed by programming language name. - - end record; - - function Spec_Suffix_Of - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : Naming_Data) return String; - - function Spec_Suffix_Id_Of - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : Naming_Data) return File_Name_Type; - - function Spec_Suffix_Id_Of - (In_Tree : Project_Tree_Ref; - Language_Id : Name_Id; - Naming : Naming_Data) return File_Name_Type; - - procedure Set_Spec_Suffix - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : in out Naming_Data; - Suffix : File_Name_Type); - - function Body_Suffix_Id_Of - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : Naming_Data) return File_Name_Type; - - function Body_Suffix_Id_Of - (In_Tree : Project_Tree_Ref; - Language_Id : Name_Id; - Naming : Naming_Data) return File_Name_Type; - - function Body_Suffix_Of - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : Naming_Data) return String; - - procedure Set_Body_Suffix - (In_Tree : Project_Tree_Ref; - Language : String; - Naming : in out Naming_Data; - Suffix : File_Name_Type); - - function Objects_Exist_For - (Language : String; - In_Tree : Project_Tree_Ref) return Boolean; - - function Standard_Naming_Data - (Tree : Project_Tree_Ref := No_Project_Tree) return Naming_Data; - pragma Inline (Standard_Naming_Data); - -- The standard GNAT naming scheme when Tree is No_Project_Tree. - -- Otherwise, return the default naming scheme for the project tree Tree, - -- which must have been Initialized. - - function Same_Naming_Scheme - (Left, Right : Naming_Data) return Boolean; - -- Returns True if Left and Right are the same naming scheme - -- not considering Specs and Bodies. - - type Project_List is new Nat; - Empty_Project_List : constant Project_List := 0; - -- A list of project files - - type Project_Element is record - Project : Project_Id := No_Project; - Next : Project_List := Empty_Project_List; - end record; - -- Element in a list of project files. Next is the id of the next - -- project file in the list. - - package Project_List_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Project_Element, - Table_Index_Type => Project_List, - Table_Low_Bound => 1, - Table_Initial => 100, - Table_Increment => 100); - -- The table that contains the lists of project files - - type Project_Configuration is record - Run_Path_Option : Name_List_Index := No_Name_List; - -- The option to use when linking to specify the path where to look for - -- libraries. - - Executable_Suffix : Name_Id := No_Name; - -- The suffix of executables, when specified in the configuration or in - -- package Builder of the main project. When this is not specified, the - -- executable suffix is the default for the platform. - - -- Linking - - Linker : Path_Name_Type := No_Path; - -- Path name of the linker driver. Specified in the configuration or in - -- the package Builder of the main project. - - Map_File_Option : Name_Id := No_Name; - -- Option to use when invoking the linker to build a map file - - Minimum_Linker_Options : Name_List_Index := No_Name_List; - -- The minimum options for the linker driver. Specified in the - -- configuration. - - Linker_Executable_Option : Name_List_Index := No_Name_List; - -- The option(s) to indicate the name of the executable in the linker - -- command. Specified in the configuration. When not specified, default - -- to -o <executable name>. - - Linker_Lib_Dir_Option : Name_Id := No_Name; - -- The option to specify where to find a library for linking. Specified - -- in the configuration. When not specified, defaults to "-L". - - Linker_Lib_Name_Option : Name_Id := No_Name; - -- The option to specify the name of a library for linking. Specified in - -- the configuration. When not specified, defaults to "-l". - - -- Libraries - - Library_Builder : Path_Name_Type := No_Path; - -- The executable to build library (specified in the configuration) - - Lib_Support : Library_Support := None; - -- The level of library support. Specified in the configuration. Support - -- is none, static libraries only or both static and shared libraries. - - Archive_Builder : Name_List_Index := No_Name_List; - -- The name of the executable to build archives, with the minimum - -- switches. Specified in the configuration. - - Archive_Builder_Append_Option : Name_List_Index := No_Name_List; - -- The options to append object files to an archive - - Archive_Indexer : Name_List_Index := No_Name_List; - -- The name of the executable to index archives, with the minimum - -- switches. Specified in the configuration. - - Archive_Suffix : File_Name_Type := No_File; - -- The suffix of archives. Specified in the configuration. When not - -- specified, defaults to ".a". - - Lib_Partial_Linker : Name_List_Index := No_Name_List; - - -- Shared libraries - - Shared_Lib_Driver : File_Name_Type := No_File; - -- The driver to link shared libraries. Set with attribute Library_GCC. - -- Default to gcc. - - Shared_Lib_Prefix : File_Name_Type := No_File; - -- Part of a shared library file name that precedes the name of the - -- library. Specified in the configuration. When not specified, defaults - -- to "lib". - - Shared_Lib_Suffix : File_Name_Type := No_File; - -- Suffix of shared libraries, after the library name in the shared - -- library name. Specified in the configuration. When not specified, - -- default to ".so". - - Shared_Lib_Min_Options : Name_List_Index := No_Name_List; - -- The minimum options to use when building a shared library - - Lib_Version_Options : Name_List_Index := No_Name_List; - -- The options to use to specify a library version - - Symbolic_Link_Supported : Boolean := False; - -- True if the platform supports symbolic link files - - Lib_Maj_Min_Id_Supported : Boolean := False; - -- True if platform supports library major and minor options, such as - -- libname.so -> libname.so.2 -> libname.so.2.4 - - Auto_Init_Supported : Boolean := False; - -- True if automatic initialisation is supported for shared stand-alone - -- libraries. - end record; - - Default_Project_Config : constant Project_Configuration := - (Run_Path_Option => No_Name_List, - Executable_Suffix => No_Name, - Linker => No_Path, - Map_File_Option => No_Name, - Minimum_Linker_Options => No_Name_List, - Linker_Executable_Option => No_Name_List, - Linker_Lib_Dir_Option => No_Name, - Linker_Lib_Name_Option => No_Name, - Library_Builder => No_Path, - Lib_Support => None, - Archive_Builder => No_Name_List, - Archive_Builder_Append_Option => No_Name_List, - Archive_Indexer => No_Name_List, - Archive_Suffix => No_File, - Lib_Partial_Linker => No_Name_List, - Shared_Lib_Driver => No_File, - Shared_Lib_Prefix => No_File, - Shared_Lib_Suffix => No_File, - Shared_Lib_Min_Options => No_Name_List, - Lib_Version_Options => No_Name_List, - Symbolic_Link_Supported => False, - Lib_Maj_Min_Id_Supported => False, - Auto_Init_Supported => False); - - -- The following record describes a project file representation - - -- Note that it is not specified if the path names of directories (source, - -- object, library or exec directories) end with or without a directory - -- separator. - - type Project_Data is record - - ------------- - -- General -- - ------------- - - Name : Name_Id := No_Name; - -- The name of the project - - Display_Name : Name_Id := No_Name; - -- The name of the project with the spelling of its declaration - - Qualifier : Project_Qualifier := Unspecified; - -- The eventual qualifier for this project - - Externally_Built : Boolean := False; - -- True if the project is externally built. In such case, the Project - -- Manager will not modify anything in this project. - - Config : Project_Configuration; - - Path : Path_Information := No_Path_Information; - -- The path name of the project file - - Virtual : Boolean := False; - -- True for virtual extending projects - - Location : Source_Ptr := No_Location; - -- The location in the project file source of the reserved word project - - Naming : Naming_Data := Standard_Naming_Data; - -- The naming scheme of this project file - - --------------- - -- Languages -- - --------------- - - Languages : Name_List_Index := No_Name_List; - -- The list of languages of the sources of this project - - Include_Language : Language_Index := No_Language_Index; - - First_Language_Processing : Language_Index := No_Language_Index; - -- First index of the language data in the project - - Unit_Based_Language_Name : Name_Id := No_Name; - Unit_Based_Language_Index : Language_Index := No_Language_Index; - -- The name and index, if any, of the unit-based language of some - -- sources of the project. There may be only one unit-based language - -- in one project. - - -------------- - -- Projects -- - -------------- - - First_Referred_By : Project_Id := No_Project; - -- The project, if any, that was the first to be known as importing or - -- extending this project - - Mains : String_List_Id := Nil_String; - -- List of mains specified by attribute Main - - Extends : Project_Id := No_Project; - -- The reference of the project file, if any, that this project file - -- extends. - - Extended_By : Project_Id := No_Project; - -- The reference of the project file, if any, that extends this project - -- file. - - Decl : Declarations := No_Declarations; - -- The declarations (variables, attributes and packages) of this project - -- file. - - Imported_Projects : Project_List := Empty_Project_List; - -- The list of all directly imported projects, if any - - All_Imported_Projects : Project_List := Empty_Project_List; - -- The list of all projects imported directly or indirectly, if any - - ----------------- - -- Directories -- - ----------------- - - Directory : Path_Information := No_Path_Information; - -- Path name of the directory where the project file resides - - Dir_Path : String_Access; - -- Same as Directory.Name, but as an access to String - - Object_Directory : Path_Information := No_Path_Information; - -- The path name of the object directory of this project file - - Exec_Directory : Path_Information := No_Path_Information; - -- The path name of the exec directory of this project file. Default is - -- equal to Object_Directory. - - ------------- - -- Library -- - ------------- - - Library : Boolean := False; - -- True if this is a library project - - Library_Name : Name_Id := No_Name; - -- If a library project, name of the library - - Library_Kind : Lib_Kind := Static; - -- If a library project, kind of library - - Library_Dir : Path_Information := No_Path_Information; - -- If a library project, path name of the directory where the library - -- resides. - - Library_TS : Time_Stamp_Type := Empty_Time_Stamp; - -- The timestamp of a library file in a library project - - Library_Src_Dir : Path_Information := No_Path_Information; - -- If a Stand-Alone Library project, path name of the directory where - -- the sources of the interfaces of the library are copied. By default, - -- if attribute Library_Src_Dir is not specified, sources of the - -- interfaces are not copied anywhere. - - Library_ALI_Dir : Path_Information := No_Path_Information; - -- In a library project, path name of the directory where the ALI files - -- are copied. If attribute Library_ALI_Dir is not specified, ALI files - -- are copied in the Library_Dir. - - Lib_Internal_Name : Name_Id := No_Name; - -- If a library project, internal name store inside the library - - Standalone_Library : Boolean := False; - -- Indicate that this is a Standalone Library Project File - - Lib_Interface_ALIs : String_List_Id := Nil_String; - -- For Standalone Library Project Files, indicate the list of Interface - -- ALI files. - - Lib_Auto_Init : Boolean := False; - -- For non static Stand-Alone Library Project Files, indicate if - -- the library initialisation should be automatic. - - Symbol_Data : Symbol_Record := No_Symbols; - -- Symbol file name, reference symbol file name, symbol policy - - Need_To_Build_Lib : Boolean := False; - -- Indicates that the library of a Library Project needs to be built or - -- rebuilt. - - ------------- - -- Sources -- - ------------- - - Ada_Sources_Present : Boolean := True; - -- True if there are Ada sources in the project - - Other_Sources_Present : Boolean := True; - -- True if there are non-Ada sources in the project - - Ada_Sources : String_List_Id := Nil_String; - -- The list of all the Ada source file names (gnatmake only) - - First_Source : Source_Id := No_Source; - Last_Source : Source_Id := No_Source; - -- Head and tail of the list of sources - - Interfaces_Defined : Boolean := False; - -- True if attribute Interfaces is declared for the project or any - -- project it extends. - - Imported_Directories_Switches : Argument_List_Access := null; - -- List of the source search switches (-I<source dir>) to be used when - -- compiling. - - Include_Path : String_Access := null; - -- The search source path for the project. Used as the value for an - -- environment variable, specified by attribute Include_Path - -- (<language>). The names of the environment variables are in component - -- Include_Path of the records Language_Config. - - Include_Path_File : Path_Name_Type := No_Path; - -- The path name of the of the source search directory file - - Include_Data_Set : Boolean := False; - -- Set True when Imported_Directories_Switches or Include_Path are set - - Source_Dirs : String_List_Id := Nil_String; - -- The list of all the source directories - - Known_Order_Of_Source_Dirs : Boolean := True; - -- False, if there is any /** in the Source_Dirs, because in this case - -- the ordering of the source subdirs depend on the OS. If True, - -- duplicate file names in the same project file are allowed. - - Ada_Include_Path : String_Access := null; - -- The cached value of source search path for this project file. Set by - -- the first call to Prj.Env.Ada_Include_Path for the project. Do not - -- use this field directly outside of the project manager, use - -- Prj.Env.Ada_Include_Path instead. - - ------------------- - -- Miscellaneous -- - ------------------- - - Ada_Objects_Path : String_Access := null; - -- The cached value of ADA_OBJECTS_PATH for this project file. Do not - -- use this field directly outside of the compiler, use - -- Prj.Env.Ada_Objects_Path instead. - - Libgnarl_Needed : Yes_No_Unknown := Unknown; - -- Set to True when libgnarl is needed to link - - Objects_Path : String_Access := null; - -- The cached value of the object dir path, used during the binding - -- phase of gprbuild. - - Objects_Path_File_With_Libs : Path_Name_Type := No_Path; - -- The cached value of the object path temp file (including library - -- dirs) for this project file. - - Objects_Path_File_Without_Libs : Path_Name_Type := No_Path; - -- The cached value of the object path temp file (excluding library - -- dirs) for this project file. - - Config_File_Name : Path_Name_Type := No_Path; - -- The path name of the configuration pragmas file, if any - - Config_File_Temp : Boolean := False; - -- An indication that the configuration pragmas file is a temporary file - -- that must be deleted at the end. - - Config_Checked : Boolean := False; - -- A flag to avoid checking repetitively the configuration pragmas file - - Checked : Boolean := False; - -- A flag to avoid checking repetitively the naming scheme of this - -- project file. - - Seen : Boolean := False; - -- A flag to mark a project as "visited" to avoid processing the same - -- project several time. - - Depth : Natural := 0; - -- The maximum depth of a project in the project graph. Depth of main - -- project is 0. - - Unkept_Comments : Boolean := False; - -- True if there are comments in the project sources that cannot be kept - -- in the project tree. - - end record; - - function Empty_Project (Tree : Project_Tree_Ref) return Project_Data; - -- Return the representation of an empty project in project Tree tree. - -- The project tree Tree must have been Initialized and/or Reset. - - function Is_Extending - (Extending : Project_Id; - Extended : Project_Id; - In_Tree : Project_Tree_Ref) return Boolean; - -- ??? needs comment - - function Is_A_Language - (Tree : Project_Tree_Ref; - Data : Project_Data; - Language_Name : Name_Id) return Boolean; - -- Return True when Language_Name (which must be lower case) is one of the - -- languages used for the project. - - Project_Error : exception; - -- Raised by some subprograms in Prj.Attr - - package Project_Table is new GNAT.Dynamic_Tables ( - Table_Component_Type => Project_Data, - Table_Index_Type => Project_Id, - Table_Low_Bound => 1, - Table_Initial => 100, - Table_Increment => 100); - -- The set of all project files - - type Spec_Or_Body is (Specification, Body_Part); - - type File_Name_Data is record - Name : File_Name_Type := No_File; - Index : Int := 0; - Display_Name : File_Name_Type := No_File; - Path : Path_Information := No_Path_Information; - Project : Project_Id := No_Project; - Needs_Pragma : Boolean := False; - end record; - -- File and Path name of a spec or body - - type File_Names_Data is array (Spec_Or_Body) of File_Name_Data; - - type Unit_Index is new Nat; - No_Unit_Index : constant Unit_Index := 0; - type Unit_Data is record - Name : Name_Id := No_Name; - File_Names : File_Names_Data; - end record; - -- Name and File and Path names of a unit, with a reference to its - -- GNAT Project File(s). - - package Unit_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Unit_Data, - Table_Index_Type => Unit_Index, - Table_Low_Bound => 1, - Table_Initial => 100, - Table_Increment => 100); - -- Table of all units in a project tree - - package Units_Htable is new Simple_HTable - (Header_Num => Header_Num, - Element => Unit_Index, - No_Element => No_Unit_Index, - Key => Name_Id, - Hash => Hash, - Equal => "="); - -- Mapping of unit names to indexes in the Units table - - type Unit_Project is record - Unit : Unit_Index := No_Unit_Index; - Project : Project_Id := No_Project; - end record; - - No_Unit_Project : constant Unit_Project := (No_Unit_Index, No_Project); - - package Files_Htable is new Simple_HTable - (Header_Num => Header_Num, - Element => Unit_Project, - No_Element => No_Unit_Project, - Key => File_Name_Type, - Hash => Hash, - Equal => "="); - -- Mapping of file names to indexes in the Units table - - type Private_Project_Tree_Data is private; - -- Data for a project tree that is used only by the Project Manager - - type Project_Tree_Data is - record - -- Languages and sources of the project - - First_Language : Language_Index := No_Language_Index; - -- - - First_Source : Source_Id := No_Source; - -- - - -- Tables - - Languages_Data : Language_Data_Table.Instance; - Name_Lists : Name_List_Table.Instance; - String_Elements : String_Element_Table.Instance; - Variable_Elements : Variable_Element_Table.Instance; - Array_Elements : Array_Element_Table.Instance; - Arrays : Array_Table.Instance; - Packages : Package_Table.Instance; - Project_Lists : Project_List_Table.Instance; - Projects : Project_Table.Instance; - Sources : Source_Data_Table.Instance; - Alt_Langs : Alternate_Language_Table.Instance; - Units : Unit_Table.Instance; - Units_HT : Units_Htable.Instance; - Files_HT : Files_Htable.Instance; - Source_Paths_HT : Source_Paths_Htable.Instance; - - -- Private part - - Private_Part : Private_Project_Tree_Data; - end record; - -- Data for a project tree - - type Put_Line_Access is access procedure - (Line : String; - Project : Project_Id; - In_Tree : Project_Tree_Ref); - -- Use to customize error reporting in Prj.Proc and Prj.Nmsc - - procedure Expect (The_Token : Token_Type; Token_Image : String); - -- Check that the current token is The_Token. If it is not, then output - -- an error message. - - procedure Initialize (Tree : Project_Tree_Ref); - -- This procedure must be called before using any services from the Prj - -- hierarchy. Namet.Initialize must be called before Prj.Initialize. - - procedure Reset (Tree : Project_Tree_Ref); - -- This procedure resets all the tables that are used when processing a - -- project file tree. Initialize must be called before the call to Reset. - - procedure Register_Default_Naming_Scheme - (Language : Name_Id; - Default_Spec_Suffix : File_Name_Type; - Default_Body_Suffix : File_Name_Type; - In_Tree : Project_Tree_Ref); - -- Register the default suffixes for a given language. These extensions - -- will be ignored if the user has specified a new naming scheme in a - -- project file. - -- - -- Otherwise, this information will be automatically added to Naming_Data - -- when a project is processed, in the lists Spec_Suffix and Body_Suffix. - - generic - type State is limited private; - with procedure Action - (Project : Project_Id; - With_State : in out State); - procedure For_Every_Project_Imported - (By : Project_Id; - In_Tree : Project_Tree_Ref; - With_State : in out State); - -- Call Action for each project imported directly or indirectly by project - -- By. Action is called according to the order of importation: if A - -- imports B, directly or indirectly, Action will be called for A before - -- it is called for B. If two projects import each other directly or - -- indirectly (using at least one "limited with"), it is not specified - -- for which of these two projects Action will be called first. Projects - -- that are extended by other projects are not considered. With_State may - -- be used by Action to choose a behavior or to report some global result. - - function Extend_Name - (File : File_Name_Type; - With_Suffix : String) return File_Name_Type; - -- Replace the extension of File with With_Suffix - - function Object_Name - (Source_File_Name : File_Name_Type) return File_Name_Type; - -- Returns the object file name corresponding to a source file name - - function Dependency_Name - (Source_File_Name : File_Name_Type; - Dependency : Dependency_File_Kind) return File_Name_Type; - -- Returns the dependency file name corresponding to a source file name - - function Switches_Name - (Source_File_Name : File_Name_Type) return File_Name_Type; - -- Returns the switches file name corresponding to a source file name - - ---------------- - -- Temp Files -- - ---------------- - - procedure Record_Temp_File (Path : Path_Name_Type); - -- Record the path of a newly created temporary file, so that it can be - -- deleted later. - - procedure Delete_All_Temp_Files; - -- Delete all recorded temporary files - -private - - All_Packages : constant String_List_Access := null; - - No_Project_Tree : constant Project_Tree_Ref := null; - - Ignored : constant Variable_Kind := Single; - - Nil_Variable_Value : constant Variable_Value := - (Project => No_Project, - Kind => Undefined, - Location => No_Location, - Default => False); - - Virtual_Prefix : constant String := "v$"; - -- The prefix for virtual extending projects. Because of the '$', which is - -- normally forbidden for project names, there cannot be any name clash. - - Empty_Name : Name_Id; - -- Name_Id for an empty name (no characters). Initialized in procedure - -- Initialize. - - Empty_File_Name : File_Name_Type; - -- Empty File_Name_Type (no characters). Initialized in procedure - -- Initialize. - - procedure Add_To_Buffer - (S : String; - To : in out String_Access; - Last : in out Natural); - -- Append a String to the Buffer - - type Naming_Id is new Nat; - - package Naming_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Naming_Data, - Table_Index_Type => Naming_Id, - Table_Low_Bound => 1, - Table_Initial => 5, - Table_Increment => 100); - -- Table storing the naming data for gnatmake/gprmake - - package Path_File_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Path_Name_Type, - Table_Index_Type => Natural, - Table_Low_Bound => 1, - Table_Initial => 50, - Table_Increment => 100); - -- Table storing all the temp path file names. - -- Used by Delete_All_Path_Files. - - package Source_Path_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Name_Id, - Table_Index_Type => Natural, - Table_Low_Bound => 1, - Table_Initial => 50, - Table_Increment => 100); - -- A table to store the source dirs before creating the source path file - - package Object_Path_Table is new GNAT.Dynamic_Tables - (Table_Component_Type => Path_Name_Type, - Table_Index_Type => Natural, - Table_Low_Bound => 1, - Table_Initial => 50, - Table_Increment => 100); - -- A table to store the object dirs, before creating the object path file - - type Private_Project_Tree_Data is record - Namings : Naming_Table.Instance; - Path_Files : Path_File_Table.Instance; - Source_Paths : Source_Path_Table.Instance; - Object_Paths : Object_Path_Table.Instance; - Default_Naming : Naming_Data; - end record; - -- Type to represent the part of a project tree which is private to the - -- Project Manager. - -end Prj; |