+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)
+
2001-10-30 Geert Bosch <bosch@gnat.com>
* decl.c: Minor whitespace fixes.
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 --
----------------------------
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,
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,
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);
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);
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);
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,
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,
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);