package GNATCOLL.Projects.Aux is
function To_Project_Id
(Project : Projects.Project_Type)
return GPR.Project_Id;
pragma Inline (To_Project_Id);
-- Give access to the Project_Id of a project
function Project_Tree_Ref_Of
(Project : Projects.Project_Type)
return GPR.Project_Tree_Ref;
pragma Inline (Project_Tree_Ref_Of);
-- Give access to the Project_Tree_Ref of a project
function Create_Ada_Mapping_File
(Project : Projects.Project_Type)
return String;
-- Creates a temporary file that contains the mapping of the Ada units
-- in the project tree rooted at the project Project and returns the full
-- path of the temporary file. If the creation of this mapping file is
-- unsuccessful, either an exception is raised or the empty string is
-- returned.
--
-- It is the responsibility of the user to delete this temporary file when
-- it is no longer needed, either directly or by calling
-- Delete_All_Temp_Files.
function Create_Config_Pragmas_File
(Project : Projects.Project_Type)
return String;
-- Creates a temporary file that contains the configuration pragmas for
-- the project tree rooted at Project and returns the full path of the
-- temporary file. If the creation of this mapping file is unsuccessful,
-- either an exception is raised or the empty string is returned.
--
-- It is the responsibility of the user to delete this temporary file when
-- it is no longer needed, either directly or by calling
-- Delete_All_Temp_Files.
procedure Delete_All_Temp_Files (Root_Project : Projects.Project_Type);
-- Delete all the temporary files that have been created by the Project
-- Manager in the project tree rooted at Root_Project.
end GNATCOLL.Projects.Aux;