diff options
| author | Robert Dewar <dewar@adacore.com> | 2005-09-05 10:07:00 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2005-09-05 10:07:00 +0200 |
| commit | a2cb348ef4d982ff951a398a07e71f7bdff020ab (patch) | |
| tree | 4719707ee1466c01c795cf2a027236826eba7d41 /gcc/ada/g-cgi.adb | |
| parent | f67b3771d51db363dc9c6e9d721b71568fceff14 (diff) | |
| download | gcc-a2cb348ef4d982ff951a398a07e71f7bdff020ab.zip gcc-a2cb348ef4d982ff951a398a07e71f7bdff020ab.tar.gz gcc-a2cb348ef4d982ff951a398a07e71f7bdff020ab.tar.bz2 | |
a-dirval-mingw.adb, [...]: Minor reformatting
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
From-SVN: r103894
Diffstat (limited to 'gcc/ada/g-cgi.adb')
| -rw-r--r-- | gcc/ada/g-cgi.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/gcc/ada/g-cgi.adb b/gcc/ada/g-cgi.adb index c58509e..03bbeb4 100644 --- a/gcc/ada/g-cgi.adb +++ b/gcc/ada/g-cgi.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001 Ada Core Technologies, Inc. -- +-- Copyright (C) 2001-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- -- @@ -50,10 +50,10 @@ package body GNAT.CGI is -- services exported by this unit. Current_Method : Method_Type; - -- This is the current method used to pass CGI parameters. + -- This is the current method used to pass CGI parameters Header_Sent : Boolean := False; - -- Will be set to True when the header will be sent. + -- Will be set to True when the header will be sent -- Key/Value table declaration @@ -72,7 +72,7 @@ package body GNAT.CGI is procedure Check_Environment; pragma Inline (Check_Environment); - -- This procedure will raise Data_Error if Valid_Environment is False. + -- This procedure will raise Data_Error if Valid_Environment is False procedure Initialize; -- Initialize CGI package by reading the runtime environment. This @@ -178,7 +178,7 @@ package body GNAT.CGI is -- for the data is passed in CONTENT_LENGTH environment variable. procedure Set_Parameter_Table (Data : String); - -- Parse the parameter data and set the parameter table. + -- Parse the parameter data and set the parameter table -------------------- -- Initialize_GET -- @@ -328,7 +328,7 @@ package body GNAT.CGI is Required : Boolean := False) return String is function Get_Environment (Variable_Name : String) return String; - -- Returns the environment variable content. + -- Returns the environment variable content --------------------- -- Get_Environment -- |