Top Prev Next Up Down
Y2018.Text.core.STR
001| with
Ada.Containers.Ordered_Maps;
002| with Y2018.Text.core.CVarPack; use
Y2018.Text.core.CVarPack;
003| with Y2018.Text.Core.GC;
004| with Y2018.Text.Core.UTF;
005| with GNAT.Source_Info;
006| package Y2018.Text.core.STR is
007| __Type Celem is
008| _____record
009| ________n: Integer;
010| ________s: CVar;
011| _____end record;
012| __function
cless(Left,Right:Integer) return Boolean;
013| __function
cequal(Left,Right:Celem) return Boolean;
014| __package CList is new
Ada.Containers.Ordered_Maps(
015| _____Key_Type => Integer,
016| _____Element_type => Celem,
017| _____"<"=> cless,
018| _____"="=> cequal);
019| __procedure Insert(map:in out
CList.Map;s:CFix);
020| __procedure Insert(map:in out
CList.Map;s:String);
021| __procedure Insert(map:in out
CList.Map;s:CVar);
022| __procedure Insert(map:in out
CList.Map;sourceMap:CList.Map);
023| -- STR_case
024| function To_LC(s:CFix) return CFix
;
025| function To_LC(s:String) return
String ;
026| function To_LC(s:CVar) return CVar
;
027| function To_TC(s:CFix) return CFix
;
028| function To_TC(s:String) return
String ;
029| function To_TC(s:CVar) return CVar
;
030| function To_UC(s:CFix) return CFix
;
031| function To_UC(s:String) return
String ;
032| function To_UC(s:CVar) return CVar
;
033| function Get_GC(c:CodePoint)
return CFix ;
034| function Get_LC(c:CodePoint)
return CodePoint ;
035| function Get_UC(c:CodePoint)
return CodePoint ;
036| function Get_TC(c:CodePoint)
return CodePoint ;
037| -- STR_et
038| function
"&"(left:CFix;right:String) return CFix ; -- [16] <UTF>
039| function
"&"(left:CFix;right:Character) return CFix ; -- [17] <UTF>
040| function
"&"(left:String;right:CFix) return String ; -- [18] <UTF>
041| function
"&"(left:String;right:CVar) return String ; -- [20] <UTF>
042| function
"&"(left:String;right:CodePoint) return String ; -- [22]
<UTF>
043| function
"&"(left:CVar;right:String) return CVar ; -- [24] <UTF>
044| function
"&"(left:CVar;right:Character) return CVar ; -- [25] <UTF>
045| function
"&"(left:CodePoint;right:String) return CFix ; -- [28]
<UTF>
046| function
"&"(left:CodePoint;right:Character) return CFix ; -- [29]
<UTF>
047| function
"&"(left:Character;right:CFix) return String ; -- [30]
<UTF>
048| function
"&"(left:Character;right:CVar) return String ; -- [32]
<UTF>
049| function
"&"(left:Character;right:CodePoint) return String ; -- [34]
<UTF>
050| -- STR_hex
051| function CodePoint2Hex8String(v
:CodePoint) return String ;
052| function Character2Hex8String(v
:Character) return String ;
053| function CodePoint2Hex8CFix(v
:CodePoint) return CFix ;
054| function Character2Hex8CFix(v
:Character) return CFix ;
055| function To_Hex8String(v :Integer)
return String ;
056| function To_Hex8CFix(v :Integer)
return CFix ;
057| function
Hex2Integer(s:CFix;padding:CFix:=CFix_Space) return Integer;
058| function
Hex2Integer(s:String;padding:String:=" ") return Integer;
059| function
Hex2Integer(s:CVar;padding:CFix:=CFix_Space) return Integer;
060| -- STR_rel
061| function
"="(first:CFix;second:String) return Boolean ;
062| function
"<"(first:CFix;second:String) return Boolean ;
063| function
"<="(first:CFix;second:String) return Boolean ;
064| function
">"(first:CFix;second:String) return Boolean ;
065| function
">="(first:CFix;second:String) return Boolean ;
066| function
"="(first:String;second:CFix) return Boolean ;
067| function
"<"(first:String;second:CFix) return Boolean ;
068| function
"<="(first:String;second:CFix) return Boolean ;
069| function
">"(first:String;second:CFix) return Boolean ;
070| function
">="(first:String;second:CFix) return Boolean ;
071| function
"="(first:CVar;second:String) return Boolean ;
072| function
"<"(first:CVar;second:String) return Boolean ;
073| function
"<="(first:CVar;second:String) return Boolean ;
074| function
">"(first:CVar;second:String) return Boolean ;
075| function
">="(first:CVar;second:String) return Boolean ;
076| function
"="(first:String;second:CVar) return Boolean ;
077| function
"<"(first:String;second:CVar) return Boolean ;
078| function
"<="(first:String;second:CVar) return Boolean ;
079| function
">"(first:String;second:CVar) return Boolean ;
080| function
">="(first:String;second:CVar) return Boolean ;
081| -- STR-sub
082| function
subC(value:CFix;first:Integer:=Integer'First;length:Integer:=Integer'First;last:Integer:=Integer'First)
return CFix;
083| function
subC(value:String;first:Integer:=Integer'First;length:Integer:=Integer'First;last:Integer:=Integer'First)
return String;
084| function
subC(value:CVar;first:Integer:=Integer'First;length:Integer:=Integer'First;last:Integer:=Integer'First)
return CVar;
085| function
rightC(value:CFix;length:Integer;pad:CFix:=CFix_Space) return CFix;
086| function
rightC(value:String;length:Integer;pad:String:=" ") return String;
087| function
rightC(value:CVar;length:Integer;pad:CFix:=CFix_Space) return CVar;
088| function
leftC(value:CFix;length:Integer;pad:CFix:=CFix_Space) return CFix;
089| function
leftC(value:String;length:Integer;pad:String:=" ") return String;
090| function
leftC(value:CVar;length:Integer;pad:CFix:=CFix_Space) return CVar;
091| function
centerC(value:CFix;length:Integer;pad:CFix:=CFix_Space) return CFix;
092| function
centerC(value:String;length:Integer;pad:String:=" ") return String;
093| function
centerC(value:CVar;length:Integer;pad:CFix:=CFix_Space) return CVar;
094| function
stripC(value:CFix;left:CFix:=CFix_Space;right:CFix:=CFix_Space)
return CFix ;
095| function
stripC(value:String;left:String:=" ";right:String:=" ") return
String ;
096| function
stripC(value:CVar;left:CFix:=CFix_Space;right:CFix:=CFix_Space)
return CVar;
097| function reverseC(s:CFix) return
CFix ;
098| function reverseC(s:CVar) return
CVar ;
099| function reverseC(s:String) return
String ;
100| end Y2018.Text.core.STR;