This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[Ada] Minor reformatting and add ??? comments


2001-12-05  Robert Dewar <dewar@gnat.com>

	* prj-dect.ads: Add ??? comment
	Add 2001 to copyright notice (was not done in after all)
	
	* prj-part.adb: Minor reformatting. Reword one awkward error message.
	
	* prj.ads: Minor reformatting throughout, and add some ??? comments
	
	* snames.ads: Minor reformatting

*** prj-dect.ads	2001/10/20 04:14:14	1.3
--- prj-dect.ads	2001/10/20 10:28:13	1.4
***************
*** 8,14 ****
  --                                                                          --
  --                            $Revision$
  --                                                                          --
! --             Copyright (C) 2000 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- --
--- 8,14 ----
  --                                                                          --
  --                            $Revision$
  --                                                                          --
! --          Copyright (C) 2000-2001 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- --
***************
*** 25,33 ****
  -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
  --                                                                          --
  ------------------------------------------------------------------------------
- --
- --  Parse a list of declarative items in a project file.
  
  with Prj.Tree;
  
  private package Prj.Dect is
--- 25,33 ----
  -- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
  --                                                                          --
  ------------------------------------------------------------------------------
  
+ --  Parse a list of declarative items in a project file
+ 
  with Prj.Tree;
  
  private package Prj.Dect is
***************
*** 36,41 ****
       (Declarations    : out Prj.Tree.Project_Node_Id;
        Current_Project : Prj.Tree.Project_Node_Id;
        Extends         : Prj.Tree.Project_Node_Id);
!    --  Parse project declarative items.
  
  end Prj.Dect;
--- 36,41 ----
       (Declarations    : out Prj.Tree.Project_Node_Id;
        Current_Project : Prj.Tree.Project_Node_Id;
        Extends         : Prj.Tree.Project_Node_Id);
!    --  Parse project declarative items. What are parameters ???
  
  end Prj.Dect;

*** prj-part.adb	2001/10/20 04:14:21	1.11
--- prj-part.adb	2001/10/20 10:34:33	1.12
***************
*** 136,142 ****
           end if;
        end loop;
  
!       --  There is no directory separator in name. Return "./" or ".\".
        Name_Len := 2;
        Name_Buffer (1) := '.';
        Name_Buffer (2) := Dir_Sep;
--- 136,143 ----
           end if;
        end loop;
  
!       --  There is no directory separator in name. Return "./" or ".\"
! 
        Name_Len := 2;
        Name_Buffer (1) := '.';
        Name_Buffer (2) := Dir_Sep;
***************
*** 227,241 ****
        Context_Clause := Empty_Node;
        With_Loop :
  
!       --  If Token is not "with", there is no context clause,
        --  or we have exhausted the with clauses.
  
        while Token = Tok_With loop
           Comma_Loop :
           loop
!             --  Scan past "with" or ","
  
-             Scan;
              Expect (Tok_String_Literal, "literal string");
  
              if Token /= Tok_String_Literal then
--- 228,241 ----
        Context_Clause := Empty_Node;
        With_Loop :
  
!       --  If Token is not WITH, there is no context clause,
        --  or we have exhausted the with clauses.
  
        while Token = Tok_With loop
           Comma_Loop :
           loop
!             Scan; -- scan past WITH or ","
  
              Expect (Tok_String_Literal, "literal string");
  
              if Token /= Tok_String_Literal then
***************
*** 312,320 ****
              if Token = Tok_Semicolon then
  
                 --  End of (possibly multiple) with clause;
-                --  Scan past the semicolon.
  
!                Scan;
                 exit Comma_Loop;
  
              elsif Token /= Tok_Comma then
--- 312,319 ----
              if Token = Tok_Semicolon then
  
                 --  End of (possibly multiple) with clause;
  
!                Scan; -- scan past the semicolon.
                 exit Comma_Loop;
  
              elsif Token /= Tok_Comma then
***************
*** 396,402 ****
  
                 if A_Project_Name_And_Node.Modified then
                    Error_Msg
!                     ("cannot modify several times the same project file",
                       Token_Ptr);
  
                 else
--- 395,401 ----
  
                 if A_Project_Name_And_Node.Modified then
                    Error_Msg
