From 45c752c00a8befa4041b4dcd8243b0563779c573 Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sun, 2 Jul 2017 23:39:38 +1000 Subject: Removed MIT licensed Mathpaqs packages in favour of bindings to GMP --- src/multi_precision_integers-io.ads | 94 ------------------------------------- 1 file changed, 94 deletions(-) delete mode 100644 src/multi_precision_integers-io.ads (limited to 'src/multi_precision_integers-io.ads') diff --git a/src/multi_precision_integers-io.ads b/src/multi_precision_integers-io.ads deleted file mode 100644 index 558a62e..0000000 --- a/src/multi_precision_integers-io.ads +++ /dev/null @@ -1,94 +0,0 @@ ------------------------------------------------------------------------------- --- 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; -- cgit