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

View File

@ -1,9 +1,21 @@
with H2.Scheme;
with H2.Utf8;
with H2.Slim;
package H2.Wide is
package Scheme is new H2.Scheme (Standard.Wide_Character);
package Utf8 is new H2.Utf8 (Standard.Character, Standard.Wide_Character);
subtype Character is Standard.Wide_Character;
type String is array(System_Index range<>) of Character;
package Scheme is new H2.Scheme (Standard.Wide_Character);
package Utf8 is new H2.Utf8 (H2.Slim.Character, Character, H2.Slim.String, H2.Wide.String);
--package Stream is new H2.IO (
-- Standard.Wide_Character,
-- Standard.Character,
-- H2.System.Open,
-- H2.System.Close,
-- H2.System.Read,
-- H2.System.Write
--);
end H2.Wide;