Mercurial > hg > CbC > CbC_gcc

comparison gcc/ada/libgnat/a-wtcoio.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
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ------------------------------------------------------------------------------
2 -- --
3 -- GNAT RUN-TIME COMPONENTS --
4 -- --
5 -- A D A . W I D E _ T E X T _ IO . C O M P L E X _ I O --
6 -- --
7 -- S p e c --
8 -- --
9 -- This specification is derived from the Ada Reference Manual for use with --
10 -- GNAT. In accordance with the copyright of that document, you can freely --
11 -- copy and modify this specification, provided that if you redistribute a --
12 -- modified version, any changes that you have made are clearly indicated. --
13 -- --
14 ------------------------------------------------------------------------------
15
16 with Ada.Numerics.Generic_Complex_Types;
17
18 generic
19 with package Complex_Types is new Ada.Numerics.Generic_Complex_Types (<>);
20
21 package Ada.Wide_Text_IO.Complex_IO is
22
23 use Complex_Types;
24
25 Default_Fore : Field := 2;
26 Default_Aft : Field := Real'Digits - 1;
27 Default_Exp : Field := 3;
28
29 procedure Get
30 (File : File_Type;
31 Item : out Complex;
32 Width : Field := 0);
33
34 procedure Get
35 (Item : out Complex;
36 Width : Field := 0);
37
38 procedure Put
39 (File : File_Type;
40 Item : Complex;
41 Fore : Field := Default_Fore;
42 Aft : Field := Default_Aft;
43 Exp : Field := Default_Exp);
44
45 procedure Put
46 (Item : Complex;
47 Fore : Field := Default_Fore;
48 Aft : Field := Default_Aft;
49 Exp : Field := Default_Exp);
50
51 procedure Get
52 (From : Wide_String;
53 Item : out Complex;
54 Last : out Positive);
55
56 procedure Put
57 (To : out Wide_String;
58 Item : Complex;
59 Aft : Field := Default_Aft;
60 Exp : Field := Default_Exp);
61
62 end Ada.Wide_Text_IO.Complex_IO;