managed to change h2-scheme to a generic package

This commit is contained in:
2014-01-09 15:32:36 +00:00
parent de2e462814
commit d502f1ab4c
10 changed files with 656 additions and 490 deletions

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;