diff options
Diffstat (limited to 'gcc/ada/vms_data.ads')
| -rw-r--r-- | gcc/ada/vms_data.ads | 128 |
1 files changed, 124 insertions, 4 deletions
diff --git a/gcc/ada/vms_data.ads b/gcc/ada/vms_data.ads index 43b4fe4..bf236ae 100644 --- a/gcc/ada/vms_data.ads +++ b/gcc/ada/vms_data.ads @@ -1505,6 +1505,15 @@ package VMS_Data is -- HIGH A great number of messages are output, most of them not -- being useful for the user. + S_GCC_Nesting : aliased constant S := "/MAX_NESTING=#" & + "-gnatyL#"; + -- /MAX_NESTING=nnn + -- + -- Set maximum level of nesting of constructs (including subprograms, + -- loops, blocks, packages, and conditionals). + -- The level of nesting must not exceed the given value nnn. + -- A value of zero disable this style check (not enabled by default). + S_GCC_Noadc : aliased constant S := "/NO_GNAT_ADC " & "-gnatA"; -- /NO_GNAT_ADC @@ -2830,6 +2839,7 @@ package VMS_Data is S_GCC_List 'Access, S_GCC_Mapping 'Access, S_GCC_Mess 'Access, + S_GCC_Nesting 'Access, S_GCC_Noadc 'Access, S_GCC_Noload 'Access, S_GCC_Nostinc 'Access, @@ -3432,6 +3442,13 @@ package VMS_Data is -- Example: -- /EXTERNAL_REFERENCE="DEBUG=TRUE" + S_List_Files : aliased constant S := "/FILES=@" & + "-files=@"; + -- /FILES=filename + -- + -- Take as arguments the files that are listed in the specified + -- text file. + S_List_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" & "DEFAULT " & "-vP0 " & @@ -3522,6 +3539,7 @@ package VMS_Data is S_List_Current 'Access, S_List_Depend 'Access, S_List_Ext 'Access, + S_List_Files 'Access, S_List_Mess 'Access, S_List_Nostinc 'Access, S_List_Object 'Access, @@ -4042,6 +4060,15 @@ package VMS_Data is S_Metric_Debug : aliased constant S := "/DEBUG_OUTPUT " & "-dv"; -- /DEBUG_OUTPUT + -- + -- Generate the debug information + + S_Metric_Direct : aliased constant S := "/DIRECTORY=@" & + "-d=@"; + -- /DIRECTORY=pathname + -- + -- Put the files with detailed metric information into the specified + -- directory S_Metric_Element : aliased constant S := "/ELEMENT_METRICS=" & "ALL " & @@ -4064,6 +4091,24 @@ package VMS_Data is "PROGRAM_NESTING_MAX " & "-enu"; -- /ELEMENT_METRICS=(option, option ...) + -- + -- Specifies the element metrics to be computed (if not set, all the + -- element metrics are set on, otherwise only specified metrics are + -- computed and reported) + -- + -- option may be one of the following: + -- + -- ALL (D) All the element metrics are computed + -- DECLARATION_TOTAL Compute the total number of declarations + -- STATEMENT_TOTAL Compute the total number of statements + -- LOOP_NESTING_MAX Compute the maximal loop nesting level + -- INT_SUBPROGRAMS Compute the number of interface subprograms + -- SUBPROGRAMS_ALL Compute the number of all the subprograms + -- INT_TYPES Compute the number of interface types + -- TYPES_ALL Compute the number of all the types + -- PROGRAM_NESTING_MAX Compute the maximal program unit nesting level + -- + -- All combinations of element metrics options are allowed. S_Metric_Ext : aliased constant S := "/EXTERNAL_REFERENCE=" & '"' & "-X" & '"'; @@ -4075,6 +4120,13 @@ package VMS_Data is -- Example: -- /EXTERNAL_REFERENCE="DEBUG=TRUE" + S_Metric_Files : aliased constant S := "/FILES=@" & + "-files=@"; + -- /FILES=filename + -- + -- Take as arguments the files that are listed in the specified + -- text file. + S_Metric_Format : aliased constant S := "/FORMAT_OUTPUT=" & "DEFAULT " & "!-x,!-nt,!-sfn " & @@ -4085,10 +4137,22 @@ package VMS_Data is "SHORT_SOURCE_FILE_NAME " & "-sfn"; -- /FORMAT_OUTPUT=(option, option ...) + -- + -- Specifies the details of the tool output + -- + -- option may be one of the following: + -- + -- DEFAULT (D) Generate the text output only, use full + -- argument source names in global information + -- XML Generate the output in XML format + -- NO_TEXT Do not generate the text output (implies XML) + -- SHORT_SOURCE_FILE_NAME Use short argument source names in output S_Metric_Globout : aliased constant S := "/GLOBAL_OUTPUT=@" & "-og@"; -- /GLOBAL_OUTPUT=filename + -- + -- Put the textual global metric information into the specified file S_Metric_Line : aliased constant S := "/LINE_METRICS=" & "ALL " & @@ -4106,6 +4170,22 @@ package VMS_Data is "-lb "; -- /LINE_METRICS=(option, option ...) + -- Specifies the line metrics to be computed (if not set, all the line + -- metrics are set on, otherwise only specified metrics are computed and + -- reported) + -- + -- option may be one of the following: + -- + -- ALL (D) All the line metrics are computed + -- LINES_ALL All lines are computed + -- CODE_LINES Lines with Ada code are computed + -- COMENT_LINES All comment lines are computed + -- MIXED_CODE_COMMENTS All lines containing both code and comment are + -- computed + -- BLANK_LINES Blank lines are computed + -- + -- All combinations of line metrics options are allowed. + S_Metric_Mess : aliased constant S := "/MESSAGES_PROJECT_FILE=" & "DEFAULT " & "-vP0 " & @@ -4135,15 +4215,25 @@ package VMS_Data is S_Metric_Quiet : aliased constant S := "/QUIET " & "-q"; - -- /QUIET + -- /NOQUIET (D) + -- /QUIET + -- + -- Quiet mode: by default GNAT METRIC outputs to the standard error stream + -- the number of program units left to be processed. This option turns + -- this trace off. S_Metric_Search : aliased constant S := "/SEARCH=*" & "-I*"; - -- /SEARCH=(directory[,...]) + -- /SEARCH=(directory, ...) + -- + -- When looking for source files also look in the specified directories. S_Metric_Suffix : aliased constant S := "/SUFFIX_DETAILS=" & '"' & "-o" & '"'; -- /SUFFIX_DETAILS=suffix + -- + -- Use the given suffix as the suffix for the name of the file to place + -- the detailed metrics into. S_Metric_Suppress : aliased constant S := "/SUPPRESS=" & "NOTHING " & @@ -4160,21 +4250,43 @@ package VMS_Data is "LOCAL_DETAILS " & "-nolocal "; -- /SUPPRESS=(option, option ...) + -- + -- Specifies the metric that should not be computed + -- + -- option may be one of the following: + -- + -- NOTHING (D) Do not suppress computation of any metric + -- CYCLOMATIC_COMPLEXITY Do not compute the Cyclomatic Complexity + -- ESSENTIAL_COMPLEXITY Do not compute the Essential Complexity + -- MAXIMAL_LOOP_NESTING Do not compute the maximal loop nesting + -- EXITS_AS_GOTOS Do not count EXIT statements as GOTOs when + -- computing the Essential Complexity + -- LOCAL_DETAILS Do not compute the detailed metrics for local + -- program units + -- + -- All combinations of options are allowed. S_Metric_Verbose : aliased constant S := "/VERBOSE " & "-v"; - -- /VERBOSE + -- /NOVERBOSE (D) + -- /VERBOSE + -- + -- Verbose mode. S_Metric_XMLout : aliased constant S := "/XML_OUTPUT=@" & "-ox@"; -- /XML_OUTPUT=filename + -- + -- Place the XML output into the specified file Metric_Switches : aliased constant Switches := (S_Metric_Config 'Access, S_Metric_Current 'Access, S_Metric_Debug 'Access, + S_Metric_Direct 'Access, S_Metric_Element 'Access, S_Metric_Ext 'Access, + S_Metric_Files 'Access, S_Metric_Format 'Access, S_Metric_Globout 'Access, S_Metric_Line 'Access, @@ -4434,7 +4546,7 @@ package VMS_Data is -- Set the comment layout. By default, comments use the GNAT style -- comment line indentation. -- - -- layout-option is be one of the following: + -- layout-option may be one of the following: -- -- UNTOUCHED All the comments remain unchanged -- DEFAULT (D) GNAT style comment line indentation @@ -4577,6 +4689,13 @@ package VMS_Data is -- used in the default dictionary file, are defined in the GNAT User's -- Guide. + S_Pretty_Files : aliased constant S := "/FILES=@" & + "-files=@"; + -- /FILES=filename + -- + -- Take as arguments the files that are listed in the specified + -- text file. + S_Pretty_Forced : aliased constant S := "/FORCED_OUTPUT=@" & "-of@"; -- /FORCED_OUTPUT=file @@ -4799,6 +4918,7 @@ package VMS_Data is S_Pretty_Ext 'Access, S_Pretty_Current 'Access, S_Pretty_Dico 'Access, + S_Pretty_Files 'Access, S_Pretty_Forced 'Access, S_Pretty_Formfeed 'Access, S_Pretty_Indent 'Access, |