!                     ("cannot modify the same project file several times",
                       Token_Ptr);
  
                 else
***************
*** 472,482 ****
  
        Expect (Tok_Project, "project");
  
!       --  Scan past "project"
  
        if Token = Tok_Project then
           Set_Location_Of (Project, Token_Ptr);
!          Scan;
        end if;
  
        Expect (Tok_Identifier, "identifier");
--- 471,481 ----
  
        Expect (Tok_Project, "project");
  
!       --  Mark location of PROJECT token if present
  
        if Token = Tok_Project then
           Set_Location_Of (Project, Token_Ptr);
!          Scan; -- scan past project
        end if;
  
        Expect (Tok_Identifier, "identifier");
***************
*** 528,548 ****
                          Modified => Modified));
              end if;
           end;
- 
-          --  Scan past the project name
- 
-          Scan;
  
        end if;
  
        if Token = Tok_Extends then
  
           --  We are extending another project
  
!          --  Scan past "extends"
! 
!          Scan;
! 
           Expect (Tok_String_Literal, "literal string");
  
           if Token = Tok_String_Literal then
--- 527,541 ----
                          Modified => Modified));
              end if;
           end;
  
+          Scan; -- scan past the project name
        end if;
  
        if Token = Tok_Extends then
  
           --  We are extending another project
  
!          Scan; -- scan past EXTENDS
           Expect (Tok_String_Literal, "literal string");
  
           if Token = Tok_String_Literal then
***************
*** 578,586 ****
                 end if;
              end;
  
!             --  Scan past the modified project path
! 
!             Scan;
           end if;
        end if;
  
--- 571,577 ----
                 end if;
              end;
  
!             Scan; -- scan past the modified project path
           end if;
        end if;
  
***************
*** 590,596 ****
           Project_Declaration : Project_Node_Id := Empty_Node;
  
        begin
