ada experiments

This commit is contained in:
2021-10-01 11:03:54 +00:00
parent 3ec3a9a17e
commit 1311ea8253
3 changed files with 57 additions and 10 deletions

View File

@ -45,6 +45,7 @@ package H3.Strings is
procedure Append (Str: in out Elastic_String; V: in Character_Array);
procedure Append (Str: in out Elastic_String; V: in Character_Type);
procedure Insert (Str: in out Elastic_String; Pos: in System_Index; New_Char: in Character_Type);
procedure Replace (Str: in out Elastic_String; Pos: in System_Index; New_Char: in Character_Type);
private