#include "defs.h" msg(s) STRING s; { print("%E%s", s); } errmsg(s1, s2) STRING s1, s2; { print("%E%s", "%"); print("%E%s", filename); if(reading) { print("%E(%.4d)", linepos(standin)); } else{ print("%E%s", " "); if(c_chip) { print("%E%s", c_chip->c_tag->tc); if(c_chip->c_type) { print("%E(%s)", c_type->tc); } } } print("%E%32t%s", s1); if(s2) { print("%E %s", s2); } } /* * errmsg with one item of text to print */ bad(s) STRING s; { errmsg(s, nil(STRING)); errjmp(); } errjmp() { badflg++; longjmp(badline,1); }