mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
4 lines
409 B
4 lines
409 B
/nl{currentpoint exch pop 100 exch 10 sub moveto}def errordict begin
|
|
/handleerror{showpage 100 720 moveto/Courier-Bold findfont 10 scalefont setfont
|
|
(ERROR: )show errordict begin $error begin errorname =string cvs show nl(OFFENDING COMMAND: )show/command load =string cvs show nl nl(OPERAND STACK: )show $error/ostack known{ostack aload length{=string cvs nl show}repeat}if end
|
|
end showpage stop}bind def end
|