From 23c90e37ff48707c4aabdb8b1460df382a600d7a Mon Sep 17 00:00:00 2001 From: Robin Haberkorn Date: Sun, 24 Nov 2024 04:38:16 +0300 Subject: 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. --- lib/getopt.tes | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) (limited to 'lib/getopt.tes') 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} -- cgit v1.2.3