home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume2 / basic / part3 / bs2 / errors.c < prev    next >
Encoding:
C/C++ Source or Header  |  1986-11-30  |  1.5 KB  |  83 lines
  1. /* errors.c -- error message routines for int.
  2.  */
  3.  
  4. #include "bsdefs.h"
  5.  
  6.  
  7. /* ULerror() -- unknown line (cannot find wanted line)
  8.  */
  9. ULerror(l,p) int(*l[])(),p;
  10. {
  11.     fprintf(stderr,"Unknown line %d\n",*(l[p]));
  12.     exit(1);
  13. }
  14.  
  15. /* STerror() -- wrong value for status variable
  16.  */
  17. STerror(f) char *f;
  18. {
  19.     fprintf(stderr,"%s: illegal status %o\n",f,status);
  20.     exit(1);
  21. }
  22. /* FNerror() -- For Next error
  23.  */
  24. FNerror(l,p)
  25. int (*l[])(),p;
  26. {
  27.     struct dictnode *nv;
  28.     struct line *ll;
  29.  
  30.     ll = gllentry(l);
  31.     nv = l[p-2];
  32.     fprintf(stderr,"Next %s, For (something else), at line %u\n",
  33.     nv->name,ll->num);
  34.     exit(1);
  35. }
  36.  
  37. ODerror(l,p)
  38. int (*l[])(),p;
  39. {
  40.     struct line *ll;
  41.     char *s;
  42.     ll = gllentry(l);
  43.     s = ((struct dictnode *)l[p])->name;
  44.     fprintf(stderr,"Out of Data in line %u at var %s\b",ll->num,s);
  45.     exit(1);
  46. }
  47.  
  48. BDerror(l,p)
  49. int (*l[])(),p;
  50. {
  51.     struct line *ll;
  52.     char *s;
  53.     ll = gllentry(l);
  54.     s = ((struct dictnode *)l[p])->name;
  55.     fprintf(stderr,"Bad Data type in line %u at var %s\n",ll->num,s);
  56.     exit(1);
  57. }
  58.  
  59. VTerror(l,p)
  60. int (*l[])(),p;
  61. {
  62.     struct dictnode *vp;
  63.     vp = (struct dictnode *)l[p];
  64.     fprintf(stderr,"Invalid data type %d for var %s\n",vp->type_of_value,vp->name);
  65.     exit(1);
  66. }
  67.  
  68. LVerror(l,p) int(*l[])(),p;
  69. {
  70.     struct line *ll;
  71.     ll = gllentry(l);
  72.     fprintf(stderr,"Tried to leave while not in a loop, at line %u\n",ll->num);
  73.     exit(1);
  74. }
  75.  
  76. CNerror(l,p) int(*l[])(),p;
  77. {
  78.     struct line *ll;
  79.     ll = gllentry(l);
  80.     fprintf(stderr,"Tried to continue while not in a loop, at line %u\n",ll->num);
  81.     exit(1);
  82. }
  83.