hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

aalmost finished string-to-bigint conversion

Browse Source
This commit is contained in:
hyung-hwan
2014-03-25 16:43:46 +00:00
parent f2913efdb8
commit 2b9c176db0
4 changed files with 423 additions and 215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
h2/lib/h2-scheme.ads
View File

@ -54,6 +54,8 @@ package H2.Scheme is
Internal_Error: exception;
IO_Error: exception;
Divide_By_Zero_Error: exception;
Numeric_String_Error: exception;
type Interpreter_Record is limited private;
type Interpreter_Pointer is access all Interpreter_Record;
@ -632,16 +634,18 @@ private
Y: in Object_Pointer;
Q: out Object_Pointer;
R: out Object_Pointer);
function Compare (Interp: access Interpreter_Record;
X: in Object_Pointer;
Y: in Object_Pointer) return Standard.Integer;
procedure To_String (Interp: in out Interpreter_Record;
X: in Object_Pointer;
Radix: in Object_Radix;
Z: out Object_Pointer);
function To_String (Interp: access Interpreter_Record;
X: in Object_Pointer;
Radix: in Object_Radix) return Object_Pointer;
procedure From_String (Interp: in out Interpreter_Record;
X: in Object_Character_Array;
Radix: in Object_Radix;
Z: out Object_Pointer);
function From_String (Interp: access Interpreter_Record;
X: in Object_Character_Array;
Radix: in Object_Radix) return Object_Pointer;
procedure Initialize;
end Bigint;