2005-09-01 Robert Dewar <dewar@adacore.com>

	* a-dirval-mingw.adb, a-direct.adb, a-coinve.adb,
	g-dynhta.adb, g-dynhta.ads, cstand.adb, exp_smem.adb, g-debuti.ads,
	g-dirope.adb, g-table.adb, lib-sort.adb, sem_maps.adb,
	exp_fixd.adb, exp_aggr.adb, a-intnam-mingw.ads, a-intnam-vxworks.ads,
	g-arrspl.adb, g-arrspl.ads, g-awk.adb, g-awk.ads, g-boubuf.ads,
	g-boubuf.ads, g-boubuf.ads, g-bubsor.ads, g-bubsor.adb, g-busora.adb,
	g-busora.ads, g-busorg.adb, g-busorg.ads, g-calend.adb, g-calend.ads,
	g-casuti.adb, g-casuti.ads, g-catiio.adb, g-catiio.ads, g-cgi.adb,
	g-cgi.ads, g-cgicoo.adb, g-cgicoo.ads, g-cgideb.adb, g-cgideb.ads,
	g-comlin.adb, g-comver.ads, g-semaph.ads, g-socthi.ads,
	sem_ch7.adb, a-direio.adb, a-caldel.ads, i-cstrea-vms.adb,
	a-ztedit.adb, a-ztenau.adb, g-socthi-vms.adb, g-socthi-vms.ads,
	g-socthi-mingw.adb, g-socthi-mingw.ads, g-socthi-vxworks.ads,
	a-intnam-irix.ads, a-intnam-irix.ads, a-intnam-hpux.ads,
	a-intnam-os2.ads, a-intnam-os2.ads, a-caldel-vms.adb, a-calend-vms.adb,
	a-calend-vms.ads, g-heasor.adb, g-heasor.ads, g-hesora.adb,
	g-hesora.ads, g-hesorg.adb, g-hesorg.ads, g-htable.adb, g-htable.ads,
	g-io.adb, g-io.ads, g-io_aux.adb, g-io_aux.ads, g-locfil.ads,
	g-memdum.adb, g-memdum.ads, g-traceb.adb, g-traceb.ads, i-cobol.adb,
	i-cobol.ads, i-cstrea.ads, i-cstrin.adb, a-wtedit.adb, a-tifiio.adb,
	a-wtenau.adb, a-wtenau.adb, a-teioed.adb: Minor reformatting


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@103894 138bc75d-0d04-0410-961f-82ee72b054a4

1 files changed, 22 insertions, 23 deletions

diff --git a/gcc/ada/g-cgicoo.ads b/gcc/ada/g-cgicoo.ads
index 9d2fac854db..c8d56cbf5d3 100644
--- a/gcc/ada/g-cgicoo.ads
+++ b/gcc/ada/g-cgicoo.ads
@@ -6,7 +6,7 @@
 --                                                                          --
 --                                 S p e c                                  --
 --                                                                          --
---            Copyright (C) 2000-2001 Ada Core Technologies, Inc.           --
+--                     Copyright (C) 2000-2005, AdaCore                     --
 --                                                                          --
 -- 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- --
@@ -38,9 +38,9 @@
 --  The complete CGI Cookie specification can be found in the RFC2109 at:
 --     http://www.ics.uci.edu/pub/ietf/http/rfc2109.txt
 
---  This package builds up data tables whose memory is not released.
---  A CGI program is expected to be a short lived program and so it
---  is adequate to have the underlying OS free the program on exit.
+--  This package builds up data tables whose memory is not released. A CGI
+--  program is expected to be a short lived program and so it is adequate to
+--  have the underlying OS free the program on exit.
 
 package GNAT.CGI.Cookie is
 
@@ -50,7 +50,7 @@ package GNAT.CGI.Cookie is
    --  will be raised when calling any services below (except for Ok).
 
    Cookie_Not_Found : exception;
-   --  This exception is raised when a specific parameter is not found.
+   --  This exception is raised when a specific parameter is not found
 
    procedure Put_Header
      (Header : String  := Default_Header;
@@ -67,33 +67,32 @@ package GNAT.CGI.Cookie is
    --     max_age=<max_age>; path=<path>[; secured]
 
    function Ok return Boolean;
-   --  Returns True if the CGI cookie environment is valid and False
-   --  otherwise. Every service used when the CGI environment is not valid
-   --  will raise the exception Data_Error.
+   --  Returns True if the CGI cookie environment is valid and False otherwise.
+   --  Every service used when the CGI environment is not valid will raise the
+   --  exception Data_Error.
 
    function Count return Natural;
-   --  Returns the number of cookies received by the CGI.
+   --  Returns the number of cookies received by the CGI
 
    function Value
      (Key      : String;
-      Required : Boolean := False)
-      return     String;
-   --  Returns the cookie value associated with the cookie named Key. If
-   --  cookie does not exist, returns an empty string if Required is
-   --  False and raises the exception Cookie_Not_Found otherwise.
+      Required : Boolean := False) return String;
+   --  Returns the cookie value associated with the cookie named Key. If cookie
+   --  does not exist, returns an empty string if Required is False and raises
+   --  the exception Cookie_Not_Found otherwise.
 
    function Value (Position : Positive) return String;
-   --  Returns the value associated with the cookie number Position
-   --  of the CGI. It raises Cookie_Not_Found if there is no such
-   --  cookie (i.e. Position > Count)
+   --  Returns the value associated with the cookie number Position of the CGI.
+   --  It raises Cookie_Not_Found if there is no such cookie (i.e. Position >
+   --  Count)
 
    function Exists (Key : String) return Boolean;
-   --  Returns True if the cookie named Key exist and False otherwise.
+   --  Returns True if the cookie named Key exist and False otherwise
 
    function Key (Position : Positive) return String;
-   --  Returns the key associated with the cookie number Position of
-   --  the CGI. It raises Cookie_Not_Found if there is no such cookie
-   --  (i.e. Position > Count)
+   --  Returns the key associated with the cookie number Position of the CGI.
+   --  It raises Cookie_Not_Found if there is no such cookie (i.e. Position >
+   --  Count)
 
    procedure Set
      (Key     : String;
@@ -103,8 +102,8 @@ package GNAT.CGI.Cookie is
       Max_Age : Natural := Natural'Last;
       Path    : String  := "/";
       Secure  : Boolean := False);
-   --  Add a cookie to the list of cookies. This will be sent back
-   --  to the server by the Put_Header service above.
+   --  Add a cookie to the list of cookies. This will be sent back to the
+   --  server by the Put_Header service above.
 
    generic
       with procedure