diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/fnkeys.tes | 22 | ||||
| -rw-r--r-- | lib/string.tes | 24 |
2 files changed, 23 insertions, 23 deletions
diff --git a/lib/fnkeys.tes b/lib/fnkeys.tes index fb7678c..c40be40 100644 --- a/lib/fnkeys.tes +++ b/lib/fnkeys.tes @@ -15,14 +15,14 @@ } ! Function key macros ! -@{DC}{} -@{HOME}{(-(.-(0L.))M#c} -@{END}{(-(.-(:L"S.-1|Z'))M#c} -@{NPAGE}{(-(.-(M#p.))M#c} -@{PPAGE}{(-(.-(-M#p.))M#c} -@{LEFT}{(-M#c} -@{SLEFT}{(-(.--W.)M#c} -@{RIGHT}{(M#c} -@{SRIGHT}{(-(.-W.)M#c} -@{UP}{(-(.-B.)M#c} -@{DOWN}{(-(.-L.)M#c} +@[DC]{} +@[HOME]{(-(.-(0L.))M#c} +@[END]{(-(.-(:L"S.-1|Z'))M#c} +@[NPAGE]{(-(.-(M#p.))M#c} +@[PPAGE]{(-(.-(-M#p.))M#c} +@[LEFT]{(-M#c} +@[SLEFT]{(-(.--W.)M#c} +@[RIGHT]{(M#c} +@[SRIGHT]{(-(.-W.)M#c} +@[UP]{(-(.-B.)M#c} +@[DOWN]{(-(.-L.)M#c} 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] ' ' } |