!          --  No need to Scan past "is", Prj.Dect.Parse will do it.
  
           Prj.Dect.Parse
             (Declarations    => Project_Declaration,
--- 581,587 ----
           Project_Declaration : Project_Node_Id := Empty_Node;
  
        begin
!          --  No need to Scan past IS, Prj.Dect.Parse will do it.
  
           Prj.Dect.Parse
             (Declarations    => Project_Declaration,
***************
*** 601,607 ****
  
        Expect (Tok_End, "end");
  
!       --  Scan past "end"
  
        if Token = Tok_End then
           Scan;
--- 592,598 ----
  
        Expect (Tok_End, "end");
  
!       --  Skip END if present
  
        if Token = Tok_End then
           Scan;

*** prj.ads	2001/10/20 04:14:27	1.22
--- prj.ads	2001/10/20 10:48:13	1.23
***************
*** 44,53 ****
     --  Use to customize error reporting in Prj.Proc and Prj.Nmsc.
  
     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.
  
     type Lib_Kind is (Static, Dynamic, Relocatable);
  
--- 44,53 ----
     --  Use to customize error reporting in Prj.Proc and Prj.Nmsc.
  
     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.
  
     type Lib_Kind is (Static, Dynamic, Relocatable);
  
***************
*** 60,66 ****
        Location : Source_Ptr     := No_Location;
        Next     : String_List_Id := Nil_String;
     end record;
!    --  To hold values for string list variables and array elements.
  
     package String_Elements is new Table.Table
       (Table_Component_Type => String_Element,
--- 60,66 ----
        Location : Source_Ptr     := No_Location;
        Next     : String_List_Id := Nil_String;
     end record;
!    --  To hold values for string list variables and array elements
  
     package String_Elements is new Table.Table
       (Table_Component_Type => String_Element,
***************
*** 69,75 ****
        Table_Initial        => 200,
        Table_Increment      => 100,
        Table_Name           => "Prj.String_Elements");
!    --  The table for string elements in string lists.
  
     type Variable_Kind is (Undefined, List, Single);
     --  Different kinds of variables
--- 69,75 ----
        Table_Initial        => 200,
        Table_Increment      => 100,
        Table_Name           => "Prj.String_Elements");
!    --  The table for string elements in string lists
  
     type Variable_Kind is (Undefined, List, Single);
     --  Different kinds of variables
***************
*** 92,98 ****
       (Kind     => Undefined,
        Location => No_Location,
        Default  => False);
!    --  Value of a non existing variable or array element.
  
     type Variable_Id is new Nat;
     No_Variable : constant Variable_Id := 0;
--- 92,98 ----
       (Kind     => Undefined,
        Location => No_Location,
        Default  => False);
!    --  Value of a non existing variable or array element
  
     type Variable_Id is new Nat;
     No_Variable : constant Variable_Id := 0;
***************
*** 101,107 ****
        Name     : Name_Id;
        Value    : Variable_Value;
     end record;
!    --  To hold the list of variables in a project file and in packages.
  
     package Variable_Elements is new Table.Table
       (Table_Component_Type => Variable,
--- 101,107 ----
        Name     : Name_Id;
        Value    : Variable_Value;
     end record;
!    --  To hold the list of variables in a project file and in packages
  
     package Variable_Elements is new Table.Table
       (Table_Component_Type => Variable,
***************
*** 110,116 ****
        Table_Initial        => 200,
        Table_Increment      => 100,
        Table_Name           => "Prj.Variable_Elements");
!    --  The table of variable in list of variables.
  
     type Array_Element_Id is new Nat;
     No_Array_Element : constant Array_Element_Id := 0;
--- 110,116 ----
        Table_Initial        => 200,
        Table_Increment      => 100,
        Table_Name           => "Prj.Variable_Elements");
!    --  The table of variable in list of variables
  
     type Array_Element_Id is new Nat;
     No_Array_Element : constant Array_Element_Id := 0;
***************
*** 119,127 ****
        Value    : Variable_Value;
        Next     : Array_Element_Id := No_Array_Element;
     end record;
!    --  Each Array_Element represents an array element.
!    --  Each Array_Element is linked (Next) to the next array element,
!    --  if any, in the array.
  
     package Array_Elements is new Table.Table
       (Table_Component_Type => Array_Element,
--- 119,126 ----
        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_Elements is new Table.Table
       (Table_Component_Type => Array_Element,
***************
*** 139,145 ****
        Value : Array_Element_Id := No_Array_Element;
        Next  : Array_Id         := No_Array;
     end record;
!    --  Each Array_Data 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.
  
--- 138,144 ----
        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.
  
***************
*** 166,172 ****
        Attributes => No_Variable,
        Arrays     => No_Array,
        Packages   => No_Package);
!    --  Declarations. Used in project structures and packages.
  
     type Package_Element is record
        Name   : Name_Id      := No_Name;
--- 165,171 ----
        Attributes => No_Variable,
        Arrays     => No_Array,
        Packages   => No_Package);
!    --  Declarations. Used in project structures and packages (what for???)
  
     type Package_Element is record
        Name   : Name_Id      := No_Name;
***************
*** 174,181 ****
        Parent : Package_Id   := No_Package;
        Next   : Package_Id   := No_Package;
     end record;
!    --  A package. Includes declarations that may include
!    --  other packages.
  
     package Packages is new Table.Table
       (Table_Component_Type => Package_Element,
--- 173,179 ----
        Parent : Package_Id   := No_Package;
        Next   : Package_Id   := No_Package;
     end record;
!    --  A package. Includes declarations that may include other packages.
  
     package Packages is new Table.Table
       (Table_Component_Type => Package_Element,
***************
*** 187,254 ****
     --  The table that contains all packages.
  
     function Image (Casing : Casing_Type) return String;
!    --  Similar to 'Image
  
     function Value (Image : String) return Casing_Type;
!    --  Similar to 'Value
!    --  This is to avoid s-valenu in the closure of the tools
     --  Raises Constraint_Error if not a Casing_Type image.
  
     type Naming_Data is record
!       Current_Language          : Name_Id          := No_Name;
        --  The programming language being currently considered
  
!       Dot_Replacement           : Name_Id          := No_Name;
        --  The string to replace '.' in the source file name (for Ada).
  
!       Dot_Repl_Loc              : Source_Ptr       := No_Location;
        --  The position in the project file source where
        --  Dot_Replacement is defined.
  
!       Casing                    : Casing_Type      := All_Lower_Case;
        --  The casing of the source file name (for Ada).
  
!       Specification_Suffix      : Array_Element_Id := No_Array_Element;
        --  The string to append to the unit name for the
        --  source file name of a specification.
        --  Indexed by the programming language.
  
!       Current_Spec_Suffix       : Name_Id          := No_Name;
        --  The specification suffix of the current programming language
  
!       Spec_Suffix_Loc           : Source_Ptr       := No_Location;
        --  The position in the project file source where
        --  Current_Spec_Suffix is defined.
  
!       Implementation_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.
  
!       Current_Impl_Suffix       : Name_Id          := No_Name;
        --  The implementation suffix of the current programming language
  
!       Impl_Suffix_Loc           : Source_Ptr       := No_Location;
        --  The position in the project file source where
        --  Current_Impl_Suffix is defined.
  
!       Separate_Suffix           : Name_Id          := No_Name;
        --  The string to append to the unit name for the
        --  source file name of an Ada subunit.
  
!       Sep_Suffix_Loc            : Source_Ptr       := No_Location;
        --  The position in the project file source where
        --  Separate_Suffix is defined.
  
!       Specifications            : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual specifications
        --  to source file names. Specific to Ada.
  
!       Bodies                    : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual bodies
        --  to source file names. Specific to Ada.
  
!       Specification_Exceptions  : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual specifications
        --  to source file names. Indexed by the programming language name.
  
--- 185,251 ----
     --  The table that contains all packages.
  
     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.
  
     type Naming_Data is record
!       Current_Language : Name_Id := No_Name;
        --  The programming language being currently considered
  
!       Dot_Replacement : Name_Id := No_Name;
        --  The string to replace '.' in the source file name (for Ada).
  
!       Dot_Repl_Loc : Source_Ptr := No_Location;
        --  The position in the project file source where
        --  Dot_Replacement is defined.
  
!       Casing : Casing_Type := All_Lower_Case;
        --  The casing of the source file name (for Ada).
  
!       Specification_Suffix : Array_Element_Id := No_Array_Element;
        --  The string to append to the unit name for the
        --  source file name of a specification.
        --  Indexed by the programming language.
  
!       Current_Spec_Suffix : Name_Id := No_Name;
        --  The specification suffix of the current programming language
  
!       Spec_Suffix_Loc : Source_Ptr := No_Location;
        --  The position in the project file source where
        --  Current_Spec_Suffix is defined.
  
!       Implementation_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.
  
!       Current_Impl_Suffix : Name_Id := No_Name;
        --  The implementation suffix of the current programming language
  
!       Impl_Suffix_Loc : Source_Ptr := No_Location;
        --  The position in the project file source where
        --  Current_Impl_Suffix is defined.
  
!       Separate_Suffix : Name_Id := No_Name;
        --  The string to append to the unit name for the
        --  source file name of an Ada subunit.
  
!       Sep_Suffix_Loc : Source_Ptr := No_Location;
        --  The position in the project file source where
        --  Separate_Suffix is defined.
  
!       Specifications : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual specifications
        --  to source file names. Specific to Ada.
  
!       Bodies : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual bodies
        --  to source file names. Specific to Ada.
  
!       Specification_Exceptions : Array_Element_Id := No_Array_Element;
        --  An associative array mapping individual specifications
        --  to source file names. Indexed by the programming language name.
  
***************
*** 294,406 ****
     --  The table that contains the lists of project files.
  
     type Project_Data is record
!       First_Referred_By  : Project_Id     := No_Project;
        --  The project, if any, that was the first to be known
        --  as importing or extending this project.
        --  Set by Prj.Proc.Process.
  
!       Name               : Name_Id        := No_Name;
        --  The name of the project.
        --  Set by Prj.Proc.Process.
  
!       Path_Name          : Name_Id        := No_Name;
        --  The path name of the project file.
        --  Set by Prj.Proc.Process.
  
!       Location           : Source_Ptr     := No_Location;
        --  The location in the project file source of the
        --  reserved word project.
        --  Set by Prj.Proc.Process.
  
!       Directory          : Name_Id        := No_Name;
        --  The directory where the project file resides.
        --  Set by Prj.Proc.Process.
  
!       Library            : Boolean        := False;
        --  True if this is a library project.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Dir        : Name_Id        := No_Name;
        --  If a library project, directory where resides the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Name       : Name_Id        := No_Name;
        --  If a library project, name of the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Kind       : Lib_Kind       := Static;
        --  If a library project, kind of library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Lib_Internal_Name  : Name_Id        := No_Name;
        --  If a library project, internal name store inside the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Lib_Elaboration    : Boolean        := False;
        --  If a library project, indicate if <lib>init and <lib>final
        --  procedures need to be defined.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Sources_Present    : Boolean        := True;
        --  A flag that indicates if there are sources in this project file.
        --  There are no sources if 1) Source_Dirs is specified as an
        --  empty list, 2) Source_Files is specified as an empty list, or
        --  3) the current language is not in the list of the specified
        --  Languages.
  
!       Sources            : String_List_Id := Nil_String;
        --  The list of all the source file names.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Source_Dirs        : String_List_Id := Nil_String;
        --  The list of all the source directories.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Object_Directory   : Name_Id        := No_Name;
        --  The object directory of this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Modifies           : Project_Id     := No_Project;
        --  The reference of the project file, if any, that this
        --  project file modifies.
        --  Set by Prj.Proc.Process.
  
!       Modified_By        : Project_Id     := No_Project;
        --  The reference of the project file, if any, that
        --  modifies this project file.
        --  Set by Prj.Proc.Process.
  
!       Naming             : Naming_Data    := Standard_Naming_Data;
        --  The naming scheme of this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Decl               : Declarations   := No_Declarations;
        --  The declarations (variables, attributes and packages)
        --  of this project file.
        --  Set by Prj.Proc.Process.
  
!       Imported_Projects  : Project_List   := Empty_Project_List;
        --  The list of all directly imported projects, if any.
        --  Set by Prj.Proc.Process.
  
!       Include_Path       : String_Access  := null;
        --  The cached value of ADA_INCLUDE_PATH for this project file.
        --  Set by gnatmake (prj.Env.Set_Ada_Paths).
  
!       Objects_Path       : String_Access  := null;
        --  The cached value of ADA_OBJECTS_PATH for this project file.
        --  Set by gnatmake (prj.Env.Set_Ada_Paths).
  
!       Config_File_Name   : Name_Id        := No_Name;
        --  The name of the configuration pragmas file, if any.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
!       Config_File_Temp   : Boolean        := False;
        --  An indication that the configuration pragmas file is
        --  a temporary file that must be deleted at the end.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
!       Config_Checked     : Boolean        := False;
        --  A flag to avoid checking repetitively the configuration pragmas file.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
--- 291,403 ----
     --  The table that contains the lists of project files.
  
     type Project_Data is record
!       First_Referred_By  : Project_Id := No_Project;
        --  The project, if any, that was the first to be known
        --  as importing or extending this project.
        --  Set by Prj.Proc.Process.
  
!       Name : Name_Id := No_Name;
        --  The name of the project.
        --  Set by Prj.Proc.Process.
  
!       Path_Name : Name_Id := No_Name;
        --  The path name of the project file.
        --  Set by Prj.Proc.Process.
  
!       Location : Source_Ptr := No_Location;
        --  The location in the project file source of the
        --  reserved word project.
        --  Set by Prj.Proc.Process.
  
!       Directory : Name_Id := No_Name;
        --  The directory where the project file resides.
        --  Set by Prj.Proc.Process.
  
!       Library : Boolean := False;
        --  True if this is a library project.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Dir : Name_Id := No_Name;
        --  If a library project, directory where resides the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Name : Name_Id := No_Name;
        --  If a library project, name of the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Library_Kind : Lib_Kind := Static;
        --  If a library project, kind of library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Lib_Internal_Name : Name_Id := No_Name;
        --  If a library project, internal name store inside the library
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Lib_Elaboration : Boolean := False;
        --  If a library project, indicate if <lib>init and <lib>final
        --  procedures need to be defined.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Sources_Present : Boolean := True;
        --  A flag that indicates if there are sources in this project file.
        --  There are no sources if 1) Source_Dirs is specified as an
        --  empty list, 2) Source_Files is specified as an empty list, or
        --  3) the current language is not in the list of the specified
        --  Languages.
  
