diff options
Diffstat (limited to 'gcc/ada/prj-pp.ads')
| -rw-r--r-- | gcc/ada/prj-pp.ads | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gcc/ada/prj-pp.ads b/gcc/ada/prj-pp.ads index 7c4a4acafde..806eb9c6ea3 100644 --- a/gcc/ada/prj-pp.ads +++ b/gcc/ada/prj-pp.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2001-2005 Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2005, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -24,19 +24,19 @@ -- -- ------------------------------------------------------------------------------ --- This package is the Project File Pretty Printer. --- It is used to output a project file from a project file tree. --- It is used by gnatname to update or create project files. --- It is also used GPS to display project file trees. --- It can also be used for debugging purposes for tools that create project --- file trees. +-- This package is the Project File Pretty Printer + +-- Used to output a project file from a project file tree. +-- Used by gnatname to update or create project files. +-- Also used GPS to display project file trees. +-- Also be used for debugging tools that create project file trees. with Prj.Tree; package Prj.PP is - -- The following access to procedure types are used - -- to redirect output when calling Pretty_Print. + -- The following access to procedure types are used to redirect output when + -- calling Pretty_Print. type Write_Char_Ap is access procedure (C : Character); @@ -54,8 +54,8 @@ package Prj.PP is W_Eol : Write_Eol_Ap := null; W_Str : Write_Str_Ap := null; Backward_Compatibility : Boolean); - -- Output a project file, using either the default output - -- routines, or the ones specified by W_Char, W_Eol and W_Str. + -- Output a project file, using either the default output routines, or the + -- ones specified by W_Char, W_Eol and W_Str. -- -- Increment is the number of spaces for each indentation level. -- @@ -65,10 +65,10 @@ package Prj.PP is -- If Eliminate_Empty_Case_Constructions is True, then case constructions -- and case items that do not include any declarations will not be output. -- - -- If Minimize_Empty_Lines is True, empty lines will be output only - -- after the last with clause, after the line declaring the project name, - -- after the last declarative item of the project and before each - -- package declaration. Otherwise, more empty lines are output. + -- If Minimize_Empty_Lines is True, empty lines will be output only after + -- the last with clause, after the line declaring the project name, after + -- the last declarative item of the project and before each package + -- declaration. Otherwise, more empty lines are output. -- -- If Backward_Compatibility is True, then new attributes (Spec, -- Spec_Suffix, Body, Body_Suffix) will be replaced by obsolete ones @@ -78,8 +78,8 @@ package Prj.PP is private procedure Output_Statistics; - -- This procedure can be used after one or more calls to Pretty_Print - -- to display what Project_Node_Kinds have not been exercised by the - -- call(s) to Pretty_Print. It is used only for testing purposes. + -- This procedure can be used after one or more calls to Pretty_Print to + -- display what Project_Node_Kinds have not been exercised by the call(s) + -- to Pretty_Print. It is used only for testing purposes. end Prj.PP; |