diff options
Diffstat (limited to 'lib/string.tes')
| -rw-r--r-- | lib/string.tes | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/lib/string.tes b/lib/string.tes index 2f29f4a..93568e1 100644 --- a/lib/string.tes +++ b/lib/string.tes @@ -1,7 +1,7 @@ ! String utility macros ! -! <pos1,pos2>M{symcasecmp} - Compare symbol at pos1 with symbol at pos2 (caseless) ! -@{symcasecmp}{ +! <pos1,pos2>M[symcasecmp] - Compare symbol at pos1 with symbol at pos2 (caseless) ! +@[symcasecmp]{ U.2U.1 -.%.1 -.%.2 @.#lo{ U.v Q.v"W a- A%.v | Q.v"CQ.v|0' ' @@ -12,8 +12,8 @@ Q.c } -! <i,j>M{exchange} - Exchange line at I with line at J (I < J), returning new J ! -@{exchange}{ +! <i,j>M[exchange] - Exchange line at I with line at J (I < J), returning new J ! +@[exchange]{ U.jU.i Q.jJ X.xK Q.iJ G.x .-Q.i%.j .-(X.xL.)%.j -K @@ -21,25 +21,25 @@ Q.j } -! <i,j>M{qsort} - Sort lines beginning at I until J using Quicksort algorithm ! -@{qsort}{ +! <i,j>M[qsort] - Sort lines beginning at I until J using Quicksort algorithm ! +@[qsort]{ U.rU.l Q.l-Q.r"< Q.lU.i Q.rJB .U.j < - Q.iJ <.,Q.rM{symcasecmp}-1; .-Q.r; L> .U.i - Q.jJ <.,Q.rM{symcasecmp}:; .-Q.l-1:; B> .U.j + Q.iJ <.,Q.rM[symcasecmp]-1; .-Q.r; L> .U.i + Q.jJ <.,Q.rM[symcasecmp]:; .-Q.l-1:; B> .U.j Q.i-Q.j; - Q.i,Q.jM{exchange}U.j + Q.i,Q.jM[exchange]U.j > - Q.i,Q.rM{symcasecmp}"> Q.i,Q.rM{exchange}U.r ' + Q.i,Q.rM[symcasecmp]"> Q.i,Q.rM[exchange]U.r ' - Q.l-Q.i"< Q.iJB Q.l,.M{qsort} ' - Q.i-Q.r"< Q.iJL .,Q.rM{qsort} ' + Q.l-Q.i"< Q.iJB Q.l,.M[qsort] ' + Q.i-Q.r"< Q.iJL .,Q.rM[qsort] ' ' } |