diff options
| author | Emmanuel Briot <briot@adacore.com> | 2010-10-05 09:26:00 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-10-05 11:26:00 +0200 |
| commit | a0a786e30d405d181e936f76317e3f1c896d4bfa (patch) | |
| tree | d6903f3f2b63fe455d17e373f993509b5a0bf01c /gcc/ada/prj-ext.ads | |
| parent | 9d9f5f49ae6d54cac2a967ffdfab8b7b4a113cb9 (diff) | |
| download | gcc-a0a786e30d405d181e936f76317e3f1c896d4bfa.zip gcc-a0a786e30d405d181e936f76317e3f1c896d4bfa.tar.gz gcc-a0a786e30d405d181e936f76317e3f1c896d4bfa.tar.bz2 | |
gnatcmd.adb, [...] (Project_Search_Path): New type.
2010-10-05 Emmanuel Briot <briot@adacore.com>
* gnatcmd.adb, prj-proc.adb, prj-part.adb, prj-ext.adb, prj-ext.ads,
switch-m.adb, clean.adb, prj-nmsc.adb, prj-nmsc.ads, prj-env.adb,
prj-env.ads, prj-tree.adb, prj-tree.ads (Project_Search_Path): New type.
From-SVN: r164969
Diffstat (limited to 'gcc/ada/prj-ext.ads')
| -rw-r--r-- | gcc/ada/prj-ext.ads | 30 |
1 files changed, 1 insertions, 29 deletions
diff --git a/gcc/ada/prj-ext.ads b/gcc/ada/prj-ext.ads index c171f59..1fb389c 100644 --- a/gcc/ada/prj-ext.ads +++ b/gcc/ada/prj-ext.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2000-2010, 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- -- @@ -30,34 +30,6 @@ with Prj.Tree; package Prj.Ext is - ------------------ - -- Project Path -- - ------------------ - - procedure Add_Search_Project_Directory - (Tree : Prj.Tree.Project_Node_Tree_Ref; - Path : String); - -- Add a directory to the project path. Directories added with this - -- procedure are added in order after the current directory and before - -- the path given by the environment variable GPR_PROJECT_PATH. A value - -- of "-" will remove the default project directory from the project path. - -- - -- Calls to this subprogram must be performed before the first call to - -- Project_Path below, or PATH will be added at the end of the search - -- path. - - function Project_Path (Tree : Prj.Tree.Project_Node_Tree_Ref) return String; - -- Return the current value of the project path, either the value set - -- during elaboration of the package or, if procedure Set_Project_Path has - -- been called, the value set by the last call to Set_Project_Path. - - procedure Set_Project_Path - (Tree : Prj.Tree.Project_Node_Tree_Ref; - New_Path : String); - -- Give a new value to the project path. The new value New_Path should - -- always start with the current directory (".") and the path separators - -- should be the correct ones for the platform. - ------------------------- -- External References -- ------------------------- |