diff options
author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2014-11-02 00:06:28 +0100 |
---|---|---|
committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2014-11-02 00:06:28 +0100 |
commit | a395c9df173b53e095f1a20d6bc583063cdb60c7 (patch) | |
tree | bbfc9911b5ad561f0d35c6bf475520a4c492eb55 /lib/string.tes | |
parent | 06d0bac8006889749fbf03efd5200ae68818b576 (diff) | |
download | sciteco-a395c9df173b53e095f1a20d6bc583063cdb60c7.tar.gz |
changed syntax for long Q-Register names: use [] brackets instead of {}
this breaks many existing scripts, and means you may have to rebuild SciTECO
with ./configure --enable-bootstrap
The syntax of SciTECO might change in backwards-incompatible until
version 1.0 is released.
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] ' ' } |