diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /dviware/epson/eps-0.2/lib/error.c |
Initial commit
Diffstat (limited to 'dviware/epson/eps-0.2/lib/error.c')
-rw-r--r-- | dviware/epson/eps-0.2/lib/error.c | 185 |
1 files changed, 185 insertions, 0 deletions
diff --git a/dviware/epson/eps-0.2/lib/error.c b/dviware/epson/eps-0.2/lib/error.c new file mode 100644 index 0000000000..bde9dfd674 --- /dev/null +++ b/dviware/epson/eps-0.2/lib/error.c @@ -0,0 +1,185 @@ +#include "PROTO.h" +/* + * Copyright (c) 1987, 1989 University of Maryland + * Department of Computer Science. All rights reserved. + * Permission to copy for any purpose is hereby granted + * so long as this copyright notice remains intact. + */ + +#ifndef lint +static char rcsid[] = "$Header: /usr/src/local/tex/local/mctex/lib/RCS/error.c,v 2.8 89/08/22 21:49:12 chris Exp $"; +#endif + +/* + * Print an error message with an optional system error number, and + * optionally quit. + * + * THIS CODE IS SYSTEM DEPENDENT UNLESS varargs WORKS WITH vprintf + * OR _doprnt. It should work properly under System V using vprintf. + * (If you have vprintf, define HAVE_VPRINTF in ../h/types.h.) + */ + +#include "types.h" /* for HAVE_VPRINTF */ +#include "error.h" +#include <stdio.h> +#include <stdarg.h> + +#if defined(lint) && !defined(LINT_ANYWAY) + +/* ARGSUSED */ +void SetErrorTrap(fn) void (*fn)(); {;} + +/* VARARGS3 ARGSUSED */ +void error(quit, e, fmt) int quit, e; char *fmt; {;} + +/* VARARGS1 ARGSUSED */ +void panic(fmt) char *fmt; { exit(1); /* NOTREACHED */ } + +#else lint + +extern char *ProgName; /* program name from argv[0] */ +extern int errno; /* Unix system-call error */ +extern char *sys_errlist[]; /* table of error number => string */ +extern int sys_nerr; /* size of table */ + +static FILE *trap_file; /* error diversion file, if any */ +static void (*trap_fn)(int, char*); /* trap function */ +static char *trap_buf; /* buffer for trapped error strings */ +static int trap_size; /* size of trap_buf */ + +/* extern char *malloc(), *realloc(); */ +#include <stdlib.h> + +/* + * Enable error trapping: register the function fn as the trapper. + * If fn is NULL, stop trapping. + */ +void +SetErrorTrap(void (*fn)(int, char*)) +{ + int tempfd; + char fname[BUFSIZ]; + + /* shut down any existing error trap */ + if (trap_file) { + (void) fclose(trap_file); + trap_file = NULL; + } + if ((trap_fn = fn) == NULL) + return; + /* begin trapping */ + if ((tempfd = MakeRWTempFile(fname)) < 0) + error(1, -1, "cannot create temporary file %s", fname); + if (trap_size == 0) { + trap_buf = (char*)malloc((unsigned)(trap_size = 1000)); + if (trap_buf == 0) + error(1, -1, + "cannot get space for error buffer"); + } + if ((trap_file = fdopen(tempfd, "r+")) == NULL) + error(1, -1, "cannot get stdio file for error trap"); +} + +/* + * Read a trapped error into trap_buf. + * Return a pointer to the (NUL-terminated) text. + * If something goes wrong, return something else printable. + */ +static char * +readback() +{ + int nbytes = ftell(trap_file) + 1; + + if (nbytes > trap_size) { + if (trap_buf == NULL) + trap_buf = (char*)malloc((unsigned)nbytes); + else + trap_buf = (char*)realloc(trap_buf, (unsigned)nbytes); + if (trap_buf == NULL) { + trap_size = 0; + return ("Ouch! Lost error text: out of memory?"); + } + } + rewind(trap_file); /* now can read */ + nbytes = fread(trap_buf, 1, nbytes, trap_file); + if (nbytes < 0) + return ("Ouch! Trouble reading error text!"); + trap_buf[nbytes] = 0; + return (trap_buf); +} + +/* + * Print an error message to the error output (either stderr, or + * if trapping errors, to the error trap file). We precede this + * with the program's name and an optional string (a0), then use + * the format and variable argument list, then append an optional + * Unix error string. Finally, if errors are being trapped, we + * pass the error text and the quit flag to the trap function. + * + * In the interest of `look and feel', if errors are being trapped, + * the program name is omitted. + */ +static void +verror(int quit, char* a0, char* fmt, va_list l, int e) +{ + register FILE *fp = trap_file; + + /* print to the trap file, if any, else stderr */ + if ((fp = trap_file) != NULL) + rewind(fp); /* now can write */ + else { + fp = stderr; + (void) fflush(fp); + } + if (trap_file == NULL) + (void) fprintf(fp, "%s: ", ProgName); + if (a0) + (void) fprintf(fp, "%s", a0); +#ifdef HAVE_VPRINTF + (void) vfprintf(fp, fmt, l); +#else + (void) _doprnt(fmt, l, fp); +#endif + if (e > 0) { + if (e < sys_nerr) + (void) fprintf(fp, ": %s", sys_errlist[e]); + else + (void) fprintf(fp, ": Unknown error code %d", e); + } + (void) putc('\n', fp); + (void) fflush(fp); + if (trap_file != NULL) + (*trap_fn)(quit, readback()); + if (quit) + exit(quit); +} + +/* + * Print an error message and optionally quit. + */ +void +error(int quit, int e, char* fmt, ...) +{ + va_list l; + + va_start(l, fmt); + verror(quit, (char *)NULL, fmt, l, e); + va_end(l); +} + +/* + * Panic (print to stderr and abort). + */ +void +panic(char* fmt, ...) +{ + va_list l; + + SetErrorTrap((void (*)(int,char*))NULL); /* shut down any trap */ + va_start(l, fmt); + verror(0, "panic: ", fmt, l, 0); + va_end(l); + abort(); +} + +#endif /* lint */ |