aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/vms_data.ads
diff options
context:
space:
mode:
authorVincent Celier <celier@adacore.com>2008-04-08 08:57:10 +0200
committerArnaud Charlet <charlet@gcc.gnu.org>2008-04-08 08:57:10 +0200
commit1a5f40e1b81b0e5306d41773faf5f77197fbfe04 (patch)
treee5090f510857d9b1a09deb5b01c340087bebfb34 /gcc/ada/vms_data.ads
parentdaa5998b841124471f0a514209f1468f28c2e448 (diff)
downloadgcc-1a5f40e1b81b0e5306d41773faf5f77197fbfe04.zip
gcc-1a5f40e1b81b0e5306d41773faf5f77197fbfe04.tar.gz
gcc-1a5f40e1b81b0e5306d41773faf5f77197fbfe04.tar.bz2
vms_conv.adb (Output_Version): Print "GNAAMP" instead of "GNAT when AAMP_On_Target is set.
2008-04-08 Vincent Celier <celier@adacore.com> Robert Dewar <dewar@adacore.com> * vms_conv.adb (Output_Version): Print "GNAAMP" instead of "GNAT when AAMP_On_Target is set. * vms_data.ads: Add NOxxx to style check switch list Add entry COMPONENTS for -gnatVe Add VMS qualifiers for -eL (/FOLLOW_LINKS_FOR_FILES) and --subdirs= (/SUBDIRS=). (GCC_Switches): Add /ALL_BACK_END_WARNINGS. Add qualifiers for gnatmetric coupling options Add note that -gnata enables all checks Add entries [NO]PARAMETER_ORDER for -gnatw.p[P] Fix inconsistency for VMS qualifier for the gnatpp '-rnb' option New warning flag -gnatw.e * usage.adb: Add entries for -gnaty+ -gnaty- -gnatyy Add entry for -gnatyN (forgotten before) Line for new warning switch -gnatw.p New warning flag -gnatw.e * gnat_ugn.texi: Add documentation fpr project file switch -aP Document -gnaty - + y Replace occurences of "package specification" with "package spec" Define preprocessing symbols in documentation of gnatprep Clarify reason for distinguishing overflow checking Add documentation for project-aware tool switches -eL and --subdirs= Complete list of configuration pragmas Specify that, even when gnatmake switch -x is used, mains on the command line need to be sources of project files. Editing of gnatcheck/gnatmetric doc. Add documentation for -gnatw.p/-gnatw.P Add missing documentation for -fno-inline-functions. Add documentation for -gnatw.e * gnat_rm.texi: Add documentation for No_Default_Initialization Replace occurences of "package specification" with "package spec" Document use of * in Warnings Off string Update documentation of alignment/component clauses. Add documentation for Invalid_Value Document new consistency rule for Optimize_Alignment Add documentation for Precondition and Postcondition pragmas Add documentation for Check and Check_Policy pragmas Document new Enum_Val attribute Remove requirement for static string in pragma Assert Add documentation on GNAT.Time_Stamp * ug_words: add entry for -gnatVe Add entries for -gnat.p[P] /WARNINGS=[NO]PARAMETER_ORDER Add entry for -gnatw.e * debug.adb: Add missing documentation for d.a flag Document new -gnatd.a switch. Add documentation for new gnatmake debug switch -df From-SVN: r134060
Diffstat (limited to 'gcc/ada/vms_data.ads')
-rw-r--r--gcc/ada/vms_data.ads548
1 files changed, 465 insertions, 83 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads
index fa8e108..f77f261 100644
--- a/gcc/ada/vms_data.ads
+++ b/gcc/ada/vms_data.ads
@@ -40,7 +40,7 @@
-- NOTE: the format of this package must follow the following rules, so that
-- the VMS GNAT help tool works properly:
--- - Each command zone (where the eventual qualifiers are declared must
+-- - Each command zone (where the eventual qualifiers are declared) must
-- begin with a boxed comment of the form:
-- ---------------------------------
@@ -192,7 +192,7 @@ package VMS_Data is
S_Bind_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -275,6 +275,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Bind_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Bind_Force : aliased constant S := "/FORCE_ELAB_FLAGS " &
"-F";
-- /NOFORCE_ELAB_FLAGS (D)
@@ -579,6 +586,14 @@ package VMS_Data is
-- This qualifier has no impact, except when using the setjmp/longjmp
-- exception mechanism, with the GNAT COMPILE qualifier /LONGJMP_SETJMP.
+ S_Bind_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Bind_Time : aliased constant S := "/TIME_STAMP_CHECK " &
"!-t";
-- /TIME_STAMP_CHECK (D)
@@ -662,6 +677,7 @@ package VMS_Data is
S_Bind_Elab 'Access,
S_Bind_Error 'Access,
S_Bind_Ext 'Access,
+ S_Bind_Follow 'Access,
S_Bind_Force 'Access,
S_Bind_Help 'Access,
S_Bind_Init 'Access,
@@ -693,6 +709,7 @@ package VMS_Data is
S_Bind_Source 'Access,
S_Bind_Static 'Access,
S_Bind_Store 'Access,
+ S_Bind_Subdirs 'Access,
S_Bind_Time 'Access,
S_Bind_Verbose 'Access,
S_Bind_Warn 'Access,
@@ -706,7 +723,7 @@ package VMS_Data is
S_Check_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -736,6 +753,13 @@ package VMS_Data is
-- Take as arguments the files that are listed in the specified
-- text file.
+ S_Check_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Check_Help : aliased constant S := "/HELP " &
"-h";
-- /NOHELP (D)
@@ -804,13 +828,13 @@ package VMS_Data is
--
-- section-option may be one of the following:
--
- -- COMPILER_STYLE Include diagnoses in compile-style format
+ -- COMPILER_STYLE Include diagnostics in compile-style format
-- (diagoses are grouped by files, for each file
-- they are ordered according to the references
-- into the source)
- -- BY_RULES Include diagnoses grouped first by rules and
+ -- BY_RULES Include diagnostics grouped first by rules and
-- then by files
- -- BY_FILES_BY_RULES Include diagnoses grouped first by files and
+ -- BY_FILES_BY_RULES Include diagnostics grouped first by files and
-- then by rules
--
-- If one of these options is specified, then the report file contains
@@ -823,6 +847,14 @@ package VMS_Data is
--
-- Generate a short form of the report file.
+ S_Check_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Check_Verb : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -837,6 +869,7 @@ package VMS_Data is
S_Check_All 'Access,
S_Check_Ext 'Access,
S_Check_Files 'Access,
+ S_Check_Follow 'Access,
S_Check_Help 'Access,
S_Check_Locs 'Access,
S_Check_Mess 'Access,
@@ -844,6 +877,7 @@ package VMS_Data is
S_Check_Quiet 'Access,
S_Check_Sections 'Access,
S_Check_Short 'Access,
+ S_Check_Subdirs 'Access,
S_Check_Verb 'Access);
----------------------------
@@ -852,7 +886,7 @@ package VMS_Data is
S_Sync_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -882,6 +916,13 @@ package VMS_Data is
-- Take as arguments the files that are listed in the specified
-- text file.
+ S_Sync_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Sync_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" &
"DEFAULT " &
"-vP0 " &
@@ -917,6 +958,14 @@ package VMS_Data is
--
-- Work quietly, only output warnings and errors.
+ S_Sync_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Sync_Verb : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -967,10 +1016,12 @@ package VMS_Data is
(S_Sync_Add 'Access,
S_Sync_All 'Access,
S_Sync_Ext 'Access,
+ S_Sync_Follow 'Access,
S_Sync_Files 'Access,
S_Sync_Mess 'Access,
S_Sync_Project 'Access,
S_Sync_Quiet 'Access,
+ S_Sync_Subdirs 'Access,
S_Sync_Verb 'Access,
S_Sync_Exec 'Access,
S_Sync_Details 'Access,
@@ -1075,7 +1126,7 @@ package VMS_Data is
S_Clean_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -1129,6 +1180,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Clean_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Clean_Full : aliased constant S := "/FULL_PATH_IN_BRIEF_MESSAGES " &
"-F";
-- /NOFULL_PATH_IN_BRIEF_MESSAGES (D)
@@ -1215,6 +1273,14 @@ package VMS_Data is
--
-- Equivalent to /OBJECT_SEARCH=(directory,...).
+ S_Clean_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Clean_Verbose : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -1229,6 +1295,7 @@ package VMS_Data is
S_Clean_Delete 'Access,
S_Clean_Dirobj 'Access,
S_Clean_Ext 'Access,
+ S_Clean_Follow 'Access,
S_Clean_Full 'Access,
S_Clean_Help 'Access,
S_Clean_Index 'Access,
@@ -1238,6 +1305,7 @@ package VMS_Data is
S_Clean_Quiet 'Access,
S_Clean_Recurs 'Access,
S_Clean_Search 'Access,
+ S_Clean_Subdirs'Access,
S_Clean_Verbose'Access);
-------------------------------
@@ -1283,7 +1351,7 @@ package VMS_Data is
S_GCC_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -1351,7 +1419,8 @@ package VMS_Data is
--
-- ASSERTIONS The pragmas "Assert" and "Debug" normally have no
-- effect and are ignored. This keyword causes "Assert"
- -- and "Debug" pragmas to be activated.
+ -- and "Debug" pragmas to be activated, as well as
+ -- "Check", "Precondition" and "Postcondition" pragmas.
--
-- SUPPRESS_ALL Suppress all runtime checks as though you have "pragma
-- Suppress (all_checks)" in your source. Use this switch
@@ -1575,6 +1644,13 @@ package VMS_Data is
-- including the ADS or ADB filetype. The default is not to enable file
-- name krunching.
+ S_GCC_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_GCC_Force : aliased constant S := "/FORCE_ALI " &
"-gnatQ";
-- /NOFORCE_ALI (D)
@@ -2151,7 +2227,9 @@ package VMS_Data is
S_GCC_Style : aliased constant S := "/STYLE_CHECKS=" &
"ALL_BUILTIN " &
- "-gnaty " &
+ "-gnatyy " &
+ "0 " &
+ "-gnaty0 " &
"1 " &
"-gnaty1 " &
"2 " &
@@ -2172,52 +2250,96 @@ package VMS_Data is
"-gnaty9 " &
"ATTRIBUTE " &
"-gnatya " &
+ "NOATTRIBUTE " &
+ "-gnaty-a " &
"ARRAY_INDEXES " &
"-gnatyA " &
+ "NOARRAY_INDEXES " &
+ "-gnaty-A " &
"BLANKS " &
"-gnatyb " &
+ "NOBLANKS " &
+ "-gnaty-b " &
"COMMENTS " &
"-gnatyc " &
+ "NOCOMMENTS " &
+ "-gnaty-c " &
"DOS_LINE_ENDINGS " &
"-gnatyd " &
+ "NODOS_LINE_ENDINGS " &
+ "-gnaty-d " &
"END " &
"-gnatye " &
+ "NOEND " &
+ "-gnaty-e " &
"VTABS " &
"-gnatyf " &
+ "NOVTABS " &
+ "-gnaty-f " &
"GNAT " &
"-gnatyg " &
"HTABS " &
"-gnatyh " &
+ "NOHTABS " &
+ "-gnaty-h " &
"IF_THEN " &
"-gnatyi " &
+ "NOIF_THEN " &
+ "-gnaty-i " &
"KEYWORD " &
"-gnatyk " &
+ "NOKEYWORD " &
+ "-gnaty-k " &
"LAYOUT " &
"-gnatyl " &
+ "NOLAYOUT " &
+ "-gnaty-l " &
"LINE_LENGTH " &
"-gnatym " &
+ "NOLINE_LENGTH " &
+ "-gnaty-m " &
"MODE_IN " &
"-gnatyI " &
+ "NOMODE_IN " &
+ "-gnaty-I " &
"NONE " &
"-gnatyN " &
"STANDARD_CASING " &
"-gnatyn " &
+ "NOSTANDARD_CASING " &
+ "-gnaty-n " &
"ORDERED_SUBPROGRAMS " &
"-gnatyo " &
+ "NOORDERED_SUBPROGRAMS " &
+ "-gnaty-o " &
"PRAGMA " &
"-gnatyp " &
+ "NOPRAGMA " &
+ "-gnaty-p " &
"REFERENCES " &
"-gnatyr " &
+ "NOREFERENCES " &
+ "-gnaty-r " &
"SPECS " &
"-gnatys " &
+ "NOSPECS " &
+ "-gnaty-s " &
"STATEMENTS_AFTER_THEN_ELSE " &
"-gnatyS " &
+ "NOSTATEMENTS_AFTER_THEN_ELSE " &
+ "-gnaty-S " &
"TOKEN " &
"-gnatyt " &
+ "NOTOKEN " &
+ "-gnaty-t " &
"UNNECESSARY_BLANK_LINES " &
"-gnatyu " &
+ "NOUNNECESSARY_BLANK_LINES " &
+ "-gnaty-u " &
"XTRA_PARENS " &
- "-gnatyx ";
+ "-gnaty-x " &
+ "NOXTRA_PARENS " &
+ "-gnaty-x ";
-- /NOSTYLE_CHECKS (D)
-- /STYLE_CHECKS[=(keyword,[...])]
--
@@ -2531,6 +2653,14 @@ package VMS_Data is
"!-gnatg,!-gnaty*";
-- NODOC (see /STYLE_CHECKS)
+ S_GCC_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_GCC_Symbol : aliased constant S := "/SYMBOL_PREPROCESSING=" & '"' &
"-gnateD" & '"';
-- /SYMBOL_PREPROCESSING="symbol=value"
@@ -2648,6 +2778,10 @@ package VMS_Data is
"-gnatVc " &
"NOCOPIES " &
"-gnatVC " &
+ "COMPONENTS " &
+ "-gnatVe " &
+ "NOCOMPONENTS " &
+ "-gnatVE " &
"FLOATS " &
"-gnatVf " &
"NOFLOATS " &
@@ -2738,6 +2872,8 @@ package VMS_Data is
"!-gnatws,!-gnatwe " &
"ALL " &
"-gnatwa " &
+ "EVERY " &
+ "-gnatw.e " &
"OPTIONAL " &
"-gnatwa " &
"NOOPTIONAL " &
@@ -2816,6 +2952,10 @@ package VMS_Data is
"-gnatwP " &
"MISSING_PARENS " &
"-gnatwq " &
+ "PARAMETER_ORDER " &
+ "-gnatw.p " &
+ "NOPARAMETER_ORDER " &
+ "-gnatw.P " &
"NOMISSING_PARENS " &
"-gnatwQ " &
"REDUNDANT " &
@@ -2895,6 +3035,10 @@ package VMS_Data is
-- ELABORATION. All other optional Ada
-- warnings are turned on.
--
+ -- EVERY Activate every optional warning.
+ -- Activates all optional warnings, including
+ -- those listed above as exceptions for ALL.
+ --
-- NOALL Suppress all optional errors.
-- Suppresses all optional warning messages
-- that can be activated by option ALL.
@@ -3140,6 +3284,12 @@ package VMS_Data is
--
-- Inhibit all warning messages of the GCC back-end.
+ S_GCC_All_Back : aliased constant S := "/ALL_BACK_END_WARNINGS " &
+ "-Wall";
+ -- /ALL_BACK_END_WARNINGS
+ --
+ -- Activate all warning messages of the GCC back-end.
+
S_GCC_Wide : aliased constant S := "/WIDE_CHARACTER_ENCODING=" &
"BRACKETS " &
"-gnatWb " &
@@ -3287,6 +3437,7 @@ package VMS_Data is
S_GCC_Extend 'Access,
S_GCC_Ext 'Access,
S_GCC_File 'Access,
+ S_GCC_Follow 'Access,
S_GCC_Force 'Access,
S_GCC_Full 'Access,
S_GCC_GNAT 'Access,
@@ -3323,6 +3474,7 @@ package VMS_Data is
S_GCC_Search 'Access,
S_GCC_Style 'Access,
S_GCC_StyleX 'Access,
+ S_GCC_Subdirs 'Access,
S_GCC_Symbol 'Access,
S_GCC_Syntax 'Access,
S_GCC_Table 'Access,
@@ -3340,6 +3492,7 @@ package VMS_Data is
S_GCC_Wide 'Access,
S_GCC_WideX 'Access,
S_GCC_No_Back 'Access,
+ S_GCC_All_Back'Access,
S_GCC_Xdebug 'Access,
S_GCC_Xref 'Access);
@@ -3349,7 +3502,7 @@ package VMS_Data is
S_Elim_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -3402,6 +3555,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Elim_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Elim_GNATMAKE : aliased constant S := "/GNATMAKE=@" &
"--GNATMAKE=@";
-- /GNATMAKE=path_name
@@ -3452,6 +3612,14 @@ package VMS_Data is
--
-- When looking for source files also look in the specified directories.
+ S_Elim_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Elim_Verb : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -3470,11 +3638,13 @@ package VMS_Data is
S_Elim_Config 'Access,
S_Elim_Current 'Access,
S_Elim_Ext 'Access,
+ S_Elim_Follow 'Access,
S_Elim_GNATMAKE'Access,
S_Elim_Mess 'Access,
S_Elim_Project 'Access,
S_Elim_Quiet 'Access,
S_Elim_Search 'Access,
+ S_Elim_Subdirs 'Access,
S_Elim_Verb 'Access);
----------------------------
@@ -3483,7 +3653,7 @@ package VMS_Data is
S_Find_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -3524,6 +3694,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Find_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Find_Full : aliased constant S := "/FULL_PATHNAME " &
"-f";
-- /NOFULL_PATHNAME (D)
@@ -3639,6 +3816,14 @@ package VMS_Data is
-- The order in which source file search is undertaken is the same as for
-- MAKE.
+ S_Find_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Find_Types : aliased constant S := "/TYPE_HIERARCHY " &
"-t";
-- /NOTYPE_HIERARCHY (D)
@@ -3655,6 +3840,7 @@ package VMS_Data is
S_Find_Deriv 'Access,
S_Find_Expr 'Access,
S_Find_Ext 'Access,
+ S_Find_Follow 'Access,
S_Find_Full 'Access,
S_Find_Ignore 'Access,
S_Find_Mess 'Access,
@@ -3667,6 +3853,7 @@ package VMS_Data is
S_Find_Ref 'Access,
S_Find_Search 'Access,
S_Find_Source 'Access,
+ S_Find_Subdirs 'Access,
S_Find_Types 'Access);
------------------------------
@@ -3693,7 +3880,7 @@ package VMS_Data is
S_Link_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -3756,6 +3943,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Link_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Link_Forlink : aliased constant S := "/FOR_LINKER=" & '"' &
"--for-linker=" & '"';
-- /FOR_LINKER=<string>
@@ -3866,6 +4060,14 @@ package VMS_Data is
--
-- Indicate to the linker that the link is static.
+ S_Link_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Link_Verb : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -3888,6 +4090,7 @@ package VMS_Data is
S_Link_Nodebug 'Access,
S_Link_Execut 'Access,
S_Link_Ext 'Access,
+ S_Link_Follow 'Access,
S_Link_Forlink 'Access,
S_Link_Force 'Access,
S_Link_Ident 'Access,
@@ -3900,6 +4103,7 @@ package VMS_Data is
S_Link_Project 'Access,
S_Link_Return 'Access,
S_Link_Static 'Access,
+ S_Link_Subdirs 'Access,
S_Link_Verb 'Access,
S_Link_ZZZZZ 'Access);
@@ -3909,7 +4113,7 @@ package VMS_Data is
S_List_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -3959,6 +4163,13 @@ package VMS_Data is
-- Take as arguments the files that are listed in the specified
-- text file.
+ S_List_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_List_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" &
"DEFAULT " &
"-vP0 " &
@@ -4044,6 +4255,14 @@ package VMS_Data is
--
-- When looking for source files also look in the specified directories.
+ S_List_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
List_Switches : aliased constant Switches :=
(S_List_Add 'Access,
S_List_All 'Access,
@@ -4052,13 +4271,15 @@ package VMS_Data is
S_List_Depend 'Access,
S_List_Ext 'Access,
S_List_Files 'Access,
+ S_List_Follow 'Access,
S_List_Mess 'Access,
S_List_Nostinc 'Access,
S_List_Object 'Access,
S_List_Output 'Access,
S_List_Project 'Access,
S_List_Search 'Access,
- S_List_Source 'Access);
+ S_List_Source 'Access,
+ S_List_Subdirs 'Access);
----------------------------
-- Switches for GNAT MAKE --
@@ -4110,7 +4331,7 @@ package VMS_Data is
S_Make_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -4251,6 +4472,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Make_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Make_Force : aliased constant S := "/FORCE_COMPILE " &
"-f";
-- /NOFORCE_COMPILE (D)
@@ -4513,6 +4741,14 @@ package VMS_Data is
-- Output the commands for the compiler, the binder and the linker
-- on SYS$OUTPUT, instead of SYS$ERROR.
+ S_Make_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Make_Switch : aliased constant S := "/SWITCH_CHECK " &
"-s";
-- /NOSWITCH_CHECK (D)
@@ -4568,6 +4804,7 @@ package VMS_Data is
S_Make_Doobj 'Access,
S_Make_Execut 'Access,
S_Make_Ext 'Access,
+ S_Make_Follow 'Access,
S_Make_Force 'Access,
S_Make_Full 'Access,
S_Make_Hi_Verb 'Access,
@@ -4598,6 +4835,7 @@ package VMS_Data is
S_Make_Skip 'Access,
S_Make_Source 'Access,
S_Make_Stand 'Access,
+ S_Make_Subdirs 'Access,
S_Make_Switch 'Access,
S_Make_Unique 'Access,
S_Make_Use_Map 'Access,
@@ -4609,7 +4847,7 @@ package VMS_Data is
S_Metric_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -4699,9 +4937,9 @@ package VMS_Data is
-- /SYNTAX_METRICS(option, option ...)
--
-- Specifies the syntax element metrics to be computed (if at least one
- -- positive syntax element metric, line metric or complexity metric is
- -- specified then only explicitly specified specified syntax element
- -- metrics are computed and reported)
+ -- positive syntax element metric, line metric, complexity or coupling
+ -- metric is specified then only explicitly specified specified syntax
+ -- element metrics are computed and reported)
--
-- option may be one of the following:
--
@@ -4833,9 +5071,9 @@ package VMS_Data is
-- /LINE_COUNT_METRICS=(option, option ...)
-- Specifies the line metrics to be computed (if at least one positive
- -- syntax element metric, line metric or complexity metric is specified
- -- then only explicitly specified specified line metrics are computed and
- -- reported)
+ -- syntax element metric, line metric, complexity or coupling metric is
+ -- specified then only explicitly specified specified line metrics are
+ -- computed and reported)
--
-- option may be one of the following:
--
@@ -4888,9 +5126,9 @@ package VMS_Data is
-- /COMPLEXITY_METRICS=(option, option ...)
-- Specifies the complexity metrics to be computed (if at least one
- -- positive syntax element metric, line metric or complexity metric is
- -- specified then only explicitly specified specified line metrics are
- -- computed and reported)
+ -- positive syntax element metric, line metric, complexity or coupling
+ -- metric is specified then only explicitly specified specified complexity
+ -- metrics are computed and reported)
--
-- option may be one of the following:
--
@@ -4910,6 +5148,54 @@ package VMS_Data is
--
-- All combinations of line metrics options are allowed.
+ S_Metric_Coupling : aliased constant S := "/COUPLING_METRICS=" &
+ "ALL_ON " &
+ "--coupling-all " &
+ "ALL_OFF " &
+ "--no-counling-all " &
+ "PACKAGE_EFFERENT_ON " &
+ "--package-efferent-coupling " &
+ "PACKAGE_EFFERENT_OFF " &
+ "--no-package-efferent-coupling " &
+ "PACKAGE_AFFERENT_ON " &
+ "--package-afferent-coupling " &
+ "PACKAGE_AFFERENT_OFF " &
+ "--no-package-afferent-coupling " &
+ "CATEGORY_EFFERENT_ON " &
+ "--category-efferent-coupling " &
+ "CATEGORY_EFFERENT_OFF " &
+ "--no-category-efferent-coupling " &
+ "CATEGORY_AFFERENT_ON " &
+ "--category-afferent-coupling " &
+ "CATEGORY_AFFERENT_OFF " &
+ "--no-category-afferent-coupling";
+
+ -- /COUPLING_METRICS=(option, option ...)
+
+ -- Specifies the coupling metrics to be computed.
+ --
+ -- option may be one of the following:
+ --
+ -- ALL_ON All the coupling metrics are computed
+ -- ALL_OFF (D) None of coupling metrics is computed
+ -- PACKAGE_EFFERENT_ON Compute package efferent coupling
+ -- PACKAGE_EFFERENT_OFF Do not compute package efferent coupling
+ -- PACKAGE_AFFERENT_ON Compute package afferent coupling
+ -- PACKAGE_AFFERENT_OFF Do not compute package afferent coupling
+ -- CATEGORY_EFFERENT_ON Compute category efferent coupling
+ -- CATEGORY_EFFERENT_OFF Do not compute category efferent coupling
+ -- CATEGORY_AFFERENT_ON Compute category afferent coupling
+ -- CATEGORY_AFFERENT_OFF Do not compute category afferent coupling
+ --
+ -- All combinations of coupling metrics options are allowed.
+
+ S_Metric_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Metric_No_Local : aliased constant S := "/NO_LOCAL_DETAILS " &
"-nolocal";
-- /LOCAL_DETAILS (D)
@@ -4961,6 +5247,14 @@ package VMS_Data is
-- the number of program units left to be processed. This option turns
-- this trace off.
+ S_Metric_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Metric_Suffix : aliased constant S := "/SUFFIX_DETAILS=" & '"' &
"-o" & '"';
-- /SUFFIX_DETAILS=suffix
@@ -5001,11 +5295,13 @@ package VMS_Data is
(S_Metric_Add 'Access,
S_Metric_All_Prjs 'Access,
S_Metric_Complexity 'Access,
+ S_Metric_Coupling 'Access,
S_Metric_Debug 'Access,
S_Metric_Direct 'Access,
S_Metric_Element 'Access,
S_Metric_Ext 'Access,
S_Metric_Files 'Access,
+ S_Metric_Follow 'Access,
S_Metric_Format 'Access,
S_Metric_Globout 'Access,
S_Metric_Line 'Access,
@@ -5016,6 +5312,7 @@ package VMS_Data is
S_Metric_Project 'Access,
S_Metric_Quiet 'Access,
S_Metric_Suffix 'Access,
+ S_Metric_Subdirs 'Access,
S_Metric_Syntax 'Access,
S_Metric_Suppress 'Access,
S_Metric_Verbose 'Access,
@@ -5061,6 +5358,13 @@ package VMS_Data is
-- qualifiers /SOURCE_DIRS as there are non empty lines in the specified
-- text file.
+ S_Name_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Name_Frng : aliased constant S := "/FOREIGN_PATTERN=" & '"' &
"-f" & '"';
-- /FOREIGN_PATTERN=<string>
@@ -5092,6 +5396,14 @@ package VMS_Data is
-- one qualifier /PROJECT_FILE. When a qualifier /PROJECT_DILE is
-- specified, no qualifier /CONFIG_FILE may be specified.
+ S_Name_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Name_Verbose : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -5117,14 +5429,16 @@ package VMS_Data is
-- those whose names end with '_NT.ADA'.
Name_Switches : aliased constant Switches :=
- (S_Name_Conf 'Access,
- S_Name_Dirs 'Access,
- S_Name_Dfile 'Access,
- S_Name_Frng 'Access,
- S_Name_Help 'Access,
- S_Name_Proj 'Access,
- S_Name_Verbose 'Access,
- S_Name_Excl 'Access);
+ (S_Name_Conf 'Access,
+ S_Name_Dirs 'Access,
+ S_Name_Dfile 'Access,
+ S_Name_Follow 'Access,
+ S_Name_Frng 'Access,
+ S_Name_Help 'Access,
+ S_Name_Proj 'Access,
+ S_Name_Subdirs 'Access,
+ S_Name_Verbose 'Access,
+ S_Name_Excl 'Access);
----------------------------------
-- Switches for GNAT PREPROCESS --
@@ -5216,7 +5530,7 @@ package VMS_Data is
S_Pretty_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -5300,7 +5614,7 @@ package VMS_Data is
--
-- layout-option may be one of the following:
--
- -- UNTOUCHED           All the comments remain unchanged
+ -- UNTOUCHED All the comments remain unchanged
-- DEFAULT (D) GNAT style comment line indentation
-- STANDARD_INDENT Standard comment line indentation
-- GNAT_BEGINNING GNAT style comment beginning
@@ -5537,6 +5851,13 @@ package VMS_Data is
-- Take as arguments the files that are listed in the specified
-- text file.
+ S_Pretty_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Pretty_Forced : aliased constant S := "/FORCED_OUTPUT=@" &
"-of@";
-- /FORCED_OUTPUT=file
@@ -5630,7 +5951,7 @@ package VMS_Data is
--
-- MIXED_CASE Names are in mixed case.
- S_Pretty_No_Backup : aliased constant S := "/NO_BACKUP " &
+ S_Pretty_Replace_No_Backup : aliased constant S := "/REPLACE_NO_BACKUP " &
"-rnb";
-- /REPLACE_NO_BACKUP
--
@@ -5732,6 +6053,14 @@ package VMS_Data is
--
-- Redirect the output to the standard output.
+ S_Pretty_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Pretty_Verbose : aliased constant S := "/VERBOSE " &
"-v";
-- /NOVERBOSE (D)
@@ -5750,47 +6079,49 @@ package VMS_Data is
-- By default such warnings are not activated.
Pretty_Switches : aliased constant Switches :=
- (S_Pretty_Add 'Access,
- S_Pretty_Align 'Access,
- S_Pretty_All_Prjs 'Access,
- S_Pretty_Attrib 'Access,
- S_Pretty_Comments 'Access,
- S_Pretty_Compact_Is 'Access,
- S_Pretty_Config 'Access,
- S_Pretty_Constr 'Access,
- S_Pretty_Comind 'Access,
- S_Pretty_Current 'Access,
- S_Pretty_Dico 'Access,
- S_Pretty_Eol 'Access,
- S_Pretty_Ext 'Access,
- S_Pretty_Encoding 'Access,
- S_Pretty_Files 'Access,
- S_Pretty_Forced 'Access,
- S_Pretty_Formfeed 'Access,
- S_Pretty_Indent 'Access,
- S_Pretty_Keyword 'Access,
- S_Pretty_Maxlen 'Access,
- S_Pretty_Maxind 'Access,
- S_Pretty_Mess 'Access,
- S_Pretty_Names 'Access,
- S_Pretty_No_Backup 'Access,
- S_Pretty_No_Labels 'Access,
- S_Pretty_Notabs 'Access,
- S_Pretty_Output 'Access,
- S_Pretty_Override 'Access,
- S_Pretty_Pragma 'Access,
- S_Pretty_Replace 'Access,
- S_Pretty_Project 'Access,
- S_Pretty_RTS 'Access,
- S_Pretty_Search 'Access,
- S_Pretty_Sep_Loop_Then 'Access,
- S_Pretty_N_Sep_Loop_Then'Access,
- S_Pretty_Use_On_New_Line'Access,
- S_Pretty_Stnm_On_Nw_Line'Access,
- S_Pretty_Specific 'Access,
- S_Pretty_Standard 'Access,
- S_Pretty_Verbose 'Access,
- S_Pretty_Warnings 'Access);
+ (S_Pretty_Add 'Access,
+ S_Pretty_Align 'Access,
+ S_Pretty_All_Prjs 'Access,
+ S_Pretty_Attrib 'Access,
+ S_Pretty_Comments 'Access,
+ S_Pretty_Compact_Is 'Access,
+ S_Pretty_Config 'Access,
+ S_Pretty_Constr 'Access,
+ S_Pretty_Comind 'Access,
+ S_Pretty_Current 'Access,
+ S_Pretty_Dico 'Access,
+ S_Pretty_Eol 'Access,
+ S_Pretty_Ext 'Access,
+ S_Pretty_Encoding 'Access,
+ S_Pretty_Files 'Access,
+ S_Pretty_Follow 'Access,
+ S_Pretty_Forced 'Access,
+ S_Pretty_Formfeed 'Access,
+ S_Pretty_Indent 'Access,
+ S_Pretty_Keyword 'Access,
+ S_Pretty_Maxlen 'Access,
+ S_Pretty_Maxind 'Access,
+ S_Pretty_Mess 'Access,
+ S_Pretty_Names 'Access,
+ S_Pretty_No_Labels 'Access,
+ S_Pretty_Notabs 'Access,
+ S_Pretty_Output 'Access,
+ S_Pretty_Override 'Access,
+ S_Pretty_Pragma 'Access,
+ S_Pretty_Replace 'Access,
+ S_Pretty_Replace_No_Backup'Access,
+ S_Pretty_Project 'Access,
+ S_Pretty_RTS 'Access,
+ S_Pretty_Search 'Access,
+ S_Pretty_Sep_Loop_Then 'Access,
+ S_Pretty_N_Sep_Loop_Then 'Access,
+ S_Pretty_Subdirs 'Access,
+ S_Pretty_Use_On_New_Line 'Access,
+ S_Pretty_Stnm_On_Nw_Line 'Access,
+ S_Pretty_Specific 'Access,
+ S_Pretty_Standard 'Access,
+ S_Pretty_Verbose 'Access,
+ S_Pretty_Warnings 'Access);
------------------------------
-- Switches for GNAT SHARED --
@@ -5876,7 +6207,7 @@ package VMS_Data is
S_Stack_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -5930,6 +6261,13 @@ package VMS_Data is
-- Take as arguments the files that are listed in the specified
-- text file.
+ S_Stack_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Stack_Help : aliased constant S := "/HELP " &
"-h";
-- /NOHELP (D)
@@ -5988,6 +6326,14 @@ package VMS_Data is
-- Any symbol matching the regular expression will be considered as a
-- potential entry point for the analysis.
+ S_Stack_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Stack_Unbounded : aliased constant S := "/UNBOUNDED=#" &
"-d#";
-- /UNBOUNDED=nnn
@@ -6044,6 +6390,7 @@ package VMS_Data is
S_Stack_Directory 'Access,
S_Stack_Entries 'Access,
S_Stack_Files 'Access,
+ S_Stack_Follow 'Access,
S_Stack_Help 'Access,
S_Stack_List 'Access,
S_Stack_Order 'Access,
@@ -6051,6 +6398,7 @@ package VMS_Data is
S_Stack_Project 'Access,
S_Stack_Output 'Access,
S_Stack_Regexp 'Access,
+ S_Stack_Subdirs 'Access,
S_Stack_Unbounded 'Access,
S_Stack_Unknown 'Access,
S_Stack_Verbose 'Access,
@@ -6062,7 +6410,7 @@ package VMS_Data is
S_Stub_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -6090,6 +6438,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Stub_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Stub_Full : aliased constant S := "/FULL " &
"-f";
-- /NOFULL (D)
@@ -6202,6 +6557,14 @@ package VMS_Data is
--
-- When looking for source files also look in directories specified.
+ S_Stub_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Stub_Tree : aliased constant S := "/TREE_FILE=" &
"OVERWRITE " &
"-t " &
@@ -6246,6 +6609,7 @@ package VMS_Data is
S_Stub_Config 'Access,
S_Stub_Current 'Access,
S_Stub_Ext 'Access,
+ S_Stub_Follow 'Access,
S_Stub_Full 'Access,
S_Stub_Header 'Access,
S_Stub_Header_File'Access,
@@ -6257,6 +6621,7 @@ package VMS_Data is
S_Stub_Project 'Access,
S_Stub_Quiet 'Access,
S_Stub_Search 'Access,
+ S_Stub_Subdirs 'Access,
S_Stub_Tree 'Access,
S_Stub_Verbose 'Access);
@@ -6266,7 +6631,7 @@ package VMS_Data is
S_Xref_Add : aliased constant S := "/ADD_PROJECT_SEARCH_DIR=*" &
"-aP*";
- -- /ADD_PROJECT_SEARCH_PATH==(directory[,...])
+ -- /ADD_PROJECT_SEARCH_PATH=(directory[,...])
--
-- Add directories to the project search path.
@@ -6298,6 +6663,13 @@ package VMS_Data is
-- Example:
-- /EXTERNAL_REFERENCE="DEBUG=TRUE"
+ S_Xref_Follow : aliased constant S := "/FOLLOW_LINKS_FOR_FILES " &
+ "-eL";
+ -- /NOFOLLOW_LINKS_FOR_FILES (D)
+ -- /FOLLOW_LINKS_FOR_FILES
+ --
+ -- Follow links when parsing project files
+
S_Xref_Full : aliased constant S := "/FULL_PATHNAME " &
"-f";
-- /NOFULL_PATHNAME (D)
@@ -6392,6 +6764,14 @@ package VMS_Data is
-- The order in which source file search is undertaken is the same as for
-- MAKE.
+ S_Xref_Subdirs : aliased constant S := "/SUBDIRS=<" &
+ "--subdirs=>";
+ -- /SUBDIRS=dir
+ --
+ -- The actual directories (object, exec, library, ...) are subdirectories
+ -- of the directory specified in the project file. If the subdirectory
+ -- does not exist, it is created automatically.
+
S_Xref_Output : aliased constant S := "/UNUSED " &
"-u";
-- /SOURCE_SEARCH=(directory,...)
@@ -6412,6 +6792,7 @@ package VMS_Data is
S_Xref_All 'Access,
S_Xref_Deriv 'Access,
S_Xref_Ext 'Access,
+ S_Xref_Follow 'Access,
S_Xref_Full 'Access,
S_Xref_Global 'Access,
S_Xref_Mess 'Access,
@@ -6422,6 +6803,7 @@ package VMS_Data is
S_Xref_Prj 'Access,
S_Xref_Search 'Access,
S_Xref_Source 'Access,
+ S_Xref_Subdirs 'Access,
S_Xref_Output 'Access,
S_Xref_Tags 'Access);