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

added utf8 functions

Browse Source
This commit is contained in:
hyung-hwan
2021-11-07 17:32:50 +00:00
parent 001115770d
commit 868ad3d38a
7 changed files with 389 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
h2/lib2/h3-arrays.ads
View File

@ -69,8 +69,11 @@ package H3.Arrays is
function Find (Obj: in Elastic_Array; V: in Item_Type; Start_Pos: in System_Index; Find_Dir: in Direction := DIRECTION_FORWARD) return System_Size;
function Find (Obj: in Elastic_Array; V: in Item_Array; Start_Pos: in System_Index; Find_Dir: in Direction := DIRECTION_FORWARD) return System_Size;
function "=" (Obj: in Elastic_Array; Obj2: in Elastic_Array) return Boolean;
function "=" (Obj: in Elastic_Array; Obj2: in Item_Array) return Boolean;
function Equals (Obj: in Elastic_Array; Obj2: in Elastic_Array) return Boolean;
function Equals (Obj: in Elastic_Array; Obj2: in Item_Array) return Boolean;
function "=" (Obj: in Elastic_Array; Obj2: in Elastic_Array) return Boolean renames Equals;
function "=" (Obj: in Elastic_Array; Obj2: in Item_Array) return Boolean renames Equals;
private
type Buffer_Record(Capa: System_Size) is limited record