added an incomplete and experimental file package
This commit is contained in:
@ -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;
|
||||
|
Reference in New Issue
Block a user