BSD 4 release

[unix-history] / usr / src / lib / libpc / ERROR.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)ERROR.c 1.1 10/29/80";

#include        "stdio.h"
#include        "signal.h"
#include        "h01errs.h"

/*
* Routine ERROR is called from the runtime library when a runtime error
* occurs. Its arguments are the internal number of the error which occurred,
* and an error specific piece of error data. The error file is constructed
* from errdata by the makefile using the editor script make.ed1.
*/
ERROR(errnum, errdata)

       long            errnum;
       union cvt {
               long    longdat;
               char    *strngdat;
               double  dbldat;
       } errdata;
{
       PFLUSH();
       fputc('\n',stderr);
       SETRACE();
       switch (errnum) {
       case ECHR:
               fprintf(stderr, "Argument to chr of %d is out of range\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case EHALT:
               fputs("Call to procedure halt\n",stderr);
               PCEXIT(0);
       case ENILPTR:
               fputs("Pointer value out of legal range\n",stderr);
               return(0);
       case EPASTEOF:
               fprintf(stderr,"%s: Tried to read past end of file\n"
                       ,errdata.strngdat);
               return(0);
       case EREADIT:
               fprintf(stderr,"%s: Attempt to read, but open for writing\n"
                       ,errdata.strngdat);
               return(0);
       case EWRITEIT:
               fprintf(stderr,"%s: Attempt to write, but open for reading\n"
                       ,errdata.strngdat);
               return(0);
       case ECLOSE:
               fprintf(stderr,"%s: Close failed\n",errdata.strngdat);
               return(0);
       case ELLIMIT:
               fprintf(stderr,"%s: Line limit exceeded\n",errdata.strngdat);
               return(0);
       case ESQRT:
               fprintf(stderr,"Negative argument of %E to sqrt\n"
                       ,errdata.dbldat);
               return(errdata.dbldat);
       case EREFINAF:
               fprintf(stderr,"%s: ",errdata.strngdat);
       case ENOFILE:
               fputs("Reference to an inactive file\n",stderr);
               return(0);
       case EWRITE:
               fputs("Could not write to ",stderr);
               perror(errdata.strngdat);
               return(0);
       case EOPEN:
               fputs("Could not open ",stderr);
               perror(errdata.strngdat);
               return(0);
       case ECREATE:
               fputs("Could not create ",stderr);
               perror(errdata.strngdat);
               return(0);
       case EREMOVE:
               fputs("Could not remove ",stderr);
               perror(errdata.strngdat);
               return(0);
       case ESEEK:
               fputs("Could not reset ",stderr);
               perror(errdata.strngdat);
               return(0);
       case ENAMESIZE:
               fprintf(stderr,"%s: File name too long\n",errdata.strngdat);
               return(0);
       case ELN:
               fprintf(stderr,"Non-positive argument of %E to ln\n"
                       ,errdata.dbldat);
               return(errdata.dbldat);
       case EBADINUM:
               fprintf(stderr,"%s: Bad data found on integer read\n"
                       ,errdata.strngdat);
               return(0);
       case EBADFNUM:
               fprintf(stderr,"%s: Bad data found on real read\n"
                       ,errdata.strngdat);
               return(0);
       case ENUMNTFD:
               fprintf(stderr,
                       "Unknown name \"%s\" found on enumerated type read\n",
                       errdata.strngdat);
               return(0);
       case ENAMRNG:
               fprintf(stderr,
                       "Enumerated type value of %d is out of range on output\n",
                       errdata.longdat);
               return(errdata.longdat);
       case EFMTSIZE:
               fprintf(stderr,"Negative format width: %d\n",errdata.longdat);
               return(0);
       case EGOTO:
               fputs("Active frame not found in non-local goto\n", stderr);
               return(0);
       case ECASE:
               fprintf(stderr,"Label of %d not found in case\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case EOUTOFMEM:
               fputs("Ran out of memory\n",stderr);
               return(0);
       case ECTLWR:
               fprintf(stderr, "Range lower bound of %d out of set bounds\n",
                       errdata.longdat);
               return(0);
       case ECTUPR:
               fprintf(stderr, "Range upper bound of %d out of set bounds\n",
                       errdata.longdat);
               return(0);
       case ECTSNG:
               fprintf(stderr, "Value of %d out of set bounds\n",
                       errdata.longdat);
               return(0);
       case ENARGS:
               if (errdata.longdat < 0)
                       fprintf(stderr,
                               "There were %d too few arguments to formal routine\n",
                               -errdata.longdat);
               else
                       fprintf(stderr,
                               "There were %d too many arguments to formal routine\n",
                               errdata.longdat);
               return(0);
       case EARGV:
               fprintf(stderr,"Argument to argv of %d is out of range\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case EPACK:
               fprintf(stderr,"i = %d: Bad i to pack(a,i,z)\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case EUNPACK:
               fprintf(stderr,"i = %d: Bad i to unpack(z,a,i)\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case ERANGE:
               fprintf(stderr,"Value of %d is out of range\n",errdata.longdat);
               return(errdata.longdat);
       case ESUBSC:
               fprintf(stderr,"Subscript value of %d is out of range\n"
                       ,errdata.longdat);
               return(errdata.longdat);
       case EASRT:
               fprintf(stderr,"Assertion failed: %s\n",errdata.strngdat);
               return(0);
       case ESTLIM:
               fprintf(stderr,
                       "Statement count limit exceeded, %d statements executed\n",
                       errdata.longdat);
               return(errdata.longdat);
       default:
               fputs("Panic: unknown error\n",stderr);
               return(0);
       }
}