tbl/te.c

   1 /* te.c: error message control, input line count */
   2 #include <string.h>
   3 #include "t.h"
   4
   5 void error(char *s)
   6 {
   7         fprintf(stderr, "\n%s:%d: %s\n", ifile, iline, s);
   8         fprintf(stderr, "tbl quits\n");
   9         exit(1);
  10 }
  11
  12 char *gets1(char *s, int size)
  13 {
  14         char *ns;
  15         int nbl;
  16
  17         iline++;
  18         ns = s;
  19         if (!fgets(s, size, tabin)) {
  20                 if (swapin() == 0)
  21                         return 0;
  22         }
  23         nbl = strlen(s);
  24         s[nbl - 1] = '\0';      /* remove the newline */
  25         s += nbl - 1;
  26         for (nbl = 0; *s == '\\' && s > ns; s--)
  27                 nbl++;
  28         if (linstart && nbl % 2)        /* fold escaped nl if in table */
  29                 gets1(s + 1, size - (s - ns));
  30
  31         return s;
  32 }
  33
  34
  35 #define BACKMAX         500
  36 char    backup[BACKMAX];
  37 char    *backp = backup;
  38
  39 void un1getc(int c)
  40 {
  41         if (c == '\n')
  42                 iline--;
  43         *backp++ = c;
  44         if (backp >= backup + BACKMAX)
  45                 error("too much backup");
  46 }
  47
  48
  49 int get1char(void)
  50 {
  51         int     c;
  52         if (backp > backup)
  53                 c = *--backp;
  54         else
  55                 c = fgetc(tabin);
  56         if (c == EOF) {
  57                 if (swapin() == 0)
  58                         error("unexpected EOF");
  59                 c = fgetc(tabin);
  60         }
  61         if (c == '\n')
  62                 iline++;
  63         return c;
  64 }