From 9425ad37ec95a40dc039169031259161c92cc217 Mon Sep 17 00:00:00 2001 From: Robin Haberkorn Date: Sun, 31 Aug 2025 02:24:11 +0300 Subject: support <:O>: if a label is not found, continue execution after the go-to statement * this is a SciTECO extension - it's not in TECO-11 * Allows for select-case-like constructs with default-clauses as in :Os.^EQa$ !* default *! !s.foo! !* ... *! !s.bar! !* ... *! * Consistent with nOlabel0,label1,...$ if is out of range. Unfortunately this form of computed goto is not applicable when "selecting" by strings or non-consecutive integers. * In order to continue after the <:O> statement, we must keep the program counter along with the label we were looking for. At the end of the macro, the PC is restored instead of throwing an error. * Since that would be very inefficient in loops - where potentially all iterations would result in rescanning till the end of the macro - we now store a completed-flag in the goto table. If it is set while trying to :O to an unknown label, we can just continue execution. --- tests/testsuite.at | 1 + 1 file changed, 1 insertion(+) (limited to 'tests') diff --git a/tests/testsuite.at b/tests/testsuite.at index 3cca113..0079c38 100644 --- a/tests/testsuite.at +++ b/tests/testsuite.at @@ -117,6 +117,7 @@ AT_CLEANUP AT_SETUP([Gotos and labels]) TE_CHECK([[@O//]], 1, ignore, ignore) TE_CHECK([[^^XUq @O/s.^EUq/ (0/0) !s.X!]], 0, ignore, ignore) +TE_CHECK([[:@O/foo/]], 0, ignore, ignore) TE_CHECK([[1@O/foo,bar/ (0/0) !bar!]], 0, ignore, ignore) # No-op gotos TE_CHECK([[-1@O/foo/ 1@O/foo/ @O/,foo/]], 0, ignore, ignore) -- cgit v1.2.3