diff options
Diffstat (limited to 'gcc-4.8.3/gcc/ada/prj-conf.ads')
| -rw-r--r-- | gcc-4.8.3/gcc/ada/prj-conf.ads | 203 |
1 files changed, 203 insertions, 0 deletions
diff --git a/gcc-4.8.3/gcc/ada/prj-conf.ads b/gcc-4.8.3/gcc/ada/prj-conf.ads new file mode 100644 index 000000000..7154e55d2 --- /dev/null +++ b/gcc-4.8.3/gcc/ada/prj-conf.ads @@ -0,0 +1,203 @@ +------------------------------------------------------------------------------ +-- -- +-- GNAT COMPILER COMPONENTS -- +-- -- +-- P R J . C O N F -- +-- -- +-- S p e c -- +-- -- +-- Copyright (C) 2006-2013, 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 3, 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 COPYING3. If not, go to -- +-- http://www.gnu.org/licenses for a complete copy of the license. -- +-- -- +-- GNAT was originally developed by the GNAT team at New York University. -- +-- Extensive contributions were provided by Ada Core Technologies Inc. -- +-- -- +------------------------------------------------------------------------------ + +-- The following package manipulates the configuration files + +with Prj.Tree; + +package Prj.Conf is + + type Config_File_Hook is access procedure + (Config_File : in out Prj.Tree.Project_Node_Id; + Project_Node_Tree : Prj.Tree.Project_Node_Tree_Ref); + -- Hook called after the config file has been parsed. This lets the + -- application do last minute changes to it (GPS uses this to add the + -- default naming schemes for instance). At that point, the config file + -- has not been applied to the project yet. When no config file was found, + -- and automatic generation is disabled, it is possible that Config_File + -- is set to Empty_Node when this procedure is called. You can then decide + -- to create a new config file if you need. + + procedure Parse_Project_And_Apply_Config + (Main_Project : out Prj.Project_Id; + User_Project_Node : out Prj.Tree.Project_Node_Id; + Config_File_Name : String := ""; + Autoconf_Specified : Boolean; + Project_File_Name : String; + Project_Tree : Prj.Project_Tree_Ref; + Project_Node_Tree : Prj.Tree.Project_Node_Tree_Ref; + Env : in out Prj.Tree.Environment; + Packages_To_Check : String_List_Access; + Allow_Automatic_Generation : Boolean := True; + Automatically_Generated : out Boolean; + Config_File_Path : out String_Access; + Target_Name : String := ""; + Normalized_Hostname : String; + On_Load_Config : Config_File_Hook := null); + -- Find the main configuration project and parse the project tree rooted at + -- this configuration project. + -- + -- Project_Node_Tree must have been initialized first (and possibly the + -- value for external references and project path should also have been + -- set). + -- + -- If the processing fails, Main_Project is set to No_Project. If the error + -- happened while parsing the project itself (i.e. creating the tree), + -- User_Project_Node is also set to Empty_Node. + -- + -- Autoconf_Specified indicates whether the user has specified --autoconf. + -- If this is the case, the config file might be (re)generated, as + -- appropriate, to match languages and target if the one specified doesn't + -- already match. + -- + -- Normalized_Hostname is the host on which gprbuild is returned, + -- normalized so that we can more easily compare it with what is stored in + -- configuration files. It is used when the target is unspecified, although + -- we need to know the target specified by the user (Target_Name) when + -- computing the name of the default config file that should be used. + -- + -- If specified, On_Load_Config is called just after the config file has + -- been created/loaded. You can then modify it before it is later applied + -- to the project itself. + -- + -- Any error in generating or parsing the config file is reported via the + -- Invalid_Config exception, with an appropriate message. Any error while + -- parsing the project file results in No_Project. + + procedure Process_Project_And_Apply_Config + (Main_Project : out Prj.Project_Id; + User_Project_Node : Prj.Tree.Project_Node_Id; + Config_File_Name : String := ""; + Autoconf_Specified : Boolean; + Project_Tree : Prj.Project_Tree_Ref; + Project_Node_Tree : Prj.Tree.Project_Node_Tree_Ref; + Env : in out Prj.Tree.Environment; + Packages_To_Check : String_List_Access; + Allow_Automatic_Generation : Boolean := True; + Automatically_Generated : out Boolean; + Config_File_Path : out String_Access; + Target_Name : String := ""; + Normalized_Hostname : String; + On_Load_Config : Config_File_Hook := null; + Reset_Tree : Boolean := True); + -- Same as above, except the project must already have been parsed through + -- Prj.Part.Parse, and only the processing of the project and the + -- configuration is done at this level. + -- + -- If Reset_Tree is true, all projects are first removed from the tree. + -- When_No_Sources indicates what should be done when no sources are found + -- for one of the languages of the project. + -- + -- If Require_Sources_Other_Lang is true, then all languages must have at + -- least one source file, or an error is reported via When_No_Sources. If + -- it is false, this is only required for Ada (and only if it is a language + -- of the project). + + Invalid_Config : exception; + + procedure Get_Or_Create_Configuration_File + (Project : Prj.Project_Id; + Conf_Project : Project_Id; + Project_Tree : Prj.Project_Tree_Ref; + Project_Node_Tree : Prj.Tree.Project_Node_Tree_Ref; + Env : in out Prj.Tree.Environment; + Allow_Automatic_Generation : Boolean; + Config_File_Name : String := ""; + Autoconf_Specified : Boolean; + Target_Name : String := ""; + Normalized_Hostname : String; + Packages_To_Check : String_List_Access := null; + Config : out Prj.Project_Id; + Config_File_Path : out String_Access; + Automatically_Generated : out Boolean; + On_Load_Config : Config_File_Hook := null); + -- Compute the name of the configuration file that should be used. If no + -- default configuration file is found, a new one will be automatically + -- generated if Allow_Automatic_Generation is true. This configuration + -- project file will be generated in the object directory of project + -- Conf_Project. + -- + -- Any error in generating or parsing the config file is reported via the + -- Invalid_Config exception, with an appropriate message. + -- + -- On exit, Configuration_Project_Path is never null (if none could be + -- found, Os.Fail was called and the program exited anyway). + -- + -- The choice and generation of a configuration file depends on several + -- attributes of the user's project file (given by the Project argument), + -- e.g. list of languages that must be supported. Project must therefore + -- have been partially processed (phase one of the processing only). + -- + -- Config_File_Name should be set to the name of the config file specified + -- by the user (either through gprbuild's --config or --autoconf switches). + -- In the latter case, Autoconf_Specified should be set to true to indicate + -- that the configuration file can be regenerated to match target and + -- languages. This name can either be an absolute path, or the base name + -- that will be searched in the default config file directories (which + -- depends on the installation path for the tools). + -- + -- Target_Name is used to chose the configuration file that will be used + -- from among several possibilities. + -- + -- If a project file could be found, it is automatically parsed and + -- processed (and Packages_To_Check is used to indicate which packages + -- should be processed). + + procedure Add_Default_GNAT_Naming_Scheme + (Config_File : in out Prj.Tree.Project_Node_Id; + Project_Tree : Prj.Tree.Project_Node_Tree_Ref); + -- A hook that will create a new config file (in memory), used for + -- Get_Or_Create_Configuration_File and Process_Project_And_Apply_Config + -- and add the default GNAT naming scheme to it. Nothing is done if the + -- config_file already exists, to avoid overriding what the user might + -- have put in there. + + -------------- + -- Runtimes -- + -------------- + + procedure Set_Runtime_For (Language : Name_Id; RTS_Name : String); + -- Specifies the runtime to use for a specific language. Most of the time + -- this should be used for Ada, but other languages can also specify their + -- own runtime. This is in general specified via the --RTS command line + -- switch, and results in a specific component passed to gprconfig's + -- --config switch then automatically generating a configuration file. + + function Runtime_Name_For (Language : Name_Id) return String; + -- Returns the runtime name for a language. Returns an empty string if no + -- runtime was specified for the language using option --RTS. + + function Runtime_Name_Set_For (Language : Name_Id) return Boolean; + -- Returns True only if Set_Runtime_For has been called for the Language + + procedure Locate_Runtime + (Language : Name_Id; + Project_Tree : Prj.Project_Tree_Ref); + -- If RTS_Name is a base name (a name without path separator), then + -- do nothing. Otherwise, convert it to an absolute path (possibly by + -- searching it in the project path) and call Set_Runtime_For with the + -- absolute path. Fail the program if the path does not exist. + +end Prj.Conf; |