diff options
Diffstat (limited to 'gcc/ada/prj-env.ads')
| -rw-r--r-- | gcc/ada/prj-env.ads | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/ada/prj-env.ads b/gcc/ada/prj-env.ads index fd14a4a3c3d..79de6464a0a 100644 --- a/gcc/ada/prj-env.ads +++ b/gcc/ada/prj-env.ads @@ -210,6 +210,17 @@ package Prj.Env is -- Override the value of the project path. This also removes the implicit -- default search directories. + generic + with function Check_Filename (Name : String) return Boolean; + function Find_Name_In_Path + (Self : Project_Search_Path; + Path : String) return String_Access; + -- Find a name in the project search path of Self. Check_Filename is + -- the predicate to valid the search. If Path is an absolute filename, + -- simply calls the predicate with Path. Otherwise, calls the predicate + -- for each component of the path. Stops as soon as the predicate + -- returns True and returns the name, or returns null in case of failure. + procedure Find_Project (Self : in out Project_Search_Path; Project_File_Name : String; |