enhanced rune.hawk with the string conversion feature

This commit is contained in:
2021-10-31 16:03:11 +00:00
parent c5b36d0678
commit 714309e044
6 changed files with 175 additions and 135 deletions

View File

@ -3,6 +3,17 @@ package body H3.Strings is
procedure Append (Obj: in out Elastic_String; V: in Rune_Array) is
begin
P.Append (P.Elastic_Array(Obj), V);
end;
end Append;
function Get_Rune (Obj: in Elastic_String; Pos: in System_Index) return Rune is
begin
return P.Get_Item(P.Elastic_Array(Obj), Pos);
end Get_Rune;
function To_Rune_Array (Obj: in Elastic_String) return Rune_Array is
begin
return P.To_Item_Array(P.Elastic_Array(Obj));
end To_Rune_Array;
end H3.Strings;