From 4e45e7a930bff7c7e6bbfa5f390a14411dc88dd7 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 10 Feb 2005 14:51:40 +0100 Subject: a-strunb.ads, [...]: Add missing pragma Ada_05 statements Fix name of Set routine 2005-02-09 Robert Dewar * a-strunb.ads, a-strunb.adb: Add missing pragma Ada_05 statements Fix name of Set routine * a-strfix.ads, a-strfix.adb: Add new index functions from AI-301 to fixed packages. * a-stwise.ads, a-stwise.adb, a-stwifi.ads, a-stwifi.adb, a-strsea.ads, a-strsea.adb: Add new index functions from AI-301 to fixed packages * a-witeio.ads, a-witeio.adb, a-textio.ads, a-textio.adb: New function forms of Get_Line subprograms for AI-301. * a-wtcoau.adb, a-wtcoau.ads, a-wtcoio.adb, a-wtcoio.ads, a-wtedit.adb, a-wtedit.adb, a-wtedit.ads, a-wttest.adb, a-wttest.ads, a-strmap.ads, a-strmap.adb, a-stwima.adb, a-stwima.ads: Minor reformatting. From-SVN: r94810 --- gcc/ada/a-wtedit.ads | 76 ++++++++++++++++++++++++---------------------------- 1 file changed, 35 insertions(+), 41 deletions(-) (limited to 'gcc/ada/a-wtedit.ads') diff --git a/gcc/ada/a-wtedit.ads b/gcc/ada/a-wtedit.ads index 06e30a7..6605d59 100644 --- a/gcc/ada/a-wtedit.ads +++ b/gcc/ada/a-wtedit.ads @@ -6,7 +6,7 @@ -- -- -- S p e c -- -- -- --- Copyright (C) 1992-1997 Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2005 Free Software Foundation, Inc. -- -- -- -- This specification is derived from the Ada Reference Manual for use with -- -- GNAT. The copyright notice above, and the license provisions that follow -- @@ -40,14 +40,12 @@ package Ada.Wide_Text_IO.Editing is type Picture is private; function Valid - (Pic_String : in String; - Blank_When_Zero : in Boolean := False) - return Boolean; + (Pic_String : String; + Blank_When_Zero : Boolean := False) return Boolean; function To_Picture - (Pic_String : in String; - Blank_When_Zero : in Boolean := False) - return Picture; + (Pic_String : String; + Blank_When_Zero : Boolean := False) return Picture; function Pic_String (Pic : in Picture) return String; function Blank_When_Zero (Pic : in Picture) return Boolean; @@ -63,62 +61,59 @@ package Ada.Wide_Text_IO.Editing is generic type Num is delta <> digits <>; - Default_Currency : in Wide_String := + Default_Currency : Wide_String := Wide_Text_IO.Editing.Default_Currency; - Default_Fill : in Wide_Character := + Default_Fill : Wide_Character := Wide_Text_IO.Editing.Default_Fill; - Default_Separator : in Wide_Character := + Default_Separator : Wide_Character := Wide_Text_IO.Editing.Default_Separator; - Default_Radix_Mark : in Wide_Character := + Default_Radix_Mark : Wide_Character := Wide_Text_IO.Editing.Default_Radix_Mark; package Decimal_Output is function Length - (Pic : in Picture; - Currency : in Wide_String := Default_Currency) - return Natural; + (Pic : Picture; + Currency : Wide_String := Default_Currency) return Natural; function Valid (Item : Num; - Pic : in Picture; - Currency : in Wide_String := Default_Currency) - return Boolean; + Pic : Picture; + Currency : Wide_String := Default_Currency) return Boolean; function Image (Item : Num; - Pic : in Picture; - Currency : in Wide_String := Default_Currency; - Fill : in Wide_Character := Default_Fill; - Separator : in Wide_Character := Default_Separator; - Radix_Mark : in Wide_Character := Default_Radix_Mark) - return Wide_String; + Pic : Picture; + Currency : Wide_String := Default_Currency; + Fill : Wide_Character := Default_Fill; + Separator : Wide_Character := Default_Separator; + Radix_Mark : Wide_Character := Default_Radix_Mark) return Wide_String; procedure Put - (File : in File_Type; + (File : File_Type; Item : Num; - Pic : in Picture; - Currency : in Wide_String := Default_Currency; - Fill : in Wide_Character := Default_Fill; - Separator : in Wide_Character := Default_Separator; - Radix_Mark : in Wide_Character := Default_Radix_Mark); + Pic : Picture; + Currency : Wide_String := Default_Currency; + Fill : Wide_Character := Default_Fill; + Separator : Wide_Character := Default_Separator; + Radix_Mark : Wide_Character := Default_Radix_Mark); procedure Put (Item : Num; - Pic : in Picture; - Currency : in Wide_String := Default_Currency; - Fill : in Wide_Character := Default_Fill; - Separator : in Wide_Character := Default_Separator; - Radix_Mark : in Wide_Character := Default_Radix_Mark); + Pic : Picture; + Currency : Wide_String := Default_Currency; + Fill : Wide_Character := Default_Fill; + Separator : Wide_Character := Default_Separator; + Radix_Mark : Wide_Character := Default_Radix_Mark); procedure Put (To : out Wide_String; Item : Num; - Pic : in Picture; - Currency : in Wide_String := Default_Currency; - Fill : in Wide_Character := Default_Fill; - Separator : in Wide_Character := Default_Separator; - Radix_Mark : in Wide_Character := Default_Radix_Mark); + Pic : Picture; + Currency : Wide_String := Default_Currency; + Fill : Wide_Character := Default_Fill; + Separator : Wide_Character := Default_Separator; + Radix_Mark : Wide_Character := Default_Radix_Mark); end Decimal_Output; @@ -196,8 +191,7 @@ private Currency_Symbol : Wide_String; Fill_Character : Wide_Character; Separator_Character : Wide_Character; - Radix_Point : Wide_Character) - return Wide_String; + Radix_Point : Wide_Character) return Wide_String; -- Formats number according to Pic function Expand (Picture : in String) return String; -- cgit v1.1