Top Prev Next Up Down
Y2018.Text.TestQ
001| with
Ada.Text_IO; use Ada.Text_IO;
002| with Y2018.Text.Core; use
Y2018.Text.Core;
003| with Y2018.Text.Core.Str;
004| package Y2018.Text.TestQ is
005| type ANKA is
(KALLE,KNATTE,TJATTE,FNATTE,KAJSA,KNASE,BITTAN);
006| procedure Qinit(s:String);
007| procedure QBlock(s:String);
008| procedure Qappend(s:String);
009| procedure
Qappend(a:ANKA;s:String);
010| procedure
Qappend(s:String;i1:Integer);
011| procedure
Qappend(a:ANKA;s:String;i1:Integer);
012| procedure
Qappend(s:String;i1:Integer;i2:Integer);
013| procedure
Qappend(a:ANKA;s:String;i1:Integer;i2:Integer);
014| procedure
Qappend(s:String;b:Boolean);
015| procedure
Qappend(a:ANKA;s:String;b:Boolean);
016| procedure
Qappend(s:String;i1:Integer;s1:String);
017| procedure
Qappend(a:ANKA;s:String;i1:Integer;s1:String);
018| procedure
Qappend(s:String;i1:Integer;i2:Integer;s2:String);
019| procedure
Qappend(a:ANKA;s:String;i1:Integer;i2:Integer;s2:String);
020| procedure
Qappend(s:String;wws:CFix);
021| procedure
Qappend(a:ANKA;s:String;wws:CFix);
022| procedure
Qappend(s:String;c:CodePoint;wws:CFix;f:Integer;l:Integer);
023| procedure
Qappend(a:ANKA;s:String;c:CodePoint;wws:CFix;f:Integer;l:Integer);
024| procedure
Qappend(s:String;c:CodePoint);
025| procedure
Qappend(a:ANKA;s:String;c:CodePoint);
026| procedure Qappend(map:in out
Y2018.Text.Core.Str.Clist.Map;startRow:String:="";endRow:String:="";rowPrefix:String:="";keep:Boolean:=FALSE);
027| procedure Qappend(a:ANKA;map:in
out
Y2018.Text.Core.Str.Clist.Map;startRow:String:="";endRow:String:="";rowPrefix:String:="";keep:Boolean:=FALSE);
028| __--=====--
029| __-- ALT --
030| __--=====--
031| procedure Qappend_alt(s:String);
032| procedure
Qappend_alt(a:ANKA;s:String);
033| procedure
Qappend_alt(s:String;i1:Integer);
034| procedure
Qappend_alt(a:ANKA;s:String;i1:Integer);
035| procedure
Qappend_alt(s:String;i1:Integer;i2:Integer);
036| procedure
Qappend_alt(a:ANKA;s:String;i1:Integer;i2:Integer);
037| procedure
Qappend_alt(s:String;b:Boolean);
038| procedure
Qappend_alt(a:ANKA;s:String;b:Boolean);
039| procedure
Qappend_alt(s:String;i1:Integer;s1:String);
040| procedure
Qappend_alt(a:ANKA;s:String;i1:Integer;s1:String);
041| procedure
Qappend_alt(s:String;i1:Integer;i2:Integer;s2:String);
042| procedure
Qappend_alt(a:ANKA;s:String;i1:Integer;i2:Integer;s2:String);
043| procedure
Qappend_alt(s:String;wws:CFix);
044| procedure
Qappend_alt(a:ANKA;s:String;wws:CFix);
045| procedure
Qappend_alt(s:String;c:CodePoint;wws:CFix;f:Integer;l:Integer);
046| procedure
Qappend_alt(a:ANKA;s:String;c:CodePoint;wws:CFix;f:Integer;l:Integer);
047| procedure
Qappend_alt(s:String;c:CodePoint);
048| procedure
Qappend_alt(a:ANKA;s:String;c:CodePoint);
049| procedure Qappend_alt(map:in out
Y2018.Text.Core.Str.Clist.Map;startRow:String:="";endRow:String:="";rowPrefix:String:="";keep:Boolean:=FALSE);
050| procedure
Qappend_alt(a:ANKA;map:in out
Y2018.Text.Core.Str.Clist.Map;startRow:String:="";endRow:String:="";rowPrefix:String:="";keep:Boolean:=FALSE);
051| end Y2018.Text.TestQ;