Commit a46edbad by Doug Rupp Committed by Arnaud Charlet

vms_conv.ads, [...]: Remove "Library" command.

2005-06-14  Doug Rupp  <rupp@adacore.com>
	    Vincent Celier  <celier@adacore.com>

	* vms_conv.ads, vms_conv.adb: Remove "Library" command.
	Update copyright.

	* vms_data.ads: Add entry for -gnaty/Y [NO]ADA_2005_COMPATIBILITY
	Remove "Library" command.
	Change keyword for style check -gnatyd from NOCRLF to
	DOS_LINE_ENDINGS.
	Remove useless second style check keyword NONE
	Remove help documentation for inexistent style check keyword
	RM_COLUMN_LAYOUT.
	Add help documentation for style check keywords DOS_LINE_ENDINGS,
	UNNECESSARY_BLANK_LINES and XTRA_PARENS
	Add UNNECESSARY_BLANK_LINES for -gnatyu
	Add qualifiers /ALL_PROJECTS (-U) for GNAT PRETTY and GNAT METRIC

        * ug_words: Add entry for -gnaty/Y [NO]ADA_2005_COMPATIBILITY

From-SVN: r101067
parent f3d771b3
...@@ -142,6 +142,8 @@ gcc -c ^ GNAT COMPILE ...@@ -142,6 +142,8 @@ gcc -c ^ GNAT COMPILE
-gnatwV ^ /WARNINGS=NOVARIABLES_UNINITIALIZED -gnatwV ^ /WARNINGS=NOVARIABLES_UNINITIALIZED
-gnatwx ^ /WARNINGS=IMPORT_EXPORT_PRAGMAS -gnatwx ^ /WARNINGS=IMPORT_EXPORT_PRAGMAS
-gnatwX ^ /WARNINGS=NOIMPORT_EXPORT_PRAGMAS -gnatwX ^ /WARNINGS=NOIMPORT_EXPORT_PRAGMAS
-gnatwy ^ /WARNINGS=ADA_2005_COMPATIBILITY
-gnatwY ^ /WARNINGS=NOADA_2005_COMPATIBILITY
-gnatwz ^ /WARNINGS=UNCHECKED_CONVERSIONS -gnatwz ^ /WARNINGS=UNCHECKED_CONVERSIONS
-gnatwZ ^ /WARNINGS=NOUNCHECKED_CONVERSIONS -gnatwZ ^ /WARNINGS=NOUNCHECKED_CONVERSIONS
-gnatW8 ^ /WIDE_CHARACTER_ENCODING=UTF8 -gnatW8 ^ /WIDE_CHARACTER_ENCODING=UTF8
......
...@@ -274,17 +274,6 @@ package body VMS_Conv is ...@@ -274,17 +274,6 @@ package body VMS_Conv is
Params => new Parameter_Array'(1 => File), Params => new Parameter_Array'(1 => File),
Defext => " "), Defext => " "),
Library =>
(Cname => new S'("LIBRARY"),
Usage => new S'("GNAT LIBRARY /[CREATE | SET | DELETE]"
& "=directory [/CONFIG=file]"),
VMS_Only => True,
Unixcmd => new S'("gnatlbr"),
Unixsws => null,
Switches => Lbr_Switches'Access,
Params => new Parameter_Array'(1 .. 0 => File),
Defext => " "),
Link => Link =>
(Cname => new S'("LINK"), (Cname => new S'("LINK"),
Usage => new S'("GNAT LINK file[.ali]" Usage => new S'("GNAT LINK file[.ali]"
......
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- S p e c -- -- S p e c --
-- -- -- --
-- Copyright (C) 2003-2004 Free Software Foundation, Inc. -- -- Copyright (C) 2003-2005 Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- 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- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -101,7 +101,6 @@ package VMS_Conv is ...@@ -101,7 +101,6 @@ package VMS_Conv is
Elim, Elim,
Find, Find,
Krunch, Krunch,
Library,
Link, Link,
List, List,
Make, Make,
......
...@@ -1800,7 +1800,7 @@ package VMS_Data is ...@@ -1800,7 +1800,7 @@ package VMS_Data is
"-gnatyb " & "-gnatyb " &
"COMMENTS " & "COMMENTS " &
"-gnatyc " & "-gnatyc " &
"NOCRLF" & "DOS_LINE_ENDINGS " &
"-gnatyd " & "-gnatyd " &
"END " & "END " &
"-gnatye " & "-gnatye " &
...@@ -1824,8 +1824,6 @@ package VMS_Data is ...@@ -1824,8 +1824,6 @@ package VMS_Data is
"-gnatyn " & "-gnatyn " &
"ORDERED_SUBPROGRAMS " & "ORDERED_SUBPROGRAMS " &
"-gnatyo " & "-gnatyo " &
"NONE " &
"!-gnatg,!-gnaty* " &
"PRAGMA " & "PRAGMA " &
"-gnatyp " & "-gnatyp " &
"REFERENCES " & "REFERENCES " &
...@@ -1834,6 +1832,8 @@ package VMS_Data is ...@@ -1834,6 +1832,8 @@ package VMS_Data is
"-gnatys " & "-gnatys " &
"TOKEN " & "TOKEN " &
"-gnatyt " & "-gnatyt " &
"UNNECESSARY_BLANK_LINES " &
"-gnatyu " &
"XTRA_PARENS " & "XTRA_PARENS " &
"-gnatyx "; "-gnatyx ";
-- /NOSTYLE_CHECKS (D) -- /NOSTYLE_CHECKS (D)
...@@ -1917,6 +1917,11 @@ package VMS_Data is ...@@ -1917,6 +1917,11 @@ package VMS_Data is
-- -- This is a box comment -- -- -- This is a box comment --
-- --------------------------- -- ---------------------------
-- --
-- DOS_LINE_ENDINGS Check that no DOS line terminators are present
-- All lines must be terminated by a single
-- ASCII.LF character. In particular the DOS line
-- terminator sequence CR / LF is not allowed).
--
-- END Check end/exit labels. -- END Check end/exit labels.
-- Optional labels on end statements ending -- Optional labels on end statements ending
-- subprograms and on exit statements exiting -- subprograms and on exit statements exiting
...@@ -2046,8 +2051,6 @@ package VMS_Data is ...@@ -2046,8 +2051,6 @@ package VMS_Data is
-- in the ordering (e.g. Junk2 comes before -- in the ordering (e.g. Junk2 comes before
-- Junk10). -- Junk10).
-- --
-- NONE The default behavior. Same as /NOSTYLE_CHECKS.
--
-- PRAGMA Check pragma casing. -- PRAGMA Check pragma casing.
-- Pragma names must be written in mixed case, -- Pragma names must be written in mixed case,
-- that is, the initial letter and any letter -- that is, the initial letter and any letter
...@@ -2061,15 +2064,6 @@ package VMS_Data is ...@@ -2061,15 +2064,6 @@ package VMS_Data is
-- identifiers. The only requirement is for -- identifiers. The only requirement is for
-- consistency of references with declarations. -- consistency of references with declarations.
-- --
-- RM_COLUMN_LAYOUT Enforce the layout conventions suggested by
-- the examples and syntax rules of the Ada
-- Language Reference Manual. For example, an
-- "else" must line up with an "if" and code in
-- the "then" and "else" parts must be indented.
-- The compiler considers violations of the
-- layout rules a syntax error if you specify
-- this keyword.
--
-- SPECS Check separate specs. -- SPECS Check separate specs.
-- Separate declarations ("specs") are required -- Separate declarations ("specs") are required
-- for subprograms (a body is not allowed to serve -- for subprograms (a body is not allowed to serve
...@@ -2140,9 +2134,20 @@ package VMS_Data is ...@@ -2140,9 +2134,20 @@ package VMS_Data is
-- or as meeting a requirement for no following -- or as meeting a requirement for no following
-- space. -- space.
-- --
-- UNNECESSARY_BLANK_LINES
-- Check for unnecessary blank lines.
-- A blank line is considered unnecessary if it
-- appears at the end of the file, or if more
-- than one blank line occurs in sequence.
--
-- VTABS No form feeds or vertical tabs. -- VTABS No form feeds or vertical tabs.
-- Form feeds or vertical tab characters are not -- Form feeds or vertical tab characters are not
-- permitted in the source text. -- permitted in the source text.
--
-- XTRA_PARENS Check for the use of an unnecessary extra
-- level of parentheses (C - style) around
-- conditions in if statements, while statements
-- and exit statements.
S_GCC_StyleX : aliased constant S := "/NOSTYLE_CHECKS " & S_GCC_StyleX : aliased constant S := "/NOSTYLE_CHECKS " &
"!-gnatg,!-gnaty*"; "!-gnatg,!-gnaty*";
...@@ -2439,6 +2444,10 @@ package VMS_Data is ...@@ -2439,6 +2444,10 @@ package VMS_Data is
"-gnatwx " & "-gnatwx " &
"NOIMPORT_EXPORT_PRAGMAS " & "NOIMPORT_EXPORT_PRAGMAS " &
"-gnatwX " & "-gnatwX " &
"ADA_2005_COMPATIBILITY " &
"-gnatwy " &
"NOADA_2005_COMPATIBILITY " &
"-gnatwY " &
"UNCHECKED_CONVERSIONS " & "UNCHECKED_CONVERSIONS " &
"-gnatwz " & "-gnatwz " &
"NOUNCHECKED_CONVERSIONS " & "NOUNCHECKED_CONVERSIONS " &
...@@ -3198,40 +3207,6 @@ package VMS_Data is ...@@ -3198,40 +3207,6 @@ package VMS_Data is
Krunch_Switches : aliased constant Switches := Krunch_Switches : aliased constant Switches :=
(1 .. 1 => S_Krunch_Count 'Access); (1 .. 1 => S_Krunch_Count 'Access);
-------------------------------
-- Switches for GNAT LIBRARY --
-------------------------------
S_Lbr_Config : aliased constant S := "/CONFIG=@" &
"--config=@";
-- /CONFIG=file
--
-- File containing configuration pragmas.
S_Lbr_Create : aliased constant S := "/CREATE=%" &
"--create=%";
-- /CREATE=directory
--
-- Directory to create and build alternate library in.
S_Lbr_Delete : aliased constant S := "/DELETE=%" &
"--delete=%";
-- /DELETE=directory
--
-- Directory containing alternate library to be deleted.
S_Lbr_Set : aliased constant S := "/SET=%" &
"--set=%";
-- /SET=directory
--
-- Directory containing alternate library to be made the current library.
Lbr_Switches : aliased constant Switches :=
(S_Lbr_Config 'Access,
S_Lbr_Create 'Access,
S_Lbr_Delete 'Access,
S_Lbr_Set 'Access);
---------------------------- ----------------------------
-- Switches for GNAT LINK -- -- Switches for GNAT LINK --
---------------------------- ----------------------------
...@@ -3650,7 +3625,7 @@ package VMS_Data is ...@@ -3650,7 +3625,7 @@ package VMS_Data is
-- --
-- Implies /Unique. -- Implies /Unique.
-- When used without project files, it is equivalent to /UNIQUE. -- When used without project files, it is equivalent to /UNIQUE.
-- When used with a project file wit no main (neither on the command -- When used with a project file with no main (neither on the command
-- line nor in the attribute Main) check every source of every project, -- line nor in the attribute Main) check every source of every project,
-- recompile all sources that are not up to date and rebuild libraries -- recompile all sources that are not up to date and rebuild libraries
-- if necessary. -- if necessary.
...@@ -4074,6 +4049,14 @@ package VMS_Data is ...@@ -4074,6 +4049,14 @@ package VMS_Data is
-- Switches for GNAT METRIC -- -- Switches for GNAT METRIC --
------------------------------ ------------------------------
S_Metric_All_Prjs : aliased constant S := "/ALL_PROJECTS " &
"-U";
-- /NOALL_PROJECTS (D)
-- /ALL_PROJECTS
-- When GNAT METRIC is used with a Project File and no source is
-- specified, the underlying tool gnatmetric is called for all the
-- sources of all the Project Files in the project tree.
S_Metric_Debug : aliased constant S := "/DEBUG_OUTPUT " & S_Metric_Debug : aliased constant S := "/DEBUG_OUTPUT " &
"-dv"; "-dv";
-- /DEBUG_OUTPUT -- /DEBUG_OUTPUT
...@@ -4294,7 +4277,8 @@ package VMS_Data is ...@@ -4294,7 +4277,8 @@ package VMS_Data is
-- Place the XML output into the specified file -- Place the XML output into the specified file
Metric_Switches : aliased constant Switches := Metric_Switches : aliased constant Switches :=
(S_Metric_Debug 'Access, (S_Metric_All_Prjs 'Access,
S_Metric_Debug 'Access,
S_Metric_Direct 'Access, S_Metric_Direct 'Access,
S_Metric_Element 'Access, S_Metric_Element 'Access,
S_Metric_Ext 'Access, S_Metric_Ext 'Access,
...@@ -4529,6 +4513,14 @@ package VMS_Data is ...@@ -4529,6 +4513,14 @@ package VMS_Data is
-- Specifying one of the ON options without first specifying the OFF -- Specifying one of the ON options without first specifying the OFF
-- option has no effect, because by default all alignments are set to ON. -- option has no effect, because by default all alignments are set to ON.
S_Pretty_All_Prjs : aliased constant S := "/ALL_PROJECTS " &
"-U";
-- /NOALL_PROJECTS (D)
-- /ALL_PROJECTS
-- When GNAT PRETTY is used with a Project File and no source is
-- specified, the underlying tool gnatpp is called for all the
-- sources of all the Project Files in the project tree.
S_Pretty_Attrib : aliased constant S := "/ATTRIBUTE_CASING=" & S_Pretty_Attrib : aliased constant S := "/ATTRIBUTE_CASING=" &
"MIXED_CASE " & "MIXED_CASE " &
"-aM " & "-aM " &
...@@ -4926,6 +4918,7 @@ package VMS_Data is ...@@ -4926,6 +4918,7 @@ package VMS_Data is
Pretty_Switches : aliased constant Switches := Pretty_Switches : aliased constant Switches :=
(S_Pretty_Align 'Access, (S_Pretty_Align 'Access,
S_Pretty_All_Prjs 'Access,
S_Pretty_Attrib 'Access, S_Pretty_Attrib 'Access,
S_Pretty_Comments 'Access, S_Pretty_Comments 'Access,
S_Pretty_Config 'Access, S_Pretty_Config 'Access,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment