gcc/ada/prj.ads

   1 ------------------------------------------------------------------------------
   2 --                                                                          --
   3 --                         GNAT COMPILER COMPONENTS                         --
   4 --                                                                          --
   5 --                                  P R J                                   --
   6 --                                                                          --
   7 --                                 S p e c                                  --
   8 --                                                                          --
   9 --          Copyright (C) 2001-2008, 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 --  The following package declares the data types for GNAT project.
  27 --  These data types may be used by GNAT Project-aware tools.
  28
  29 --  Children of these package implements various services on these data types.
  30 --  See in particular Prj.Pars and Prj.Env.
  31
  32 with Casing; use Casing;
  33 with Namet;  use Namet;
  34 with Scans;  use Scans;
  35 with Types;  use Types;
  36
  37 with GNAT.Dynamic_HTables; use GNAT.Dynamic_HTables;
  38 with GNAT.Dynamic_Tables;
  39 with GNAT.OS_Lib;          use GNAT.OS_Lib;
  40
  41 package Prj is
  42
  43    All_Other_Names : constant Name_Id := Names_High_Bound;
  44    --  Name used to replace others as an index of an associative array
  45    --  attribute in situations where this is allowed.
  46
  47    Subdirs_Option : constant String := "--subdirs=";
  48    --  Switch used to indicate that the real directories (object, exec,
  49    --  library, ...) are subdirectories of those in the project file.
  50
  51    Subdirs : String_Ptr := null;
  52    --  The value after the equal sign in switch --subdirs=...
  53    --  Contains the relative subdirectory.
  54
  55    type Library_Support is (None, Static_Only, Full);
  56    --  Support for Library Project File.
  57    --  - None: Library Project Files are not supported at all
  58    --  - Static_Only: Library Project Files are only supported for static
  59    --    libraries.
  60    --  - Full: Library Project Files are supported for static and dynamic
  61    --    (shared) libraries.
  62
  63    type Yes_No_Unknown is (Yes, No, Unknown);
  64    --  Tri-state to decide if -lgnarl is needed when linking
  65
  66    type Mode is (Multi_Language, Ada_Only);
  67    --  Ada_Only: mode for gnatmake, gnatclean, gnatname, the GNAT driver
  68    --  Multi_Language: mode for gprbuild, gprclean
  69
  70    type Project_Qualifier is
  71      (Unspecified,
  72       Standard,
  73       Library,
  74       Dry,
  75       Aggregate,
  76       Aggregate_Library);
  77    --  Qualifiers that can prefix the reserved word "project" in a project
  78    --  file:
  79    --    Standard:             standard project ...
  80    --    Library:              library project is ...
  81    --    Dry:                  abstract project is
  82    --    Aggregate:            aggregate project is
  83    --    Aggregate_Library:    aggregate library project is ...
  84
  85    function Get_Mode return Mode;
  86    pragma Inline (Get_Mode);
  87
  88    procedure Set_Mode (New_Mode : Mode);
  89    pragma Inline (Set_Mode);
  90
  91    Default_Language_Is_Ada : Boolean := True;
  92    --  If no language was defined in the project or the configuration file, it
  93    --  is an error, unless this variable is True, in which case it defaults to
  94    --  Ada. Calling Set_Mode will reset this variable, default is for Ada_Only.
  95
  96    Must_Check_Configuration : Boolean := False;
  97    --  True when the contents of the configuration file must be checked. This
  98    --  is in general only needed by gprbuild itself, since other applications
  99    --  can ignore such errors when they don't need to build directly. Calling
 100    --  Set_Mode will reset this variable, default is for Ada_Only.
 101
 102    function In_Configuration return Boolean;
 103    pragma Inline (In_Configuration);
 104
 105    procedure Set_In_Configuration (Value : Boolean);
 106    pragma Inline (Set_In_Configuration);
 107
 108    All_Packages : constant String_List_Access;
 109    --  Default value of parameter Packages of procedures Parse, in Prj.Pars and
 110    --  Prj.Part, indicating that all packages should be checked.
 111
 112    type Project_Tree_Data;
 113    type Project_Tree_Ref is access all Project_Tree_Data;
 114    --  Reference to a project tree. Several project trees may exist in memory
 115    --  at the same time.
 116
 117    No_Project_Tree : constant Project_Tree_Ref;
 118
 119    procedure Free (Tree : in out Project_Tree_Ref);
 120    --  Free memory associated with the tree
 121
 122    function Default_Ada_Spec_Suffix return File_Name_Type;
 123    pragma Inline (Default_Ada_Spec_Suffix);
 124    --  The name for the standard GNAT suffix for Ada spec source file name
 125    --  ".ads". Initialized by Prj.Initialize.
 126
 127    function Default_Ada_Body_Suffix return File_Name_Type;
 128    pragma Inline (Default_Ada_Body_Suffix);
 129    --  The name for the standard GNAT suffix for Ada body source file name
 130    --  ".adb". Initialized by Prj.Initialize.
 131
 132    function Slash return Path_Name_Type;
 133    pragma Inline (Slash);
 134    --  "/", used as the path of locally removed files
 135
 136    Config_Project_File_Extension : String := ".cgpr";
 137    Project_File_Extension : String := ".gpr";
 138    --  The standard config and user project file name extensions. They are not
 139    --  constants, because Canonical_Case_File_Name is called on these variables
 140    --  in the body of Prj.
 141
 142    type Error_Warning is (Silent, Warning, Error);
 143    --  Severity of some situations, such as: no Ada sources in a project where
 144    --  Ada is one of the language.
 145    --
 146    --  When the situation occurs, the behaviour depends on the setting:
 147    --
 148    --    - Silent:  no action
 149    --    - Warning: issue a warning, does not cause the tool to fail
 150    --    - Error:   issue an error, causes the tool to fail
 151
 152    function Empty_File   return File_Name_Type;
 153    function Empty_String return Name_Id;
 154    --  Return the id for an empty string ""
 155
 156    type Path_Information is record
 157       Name         : Path_Name_Type := No_Path;
 158       Display_Name : Path_Name_Type := No_Path;
 159    end record;
 160
 161    No_Path_Information : constant Path_Information := (No_Path, No_Path);
 162
 163    type Project_Id is new Nat;
 164    No_Project : constant Project_Id := 0;
 165    --  Id of a Project File
 166
 167    type String_List_Id is new Nat;
 168    Nil_String : constant String_List_Id := 0;
 169    type String_Element is record
 170       Value         : Name_Id        := No_Name;
 171       Index         : Int            := 0;
 172       Display_Value : Name_Id        := No_Name;
 173       Location      : Source_Ptr     := No_Location;
 174       Flag          : Boolean        := False;
 175       Next          : String_List_Id := Nil_String;
 176    end record;
 177    --  To hold values for string list variables and array elements.
 178    --  Component Flag may be used for various purposes. For source
 179    --  directories, it indicates if the directory contains Ada source(s).
 180
 181    package String_Element_Table is new GNAT.Dynamic_Tables
 182      (Table_Component_Type => String_Element,
 183       Table_Index_Type     => String_List_Id,
 184       Table_Low_Bound      => 1,
 185       Table_Initial        => 200,
 186       Table_Increment      => 100);
 187    --  The table for string elements in string lists
 188
 189    type Variable_Kind is (Undefined, List, Single);
 190    --  Different kinds of variables
 191
 192    subtype Defined_Variable_Kind is Variable_Kind range List .. Single;
 193    --  The defined kinds of variables
 194
 195    Ignored : constant Variable_Kind;
 196    --  Used to indicate that a package declaration must be ignored
 197    --  while processing the project tree (unknown package name).
 198
 199    type Variable_Value (Kind : Variable_Kind := Undefined) is record
 200       Project  : Project_Id := No_Project;
 201       Location : Source_Ptr := No_Location;
 202       Default  : Boolean    := False;
 203       case Kind is
 204          when Undefined =>
 205             null;
 206          when List =>
 207             Values : String_List_Id := Nil_String;
 208          when Single =>
 209             Value : Name_Id := No_Name;
 210             Index : Int     := 0;
 211       end case;
 212    end record;
 213    --  Values for variables and array elements. Default is True if the
 214    --  current value is the default one for the variable
 215
 216    Nil_Variable_Value : constant Variable_Value;
 217    --  Value of a non existing variable or array element
 218
 219    type Variable_Id is new Nat;
 220    No_Variable : constant Variable_Id := 0;
 221    type Variable is record
 222       Next  : Variable_Id := No_Variable;
 223       Name  : Name_Id;
 224       Value : Variable_Value;
 225    end record;
 226    --  To hold the list of variables in a project file and in packages
 227
 228    package Variable_Element_Table is new GNAT.Dynamic_Tables
 229      (Table_Component_Type => Variable,
 230       Table_Index_Type     => Variable_Id,
 231       Table_Low_Bound      => 1,
 232       Table_Initial        => 200,
 233       Table_Increment      => 100);
 234    --  The table of variable in list of variables
 235
 236    type Array_Element_Id is new Nat;
 237    No_Array_Element : constant Array_Element_Id := 0;
 238    type Array_Element is record
 239       Index                : Name_Id;
 240       Src_Index            : Int := 0;
 241       Index_Case_Sensitive : Boolean := True;
 242       Value                : Variable_Value;
 243       Next                 : Array_Element_Id := No_Array_Element;
 244    end record;
 245    --  Each Array_Element represents an array element and is linked (Next)
 246    --  to the next array element, if any, in the array.
 247
 248    package Array_Element_Table is new GNAT.Dynamic_Tables
 249      (Table_Component_Type => Array_Element,
 250       Table_Index_Type     => Array_Element_Id,
 251       Table_Low_Bound      => 1,
 252       Table_Initial        => 200,
 253       Table_Increment      => 100);
 254    --  The table that contains all array elements
 255
 256    type Array_Id is new Nat;
 257    No_Array : constant Array_Id := 0;
 258    type Array_Data is record
 259       Name     : Name_Id          := No_Name;
 260       Location : Source_Ptr       := No_Location;
 261       Value    : Array_Element_Id := No_Array_Element;
 262       Next     : Array_Id         := No_Array;
 263    end record;
 264    --  Each Array_Data value represents an array.
 265    --  Value is the id of the first element.
 266    --  Next is the id of the next array in the project file or package.
 267
 268    package Array_Table is new GNAT.Dynamic_Tables
 269      (Table_Component_Type => Array_Data,
 270       Table_Index_Type     => Array_Id,
 271       Table_Low_Bound      => 1,
 272       Table_Initial        => 200,
 273       Table_Increment      => 100);
 274    --  The table that contains all arrays
 275
 276    type Package_Id is new Nat;
 277    No_Package : constant Package_Id := 0;
 278    type Declarations is record
 279       Variables  : Variable_Id := No_Variable;
 280       Attributes : Variable_Id := No_Variable;
 281       Arrays     : Array_Id    := No_Array;
 282       Packages   : Package_Id  := No_Package;
 283    end record;
 284    --  Contains the declarations (variables, single and array attributes,
 285    --  packages) for a project or a package in a project.
 286
 287    No_Declarations : constant Declarations :=
 288      (Variables  => No_Variable,
 289       Attributes => No_Variable,
 290       Arrays     => No_Array,
 291       Packages   => No_Package);
 292    --  Default value of Declarations: indicates that there is no declarations
 293
 294    type Package_Element is record
 295       Name   : Name_Id      := No_Name;
 296       Decl   : Declarations := No_Declarations;
 297       Parent : Package_Id   := No_Package;
 298       Next   : Package_Id   := No_Package;
 299    end record;
 300    --  A package (includes declarations that may include other packages)
 301
 302    package Package_Table is new GNAT.Dynamic_Tables
 303      (Table_Component_Type => Package_Element,
 304       Table_Index_Type     => Package_Id,
 305       Table_Low_Bound      => 1,
 306       Table_Initial        => 100,
 307       Table_Increment      => 100);
 308    --  The table that contains all packages
 309
 310    type Language_Index is new Nat;
 311    --  Index of language data
 312
 313    No_Language_Index : constant Language_Index := 0;
 314    --  Constant indicating that there is no language data
 315
 316    procedure Display_Language_Name
 317      (In_Tree  : Project_Tree_Ref;
 318       Language : Language_Index);
 319    --  Output the name of a language
 320
 321    Max_Header_Num : constant := 6150;
 322    type Header_Num is range 0 .. Max_Header_Num;
 323    --  Size for hash table below. The upper bound is an arbitrary value, the
 324    --  value here was chosen after testing to determine a good compromise
 325    --  between speed of access and memory usage.
 326
 327    function Hash (Name : Name_Id)        return Header_Num;
 328    function Hash (Name : File_Name_Type) return Header_Num;
 329    function Hash (Name : Path_Name_Type) return Header_Num;
 330    --  Used for computing hash values for names put into above hash table
 331
 332    function Hash (Project : Project_Id) return Header_Num;
 333    --  Used for hash tables where Project_Id is the Key
 334
 335    type Language_Kind is (File_Based, Unit_Based);
 336    --  Type for the kind of language. All languages are file based, except Ada
 337    --  which is unit based.
 338
 339    type Dependency_File_Kind is (None, Makefile, ALI_File);
 340    --  Type of dependency to be checked: no dependency file, Makefile fragment
 341    --  or ALI file (for Ada).
 342
 343    Makefile_Dependency_Suffix : constant String := ".d";
 344    ALI_Dependency_Suffix      : constant String := ".ali";
 345
 346    Switches_Dependency_Suffix : constant String := ".cswi";
 347
 348    Binder_Exchange_Suffix     : constant String := ".bexch";
 349    --  Suffix for binder exchange files
 350
 351    Library_Exchange_Suffix     : constant String := ".lexch";
 352    --  Suffix for library exchange files
 353
 354    type Name_List_Index is new Nat;
 355    No_Name_List            : constant Name_List_Index := 0;
 356
 357    type Name_Node is record
 358       Name : Name_Id         := No_Name;
 359       Next : Name_List_Index := No_Name_List;
 360    end record;
 361
 362    package Name_List_Table is new GNAT.Dynamic_Tables
 363      (Table_Component_Type => Name_Node,
 364       Table_Index_Type     => Name_List_Index,
 365       Table_Low_Bound      => 1,
 366       Table_Initial        => 10,
 367       Table_Increment      => 100);
 368    --  The table for lists of names used in package Language_Processing
 369
 370    package Mapping_Files_Htable is new Simple_HTable
 371      (Header_Num => Header_Num,
 372       Element    => Path_Name_Type,
 373       No_Element => No_Path,
 374       Key        => Path_Name_Type,
 375       Hash       => Hash,
 376       Equal      => "=");
 377    --  A hash table to store the mapping files that are not used
 378
 379    type Lang_Naming_Data is record
 380       Dot_Replacement : File_Name_Type := No_File;
 381       --  The string to replace '.' in the source file name (for Ada)
 382
 383       Casing : Casing_Type := All_Lower_Case;
 384       --  The casing of the source file name (for Ada)
 385
 386       Separate_Suffix : File_Name_Type := No_File;
 387       --  String to append to unit name for source file name of an Ada subunit
 388
 389       Spec_Suffix : File_Name_Type := No_File;
 390       --  The string to append to the unit name for the
 391       --  source file name of a spec.
 392
 393       Body_Suffix : File_Name_Type := No_File;
 394       --  The string to append to the unit name for the
 395       --  source file name of a body.
 396    end record;
 397
 398    No_Lang_Naming_Data : constant Lang_Naming_Data :=
 399                            (Dot_Replacement => No_File,
 400                             Casing          => All_Lower_Case,
 401                             Separate_Suffix => No_File,
 402                             Spec_Suffix     => No_File,
 403                             Body_Suffix     => No_File);
 404
 405    type Source_Id is new Nat;
 406
 407    No_Source : constant Source_Id := 0;
 408
 409    type Path_Syntax_Kind is
 410      (Canonical,
 411       --  Unix style
 412
 413       Host);
 414       --  Host specific syntax, for example on VMS (the default)
 415
 416    type Language_Config is record
 417       Kind : Language_Kind := File_Based;
 418       --  Kind of language. All languages are file based, except Ada which is
 419       --  unit based.
 420
 421       Naming_Data : Lang_Naming_Data;
 422       --  The naming data for the languages (prefixes, etc.)
 423
 424       Include_Compatible_Languages : Name_List_Index := No_Name_List;
 425       --  The list of languages that are "include compatible" with this
 426       --  language. A language B (for example "C") is "include compatible" with
 427       --  a language A (for example "C++") if it is expected that sources of
 428       --  language A may "include" header files from language B.
 429
 430       Compiler_Driver : File_Name_Type := No_File;
 431       --  The name of the executable for the compiler of the language
 432
 433       Compiler_Driver_Path : String_Access := null;
 434       --  The path name of the executable for the compiler of the language
 435
 436       Compiler_Required_Switches : Name_List_Index := No_Name_List;
 437       --  The list of switches that are required as a minimum to invoke the
 438       --  compiler driver.
 439
 440       Path_Syntax                  : Path_Syntax_Kind := Host;
 441       --  Value may be Canonical (Unix style) or Host (host syntax, for example
 442       --  on VMS for DEC C).
 443
 444       Compilation_PIC_Option : Name_List_Index := No_Name_List;
 445       --  The option(s) to compile a source in Position Independent Code for
 446       --  shared libraries. Specified in the configuration. When not specified,
 447       --  there is no need for such switch.
 448
 449       Object_Generated             : Boolean := True;
 450       --  False in no object file is generated
 451
 452       Objects_Linked               : Boolean := True;
 453       --  False if object files are not use to link executables and build
 454       --  libraries.
 455
 456       Runtime_Library_Dir        : Name_Id := No_Name;
 457       --  Path name of the runtime library directory, if any
 458
 459       Runtime_Source_Dir        : Name_Id := No_Name;
 460       --  Path name of the runtime source directory, if any
 461
 462       Mapping_File_Switches  : Name_List_Index := No_Name_List;
 463       --  The option(s) to provide a mapping file to the compiler. Specified in
 464       --  the configuration. When value is No_Name_List, there is no mapping
 465       --  file.
 466
 467       Mapping_Spec_Suffix        : File_Name_Type       := No_File;
 468       --  Placeholder representing the spec suffix in a mapping file
 469
 470       Mapping_Body_Suffix        : File_Name_Type       := No_File;
 471       --  Placeholder representing the body suffix in a mapping file
 472
 473       Config_File_Switches       : Name_List_Index      := No_Name_List;
 474       --  The option(s) to provide a config file to the compiler. Specified in
 475       --  the configuration. When value is No_Name_List, there is no config
 476       --  file.
 477
 478       Dependency_Kind            : Dependency_File_Kind := None;
 479       --  The kind of dependency to be checked: none, Makefile fragment or
 480       --  ALI file (for Ada).
 481
 482       Dependency_Option          : Name_List_Index      := No_Name_List;
 483       --  The option(s) to be used to create the dependency file. When value is
 484       --  No_Name_List, there is not such option(s).
 485
 486       Compute_Dependency         : Name_List_Index      := No_Name_List;
 487       --  Hold the value of attribute Dependency_Driver, if declared for the
 488       --  language.
 489
 490       Include_Option             : Name_List_Index      := No_Name_List;
 491       --  Hold the value of attribute Include_Switches, if declared for the
 492       --  language.
 493
 494       Include_Path : Name_Id := No_Name;
 495       --  Name of environment variable declared by attribute Include_Path for
 496       --  the language.
 497
 498       Include_Path_File : Name_Id := No_Name;
 499       --  Name of environment variable declared by attribute Include_Path_File
 500       --  for the language.
 501
 502       Objects_Path : Name_Id := No_Name;
 503       --  Name of environment variable declared by attribute Objects_Path for
 504       --  the language.
 505
 506       Objects_Path_File : Name_Id := No_Name;
 507       --  Name of environment variable declared by attribute Objects_Path_File
 508       --  for the language.
 509
 510       Config_Body                : Name_Id         := No_Name;
 511       --  The template for a pragma Source_File_Name(_Project) for a specific
 512       --  file name of a body.
 513
 514       Config_Spec           : Name_Id         := No_Name;
 515       --  The template for a pragma Source_File_Name(_Project) for a specific
 516       --  file name of a spec.
 517
 518       Config_Body_Pattern   : Name_Id         := No_Name;
 519       --  The template for a pragma Source_File_Name(_Project) for a naming
 520       --  body pattern.
 521
 522       Config_Spec_Pattern   : Name_Id         := No_Name;
 523       --  The template for a pragma Source_File_Name(_Project) for a naming
 524       --  spec pattern.
 525
 526       Config_File_Unique         : Boolean         := False;
 527       --  Indicate if the config file specified to the compiler needs to be
 528       --  unique. If it is unique, then all config files are concatenated into
 529       --  a temp config file.
 530
 531       Binder_Driver              : File_Name_Type  := No_File;
 532       --  The name of the binder driver for the language, if any
 533
 534       Binder_Driver_Path         : Path_Name_Type  := No_Path;
 535       --  The path name of the binder driver
 536
 537       Binder_Required_Switches   : Name_List_Index      := No_Name_List;
 538       --  Hold the value of attribute Binder'Required_Switches for the language
 539
 540       Binder_Prefix              : Name_Id         := No_Name;
 541       --  Hold the value of attribute Binder'Prefix for the language
 542
 543       Toolchain_Version          : Name_Id         := No_Name;
 544       --  Hold the value of attribute Toolchain_Version for the language
 545
 546       Toolchain_Description      : Name_Id         := No_Name;
 547       --  Hold the value of attribute Toolchain_Description for the language
 548
 549    end record;
 550    --  Record describing the configuration of a language
 551
 552    No_Language_Config : constant Language_Config :=
 553                           (Kind                         => File_Based,
 554                            Naming_Data                  => No_Lang_Naming_Data,
 555                            Include_Compatible_Languages => No_Name_List,
 556                            Compiler_Driver              => No_File,
 557                            Compiler_Driver_Path         => null,
 558                            Compiler_Required_Switches   => No_Name_List,
 559                            Path_Syntax                  => Canonical,
 560                            Compilation_PIC_Option       => No_Name_List,
 561                            Object_Generated             => True,
 562                            Objects_Linked               => True,
 563                            Runtime_Library_Dir          => No_Name,
 564                            Runtime_Source_Dir           => No_Name,
 565                            Mapping_File_Switches        => No_Name_List,
 566                            Mapping_Spec_Suffix          => No_File,
 567                            Mapping_Body_Suffix          => No_File,
 568                            Config_File_Switches         => No_Name_List,
 569                            Dependency_Kind              => Makefile,
 570                            Dependency_Option            => No_Name_List,
 571                            Compute_Dependency           => No_Name_List,
 572                            Include_Option               => No_Name_List,
 573                            Include_Path                 => No_Name,
 574                            Include_Path_File            => No_Name,
 575                            Objects_Path                 => No_Name,
 576                            Objects_Path_File            => No_Name,
 577                            Config_Body                  => No_Name,
 578                            Config_Spec                  => No_Name,
 579                            Config_Body_Pattern          => No_Name,
 580                            Config_Spec_Pattern          => No_Name,
 581                            Config_File_Unique           => False,
 582                            Binder_Driver                => No_File,
 583                            Binder_Driver_Path           => No_Path,
 584                            Binder_Required_Switches     => No_Name_List,
 585                            Binder_Prefix                => No_Name,
 586                            Toolchain_Version            => No_Name,
 587                            Toolchain_Description        => No_Name);
 588
 589    type Language_Data is record
 590       Name          : Name_Id         := No_Name;
 591       Display_Name  : Name_Id         := No_Name;
 592       Config        : Language_Config := No_Language_Config;
 593       First_Source  : Source_Id       := No_Source;
 594       Mapping_Files : Mapping_Files_Htable.Instance :=
 595                         Mapping_Files_Htable.Nil;
 596       Next          : Language_Index  := No_Language_Index;
 597    end record;
 598
 599    No_Language_Data : constant Language_Data :=
 600                         (Name          => No_Name,
 601                          Display_Name  => No_Name,
 602                          Config        => No_Language_Config,
 603                          First_Source  => No_Source,
 604                          Mapping_Files => Mapping_Files_Htable.Nil,
 605                          Next          => No_Language_Index);
 606
 607    package Language_Data_Table is new GNAT.Dynamic_Tables
 608      (Table_Component_Type => Language_Data,
 609       Table_Index_Type     => Language_Index,
 610       Table_Low_Bound      => 1,
 611       Table_Initial        => 10,
 612       Table_Increment      => 100);
 613    --  The table for lists of names used in package Language_Processing
 614
 615    type Alternate_Language_Id is new Nat;
 616
 617    No_Alternate_Language : constant Alternate_Language_Id := 0;
 618
 619    type Alternate_Language_Data is record
 620       Language : Language_Index := No_Language_Index;
 621       Next     : Alternate_Language_Id := No_Alternate_Language;
 622    end record;
 623
 624    package Alternate_Language_Table is new GNAT.Dynamic_Tables
 625      (Table_Component_Type => Alternate_Language_Data,
 626       Table_Index_Type     => Alternate_Language_Id,
 627       Table_Low_Bound      => 1,
 628       Table_Initial        => 10,
 629       Table_Increment      => 100);
 630    --  The table for storing the alternate languages of a header file that
 631    --  is used for several languages.
 632
 633    type Source_Kind is (Spec, Impl, Sep);
 634
 635    type Source_Data is record
 636       Project             : Project_Id            := No_Project;
 637       --  Project of the source
 638
 639       Language_Name       : Name_Id               := No_Name;
 640       --  Name of the language of the source
 641
 642       Language            : Language_Index        := No_Language_Index;
 643       --  Index of the language
 644
 645       Lang_Kind           : Language_Kind         := File_Based;
 646       --  Kind of the language
 647
 648       Compiled            : Boolean               := True;
 649       --  False when there is no compiler for the language
 650
 651       In_Interfaces       : Boolean               := True;
 652       --  False when the source is not included in interfaces, when attribute
 653       --  Interfaces is declared.
 654
 655       Declared_In_Interfaces : Boolean            := False;
 656       --  True when source is declared in attribute Interfaces
 657
 658       Alternate_Languages : Alternate_Language_Id := No_Alternate_Language;
 659       --  List of languages a header file may also be, in addition of
 660       --  language Language_Name.
 661
 662       Kind                : Source_Kind           := Spec;
 663       --  Kind of the source: spec, body or subunit
 664
 665       Dependency          : Dependency_File_Kind  := None;
 666       --  Kind of dependency: none, Makefile fragment or ALI file
 667
 668       Other_Part          : Source_Id             := No_Source;
 669       --  Source ID for the other part, if any: for a spec, indicates its body;
 670       --  for a body, indicates its spec.
 671
 672       Unit                : Name_Id               := No_Name;
 673       --  Name of the unit, if language is unit based
 674
 675       Index               : Int                   := 0;
 676       --  Index of the source in a multi unit source file
 677
 678       Locally_Removed     : Boolean               := False;
 679       --  True if the source has been "excluded"
 680
 681       Get_Object          : Boolean               := False;
 682       --  Indicates that the object of the source should be put in the global
 683       --  archive. This is for Ada, when only the closure of a main needs to
 684       --  be compiled/recompiled.
 685
 686       Replaced_By         : Source_Id             := No_Source;
 687
 688       File                : File_Name_Type        := No_File;
 689       --  Canonical file name of the source
 690
 691       Display_File        : File_Name_Type        := No_File;
 692       --  File name of the source, for display purposes
 693
 694       Path                : Path_Information      := No_Path_Information;
 695       --  Path name of the source
 696
 697       Source_TS           : Time_Stamp_Type       := Empty_Time_Stamp;
 698       --  Time stamp of the source file
 699
 700       Object_Project      : Project_Id            := No_Project;
 701       --  Project where the object file is
 702
 703       Object_Exists       : Boolean               := True;
 704       --  True if an object file exists
 705
 706       Object_Linked          : Boolean            := True;
 707       --  False if the object file is not use to link executables or included
 708       --  in libraries.
 709
 710       Object              : File_Name_Type        := No_File;
 711       --  File name of the object file
 712
 713       Current_Object_Path : Path_Name_Type        := No_Path;
 714       --  Object path of an existing object file
 715
 716       Object_Path         : Path_Name_Type        := No_Path;
 717       --  Object path of the real object file
 718
 719       Object_TS           : Time_Stamp_Type       := Empty_Time_Stamp;
 720       --  Object file time stamp
 721
 722       Dep_Name            : File_Name_Type        := No_File;
 723       --  Dependency file simple name
 724
 725       Current_Dep_Path    : Path_Name_Type        := No_Path;
 726       --  Path name of an existing dependency file
 727
 728       Dep_Path            : Path_Name_Type        := No_Path;
 729       --  Path name of the real dependency file
 730
 731       Dep_TS              : Time_Stamp_Type       := Empty_Time_Stamp;
 732       --  Dependency file time stamp
 733
 734       Switches            : File_Name_Type        := No_File;
 735       --  File name of the switches file. For all languages, this is a file
 736       --  that ends with the .cswi extension.
 737
 738       Switches_Path       : Path_Name_Type        := No_Path;
 739       --  Path name of the switches file
 740
 741       Switches_TS         : Time_Stamp_Type       := Empty_Time_Stamp;
 742       --  Switches file time stamp
 743
 744       Naming_Exception    : Boolean               := False;
 745       --  True if the source has an exceptional name
 746
 747       Next_In_Sources     : Source_Id             := No_Source;
 748       --  Link to another source in the project tree
 749
 750       Next_In_Project     : Source_Id             := No_Source;
 751       --  Link to another source in the project
 752
 753       Next_In_Lang        : Source_Id             := No_Source;
 754       --  Link to another source of the same language
 755    end record;
 756
 757    No_Source_Data : constant Source_Data :=
 758                       (Project                => No_Project,
 759                        Language_Name          => No_Name,
 760                        Language               => No_Language_Index,
 761                        Lang_Kind              => File_Based,
 762                        Compiled               => True,
 763                        In_Interfaces          => True,
 764                        Declared_In_Interfaces => False,
 765                        Alternate_Languages    => No_Alternate_Language,
 766                        Kind                   => Spec,
 767                        Dependency             => None,
 768                        Other_Part             => No_Source,
 769                        Unit                   => No_Name,
 770                        Index                  => 0,
 771                        Locally_Removed        => False,
 772                        Get_Object             => False,
 773                        Replaced_By            => No_Source,
 774                        File                   => No_File,
 775                        Display_File           => No_File,
 776                        Path                   => No_Path_Information,
 777                        Source_TS              => Empty_Time_Stamp,
 778                        Object_Project         => No_Project,
 779                        Object_Exists          => True,
 780                        Object_Linked          => True,
 781                        Object                 => No_File,
 782                        Current_Object_Path    => No_Path,
 783                        Object_Path            => No_Path,
 784                        Object_TS              => Empty_Time_Stamp,
 785                        Dep_Name               => No_File,
 786                        Current_Dep_Path       => No_Path,
 787                        Dep_Path               => No_Path,
 788                        Dep_TS                 => Empty_Time_Stamp,
 789                        Switches               => No_File,
 790                        Switches_Path          => No_Path,
 791                        Switches_TS            => Empty_Time_Stamp,
 792                        Naming_Exception       => False,
 793                        Next_In_Sources        => No_Source,
 794                        Next_In_Project        => No_Source,
 795                        Next_In_Lang           => No_Source);
 796
 797    package Source_Data_Table is new GNAT.Dynamic_Tables
 798      (Table_Component_Type => Source_Data,
 799       Table_Index_Type     => Source_Id,
 800       Table_Low_Bound      => 1,
 801       Table_Initial        => 1000,
 802       Table_Increment      => 100);
 803    --  The table for the sources
 804
 805    package Source_Paths_Htable is new Simple_HTable
 806      (Header_Num => Header_Num,
 807       Element    => Source_Id,
 808       No_Element => No_Source,
 809       Key        => Path_Name_Type,
 810       Hash       => Hash,
 811       Equal      => "=");
 812    --  Mapping of source paths to source ids
 813
 814    package Unit_Sources_Htable is new Simple_HTable
 815      (Header_Num => Header_Num,
 816       Element    => Source_Id,
 817       No_Element => No_Source,
 818       Key        => Name_Id,
 819       Hash       => Hash,
 820       Equal      => "=");
 821
 822    type Verbosity is (Default, Medium, High);
 823    --  Verbosity when parsing GNAT Project Files
 824    --    Default is default (very quiet, if no errors).
 825    --    Medium is more verbose.
 826    --    High is extremely verbose.
 827
 828    Current_Verbosity : Verbosity := Default;
 829    --  The current value of the verbosity the project files are parsed with
 830
 831    type Lib_Kind is (Static, Dynamic, Relocatable);
 832
 833    type Policy is (Autonomous, Compliant, Controlled, Restricted, Direct);
 834    --  Type to specify the symbol policy, when symbol control is supported.
 835    --  See full explanation about this type in package Symbols.
 836    --    Autonomous: Create a symbol file without considering any reference
 837    --    Compliant:  Try to be as compatible as possible with an existing ref
 838    --    Controlled: Fail if symbols are not the same as those in the reference
 839    --    Restricted: Restrict the symbols to those in the symbol file
 840    --    Direct:     The symbol file is used as is
 841
 842    type Symbol_Record is record
 843       Symbol_File   : Path_Name_Type := No_Path;
 844       Reference     : Path_Name_Type := No_Path;
 845       Symbol_Policy : Policy  := Autonomous;
 846    end record;
 847    --  Type to keep the symbol data to be used when building a shared library
 848
 849    No_Symbols : constant Symbol_Record :=
 850      (Symbol_File   => No_Path,
 851       Reference     => No_Path,
 852       Symbol_Policy => Autonomous);
 853    --  The default value of the symbol data
 854
 855    function Image (Casing : Casing_Type) return String;
 856    --  Similar to 'Image (but avoid use of this attribute in compiler)
 857
 858    function Value (Image : String) return Casing_Type;
 859    --  Similar to 'Value (but avoid use of this attribute in compiler)
 860    --  Raises Constraint_Error if not a Casing_Type image.
 861
 862    --  The following record contains data for a naming scheme
 863
 864    type Naming_Data is record
 865
 866       Dot_Replacement : File_Name_Type := No_File;
 867       --  The string to replace '.' in the source file name (for Ada)
 868
 869       Dot_Repl_Loc : Source_Ptr := No_Location;
 870
 871       Casing : Casing_Type := All_Lower_Case;
 872       --  The casing of the source file name (for Ada)
 873
 874       Spec_Suffix : Array_Element_Id := No_Array_Element;
 875       --  The string to append to the unit name for the
 876       --  source file name of a spec.
 877       --  Indexed by the programming language.
 878
 879       Ada_Spec_Suffix_Loc : Source_Ptr := No_Location;
 880
 881       Body_Suffix : Array_Element_Id := No_Array_Element;
 882       --  The string to append to the unit name for the
 883       --  source file name of a body.
 884       --  Indexed by the programming language.
 885
 886       Ada_Body_Suffix_Loc : Source_Ptr := No_Location;
 887
 888       Separate_Suffix : File_Name_Type := No_File;
 889       --  String to append to unit name for source file name of an Ada subunit
 890
 891       Sep_Suffix_Loc : Source_Ptr := No_Location;
 892       --  Position in the project file source where Separate_Suffix is defined
 893
 894       Specs : Array_Element_Id := No_Array_Element;
 895       --  An associative array mapping individual specs to source file names
 896       --  This is specific to Ada.
 897
 898       Bodies : Array_Element_Id := No_Array_Element;
 899       --  An associative array mapping individual bodies to source file names
 900       --  This is specific to Ada.
 901
 902       Specification_Exceptions : Array_Element_Id := No_Array_Element;
 903       --  An associative array listing spec file names that do not have the
 904       --  spec suffix. Not used by Ada. Indexed by programming language name.
 905
 906       Implementation_Exceptions : Array_Element_Id := No_Array_Element;
 907       --  An associative array listing body file names that do not have the
 908       --  body suffix. Not used by Ada. Indexed by programming language name.
 909
 910    end record;
 911
 912    function Spec_Suffix_Of
 913      (In_Tree  : Project_Tree_Ref;
 914       Language : String;
 915       Naming   : Naming_Data) return String;
 916
 917    function Spec_Suffix_Id_Of
 918      (In_Tree  : Project_Tree_Ref;
 919       Language : String;
 920       Naming   : Naming_Data) return File_Name_Type;
 921
 922    function Spec_Suffix_Id_Of
 923      (In_Tree     : Project_Tree_Ref;
 924       Language_Id : Name_Id;
 925       Naming      : Naming_Data) return File_Name_Type;
 926
 927    procedure Set_Spec_Suffix
 928      (In_Tree  : Project_Tree_Ref;
 929       Language : String;
 930       Naming   : in out Naming_Data;
 931       Suffix   : File_Name_Type);
 932
 933    function Body_Suffix_Id_Of
 934      (In_Tree  : Project_Tree_Ref;
 935       Language : String;
 936       Naming   : Naming_Data) return File_Name_Type;
 937
 938    function Body_Suffix_Id_Of
 939      (In_Tree     : Project_Tree_Ref;
 940       Language_Id : Name_Id;
 941       Naming      : Naming_Data) return File_Name_Type;
 942
 943    function Body_Suffix_Of
 944      (In_Tree  : Project_Tree_Ref;
 945       Language : String;
 946       Naming   : Naming_Data) return String;
 947
 948    procedure Set_Body_Suffix
 949      (In_Tree  : Project_Tree_Ref;
 950       Language : String;
 951       Naming   : in out Naming_Data;
 952       Suffix   : File_Name_Type);
 953
 954    function Objects_Exist_For
 955      (Language : String;
 956       In_Tree  : Project_Tree_Ref) return Boolean;
 957
 958    function Standard_Naming_Data
 959      (Tree : Project_Tree_Ref := No_Project_Tree) return Naming_Data;
 960    pragma Inline (Standard_Naming_Data);
 961    --  The standard GNAT naming scheme when Tree is No_Project_Tree.
 962    --  Otherwise, return the default naming scheme for the project tree Tree,
 963    --  which must have been Initialized.
 964
 965    function Same_Naming_Scheme
 966      (Left, Right : Naming_Data) return Boolean;
 967    --  Returns True if Left and Right are the same naming scheme
 968    --  not considering Specs and Bodies.
 969
 970    type Project_List is new Nat;
 971    Empty_Project_List : constant Project_List := 0;
 972    --  A list of project files
 973
 974    type Project_Element is record
 975       Project : Project_Id   := No_Project;
 976       Next    : Project_List := Empty_Project_List;
 977    end record;
 978    --  Element in a list of project files. Next is the id of the next
 979    --  project file in the list.
 980
 981    package Project_List_Table is new GNAT.Dynamic_Tables
 982      (Table_Component_Type => Project_Element,
 983       Table_Index_Type     => Project_List,
 984       Table_Low_Bound      => 1,
 985       Table_Initial        => 100,
 986       Table_Increment      => 100);
 987    --  The table that contains the lists of project files
 988
 989    type Response_File_Format is
 990      (None,
 991       GNU,
 992       Object_List,
 993       Option_List);
 994    --  The format of the different response files
 995
 996    type Project_Configuration is record
 997       Run_Path_Option               : Name_List_Index := No_Name_List;
 998       --  The option to use when linking to specify the path where to look for
 999       --  libraries.