!       Sources : String_List_Id := Nil_String;
        --  The list of all the source file names.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Source_Dirs : String_List_Id := Nil_String;
        --  The list of all the source directories.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Object_Directory : Name_Id := No_Name;
        --  The object directory of this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Modifies : Project_Id := No_Project;
        --  The reference of the project file, if any, that this
        --  project file modifies.
        --  Set by Prj.Proc.Process.
  
!       Modified_By : Project_Id := No_Project;
        --  The reference of the project file, if any, that
        --  modifies this project file.
        --  Set by Prj.Proc.Process.
  
!       Naming : Naming_Data := Standard_Naming_Data;
        --  The naming scheme of this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
!       Decl : Declarations := No_Declarations;
        --  The declarations (variables, attributes and packages)
        --  of this project file.
        --  Set by Prj.Proc.Process.
  
!       Imported_Projects : Project_List := Empty_Project_List;
        --  The list of all directly imported projects, if any.
        --  Set by Prj.Proc.Process.
  
!       Include_Path : String_Access := null;
        --  The cached value of ADA_INCLUDE_PATH for this project file.
        --  Set by gnatmake (prj.Env.Set_Ada_Paths).
  
!       Objects_Path : String_Access := null;
        --  The cached value of ADA_OBJECTS_PATH for this project file.
        --  Set by gnatmake (prj.Env.Set_Ada_Paths).
  
