Mercurial > hg > CbC > CbC_gcc

annotate gcc/ada/libgnat/a-ztcoau.ads @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
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 . C O M P L E X _ A U X --
kono
parents:
diff changeset
6 -- --
kono
parents:
diff changeset
7 -- S p e c --
kono
parents:
diff changeset
8 -- --
kono
parents:
diff changeset
9 -- This specification is derived from the Ada Reference Manual for use with --
kono
parents:
diff changeset
10 -- GNAT. In accordance with the copyright of that document, you can freely --
kono
parents:
diff changeset
11 -- copy and modify this specification, provided that if you redistribute a --
kono
parents:
diff changeset
12 -- modified version, any changes that you have made are clearly indicated. --
kono
parents:
diff changeset
13 -- --
kono
parents:
diff changeset
14 ------------------------------------------------------------------------------
kono
parents:
diff changeset
15
kono
parents:
diff changeset
16 -- This package contains the routines for Ada.Wide_Wide_Text_IO.Complex_IO
kono
parents:
diff changeset
17 -- that are shared among separate instantiations of this package. The routines
kono
parents:
diff changeset
18 -- in this package are identical semantically to those in Complex_IO itself,
kono
parents:
diff changeset
19 -- except that the generic parameter Complex has been replaced by separate
kono
parents:
diff changeset
20 -- real and imaginary values of type Long_Long_Float, and default parameters
kono
parents:
diff changeset
21 -- have been removed because they are supplied explicitly by the calls from
kono
parents:
diff changeset
22 -- within the generic template.
kono
parents:
diff changeset
23
kono
parents:
diff changeset
24 package Ada.Wide_Wide_Text_IO.Complex_Aux is
kono
parents:
diff changeset
25
kono
parents:
diff changeset
26 procedure Get
kono
parents:
diff changeset
27 (File : File_Type;
kono
parents:
diff changeset
28 ItemR : out Long_Long_Float;
kono
parents:
diff changeset
29 ItemI : out Long_Long_Float;
kono
parents:
diff changeset
30 Width : Field);
kono
parents:
diff changeset
31
kono
parents:
diff changeset
32 procedure Gets
kono
parents:
diff changeset
33 (From : String;
kono
parents:
diff changeset
34 ItemR : out Long_Long_Float;
kono
parents:
diff changeset
35 ItemI : out Long_Long_Float;
kono
parents:
diff changeset
36 Last : out Positive);
kono
parents:
diff changeset
37
kono
parents:
diff changeset
38 procedure Put
kono
parents:
diff changeset
39 (File : File_Type;
kono
parents:
diff changeset
40 ItemR : Long_Long_Float;
kono
parents:
diff changeset
41 ItemI : Long_Long_Float;
kono
parents:
diff changeset
42 Fore : Field;
kono
parents:
diff changeset
43 Aft : Field;
kono
parents:
diff changeset
44 Exp : Field);
kono
parents:
diff changeset
45
kono
parents:
diff changeset
46 procedure Puts
kono
parents:
diff changeset
47 (To : out String;
kono
parents:
diff changeset
48 ItemR : Long_Long_Float;
kono
parents:
diff changeset
49 ItemI : Long_Long_Float;
kono
parents:
diff changeset
50 Aft : Field;
kono
parents:
diff changeset
51 Exp : Field);
kono
parents:
diff changeset
52
kono
parents:
diff changeset
53 end Ada.Wide_Wide_Text_IO.Complex_Aux;