#include "lib9.h"#include "dat.h"#include "fns.h"#include "interp.h"#include "kernel.h" voiderror(char *s){	kwerrstr(s);	nexterror();} voidkgerrstr(char *s){	strecpy(s, s+ERRMAX, up->env->error);} voidkwerrstr(char *fmt, ...){	va_list arg; 	va_start(arg, fmt);	vsnprint(up->env->error, ERRMAX, fmt, arg);	va_end(arg);} voidkerrstr(char *s){	char t[ERRMAX]; 	memmove(t, s, ERRMAX);	memmove(s, up->env->error, ERRMAX);	memmove(up->env->error, t, ERRMAX);} Proc*newproc(void){	Proc *p; 	p = malloc(sizeof(Proc));	if(p == nil)		return nil; 	p->type = Unknown;	p->env = &p->defenv;	addprog(p); 	return p;} voidnexterror(void){	if(up->nerr-- <= 0)		panic("error stack underflow");	oslongjmp(nil, &up->estack[up->nerr], 1);} voidpanic(char *fmt, ...){	char buf[1024];	va_list arg; 	va_start(arg, fmt);	vsnprint(buf, sizeof buf, fmt, arg);	va_end(arg); notify(0);	fprint(2, "panic: %s\n", buf);	abort();} voidpoperror(void){	if(up->nerr-- <= 0)		panic("error stack underflow");} char*syserr(char *s, char *es, Prog *p){	Osenv *o; 	o = p->osenv;	strncpy(s, o->error, es - s);	return s + strlen(o->error);} Jmp*_waserror(void){	if(up->nerr++ > nelem(up->estack))		panic("error stack overflow");	return &up->estack[up->nerr-1];}