1 ------------------------------------------------------------------------------
3 -- GNAT RUN-TIME COMPONENTS --
5 -- A D A . T E X T _ I O . E D I T I N G --
9 -- Copyright (C) 1992-2006, Free Software Foundation, Inc. --
11 -- This specification is derived from the Ada Reference Manual for use with --
12 -- GNAT. The copyright notice above, and the license provisions that follow --
13 -- apply solely to the contents of the part following the private keyword. --
15 -- GNAT is free software; you can redistribute it and/or modify it under --
16 -- terms of the GNU General Public License as published by the Free Soft- --
17 -- ware Foundation; either version 2, or (at your option) any later ver- --
18 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
19 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
20 -- or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License --
21 -- for more details. You should have received a copy of the GNU General --
22 -- Public License distributed with GNAT; see file COPYING. If not, write --
23 -- to the Free Software Foundation, 51 Franklin Street, Fifth Floor, --
24 -- Boston, MA 02110-1301, USA. --
26 -- As a special exception, if other files instantiate generics from this --
27 -- unit, or you link this unit with other files to produce an executable, --
28 -- this unit does not by itself cause the resulting executable to be --
29 -- covered by the GNU General Public License. This exception does not --
30 -- however invalidate any other reasons why the executable file might be --
31 -- covered by the GNU Public License. --
33 -- GNAT was originally developed by the GNAT team at New York University. --
34 -- Extensive contributions were provided by Ada Core Technologies Inc. --
36 ------------------------------------------------------------------------------
38 package Ada
.Text_IO
.Editing
is
40 type Picture
is private;
44 Blank_When_Zero
: Boolean := False) return Boolean;
48 Blank_When_Zero
: Boolean := False) return Picture
;
50 function Pic_String
(Pic
: Picture
) return String;
51 function Blank_When_Zero
(Pic
: Picture
) return Boolean;
53 Max_Picture_Length
: constant := 64;
55 Picture_Error
: exception;
57 Default_Currency
: constant String := "$";
58 Default_Fill
: constant Character := ' ';
59 Default_Separator
: constant Character := ',';
60 Default_Radix_Mark
: constant Character := '.';
63 type Num
is delta <> digits <>;
64 Default_Currency
: String := Editing
.Default_Currency
;
65 Default_Fill
: Character := Editing
.Default_Fill
;
66 Default_Separator
: Character := Editing
.Default_Separator
;
67 Default_Radix_Mark
: Character := Editing
.Default_Radix_Mark
;
69 package Decimal_Output
is
73 Currency
: String := Default_Currency
) return Natural;
78 Currency
: String := Default_Currency
) return Boolean;
83 Currency
: String := Default_Currency
;
84 Fill
: Character := Default_Fill
;
85 Separator
: Character := Default_Separator
;
86 Radix_Mark
: Character := Default_Radix_Mark
) return String;
89 (File
: Ada
.Text_IO
.File_Type
;
92 Currency
: String := Default_Currency
;
93 Fill
: Character := Default_Fill
;
94 Separator
: Character := Default_Separator
;
95 Radix_Mark
: Character := Default_Radix_Mark
);
100 Currency
: String := Default_Currency
;
101 Fill
: Character := Default_Fill
;
102 Separator
: Character := Default_Separator
;
103 Radix_Mark
: Character := Default_Radix_Mark
);
109 Currency
: String := Default_Currency
;
110 Fill
: Character := Default_Fill
;
111 Separator
: Character := Default_Separator
;
112 Radix_Mark
: Character := Default_Radix_Mark
);
118 MAX_PICSIZE
: constant := 50;
119 MAX_MONEYSIZE
: constant := 10;
120 Invalid_Position
: constant := -1;
122 subtype Pic_Index
is Natural range 0 .. MAX_PICSIZE
;
124 type Picture_Record
(Length
: Pic_Index
:= 0) is record
125 Expanded
: String (1 .. Length
);
128 type Format_Record
is record
129 Picture
: Picture_Record
;
132 Blank_When_Zero
: Boolean;
135 Original_BWZ
: Boolean;
137 -- The following components get written
139 Star_Fill
: Boolean := False;
141 Radix_Position
: Integer := Invalid_Position
;
144 Second_Sign
: Integer := Invalid_Position
;
147 End_Float
: Integer := Invalid_Position
;
150 End_Currency
: Integer := Invalid_Position
;
152 Max_Leading_Digits
: Integer := 0;
154 Max_Trailing_Digits
: Integer := 0;
156 Max_Currency_Digits
: Integer := 0;
158 Floater
: Character := '!';
159 -- Initialized to illegal value
163 type Picture
is record
164 Contents
: Format_Record
;
167 type Number_Attributes
is record
168 Negative
: Boolean := False;
170 Has_Fraction
: Boolean := False;
175 End_Of_Fraction
: Integer := Invalid_Position
; -- invalid value
178 function Parse_Number_String
(Str
: String) return Number_Attributes
;
179 -- Assumed format is 'IMAGE or Fixed_IO.Put format (depends on no
180 -- trailing blanks...)
182 procedure Precalculate
(Pic
: in out Format_Record
);
183 -- Precalculates fields from the user supplied data
185 function Format_Number
186 (Pic
: Format_Record
;
188 Currency_Symbol
: String;
189 Fill_Character
: Character;
190 Separator_Character
: Character;
191 Radix_Point
: Character) return String;
192 -- Formats number according to Pic
194 function Expand
(Picture
: String) return String;
196 end Ada
.Text_IO
.Editing
;