diff options
author | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-24 04:38:16 +0300 |
---|---|---|
committer | Robin Haberkorn <robin.haberkorn@googlemail.com> | 2024-11-24 04:51:34 +0300 |
commit | 23c90e37ff48707c4aabdb8b1460df382a600d7a (patch) | |
tree | 08547d899cc281ba2be0d96c785e64e7a4d04313 /lib/getopt.tes | |
parent | 26e54b9248ca8be07530fb19422082827ee1fead (diff) | |
download | sciteco-23c90e37ff48707c4aabdb8b1460df382a600d7a.tar.gz |
added special Q-Register ":" for accessing dot
* We cannot call it "." since that introduces a local register
and we don't want to add an unnecessary syntactic exception.
* Allows the idiom [: ... ]: to temporarily move around.
Also, you can now write ^E\: without having to store dot in a register first.
* In the future we might add an ^E register as well for byte offsets.
However, there are much fewer useful applications.
* Of course, you can now also write nU: instead of nJ, Q: instead of "." and
n%: instead of "nC.". However it's all not really useful.
Diffstat (limited to 'lib/getopt.tes')
-rw-r--r-- | lib/getopt.tes | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/lib/getopt.tes b/lib/getopt.tes index a2bcb31..46c813f 100644 --- a/lib/getopt.tes +++ b/lib/getopt.tes @@ -18,15 +18,14 @@ * there was a parsing error. *! [optstring] -@[getopt]{ - .U.d +@[getopt]{ [: < .-Z"= 1; ' 0A-^^-"N :L; F< ' 1A-^^-"= K 1; ' 0U.i < - :Q[optstring]-Q.i"= Q.dJ 0 ' + :Q[optstring]-Q.i"= ]: 0 ' Q.iQ[optstring]U.c 0U.#ar < @@ -48,5 +47,4 @@ ' > > - Q.dJ --1} +]: -1} |