ExMy

Debug listing example

001| with Y2018.Text.Core; use Y2018.Text.Core;
002| with Y2018.Text.Core.Str; use Y2018.Text.Core.Str;
003| with Y2018.Text.TestQ; use Y2018.Text.TestQ;
004| --with DSECT;
005| procedure ExMy is
006| __Qmap:CList.map;
007| begin
008| __Qinit("ExMy");
009| __Qappend(KALLE,"version Kalle");
010| __Qappend(FNATTE,"version Fnatte",Integer(1)); -- This version of ADA compiler cannot differentiate between Integer and Codepoint in a call
011| __Qappend(KNATTE,"version Knatte",1,2);
012| __Qappend(TJATTE,"version Tjatte",TRUE);
013| __Qappend(KNASE,"version Knase",25,"esanK");
014| __Qappend(KAJSA,"version Kajsa",35,36,"asjaK");
015| __Qappend("versionC Anka","No TAB"c);
016| __Qappend(KAJSA,"versionC Kajsa2",'_'c,"asjaK"c,2,10);
017| __Qappend(KAJSA,"versionC Kajsa3",'M'c); -- This works !
018|
019| __Insert(Qmap,"Kalle"); -- create contents for Qmap
020| __Insert(Qmap,"Fnatte"); -- create contents for Qmap
021| __Insert(Qmap,"Knatte"); -- create contents for Qmap
022| __Insert(Qmap,"Tjatte"); -- create contents for Qmap
023| __Insert(Qmap,"Knase"); -- create contents for Qmap
024| __Insert(Qmap,"Kajsa"); -- create contents for Qmap
025| __Insert(Qmap,"Bittan"); -- create contents for Qmap
026| __
027| __Qappend(KALLE,Qmap,"--- Top ---","--- Bottom ---","...");
028| end ExMy;

Result

Running export LD_LIBRARY_PATH=lib;bin/exmy in TEST directory.
Output in q____.lst file. TAB's at the beginning of a row in for listing purposes converted to underscores.

001| TIMESTAMP 2023-06-30 12:29:41.00
002| --------------------------------------------------
003| |                                  |
004| |            ExMy
005| |                                  |
006| --------------------------------------------------
007| version Kalle
008| __version Fnatte=1
009| _____version Knatte [1:2]
010| ________version Tjatte=TRUE
011| .] version Knase =25 :esanK
012| !] version Kajsa [35:36] asjaK
013| versionC Anka=No TAB
014| !] versionC Kajsa2=sjaK_____
015| !] versionC Kajsa3=M
016| --- Top ---
017| ...Kalle
018| ...Fnatte
019| ...Knatte
020| ...Tjatte
021| ...Knase
022| ...Kajsa
023| ...Bittan
024| --- Bottom ---