5 kx
5 kx #include <stdlib.h>
5 kx #include <stdio.h>
5 kx
5 kx extern char *pname;
5 kx
5 kx int err_quit(str)
5 kx char *str;
5 kx {
5 kx fprintf(stderr,"%s: %s\n",pname,str);
5 kx exit(1);
5 kx }
5 kx int err_sys(str)
5 kx char *str;
5 kx {
5 kx perror(pname);
5 kx fprintf(stderr,"\t%s\n",str);
5 kx exit(2);
5 kx }
5 kx int err_ret(str)
5 kx char *str;
5 kx {
5 kx fprintf(stderr,"%s: %s\n",pname,str);
5 kx return 0;
5 kx }