hyung-hwan/hcl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

some ada experiments

Browse Source
This commit is contained in:
hyung-hwan
2021-09-30 23:54:50 +00:00
parent bb840abd99
commit 3ec3a9a17e
6 changed files with 60 additions and 43 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
h2/lib2/h3-strings.adb
View File

@ -187,9 +187,32 @@ package body H3.Strings is
procedure Delete (Str: in out Elastic_String; Pos: in System_Index; Length: in System_Size) is
begin
null;
if Pos <= Str.Buffer.Last then
Prepare_Buffer (Str);
else
raise Standard.Constraint_Error;
end if;
end Delete;
procedure Insert (Str: in out Elastic_String; Pos: in System_Index; Char: in Character_Type) is
begin
if Pos <= Str.Buffer.Last then
Prepare_Buffer (Str, H3.Align(Get_Length(Str) + V'Length + 1, BUFFER_ALIGN));
Str.Buffer.Slot(Pos) := New_Char;
end if;
end Insert;
procedure Replace (Str: in out Elastic_String; Pos: in System_Index; New_Char: in Character_Type) is
begin
if Pos <= Str.Buffer.Last then
Prepare_Buffer (Str);
Str.Buffer.Slot(Pos) := New_Char;
else
-- raise Index_Error;
raise Standard.Constraint_Error;
end if;
end Replace;
-- ---------------------------------------------------------------------
-- Controlled Management
-- ---------------------------------------------------------------------