diff options
author | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-02 14:23:52 +0000 |
---|---|---|
committer | kenner <kenner@138bc75d-0d04-0410-961f-82ee72b054a4> | 2001-10-02 14:23:52 +0000 |
commit | 49d882a7d8c985758c04737e801f6028d5b7240f (patch) | |
tree | 0509e847916fc00cfe5c311617e039600afa9622 /gcc/ada/prj-env.ads | |
parent | 83cce46b47d48de4c71b02a20f5bf36296a48568 (diff) | |
download | ppe42-gcc-49d882a7d8c985758c04737e801f6028d5b7240f.tar.gz ppe42-gcc-49d882a7d8c985758c04737e801f6028d5b7240f.zip |
New Language: Ada
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@45956 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/prj-env.ads')
-rw-r--r-- | gcc/ada/prj-env.ads | 99 |
1 files changed, 99 insertions, 0 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads new file mode 100644 index 00000000000..272c559282a --- /dev/null +++ b/gcc/ada/prj-env.ads @@ -0,0 +1,99 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- P R J . E N V -- +-- -- +-- S p e c -- +-- -- +-- $Revision: 1.10 $ +-- -- +-- Copyright (C) 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- -- +-- ware Foundation; either version 2, or (at your option) any later ver- -- +-- sion. GNAT is distributed in the hope that it will be useful, but WITH- -- +-- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY -- +-- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License -- +-- for more details. You should have received a copy of the GNU General -- +-- Public License distributed with GNAT; see file COPYING. If not, write -- +-- to the Free Software Foundation, 59 Temple Place - Suite 330, Boston, -- +-- MA 02111-1307, USA. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- It is now maintained by Ada Core Technologies Inc (http://www.gnat.com). -- +-- -- +------------------------------------------------------------------------------ + +-- This package implements services for Project-aware tools, related +-- to the environment (gnat.adc, ADA_INCLUDE_PATH, ADA_OBJECTS_PATH) + +with GNAT.OS_Lib; use GNAT.OS_Lib; + +package Prj.Env is + + procedure Initialize; + -- Put Standard_Naming_Data into Namings table (called by Prj.Initialize) + + procedure Print_Sources; + -- Output the list of sources, after Project files have been scanned + + procedure Create_Config_Pragmas_File + (For_Project : Project_Id; + Main_Project : Project_Id); + -- If there needs to have SFN pragmas, either for non standard naming + -- schemes or for individual units, or if Global_Configuration_Pragmas + -- has been specified in package gnatmake of the main project, or if + -- Local_Configuration_Pragmas has been specified in package Compiler + -- of the main project, build (if needed) a temporary file that contains + -- all configuration pragmas, and specify the configuration pragmas file + -- in the project data. + + function Ada_Include_Path (Project : Project_Id) return String_Access; + -- Get the ADA_INCLUDE_PATH of a Project file. For the first call, compute + -- it and cache it. + + function Ada_Objects_Path + (Project : Project_Id; + Including_Libraries : Boolean := True) + return String_Access; + -- Get the ADA_OBJECTS_PATH of a Project file. For the first call, compute + -- it and cache it. When Including_Libraries is False, do not include the + -- object directories of the library projects, and do not cache the result. + + function Path_Name_Of_Library_Unit_Body + (Name : String; + Project : Project_Id) + return String; + -- Returns the Path of a library unit. + + function File_Name_Of_Library_Unit_Body + (Name : String; + Project : Project_Id) + return String; + -- Returns the file name of a library unit, in canonical case. Name may or + -- may not have an extension (corresponding to the naming scheme of the + -- project). If there is no body with this name, but there is a spec, the + -- name of the spec is returned. If neither a body or a spec can be found, + -- return an empty string. + + procedure Get_Reference + (Source_File_Name : String; + Project : out Project_Id; + Path : out Name_Id); + -- Returns the project of a source. + + generic + with procedure Action (Path : String); + procedure For_All_Source_Dirs (Project : Project_Id); + -- Iterate through all the source directories of a project, + -- including those of imported or modified projects. + + generic + with procedure Action (Path : String); + procedure For_All_Object_Dirs (Project : Project_Id); + -- Iterate through all the object directories of a project, + -- including those of imported or modified projects. + +end Prj.Env; |