From 1d9b970a8fc86e69c3eeb9314b9a5de609047115 Mon Sep 17 00:00:00 2001 From: charlet Date: Mon, 5 Sep 2005 08:07:00 +0000 Subject: 2005-09-01 Robert Dewar * 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 --- gcc/ada/g-cgi.ads | 14 ++++++-------- 1 file changed, 6 insertions(+), 8 deletions(-) (limited to 'gcc/ada/g-cgi.ads') diff --git a/gcc/ada/g-cgi.ads b/gcc/ada/g-cgi.ads index c9d610ed24c..6ad3d5f6b4f 100644 --- a/gcc/ada/g-cgi.ads +++ b/gcc/ada/g-cgi.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 2000-2003 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- -- @@ -115,7 +115,7 @@ package GNAT.CGI is -- and will be raised when calling any services below (except for Ok). Parameter_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 Default_Header : constant String := "Content-type: text/html"; -- This is the default header returned by Put_Header. If the CGI program @@ -186,12 +186,11 @@ package GNAT.CGI is -- the exception Data_Error. function Method return Method_Type; - -- Returns the method used to call the CGI. + -- Returns the method used to call the CGI function Metavariable (Name : Metavariable_Name; - Required : Boolean := False) - return String; + Required : Boolean := False) return String; -- Returns parameter Name value. Returns the null string if Name -- environment variable is not defined or raises Data_Error if -- Required is set to True. @@ -215,8 +214,7 @@ package GNAT.CGI is function Value (Key : String; - Required : Boolean := False) - return String; + Required : Boolean := False) return String; -- Returns the parameter value associated to the parameter named Key. -- If parameter does not exist, returns an empty string if Required -- is False and raises the exception Parameter_Not_Found otherwise. @@ -227,7 +225,7 @@ package GNAT.CGI is -- (i.e. Position > Argument_Count) function Key_Exists (Key : String) return Boolean; - -- Returns True if the parameter named Key existx and False otherwise. + -- Returns True if the parameter named Key exists and False otherwise function Key (Position : Positive) return String; -- Returns the parameter key associated with the CGI parameter number -- cgit v1.2.1