added an incomplete and experimental file package
This commit is contained in:
12
h2/lib/h2-wide_wide.ads
Normal file
12
h2/lib/h2-wide_wide.ads
Normal 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;
|
Reference in New Issue
Block a user