!       Config_File_Name : Name_Id := No_Name;
        --  The name of the configuration pragmas file, if any.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
!       Config_File_Temp : Boolean := False;
        --  An indication that the configuration pragmas file is
        --  a temporary file that must be deleted at the end.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
!       Config_Checked : Boolean := False;
        --  A flag to avoid checking repetitively the configuration pragmas file.
        --  Set by gnatmage (Prj.Env.Create_Config_Pragmas_File).
  
***************
*** 409,424 ****
        --  for language independent features: Object_Directory,
        --  Source_Directories, Library, non empty Naming Suffixs.
  
!       Checked            : Boolean        := False;
        --  A flag to avoid checking repetitively the naming scheme of
        --  this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
        --  Various flags that are used in an ad hoc manner
! 
!       Seen               : Boolean        := False;
!       Flag1              : Boolean        := False;
!       Flag2              : Boolean        := False;
  
     end record;
     --  Project File representation.
--- 406,424 ----
        --  for language independent features: Object_Directory,
        --  Source_Directories, Library, non empty Naming Suffixs.
  
!       Checked : Boolean := False;
        --  A flag to avoid checking repetitively the naming scheme of
        --  this project file.
        --  Set by Prj.Nmsc.Check_Naming_Scheme.
  
+       Seen  : Boolean := False;
+       Flag1 : Boolean := False;
+       Flag2 : Boolean := False;
        --  Various flags that are used in an ad hoc manner
!       --  That's really not a good enough comment ??? we need to know what
!       --  these flags are used for, and give them proper names. If Flag1
!       --  and Flag2 have multiple uses, then either we use multiple fields
!       --  or a renaming scheme.
  
     end record;
     --  Project File representation.

*** snames.ads	2001/10/20 04:14:34	1.212
--- snames.ads	2001/10/20 10:51:36	1.213
***************
*** 858,868 ****
  
     Name_Raise_Exception                : constant Name_Id := N + 522;
  
!    --  Reserved words of GNAT Project Files
  
     Name_Project                        : constant Name_Id := N + 523;
     Name_Extends                        : constant Name_Id := N + 524;
-    --  Name_External is already declared as N + 161
  
     --  Names used in GNAT Project Files
  
--- 858,868 ----
  
     Name_Raise_Exception                : constant Name_Id := N + 522;
  
!    --  Additional reserved words in GNAT Project Files
!    --  Note that Name_External is already previously declared
  
     Name_Project                        : constant Name_Id := N + 523;
     Name_Extends                        : constant Name_Id := N + 524;
  
     --  Names used in GNAT Project Files
  


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]