1000
1001       Executable_Suffix             : Name_Id         := No_Name;
1002       --  The suffix of executables, when specified in the configuration or in
1003       --  package Builder of the main project. When this is not specified, the
1004       --  executable suffix is the default for the platform.
1005
1006       --  Linking
1007
1008       Linker                        : Path_Name_Type  := No_Path;
1009       --  Path name of the linker driver. Specified in the configuration or in
1010       --  the package Builder of the main project.
1011
1012       Map_File_Option               : Name_Id := No_Name;
1013       --  Option to use when invoking the linker to build a map file
1014
1015       Minimum_Linker_Options        : Name_List_Index := No_Name_List;
1016       --  The minimum options for the linker driver. Specified in the
1017       --  configuration.
1018
1019       Linker_Executable_Option      : Name_List_Index := No_Name_List;
1020       --  The option(s) to indicate the name of the executable in the linker
1021       --  command. Specified in the configuration. When not specified, default
1022       --  to -o <executable name>.
1023
1024       Linker_Lib_Dir_Option         : Name_Id         := No_Name;
1025       --  The option to specify where to find a library for linking. Specified
1026       --  in the configuration. When not specified, defaults to "-L".
1027
1028       Linker_Lib_Name_Option        : Name_Id         := No_Name;
1029       --  The option to specify the name of a library for linking. Specified in
1030       --  the configuration. When not specified, defaults to "-l".
1031
1032       Max_Command_Line_Length       : Natural         := 0;
1033       --  When positive and when Resp_File_Format (see below) is not None,
1034       --  if the command line for the invocation of the linker would be greater
1035       --  than this value, a response file is used to invoke the linker.
1036
1037       Resp_File_Format              : Response_File_Format := None;
1038       --  The format of a response file, when linking with a response file is
1039       --  supported.
1040
1041       Resp_File_Options             : Name_List_Index := No_Name_List;
1042       --  The switches, if any, that precede the path name of the response
1043       --  file in the invocation of the linker.
1044
1045       --  Libraries
1046
1047       Library_Builder               : Path_Name_Type  := No_Path;
1048       --  The executable to build library (specified in the configuration)
1049
1050       Lib_Support                   : Library_Support := None;
1051       --  The level of library support. Specified in the configuration. Support
1052       --  is none, static libraries only or both static and shared libraries.
1053
1054       Archive_Builder               : Name_List_Index := No_Name_List;
1055       --  The name of the executable to build archives, with the minimum
1056       --  switches. Specified in the configuration.
1057
1058       Archive_Builder_Append_Option : Name_List_Index := No_Name_List;
1059       --  The options to append object files to an archive
1060
1061       Archive_Indexer               : Name_List_Index := No_Name_List;
1062       --  The name of the executable to index archives, with the minimum
1063       --  switches. Specified in the configuration.
1064
1065       Archive_Suffix                : File_Name_Type  := No_File;
1066       --  The suffix of archives. Specified in the configuration. When not
1067       --  specified, defaults to ".a".
1068
1069       Lib_Partial_Linker            : Name_List_Index := No_Name_List;
1070
1071       --  Shared libraries
1072
1073       Shared_Lib_Driver             : File_Name_Type  := No_File;
1074       --  The driver to link shared libraries. Set with attribute Library_GCC.
1075       --  Default to gcc.
1076
1077       Shared_Lib_Prefix             : File_Name_Type  := No_File;
1078       --  Part of a shared library file name that precedes the name of the
1079       --  library. Specified in the configuration. When not specified, defaults
1080       --  to "lib".
1081
1082       Shared_Lib_Suffix             : File_Name_Type  := No_File;
1083       --  Suffix of shared libraries, after the library name in the shared
1084       --  library name. Specified in the configuration. When not specified,
1085       --  default to ".so".
1086
1087       Shared_Lib_Min_Options        : Name_List_Index := No_Name_List;
1088       --  The minimum options to use when building a shared library
1089
1090       Lib_Version_Options           : Name_List_Index := No_Name_List;
1091       --  The options to use to specify a library version
1092
1093       Symbolic_Link_Supported       : Boolean         := False;
1094       --  True if the platform supports symbolic link files
1095
1096       Lib_Maj_Min_Id_Supported      : Boolean         := False;
1097       --  True if platform supports library major and minor options, such as
1098       --  libname.so -> libname.so.2 -> libname.so.2.4
1099
1100       Auto_Init_Supported           : Boolean         := False;
1101       --  True if automatic initialisation is supported for shared stand-alone
1102       --  libraries.
1103    end record;
1104
1105    Default_Project_Config : constant Project_Configuration :=
1106                               (Run_Path_Option               => No_Name_List,
1107                                Executable_Suffix             => No_Name,
1108                                Linker                        => No_Path,
1109                                Map_File_Option               => No_Name,
1110                                Minimum_Linker_Options        => No_Name_List,
1111                                Linker_Executable_Option      => No_Name_List,
1112                                Linker_Lib_Dir_Option         => No_Name,
1113                                Linker_Lib_Name_Option        => No_Name,
1114                                Library_Builder               => No_Path,
1115                                Max_Command_Line_Length       => 0,
1116                                Resp_File_Format              => None,
1117                                Resp_File_Options             => No_Name_List,
1118                                Lib_Support                   => None,
1119                                Archive_Builder               => No_Name_List,
1120                                Archive_Builder_Append_Option => No_Name_List,
1121                                Archive_Indexer               => No_Name_List,
1122                                Archive_Suffix                => No_File,
1123                                Lib_Partial_Linker            => No_Name_List,
1124                                Shared_Lib_Driver             => No_File,
1125                                Shared_Lib_Prefix             => No_File,
1126                                Shared_Lib_Suffix             => No_File,
1127                                Shared_Lib_Min_Options        => No_Name_List,
1128                                Lib_Version_Options           => No_Name_List,
1129                                Symbolic_Link_Supported       => False,
1130                                Lib_Maj_Min_Id_Supported      => False,
1131                                Auto_Init_Supported           => False);
1132
1133    --  The following record describes a project file representation
1134
1135    --  Note that it is not specified if the path names of directories (source,
1136    --  object, library or exec directories) end with or without a directory
1137    --  separator.
1138
1139    type Project_Data is record
1140
1141       -------------
1142       -- General --
1143       -------------
1144
1145       Name : Name_Id := No_Name;
1146       --  The name of the project
1147
1148       Display_Name : Name_Id := No_Name;
1149       --  The name of the project with the spelling of its declaration
1150
1151       Qualifier : Project_Qualifier := Unspecified;
1152       --  The eventual qualifier for this project
1153
1154       Externally_Built : Boolean := False;
1155       --  True if the project is externally built. In such case, the Project
1156       --  Manager will not modify anything in this project.
1157
1158       Config : Project_Configuration;
1159
1160       Path : Path_Information := No_Path_Information;
1161       --  The path name of the project file
1162
1163       Virtual : Boolean := False;
1164       --  True for virtual extending projects
1165
1166       Location : Source_Ptr := No_Location;
1167       --  The location in the project file source of the reserved word project
1168
1169       Naming : Naming_Data := Standard_Naming_Data;
1170       --  The naming scheme of this project file
1171
1172       ---------------
1173       -- Languages --
1174       ---------------
1175
1176       Languages : Name_List_Index := No_Name_List;
1177       --  The list of languages of the sources of this project
1178
1179       Include_Language : Language_Index := No_Language_Index;
1180
1181       First_Language_Processing : Language_Index := No_Language_Index;
1182       --  First index of the language data in the project
1183
1184       Unit_Based_Language_Name  : Name_Id := No_Name;
1185       Unit_Based_Language_Index : Language_Index := No_Language_Index;
1186       --  The name and index, if any, of the unit-based language of some
1187       --  sources of the project. There may be only one unit-based language
1188       --  in one project.
1189
1190       --------------
1191       -- Projects --
1192       --------------
1193
1194       First_Referred_By : Project_Id := No_Project;
1195       --  The project, if any, that was the first to be known as importing or
1196       --  extending this project
1197
1198       Mains : String_List_Id := Nil_String;
1199       --  List of mains specified by attribute Main
1200
1201       Extends : Project_Id := No_Project;
1202       --  The reference of the project file, if any, that this project file
1203       --  extends.
1204
1205       Extended_By : Project_Id := No_Project;
1206       --  The reference of the project file, if any, that extends this project
1207       --  file.
1208
1209       Decl : Declarations := No_Declarations;
1210       --  The declarations (variables, attributes and packages) of this project
1211       --  file.
1212
1213       Imported_Projects : Project_List := Empty_Project_List;
1214       --  The list of all directly imported projects, if any
1215
1216       All_Imported_Projects : Project_List := Empty_Project_List;
1217       --  The list of all projects imported directly or indirectly, if any
1218
1219       -----------------
1220       -- Directories --
1221       -----------------
1222
1223       Directory : Path_Information := No_Path_Information;
1224       --  Path name of the directory where the project file resides
1225
1226       Dir_Path : String_Access;
1227       --  Same as Directory.Name, but as an access to String
1228
1229       Object_Directory : Path_Information := No_Path_Information;
1230       --  The path name of the object directory of this project file
1231
1232       Exec_Directory : Path_Information := No_Path_Information;
1233       --  The path name of the exec directory of this project file. Default is
1234       --  equal to Object_Directory.
1235
1236       -------------
1237       -- Library --
1238       -------------
1239
1240       Library : Boolean := False;
1241       --  True if this is a library project
1242
1243       Library_Name : Name_Id := No_Name;
1244       --  If a library project, name of the library
1245
1246       Library_Kind : Lib_Kind := Static;
1247       --  If a library project, kind of library
1248
1249       Library_Dir : Path_Information := No_Path_Information;
1250       --  If a library project, path name of the directory where the library
1251       --  resides.
1252
1253       Library_TS : Time_Stamp_Type := Empty_Time_Stamp;
1254       --  The timestamp of a library file in a library project
1255
1256       Library_Src_Dir : Path_Information := No_Path_Information;
1257       --  If a Stand-Alone Library project, path name of the directory where
1258       --  the sources of the interfaces of the library are copied. By default,
1259       --  if attribute Library_Src_Dir is not specified, sources of the
1260       --  interfaces are not copied anywhere.
1261
1262       Library_ALI_Dir : Path_Information := No_Path_Information;
1263       --  In a library project, path name of the directory where the ALI files
1264       --  are copied. If attribute Library_ALI_Dir is not specified, ALI files
1265       --  are copied in the Library_Dir.
1266
1267       Lib_Internal_Name : Name_Id := No_Name;
1268       --  If a library project, internal name store inside the library
1269
1270       Standalone_Library : Boolean := False;
1271       --  Indicate that this is a Standalone Library Project File
1272
1273       Lib_Interface_ALIs : String_List_Id := Nil_String;
1274       --  For Standalone Library Project Files, indicate the list of Interface
1275       --  ALI files.
1276
1277       Lib_Auto_Init : Boolean := False;
1278       --  For non static Stand-Alone Library Project Files, indicate if
1279       --  the library initialisation should be automatic.
1280
1281       Symbol_Data : Symbol_Record := No_Symbols;
1282       --  Symbol file name, reference symbol file name, symbol policy
1283
1284       Need_To_Build_Lib : Boolean := False;
1285       --  Indicates that the library of a Library Project needs to be built or
1286       --  rebuilt.
1287
1288       -------------
1289       -- Sources --
1290       -------------
1291
1292       Ada_Sources_Present : Boolean := True;
1293       --  True if there are Ada sources in the project
1294
1295       Other_Sources_Present : Boolean := True;
1296       --  True if there are non-Ada sources in the project
1297
1298       Ada_Sources : String_List_Id := Nil_String;
1299       --  The list of all the Ada source file names (gnatmake only)
1300
1301       First_Source : Source_Id := No_Source;
1302       Last_Source  : Source_Id := No_Source;
1303       --  Head and tail of the list of sources
1304
1305       Interfaces_Defined      : Boolean := False;
1306       --  True if attribute Interfaces is declared for the project or any
1307       --  project it extends.
1308
1309       Imported_Directories_Switches : Argument_List_Access := null;
1310       --  List of the source search switches (-I<source dir>) to be used when
1311       --  compiling.
1312
1313       Include_Path : String_Access := null;
1314       --  The search source path for the project. Used as the value for an
1315       --  environment variable, specified by attribute Include_Path
1316       --  (<language>). The names of the environment variables are in component
1317       --  Include_Path of the records Language_Config.
1318
1319       Include_Path_File : Path_Name_Type := No_Path;
1320       --  The path name of the of the source search directory file
1321
1322       Include_Data_Set : Boolean := False;
1323       --  Set True when Imported_Directories_Switches or Include_Path are set
1324
1325       Source_Dirs : String_List_Id := Nil_String;
1326       --  The list of all the source directories
1327
1328       Known_Order_Of_Source_Dirs : Boolean := True;
1329       --  False, if there is any /** in the Source_Dirs, because in this case
1330       --  the ordering of the source subdirs depend on the OS. If True,
1331       --  duplicate file names in the same project file are allowed.
1332
1333       Ada_Include_Path : String_Access := null;
1334       --  The cached value of source search path for this project file. Set by
1335       --  the first call to Prj.Env.Ada_Include_Path for the project. Do not
1336       --  use this field directly outside of the project manager, use
1337       --  Prj.Env.Ada_Include_Path instead.
1338
1339       -------------------
1340       -- Miscellaneous --
1341       -------------------
1342
1343       Ada_Objects_Path : String_Access := null;
1344       --  The cached value of ADA_OBJECTS_PATH for this project file. Do not
1345       --  use this field directly outside of the compiler, use
1346       --  Prj.Env.Ada_Objects_Path instead.
1347
1348       Libgnarl_Needed : Yes_No_Unknown := Unknown;
1349       --  Set to True when libgnarl is needed to link
1350
1351       Objects_Path : String_Access := null;
1352       --  The cached value of the object dir path, used during the binding
1353       --  phase of gprbuild.
1354
1355       Objects_Path_File_With_Libs : Path_Name_Type := No_Path;
1356       --  The cached value of the object path temp file (including library
1357       --  dirs) for this project file.
1358
1359       Objects_Path_File_Without_Libs : Path_Name_Type := No_Path;
1360       --  The cached value of the object path temp file (excluding library
1361       --  dirs) for this project file.
1362
1363       Config_File_Name : Path_Name_Type := No_Path;
1364       --  The path name of the configuration pragmas file, if any
1365
1366       Config_File_Temp : Boolean := False;
1367       --  An indication that the configuration pragmas file is a temporary file
1368       --  that must be deleted at the end.
1369
1370       Config_Checked : Boolean := False;
1371       --  A flag to avoid checking repetitively the configuration pragmas file
1372
1373       Checked : Boolean := False;
1374       --  A flag to avoid checking repetitively the naming scheme of this
1375       --  project file.
1376
1377       Seen : Boolean := False;
1378       --  A flag to mark a project as "visited" to avoid processing the same
1379       --  project several time.
1380
1381       Depth : Natural := 0;
1382       --  The maximum depth of a project in the project graph. Depth of main
1383       --  project is 0.
1384
1385       Unkept_Comments : Boolean := False;
1386       --  True if there are comments in the project sources that cannot be kept
1387       --  in the project tree.
1388
1389    end record;
1390
1391    function Empty_Project (Tree : Project_Tree_Ref) return Project_Data;
1392    --  Return the representation of an empty project in project Tree tree.
1393    --  The project tree Tree must have been Initialized and/or Reset.
1394
1395    function Is_Extending
1396      (Extending : Project_Id;
1397       Extended  : Project_Id;
1398       In_Tree   : Project_Tree_Ref) return Boolean;
1399    --  ??? needs comment
1400
1401    function Is_A_Language
1402      (Tree          : Project_Tree_Ref;
1403       Data          : Project_Data;
1404       Language_Name : Name_Id) return Boolean;
1405    --  Return True when Language_Name (which must be lower case) is one of the
1406    --  languages used for the project.
1407
1408    Project_Error : exception;
1409    --  Raised by some subprograms in Prj.Attr
1410
1411    package Project_Table is new GNAT.Dynamic_Tables (
1412      Table_Component_Type => Project_Data,
1413      Table_Index_Type     => Project_Id,
1414      Table_Low_Bound      => 1,
1415      Table_Initial        => 100,
1416      Table_Increment      => 100);
1417    --  The set of all project files
1418
1419    type Spec_Or_Body is (Specification, Body_Part);
1420
1421    type File_Name_Data is record
1422       Name         : File_Name_Type   := No_File;
1423       Index        : Int              := 0;
1424       Display_Name : File_Name_Type   := No_File;
1425       Path         : Path_Information := No_Path_Information;
1426       Project      : Project_Id       := No_Project;
1427       Needs_Pragma : Boolean          := False;
1428    end record;
1429    --  File and Path name of a spec or body
1430
1431    type File_Names_Data is array (Spec_Or_Body) of File_Name_Data;
1432
1433    type Unit_Index is new Nat;
1434    No_Unit_Index : constant Unit_Index := 0;
1435    type Unit_Data is record
1436       Name       : Name_Id    := No_Name;
1437       File_Names : File_Names_Data;
1438    end record;
1439    --  Name and File and Path names of a unit, with a reference to its
1440    --  GNAT Project File(s).
1441
1442    package Unit_Table is new GNAT.Dynamic_Tables
1443      (Table_Component_Type => Unit_Data,
1444       Table_Index_Type     => Unit_Index,
1445       Table_Low_Bound      => 1,
1446       Table_Initial        => 100,
1447       Table_Increment      => 100);
1448    --  Table of all units in a project tree
1449
1450    package Units_Htable is new Simple_HTable
1451      (Header_Num => Header_Num,
1452       Element    => Unit_Index,
1453       No_Element => No_Unit_Index,
1454       Key        => Name_Id,
1455       Hash       => Hash,
1456       Equal      => "=");
1457    --  Mapping of unit names to indexes in the Units table
1458
1459    type Unit_Project is record
1460       Unit    : Unit_Index := No_Unit_Index;
1461       Project : Project_Id := No_Project;
1462    end record;
1463
1464    No_Unit_Project : constant Unit_Project := (No_Unit_Index, No_Project);
1465
1466    package Files_Htable is new Simple_HTable
1467      (Header_Num => Header_Num,
1468       Element    => Unit_Project,
1469       No_Element => No_Unit_Project,
1470       Key        => File_Name_Type,
1471       Hash       => Hash,
1472       Equal      => "=");
1473    --  Mapping of file names to indexes in the Units table
1474
1475    type Private_Project_Tree_Data is private;
1476    --  Data for a project tree that is used only by the Project Manager
1477
1478    type Project_Tree_Data is
1479       record
1480          --  Languages and sources of the project
1481
1482          First_Language : Language_Index  := No_Language_Index;
1483          --
1484
1485          First_Source : Source_Id := No_Source;
1486          --
1487
1488          --  Tables
1489
1490          Languages_Data    : Language_Data_Table.Instance;
1491          Name_Lists        : Name_List_Table.Instance;
1492          String_Elements   : String_Element_Table.Instance;
1493          Variable_Elements : Variable_Element_Table.Instance;
1494          Array_Elements    : Array_Element_Table.Instance;
1495          Arrays            : Array_Table.Instance;
1496          Packages          : Package_Table.Instance;
1497          Project_Lists     : Project_List_Table.Instance;
1498          Projects          : Project_Table.Instance;
1499          Sources           : Source_Data_Table.Instance;
1500          Alt_Langs         : Alternate_Language_Table.Instance;
1501          Units             : Unit_Table.Instance;
1502          Units_HT          : Units_Htable.Instance;
1503          Files_HT          : Files_Htable.Instance;
1504          Source_Paths_HT   : Source_Paths_Htable.Instance;
1505          Unit_Sources_HT   : Unit_Sources_Htable.Instance;
1506
1507          --  Private part
1508
1509          Private_Part : Private_Project_Tree_Data;
1510       end record;
1511    --  Data for a project tree
1512
1513    type Put_Line_Access is access procedure
1514      (Line    : String;
1515       Project : Project_Id;
1516       In_Tree : Project_Tree_Ref);
1517    --  Use to customize error reporting in Prj.Proc and Prj.Nmsc
1518
1519    procedure Expect (The_Token : Token_Type; Token_Image : String);
1520    --  Check that the current token is The_Token. If it is not, then output
1521    --  an error message.
1522
1523    procedure Initialize (Tree : Project_Tree_Ref);
1524    --  This procedure must be called before using any services from the Prj
1525    --  hierarchy. Namet.Initialize must be called before Prj.Initialize.
1526
1527    procedure Reset (Tree : Project_Tree_Ref);
1528    --  This procedure resets all the tables that are used when processing a
1529    --  project file tree. Initialize must be called before the call to Reset.
1530
1531    procedure Register_Default_Naming_Scheme
1532      (Language            : Name_Id;
1533       Default_Spec_Suffix : File_Name_Type;
1534       Default_Body_Suffix : File_Name_Type;
1535       In_Tree             : Project_Tree_Ref);
1536    --  Register the default suffixes for a given language. These extensions
1537    --  will be ignored if the user has specified a new naming scheme in a
1538    --  project file.
1539    --
1540    --  Otherwise, this information will be automatically added to Naming_Data
1541    --  when a project is processed, in the lists Spec_Suffix and Body_Suffix.
1542
1543    generic
1544       type State is limited private;
1545       with procedure Action
1546         (Project    : Project_Id;
1547          With_State : in out State);
1548    procedure For_Every_Project_Imported
1549      (By         : Project_Id;
1550       In_Tree    : Project_Tree_Ref;
1551       With_State : in out State);
1552    --  Call Action for each project imported directly or indirectly by project
1553    --  By. Action is called according to the order of importation: if A
1554    --  imports B, directly or indirectly, Action will be called for A before
1555    --  it is called for B. If two projects import each other directly or
1556    --  indirectly (using at least one "limited with"), it is not specified
1557    --  for which of these two projects Action will be called first. Projects
1558    --  that are extended by other projects are not considered. With_State may
1559    --  be used by Action to choose a behavior or to report some global result.
1560
1561    function Extend_Name
1562      (File        : File_Name_Type;
1563       With_Suffix : String) return File_Name_Type;
1564    --  Replace the extension of File with With_Suffix
1565
1566    function Object_Name
1567      (Source_File_Name : File_Name_Type) return File_Name_Type;
1568    --  Returns the object file name corresponding to a source file name
1569
1570    function Dependency_Name
1571      (Source_File_Name : File_Name_Type;
1572       Dependency       : Dependency_File_Kind) return File_Name_Type;
1573    --  Returns the dependency file name corresponding to a source file name
1574
1575    function Switches_Name
1576      (Source_File_Name : File_Name_Type) return File_Name_Type;
1577    --  Returns the switches file name corresponding to a source file name
1578
1579    ----------------
1580    -- Temp Files --
1581    ----------------
1582
1583    procedure Record_Temp_File (Path : Path_Name_Type);
1584    --  Record the path of a newly created temporary file, so that it can be
1585    --  deleted later.
1586
1587    procedure Delete_All_Temp_Files;
1588    --  Delete all recorded temporary files
1589
1590 private
1591
1592    All_Packages : constant String_List_Access := null;
1593
1594    No_Project_Tree : constant Project_Tree_Ref := null;
1595
1596    Ignored : constant Variable_Kind := Single;
1597
1598    Nil_Variable_Value : constant Variable_Value :=
1599                           (Project  => No_Project,
1600                            Kind     => Undefined,
1601                            Location => No_Location,
1602                            Default  => False);
1603
1604    Virtual_Prefix : constant String := "v$";
1605    --  The prefix for virtual extending projects. Because of the '$', which is
1606    --  normally forbidden for project names, there cannot be any name clash.
1607
1608    Empty_Name : Name_Id;
1609    --  Name_Id for an empty name (no characters). Initialized in procedure
1610    --  Initialize.
1611
1612    Empty_File_Name : File_Name_Type;
1613    --  Empty File_Name_Type (no characters). Initialized in procedure
1614    --  Initialize.
1615
1616    procedure Add_To_Buffer
1617      (S    : String;
1618       To   : in out String_Access;
1619       Last : in out Natural);
1620    --  Append a String to the Buffer
1621
1622    type Naming_Id is new Nat;
1623
1624    package Naming_Table is new GNAT.Dynamic_Tables
1625      (Table_Component_Type => Naming_Data,
1626       Table_Index_Type     => Naming_Id,
1627       Table_Low_Bound      => 1,
1628       Table_Initial        => 5,
1629       Table_Increment      => 100);
1630    --  Table storing the naming data for gnatmake/gprmake
1631
1632    package Path_File_Table is new GNAT.Dynamic_Tables
1633      (Table_Component_Type => Path_Name_Type,
1634       Table_Index_Type     => Natural,
1635       Table_Low_Bound      => 1,
1636       Table_Initial        => 50,
1637       Table_Increment      => 100);
1638    --  Table storing all the temp path file names.
1639    --  Used by Delete_All_Path_Files.
1640
1641    package Source_Path_Table is new GNAT.Dynamic_Tables
1642      (Table_Component_Type => Name_Id,
1643       Table_Index_Type     => Natural,
1644       Table_Low_Bound      => 1,
1645       Table_Initial        => 50,
1646       Table_Increment      => 100);
1647    --  A table to store the source dirs before creating the source path file
1648
1649    package Object_Path_Table is new GNAT.Dynamic_Tables
1650      (Table_Component_Type => Path_Name_Type,
1651       Table_Index_Type     => Natural,
1652       Table_Low_Bound      => 1,
1653       Table_Initial        => 50,
1654       Table_Increment      => 100);
1655    --  A table to store the object dirs, before creating the object path file
1656
1657    type Private_Project_Tree_Data is record
1658       Namings        : Naming_Table.Instance;
1659       Path_Files     : Path_File_Table.Instance;
1660       Source_Paths   : Source_Path_Table.Instance;
1661       Object_Paths   : Object_Path_Table.Instance;
1662       Default_Naming : Naming_Data;
1663    end record;
1664    --  Type to represent the part of a project tree which is private to the
1665    --  Project Manager.
1666
1667 end Prj;