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

managed to change h2-scheme to a generic package

Browse Source
This commit is contained in:
hyung-hwan
2014-01-09 15:32:36 +00:00
parent de2e462814
commit d502f1ab4c
10 changed files with 656 additions and 490 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
cmd/scheme.adb
View File

@ -6,7 +6,9 @@ with Ada.Text_IO;
with Ada.Unchecked_Deallocation;
procedure scheme is
package S renames H2.Scheme;
--package S renames H2.Scheme;
--package S is new H2.Scheme (Wide_Character, Wide_String);
package S renames Stream.S;
Pool: aliased Storage.Global_Pool;
SI: S.Interpreter_Record;
@ -43,14 +45,6 @@ begin
--S.Set_Input_Stream (SI, String_Stream);
--S.Set_Output_Stream (SI, Stream); -- specify main output stream.
--S.Read (SI, I);
S.Make_Test_Object (SI, I);
S.Evaluate (SI, I, O);
S.Print (SI, I);
Ada.Text_IO.Put_Line ("-------------------------------------------");
S.Print (SI, O);
Ada.Text_IO.Put_Line ("-------------------------------------------");
S.Run_Loop (SI, I);
S.Print (SI, I);

3
cmd/stream.ads
View File

@ -3,7 +3,8 @@ with Ada.Wide_Text_IO;
package Stream is
package S renames H2.Scheme;
--package S renames H2.Scheme;
package S is new H2.Scheme (Standard.Wide_Character, Standard.Wide_String);
------------------------------------------------------------
--type Object_String_Pointer is access all S.Object_String;