aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib/string.tes
diff options
context:
space:
mode:
authorRobin Haberkorn <robin.haberkorn@googlemail.com>2014-11-02 00:06:28 +0100
committerRobin Haberkorn <robin.haberkorn@googlemail.com>2014-11-02 00:06:28 +0100
commita395c9df173b53e095f1a20d6bc583063cdb60c7 (patch)
treebbfc9911b5ad561f0d35c6bf475520a4c492eb55 /lib/string.tes
parent06d0bac8006889749fbf03efd5200ae68818b576 (diff)
downloadsciteco-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.tes24
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] '
'
}