Skip to content

R
riscv-gcc-1
Commit 6663c393 by Robert Dewar Committed by Geert Bosch
Options

prj-dect.ads: Add ??? comment Add 2001 to copyright notice (was not done in after all) 

	* 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

From-SVN: r47680
parent d7b2a6af
Showing with 48 additions and 46 deletions
gcc/ada/ChangeLog
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
2001-12-05 Geert Bosch <bosch@gnat.com>
* snames.adb: Autoupdate
......
gcc/ada/prj-dect.ads
......@@ -8,7 +8,7 @@
-- --
-- $Revision$
-- --
-- Copyright (C) 2000 Free Software Foundation, Inc. --
-- 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,8 +25,8 @@
-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). --
-- --
------------------------------------------------------------------------------
--
-- Parse a list of declarative items in a project file.
-- Parse a list of declarative items in a project file
with Prj.Tree;
......@@ -36,6 +36,6 @@ private package Prj.Dect is
(Declarations : out Prj.Tree.Project_Node_Id;
Current_Project : Prj.Tree.Project_Node_Id;
Extends : Prj.Tree.Project_Node_Id);
-- Parse project declarative items.
-- Parse project declarative items. What are parameters ???
end Prj.Dect;
gcc/ada/prj-part.adb
......@@ -136,7 +136,8 @@ package body Prj.Part is
end if;
end loop;
-- There is no directory separator in name. Return "./" or ".\".
-- There is no directory separator in name. Return "./" or ".\"
Name_Len := 2;
Name_Buffer (1) := '.';
Name_Buffer (2) := Dir_Sep;
......@@ -227,15 +228,14 @@ package body Prj.Part is
Context_Clause := Empty_Node;
With_Loop :
-- If Token is not "with", there is no context clause,
-- 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; -- scan past WITH or ","
Scan;
Expect (Tok_String_Literal, "literal string");
if Token /= Tok_String_Literal then
......@@ -312,9 +312,8 @@ package body Prj.Part is
if Token = Tok_Semicolon then
-- End of (possibly multiple) with clause;
-- Scan past the semicolon.
Scan;
Scan; -- scan past the semicolon.
exit Comma_Loop;
elsif Token /= Tok_Comma then
......@@ -396,7 +395,7 @@ package body Prj.Part is
if A_Project_Name_And_Node.Modified then
Error_Msg
("cannot modify several times the same project file",
("cannot modify the same project file several times",
Token_Ptr);
else
......@@ -472,11 +471,11 @@ package body Prj.Part is
Expect (Tok_Project, "project");
-- Scan past "project"
-- Mark location of PROJECT token if present
if Token = Tok_Project then
Set_Location_Of (Project, Token_Ptr);
Scan;
Scan; -- scan past project
end if;
Expect (Tok_Identifier, "identifier");
......@@ -529,20 +528,14 @@ package body Prj.Part is
end if;
end;
-- Scan past the project name
Scan;
Scan; -- scan past the project name
end if;
if Token = Tok_Extends then
-- We are extending another project
-- Scan past "extends"
Scan;
Scan; -- scan past EXTENDS
Expect (Tok_String_Literal, "literal string");
if Token = Tok_String_Literal then
......@@ -578,9 +571,7 @@ package body Prj.Part is
end if;
end;
-- Scan past the modified project path
Scan;
Scan; -- scan past the modified project path
end if;
end if;
......@@ -590,7 +581,7 @@ package body Prj.Part is
Project_Declaration : Project_Node_Id := Empty_Node;
begin
-- No need to Scan past "is", Prj.Dect.Parse will do it.
-- No need to Scan past IS, Prj.Dect.Parse will do it.
Prj.Dect.Parse
(Declarations => Project_Declaration,
......@@ -601,7 +592,7 @@ package body Prj.Part is
Expect (Tok_End, "end");
-- Scan past "end"
-- Skip END if present
if Token = Tok_End then
Scan;
......
gcc/ada/prj.ads
......@@ -44,7 +44,7 @@ package Prj is
-- Use to customize error reporting in Prj.Proc and Prj.Nmsc.
type Verbosity is (Default, Medium, High);
-- Verbosity when parsing GNAT Project Files.
-- Verbosity when parsing GNAT Project Files
-- Default is default (very quiet, if no errors).
-- Medium is more verbose.
-- High is extremely verbose.
......@@ -60,7 +60,7 @@ package Prj is
Location : Source_Ptr := No_Location;
Next : String_List_Id := Nil_String;
end record;
-- To hold values for string list variables and array elements.
-- To hold values for string list variables and array elements
package String_Elements is new Table.Table
(Table_Component_Type => String_Element,
......@@ -69,7 +69,7 @@ package Prj is
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.String_Elements");
-- The table for string elements in string lists.
-- The table for string elements in string lists
type Variable_Kind is (Undefined, List, Single);
-- Different kinds of variables
......@@ -92,7 +92,7 @@ package Prj is
(Kind => Undefined,
Location => No_Location,
Default => False);
-- Value of a non existing variable or array element.
-- Value of a non existing variable or array element
type Variable_Id is new Nat;
No_Variable : constant Variable_Id := 0;
......@@ -101,7 +101,7 @@ package Prj is
Name : Name_Id;
Value : Variable_Value;
end record;
-- To hold the list of variables in a project file and in packages.
-- 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,7 +110,7 @@ package Prj is
Table_Initial => 200,
Table_Increment => 100,
Table_Name => "Prj.Variable_Elements");
-- The table of variable in list of variables.
-- The table of variable in list of variables
type Array_Element_Id is new Nat;
No_Array_Element : constant Array_Element_Id := 0;
......@@ -119,9 +119,8 @@ package Prj is
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.
-- 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,7 +138,7 @@ package Prj is
Value : Array_Element_Id := No_Array_Element;
Next : Array_Id := No_Array;
end record;
-- Each Array_Data represents an array.
-- 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,7 +165,7 @@ package Prj is
Attributes => No_Variable,
Arrays => No_Array,
Packages => No_Package);
-- Declarations. Used in project structures and packages.
-- Declarations. Used in project structures and packages (what for???)
type Package_Element is record
Name : Name_Id := No_Name;
......@@ -174,8 +173,7 @@ package Prj is
Parent : Package_Id := No_Package;
Next : Package_Id := No_Package;
end record;
-- A package. Includes declarations that may include
-- other packages.
-- A package. Includes declarations that may include other packages.
package Packages is new Table.Table
(Table_Component_Type => Package_Element,
......@@ -187,11 +185,10 @@ package Prj is
-- The table that contains all packages.
function Image (Casing : Casing_Type) return String;
-- Similar to 'Image
-- Similar to 'Image (but avoid use of this attribute in compiler)
function Value (Image : String) return Casing_Type;
-- Similar to 'Value
-- This is to avoid s-valenu in the closure of the tools
-- 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
......@@ -414,11 +411,14 @@ package Prj is
-- 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;
-- 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.
......
gcc/ada/snames.ads
......@@ -858,11 +858,11 @@ package Snames is
Name_Raise_Exception : constant Name_Id := N + 522;
-- Reserved words of GNAT Project Files
-- 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;
-- Name_External is already declared as N + 161
-- Names used in GNAT Project Files
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment