home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / tbl / te.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  1.0 KB  |  68 lines
  1.  /* te.c: error message control, input line count */
  2. # include "t..c"
  3. error(s)
  4.     char *s;
  5. {
  6. fprintf(stderr, "\n%s: line %d: %s\n", ifile, iline, s);
  7. # ifdef unix
  8. fprintf(stderr, "tbl quits\n");
  9. exit(1);
  10. # endif
  11. # ifdef gcos
  12. fprintf(stderr, "run terminated due to error condition detected by tbl preprocessor\n");
  13. exit(0);
  14. # endif
  15. }
  16. gets1(s)
  17.     char *s;
  18. {
  19. char *p;
  20. int nbl = 0;
  21. iline++;
  22. p=fgets(s,512,tabin);
  23. while (p==0)
  24.     {
  25.     if (swapin()==0)
  26.         return(0);
  27.     p = fgets(s,512,tabin);
  28.     }
  29.  
  30. while (*s) s++;
  31. s--;
  32. if (*s == '\n') *s-- =0;
  33. for(nbl=0; *s == '\\' && s>p; s--)
  34.     nbl++;
  35. if (linstart && nbl % 2) /* fold escaped nl if in table */
  36.     gets1(s+1);
  37.  
  38. return(p);
  39. }
  40. # define BACKMAX 500
  41. char backup[BACKMAX];
  42. char *backp = backup;
  43. un1getc(c)
  44. {
  45. if (c=='\n')
  46.     iline--;
  47. *backp++ = c;
  48. if (backp >= backup+BACKMAX)
  49.     error("too much backup");
  50. }
  51. get1char()
  52. {
  53. int c;
  54. if (backp>backup)
  55.     c = *--backp;
  56. else
  57.     c=getc(tabin);
  58. if (c== EOF) /* EOF */
  59.     {
  60.     if (swapin() ==0)
  61.         error("unexpected EOF");
  62.     c = getc(tabin);
  63.     }
  64. if (c== '\n')
  65.     iline++;
  66. return(c);
  67. }
  68.