managed to change h2-scheme to a generic package

2014-01-09 15:32:36 +00:00
parent 8f2efa17f8
commit 87bebc0fdb
10 changed files with 656 additions and 490 deletions
--- a/h2/cmd/stream.ads
+++ b/h2/cmd/stream.ads
@ -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;