src/basesuif/snoot/error.cc

   1 /* file "error.cc" */
   2
   3 /*  Copyright (c) 1994 Stanford University
   4
   5     All rights reserved.
   6
   7     This software is provided under the terms described in
   8     the "suif_copyright.h" include file. */
   9
  10 #include <suif_copyright.h>
  11
  12 /* snoot error reporting */
  13
  14 #include "c.h"
  15
  16 int errcnt;             /* number of compilation errors */
  17 int errlimit = 20;      /* compilation error limit */
  18 boolean wflag;          /* TRUE to suppress warning messages */
  19
  20 static void printtoken(void);
  21
  22 /* error - issue error message */
  23 void error(const char *fmt, ...)
  24   {
  25     va_list ap;
  26
  27     va_start(ap, fmt);
  28     if ((firstfile != file) && (firstfile != NULL) && (*firstfile != 0))
  29         fprint(stderr, "%s: ", firstfile);
  30     fprint(stderr, "%w: ", &src);
  31     vfprint(stderr, fmt, ap);
  32     if (++errcnt >= errlimit)
  33       {
  34         errcnt = -1;
  35         error("too many errors\n");
  36         exit(1);
  37       }
  38     va_end(ap);
  39   }
  40
  41 /* expect - advance if t is tok, otherwise issue message */
  42 int expect(int tok)
  43   {
  44     if (t == tok)
  45       {
  46         t = gettok();
  47         return t;
  48       }
  49     errcnt--;
  50     error("syntax error; found");
  51     printtoken();
  52     fprint(stderr, " expecting `%k'\n", tok);
  53     errcnt++;
  54     return 0;
  55   }
  56
  57 /* fatal - issue fatal error message and exit */
  58 int fatal(const char *name, const char *fmt, int n)
  59   {
  60     fputc('\n', stdout);
  61     outflush();
  62     error("compiler error in %s--", name);
  63     fprint(stderr, fmt, n);
  64     exit(1);
  65     return 0;
  66   }
  67
  68 /* printtoken - print current token preceeded by a space */
  69 static void printtoken(void)
  70   {
  71     switch (t)
  72       {
  73         case ID:
  74             fprint(stderr, " `%s'", token); break;
  75         case ICON:
  76             if (*token == '\'')
  77               {
  78                 char *s;
  79         case SCON:
  80                 fprint(stderr, " ");
  81                 for (s = token; (*s != 0) && (s - token < 20); s++)
  82                   {
  83                     if (*s < ' ' || *s >= 0177)
  84                         fprint(stderr, "\\%o", *s);
  85                     else
  86                         fprint(stderr, "%c", *s);
  87                   }
  88                 if (*s != 0)
  89                     fprint(stderr, " ...");
  90                 else
  91                     fprint(stderr, "%c", *token);
  92                 break;
  93               } /* else fall through */
  94         case FCON:
  95           {
  96             char c = *cp;
  97             *cp = 0;
  98             fprint(stderr, " `%s'", token);
  99             *cp = c;
 100             break;
 101           }
 102         case '`':
 103         case '\'':
 104             fprint(stderr, " \"%k\"", t);
 105             break;
 106         default:
 107             fprint(stderr, " `%k'", t);
 108       }
 109   }
 110
 111 /* skipto - skip input up to tok U set, for a token where kind[t] is in set */
 112 void skipto(int tok, char set[])
 113   {
 114     int n;
 115     char *s;
 116
 117     for (n = 0; (t != EOI) && (t != tok); t = gettok())
 118       {
 119         if (set)
 120           {
 121             for (s = set; (*s != 0) && (kind[t] != *s); s++)
 122                 ;
 123             if (kind[t] == *s)
 124                 break;
 125           }
 126         if (n++ == 0)
 127           {
 128             errcnt--;
 129             error("skipping", 0, 0, 0, 0);
 130           }
 131         if (n <= 8)
 132             printtoken();
 133         else if (n == 9)
 134             fprint(stderr, " ...\n");
 135       }
 136     if (n > 8)
 137       {
 138         errcnt--;
 139         error("up to", 0, 0, 0, 0);
 140         printtoken();
 141       }
 142     if (n > 0)
 143         fprint(stderr, "\n");
 144   }
 145
 146 /* test - check for token tok, skip to tok U set, if necessary */
 147 void test(int tok, char set[])
 148   {
 149     if (t == tok)
 150       {
 151         t = gettok();
 152       }
 153     else
 154       {
 155         expect(tok);
 156         skipto(tok, set);
 157         if (t == tok)
 158             t = gettok();
 159       }
 160   }
 161
 162 /* warning - issue warning error message */
 163 void warning(const char *fmt, ...)
 164   {
 165     va_list ap;
 166
 167     va_start(ap, fmt);
 168     if (!wflag)
 169       {
 170         errcnt--;    /* compensate for increment in error */
 171         error("warning: ");
 172         vfprint(stderr, fmt, ap);
 173       }
 174     va_end(ap);
 175   }