added an incomplete and experimental file package

This commit is contained in:
2014-05-30 03:15:40 +00:00
parent cb9505272a
commit d4aad8f0ee
12 changed files with 422 additions and 67 deletions

12
h2/lib/h2-wide_wide.ads Normal file
View File

@ -0,0 +1,12 @@
with H2.Scheme;
with H2.Utf8;
with H2.Slim;
package H2.Wide_Wide is
type String is array(System_Index range<>) of Standard.Wide_Wide_Character;
package Scheme is new H2.Scheme (Standard.Wide_Wide_Character);
package Utf8 is new H2.Utf8 (Standard.Character, Standard.Wide_Wide_Character, H2.Slim.String, H2.Wide_Wide.String);
end H2.Wide_Wide;