From 2325713c2f574aa08b5ad1bb91a3e4ee30b6b0b5 Mon Sep 17 00:00:00 2001 From: Drazen Borkovic Date: Sat, 26 Aug 2017 16:19:50 -0700 Subject: Add "continue" builtin --- except.c | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) (limited to 'except.c') diff --git a/except.c b/except.c index 37696c4..aeb1da9 100644 --- a/except.c +++ b/except.c @@ -22,13 +22,14 @@ extern void except(ecodes e, Edata data, Estack *ex) { estack = ex; estack->e = e; estack->data = data; - if (e == eError || e == eBreak || e == eReturn) + if (e == eError || e == eBreak || e == eReturn || e == eContinue) estack->interactive = interactive; } /* remove an exception, restore last interactive value */ -extern void unexcept() { +extern void unexcept(ecodes e) { + assert(e == estack->e); switch (estack->e) { default: break; @@ -66,8 +67,10 @@ extern void rc_raise(ecodes e) { exit(1); /* child processes exit on an error/signal */ for (; estack != NULL; estack = estack->prev) if (estack->e != e) { - if (e == eBreak && estack->e != eArena && estack->e != eVarstack) + if (e == eBreak && (estack->e != eArena && estack->e != eVarstack && estack->e != eContinue)) rc_error("break outside of loop"); + else if (e == eContinue && (estack->e != eVarstack)) + rc_error("continue outside of loop"); else if (e == eReturn && estack->e == eError) /* can return from loops inside functions */ rc_error("return outside of function"); switch (estack->e) { -- cgit v1.2.3