This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Update gnatcmd with project file switches (-P -X -vPx)
- To: gcc-patches at gcc dot gnu dot org
- Subject: [Ada] Update gnatcmd with project file switches (-P -X -vPx)
- From: bosch at gnat dot com
- Date: Tue, 30 Oct 2001 17:48:54 -0500 (EST)
Checked in for Vincent. Tested on GNU Linux/x86.
-Geert
2001-10-30 Vincent Celier <celier@gnat.com>
* gnatcmd.adb (MAKE, BIND, LINK, LIST, FIND, XREF): Add translations
for project file switches (-P (/PROJECT_FILE=),
-X (/EXTERNAL_REFERENCE=) and -vPx (/PROJECT_FILE_VERBOSITY=DEFAULT
or MEDIUM or HIGH)
*** gnatcmd.adb 2001/09/27 00:47:46 1.85
--- gnatcmd.adb 2001/10/03 13:44:47 1.86
***************
*** 162,167 ****
--- 162,184 ----
type Switches_Ptr is access constant Switches;
+ --------------------------------
+ -- Switches for project files --
+ --------------------------------
+
+ S_Ext_Ref : aliased constant S := "/EXTERNAL_REFERENCE=" & '"' &
+ "-X" & '"';
+
+ S_Project_File : aliased constant S := "/PROJECT_FILE=*" &
+ "-P*";
+ S_Project_Verb : aliased constant S := "/PROJECT_FILE_VERBOSITY=" &
+ "DEFAULT " &
+ "-vP0 " &
+ "MEDIUM " &
+ "-vP1 " &
+ "HIGH " &
+ "-vP2";
+
----------------------------
-- Switches for GNAT BIND --
----------------------------
***************
*** 295,300 ****
--- 312,318 ----
S_Bind_DebugX 'Access,
S_Bind_Elab 'Access,
S_Bind_Error 'Access,
+ S_Ext_Ref 'Access,
S_Bind_Full 'Access,
S_Bind_Library 'Access,
S_Bind_Linker 'Access,
***************
*** 306,311 ****
--- 324,331 ----
S_Bind_Output 'Access,
S_Bind_OutputX 'Access,
S_Bind_Pess 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_Bind_Read 'Access,
S_Bind_ReadX 'Access,
S_Bind_Rename 'Access,
***************
*** 803,813 ****
--- 823,836 ----
Find_Switches : aliased constant Switches := (
S_Find_All 'Access,
S_Find_Expr 'Access,
+ S_Ext_Ref 'Access,
S_Find_Full 'Access,
S_Find_Ignore 'Access,
S_Find_Object 'Access,
S_Find_Print 'Access,
S_Find_Project 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_Find_Ref 'Access,
S_Find_Search 'Access,
S_Find_Source 'Access);
***************
*** 893,902 ****
--- 916,928 ----
S_Link_Bind 'Access,
S_Link_Debug 'Access,
S_Link_Execut 'Access,
+ S_Ext_Ref 'Access,
S_Link_Ident 'Access,
S_Link_Nocomp 'Access,
S_Link_Nofiles 'Access,
S_Link_Noinhib 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_Link_Static 'Access,
S_Link_Verb 'Access,
S_Link_ZZZZZ 'Access);
***************
*** 942,950 ****
--- 968,979 ----
S_List_All 'Access,
S_List_Current 'Access,
S_List_Depend 'Access,
+ S_Ext_Ref 'Access,
S_List_Nostinc 'Access,
S_List_Object 'Access,
S_List_Output 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_List_Search 'Access,
S_List_Source 'Access);
***************
*** 1040,1045 ****
--- 1069,1075 ----
S_Make_Dep 'Access,
S_Make_Doobj 'Access,
S_Make_Execut 'Access,
+ S_Ext_Ref 'Access,
S_Make_Force 'Access,
S_Make_Inplace 'Access,
S_Make_Library 'Access,
***************
*** 1050,1055 ****
--- 1080,1087 ----
S_Make_Nostlib 'Access,
S_Make_Object 'Access,
S_Make_Proc 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_Make_Nojobs 'Access,
S_Make_Quiet 'Access,
S_Make_Reason 'Access,
***************
*** 1230,1239 ****
--- 1262,1274 ----
Xref_Switches : aliased constant Switches := (
S_Xref_All 'Access,
+ S_Ext_Ref 'Access,
S_Xref_Full 'Access,
S_Xref_Global 'Access,
S_Xref_Object 'Access,
S_Xref_Project 'Access,
+ S_Project_File 'Access,
+ S_Project_Verb 'Access,
S_Xref_Search 'Access,
S_Xref_Source 'Access,
S_Xref_Output 'Access);