except
if (except(name))
if (except(target))
except = bp = NULL;
except = bp = expand(makeblock(NAME, cp),
if (except(target))
FICL_PLATFORM_EXTERN void ficlVmThrow(ficlVm *vm, int except);
int except = FICL_VM_STATUS_OUT_OF_TEXT;
except = ficlVmExecuteString(vm, s);
if ((except < 0) && (except != FICL_VM_STATUS_OUT_OF_TEXT))
ficlVmThrow(vm, except);
int except;
except = setjmp(vmState);
switch (except) {
ficlStackPushInteger(vm->dataStack, except); /* Push error */
int except;
except = ficlStackPopInteger(vm->dataStack);
if (except)
ficlVmThrow(vm, except);
ficlVmThrow(ficlVm *vm, int except)
longjmp(*(vm->exceptionHandler), except);
int except;
except = setjmp(vmState);
switch (except) {
except = FICL_VM_STATUS_OUT_OF_TEXT;
return (except);
int except;
except = setjmp(vmState);
if (except)
switch (except) {
int except;
ficlVmThrow(vm, except);
return (except);
except = setjmp(exceptionHandler);
if (except) {
ficlVmThrow(vm, except);
strecpy(char *pout, const char *pin, const char *except)
(void) streadd(pout, pin, except);
streadd(char *pout, const char *pin, const char *except)
if (!isprint(c) && (!except || !strchr(except, c))) {
if (c == '\\' && (!except || !strchr(except, c)))
strecpy(char *pout, char *pin, char *except)
if (!isprint(c) && (!except || !strchr(except, c))) {
if (c == '\\' && (!except || !strchr(except, c)))