1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
|
------------------------------------------------------------------------------
-- File: Multi_precision_integers-IO.ads
-- Description: Child of package 'Multi_precision_integers: I/O
-- Date/version: 2006 ; 15-Feb-2002 / 22.XI.1999 / 22.12.1996
-- Author: Gautier de Montmollin
------------------------------------------------------------------------------
------------------------------------------------------------------------------
--
-- Copyright (c) 2007 G. de Montmollin, Univ. Neuchatel
--
-- Permission is hereby granted, free of charge, to any person obtaining a copy
-- of this software and associated documentation files (the "Software"), to deal
-- in the Software without restriction, including without limitation the rights
-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
-- copies of the Software, and to permit persons to whom the Software is
-- furnished to do so, subject to the following conditions:
--
-- The above copyright notice and this permission notice shall be included in all
-- copies or substantial portions of the Software.
--
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
-- SOFTWARE.
--
------------------------------------------------------------------------------
with Text_IO; use Text_IO;
package Multi_precision_integers.IO is
Default_Base: Number_Base := 10;
-- Returns the number of digits in the specified base:
function Number_of_digits(i: Multi_int; base: Number_Base:= 10) return Natural;
-- Returns the image of i in the specified base:
function Str(i: Multi_int; base: Number_Base:= 10) return String;
-- Returns the value of number in string:
function Val(s: String) return Multi_int;
-- Output to file, in block format:
procedure Put_in_blocks(File : in File_Type;
Item : in Multi_int);
-- Output to standard input, in block format:
procedure Put_in_blocks(Item : in Multi_int);
---- The following mimic the Text_IO.Integer_IO
-- Get from file:
procedure Get(File : in File_Type;
Item : out Multi_int;
Width : in Field := 0);
-- Get from standard input:
procedure Get(Item : out Multi_int;
Width : in Field := 0);
-- Put to file:
procedure Put(File : in File_Type;
Item : in Multi_int;
Width : in Field := 0;
Base : in Number_Base := Default_Base);
-- Width=0 : no default formatting, since inpredicatble length
-- Put to standard output:
procedure Put(Item : in Multi_int;
Width : in Field := 0;
Base : in Number_Base := Default_Base);
-- Width=0 : no default formatting, since inpredicatble length
-- Get from string:
procedure Get(From : in String;
Item : out Multi_int;
Last : out Positive);
-- Put to string:
procedure Put(To : out String;
Item : in Multi_int;
Base : in Number_Base := Default_Base);
end Multi_precision_integers.IO;
|