X-Git-Url: https://git.libre-soc.org/?a=blobdiff_plain;f=gcc%2Fada%2Fprj-util.ads;h=4163f98b2c88404b83d8ef868956f6d014940ddf;hb=39f4e199a51bc4ff869d273937d363902cc963c3;hp=894acd82f07080ac2cfb4f06ce66768139e46cea;hpb=7e98a4c668eac2b10f06ff207a24d2ca4e867128;p=gcc.git diff --git a/gcc/ada/prj-util.ads b/gcc/ada/prj-util.ads index 894acd82f07..4163f98b2c8 100644 --- a/gcc/ada/prj-util.ads +++ b/gcc/ada/prj-util.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2007, 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- -- @@ -16,8 +16,8 @@ -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- -- for more details. You should have received a copy of the GNU General -- -- Public License distributed with GNAT; see file COPYING. If not, write -- --- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- --- MA 02111-1307, USA. -- +-- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, -- +-- Boston, MA 02110-1301, USA. -- -- -- -- GNAT was originally developed by the GNAT team at New York University. -- -- Extensive contributions were provided by Ada Core Technologies Inc. -- @@ -26,18 +26,14 @@ -- Utilities for use in processing project files -with Types; use Types; - -with GNAT.OS_Lib; use GNAT.OS_Lib; - package Prj.Util is function Executable_Of (Project : Project_Id; In_Tree : Project_Tree_Ref; - Main : Name_Id; + Main : File_Name_Type; Index : Int; - Ada_Main : Boolean := True) return Name_Id; + Ada_Main : Boolean := True) return File_Name_Type; -- Return the value of the attribute Builder'Executable for file Main in -- the project Project, if it exists. If there is no attribute Executable -- for Main, remove the suffix from Main; then, if the attribute @@ -66,14 +62,13 @@ package Prj.Util is Src_Index : Int := 0; In_Array : Array_Element_Id; In_Tree : Project_Tree_Ref) return Variable_Value; - -- Get a string array component (single String or String list). - -- Returns Nil_Variable_Value if there is no component Index - -- or if In_Array is null. + -- Get a string array component (single String or String list). Returns + -- Nil_Variable_Value if no component Index or if In_Array is null. -- -- Depending on the attribute (only attributes may be associative arrays) - -- the index may or may not be case sensitive. If the index is not - -- case sensitive, it is first set to lower case before the search - -- in the associative array. + -- the index may or may not be case sensitive. If the index is not case + -- sensitive, it is first set to lower case before the search in the + -- associative array. function Value_Of (Name : Name_Id; @@ -82,10 +77,9 @@ package Prj.Util is In_Package : Package_Id; In_Tree : Project_Tree_Ref) return Variable_Value; -- In a specific package, - -- - if there exists an array Attribute_Or_Array_Name with an index - -- Name, returns the corresponding component (depending on the - -- attribute, the index may or may not be case sensitive, see previous - -- function), + -- - if there exists an array Attribute_Or_Array_Name with an index Name, + -- returns the corresponding component (depending on the attribute, the + -- index may or may not be case sensitive, see previous function), -- - otherwise if there is a single attribute Attribute_Or_Array_Name, -- returns this attribute, -- - otherwise, returns Nil_Variable_Value. @@ -96,8 +90,8 @@ package Prj.Util is In_Array : Name_Id; In_Arrays : Array_Id; In_Tree : Project_Tree_Ref) return Name_Id; - -- Get a string array component in an array of an array list. - -- Returns No_Name if there is no component Index, if In_Arrays is null, if + -- Get a string array component in an array of an array list. Returns + -- No_Name if there is no component Index, if In_Arrays is null, if -- In_Array is not found in In_Arrays or if the component is a String list. function Value_Of @@ -112,8 +106,8 @@ package Prj.Util is (Name : Name_Id; In_Packages : Package_Id; In_Tree : Project_Tree_Ref) return Package_Id; - -- Returns a specified package in a package list. Returns No_Package - -- if In_Packages is null or if Name is not the name of a package in + -- Returns a specified package in a package list. Returns No_Package if + -- In_Packages is null or if Name is not the name of a package in -- Package_List. The caller must ensure that Name is in lower case. function Value_Of @@ -133,28 +127,28 @@ package Prj.Util is -- the last character of each line, if possible. type Text_File is limited private; - -- Represents a text file. Default is invalid text file. + -- Represents a text file. Default is invalid text file function Is_Valid (File : Text_File) return Boolean; -- Returns True if File designates an open text file that -- has not yet been closed. procedure Open (File : out Text_File; Name : String); - -- Open a text file. If this procedure fails, File is invalid. + -- Open a text file. If this procedure fails, File is invalid function End_Of_File (File : Text_File) return Boolean; - -- Returns True if the end of the text file File has been - -- reached. Fails if File is invalid. + -- Returns True if the end of the text file File has been reached. Fails if + -- File is invalid. procedure Get_Line (File : Text_File; Line : out String; Last : out Natural); - -- Reads a line from an open text file. Fails if File is invalid. + -- Reads a line from an open text file. Fails if File is invalid procedure Close (File : in out Text_File); - -- Close an open text file. File becomes invalid. - -- Fails if File is already invalid. + -- Close an open text file. File becomes invalid. Fails if File is already + -- invalid. private