annotate gcc/ada/libgnat/a-ztmoau.ads @ 158:494b0b89df80 default tip

...
author Shinji KONO <kono@ie.u-ryukyu.ac.jp>
date Mon, 25 May 2020 18:13:55 +0900
parents 1830386684a0
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
111
kono
parents:
diff changeset
1 ------------------------------------------------------------------------------
kono
parents:
diff changeset
2 -- --
kono
parents:
diff changeset
3 -- GNAT RUN-TIME COMPONENTS --
kono
parents:
diff changeset
4 -- --
kono
parents:
diff changeset
5 -- A D A . W I D E _ W I D E _ T E X T _ I O . M O D U L A R _ A U X --
kono
parents:
diff changeset
6 -- --
kono
parents:
diff changeset
7 -- S p e c --
kono
parents:
diff changeset
8 -- --
145
1830386684a0 gcc-9.2.0
anatofuz
parents: 131
diff changeset
9 -- Copyright (C) 1992-2019, Free Software Foundation, Inc. --
111
kono
parents:
diff changeset
10 -- --
kono
parents:
diff changeset
11 -- GNAT is free software; you can redistribute it and/or modify it under --
kono
parents:
diff changeset
12 -- terms of the GNU General Public License as published by the Free Soft- --
kono
parents:
diff changeset
13 -- ware Foundation; either version 3, or (at your option) any later ver- --
kono
parents:
diff changeset
14 -- sion. GNAT is distributed in the hope that it will be useful, but WITH- --
kono
parents:
diff changeset
15 -- OUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY --
kono
parents:
diff changeset
16 -- or FITNESS FOR A PARTICULAR PURPOSE. --
kono
parents:
diff changeset
17 -- --
kono
parents:
diff changeset
18 -- As a special exception under Section 7 of GPL version 3, you are granted --
kono
parents:
diff changeset
19 -- additional permissions described in the GCC Runtime Library Exception, --
kono
parents:
diff changeset
20 -- version 3.1, as published by the Free Software Foundation. --
kono
parents:
diff changeset
21 -- --
kono
parents:
diff changeset
22 -- You should have received a copy of the GNU General Public License and --
kono
parents:
diff changeset
23 -- a copy of the GCC Runtime Library Exception along with this program; --
kono
parents:
diff changeset
24 -- see the files COPYING3 and COPYING.RUNTIME respectively. If not, see --
kono
parents:
diff changeset
25 -- <http://www.gnu.org/licenses/>. --
kono
parents:
diff changeset
26 -- --
kono
parents:
diff changeset
27 -- GNAT was originally developed by the GNAT team at New York University. --
kono
parents:
diff changeset
28 -- Extensive contributions were provided by Ada Core Technologies Inc. --
kono
parents:
diff changeset
29 -- --
kono
parents:
diff changeset
30 ------------------------------------------------------------------------------
kono
parents:
diff changeset
31
kono
parents:
diff changeset
32 -- This package contains the routines for Ada.Wide_Wide_Text_IO.Modular_IO
kono
parents:
diff changeset
33 -- that are shared among separate instantiations of this package. The
kono
parents:
diff changeset
34 -- routines in this package are identical semantically to those in Modular_IO
kono
parents:
diff changeset
35 -- itself, except that the generic parameter Num has been replaced by
kono
parents:
diff changeset
36 -- Unsigned or Long_Long_Unsigned, and the default parameters have been
kono
parents:
diff changeset
37 -- removed because they are supplied explicitly by the calls from within the
kono
parents:
diff changeset
38 -- generic template.
kono
parents:
diff changeset
39
kono
parents:
diff changeset
40 with System.Unsigned_Types;
kono
parents:
diff changeset
41
kono
parents:
diff changeset
42 private package Ada.Wide_Wide_Text_IO.Modular_Aux is
kono
parents:
diff changeset
43
kono
parents:
diff changeset
44 package U renames System.Unsigned_Types;
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 procedure Get_Uns
kono
parents:
diff changeset
47 (File : File_Type;
kono
parents:
diff changeset
48 Item : out U.Unsigned;
kono
parents:
diff changeset
49 Width : Field);
kono
parents:
diff changeset
50
kono
parents:
diff changeset
51 procedure Get_LLU
kono
parents:
diff changeset
52 (File : File_Type;
kono
parents:
diff changeset
53 Item : out U.Long_Long_Unsigned;
kono
parents:
diff changeset
54 Width : Field);
kono
parents:
diff changeset
55
kono
parents:
diff changeset
56 procedure Gets_Uns
kono
parents:
diff changeset
57 (From : String;
kono
parents:
diff changeset
58 Item : out U.Unsigned;
kono
parents:
diff changeset
59 Last : out Positive);
kono
parents:
diff changeset
60
kono
parents:
diff changeset
61 procedure Gets_LLU
kono
parents:
diff changeset
62 (From : String;
kono
parents:
diff changeset
63 Item : out U.Long_Long_Unsigned;
kono
parents:
diff changeset
64 Last : out Positive);
kono
parents:
diff changeset
65
kono
parents:
diff changeset
66 procedure Put_Uns
kono
parents:
diff changeset
67 (File : File_Type;
kono
parents:
diff changeset
68 Item : U.Unsigned;
kono
parents:
diff changeset
69 Width : Field;
kono
parents:
diff changeset
70 Base : Number_Base);
kono
parents:
diff changeset
71
kono
parents:
diff changeset
72 procedure Put_LLU
kono
parents:
diff changeset
73 (File : File_Type;
kono
parents:
diff changeset
74 Item : U.Long_Long_Unsigned;
kono
parents:
diff changeset
75 Width : Field;
kono
parents:
diff changeset
76 Base : Number_Base);
kono
parents:
diff changeset
77
kono
parents:
diff changeset
78 procedure Puts_Uns
kono
parents:
diff changeset
79 (To : out String;
kono
parents:
diff changeset
80 Item : U.Unsigned;
kono
parents:
diff changeset
81 Base : Number_Base);
kono
parents:
diff changeset
82
kono
parents:
diff changeset
83 procedure Puts_LLU
kono
parents:
diff changeset
84 (To : out String;
kono
parents:
diff changeset
85 Item : U.Long_Long_Unsigned;
kono
parents:
diff changeset
86 Base : Number_Base);
kono
parents:
diff changeset
87
kono
parents:
diff changeset
88 end Ada.Wide_Wide_Text_IO.Modular_Aux;