Top Prev Next Up Down
Y2018.Text.Core.CVarPack
001| with
Ada.Finalization; use Ada.Finalization;
002| package Y2018.Text.Core.CVarPack
is
003| __type CVar is private;
004| __Type CFix_AC is access all CFix;
005| __Null_CVar : constant CVar; --
NUW
006| __procedure Free (X : in out
CFix_AC);
007| __function Length (Source : CVar)
return Natural;
008| __function
"&"(Left:CFix;Right:CVar) return CFix ; -- [02] CVarÅ
009| __function
"&"(Left:CVar;Right:CFix) return CVar ; -- [04] CvarÅ
010| __function
"&"(Left:CVar;Right:CVar) return CVar ; -- [05] CVarÅ
011| __function
"&"(Left:CVar;Right:CodePoint) return CVar ; -- [10] CVarÅ
012| __function
"&"(Left:CodePoint;Right:CVar) return CFix ; -- [14] CVarÅ
013| __function "<" (Left : CVar;
Right : CVar) return Boolean;
014| __function "<" (Left : CVar;
Right : CFix) return Boolean;
015| __function "<" (Left : CFix;
Right : CVar) return Boolean;
016| __function "<=" (Left : CVar;
Right : CVar) return Boolean;
017| __function "<=" (Left : CVar;
Right : CFix) return Boolean;
018| __function "<=" (Left : CFix;
Right : CVar) return Boolean;
019| __function "=" (Left : CVar; Right
: CVar) return Boolean;
020| __function "=" (Left : CVar; Right
: CFix) return Boolean;
021| __function "=" (Left : CFix; Right
: CVar) return Boolean;
022| __function ">" (Left : CVar;
Right : CVar) return Boolean;
023| __function ">" (Left : CVar;
Right : CFix) return Boolean;
024| __function ">" (Left : CFix;
Right : CVar) return Boolean;
025| __function ">=" (Left : CVar;
Right : CVar) return Boolean;
026| __function ">=" (Left : CVar;
Right : CFix) return Boolean;
027| __function ">=" (Left : CFix;
Right : CVar) return Boolean;
028| __function To_CVar (Source : CFix)
return CVar;
029| __function To_CVar (Source :
String) return CVar;
030| __function To_CFix (Source : CVar)
return CFix;
031| __function To_String (Source :
CVar) return String;
032| private
033| __pragma Inline (Length);
034| __package AF renames
Ada.Finalization;
035| __Null_CFixA : aliased CFix :=
Null_CFix;
036| __type CVar is new AF.Controlled
with record
037| _____Reference : CFix_AC:=
Null_CFixA'Access;
038| _____Last : Natural:= 0;
039| __end record;
040| __pragma Finalize_Storage_Only
(CVar);
041| __procedure Initialize (Object :
in out CVar);
042| __procedure Adjust (Object : in
out CVar);
043| __procedure Finalize (Object : in
out CVar);
044| __Null_CVar : constant CVar
:=(AF.Controlled with Reference =>Null_CFixA'Access,Last =>
0);
045| end Y2018.Text.Core.CVarPack;