2014-01-17 14:15:08 +00:00
|
|
|
with H2.Scheme;
|
|
|
|
with H2.Utf8;
|
2014-05-30 03:15:40 +00:00
|
|
|
with H2.Slim;
|
2014-01-17 14:15:08 +00:00
|
|
|
|
2014-06-17 15:23:35 +00:00
|
|
|
-- TODO: rename H2.Wide to H2.Wide_Utf8 or soemthing...
|
|
|
|
|
2014-01-17 14:15:08 +00:00
|
|
|
package H2.Wide is
|
|
|
|
|
2014-05-30 03:15:40 +00:00
|
|
|
subtype Character is Standard.Wide_Character;
|
|
|
|
type String is array(System_Index range<>) of Character;
|
|
|
|
|
2014-01-17 14:15:08 +00:00
|
|
|
package Scheme is new H2.Scheme (Standard.Wide_Character);
|
2014-05-30 03:15:40 +00:00
|
|
|
package Utf8 is new H2.Utf8 (H2.Slim.Character, Character, H2.Slim.String, H2.Wide.String);
|
2014-01-17 14:15:08 +00:00
|
|
|
|
2014-05-30 03:15:40 +00:00
|
|
|
--package Stream is new H2.IO (
|
|
|
|
-- Standard.Wide_Character,
|
|
|
|
-- Standard.Character,
|
|
|
|
-- H2.System.Open,
|
|
|
|
-- H2.System.Close,
|
|
|
|
-- H2.System.Read,
|
|
|
|
-- H2.System.Write
|
|
|
|
--);
|
2014-01-17 14:15:08 +00:00
|
|
|
end H2.Wide;
|