home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / tbl / t1.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  1.7 KB  |  106 lines
  1.  /* t1.c: main control and input switching */
  2. #
  3. # include "t..c"
  4. #include <signal.h>
  5. # ifdef gcos
  6. /* required by GCOS because file is passed to "tbl" by troff preprocessor */
  7. # define _f1 _f
  8. extern FILE *_f[];
  9. # endif
  10.  
  11. # ifdef unix
  12. # define MACROS "/usr/lib/tmac.s"
  13. # define PYMACS "/usr/lib/tmac.m"
  14. # endif
  15.  
  16. # ifdef gcos
  17. # define MACROS "cc/troff/smac"
  18. # define PYMACS "cc/troff/mmac"
  19. # endif
  20.  
  21. # define ever (;;)
  22.  
  23. main(argc,argv)
  24.     char *argv[];
  25. {
  26. # ifdef unix
  27. int badsig();
  28. signal(SIGPIPE, badsig);
  29. # endif
  30. # ifdef gcos
  31. if(!intss()) tabout = fopen("qq", "w"); /* default media code is type 5 */
  32. # endif
  33. exit(tbl(argc,argv));
  34. }
  35.  
  36.  
  37. tbl(argc,argv)
  38.     char *argv[];
  39. {
  40. char line[512];
  41. /* required by GCOS because "stdout" is set by troff preprocessor */
  42. tabin=stdin; tabout=stdout;
  43. setinp(argc,argv);
  44. while (gets1(line))
  45.     {
  46.     fprintf(tabout, "%s\n",line);
  47.     if (prefix(".TS", line))
  48.         tableput();
  49.     }
  50. fclose(tabin);
  51. return(0);
  52. }
  53. int sargc;
  54. char **sargv;
  55. setinp(argc,argv)
  56.     char **argv;
  57. {
  58.     sargc = argc;
  59.     sargv = argv;
  60.     sargc--; sargv++;
  61.     if (sargc>0)
  62.         swapin();
  63. }
  64. swapin()
  65. {
  66.     while (sargc>0 && **sargv=='-')
  67.         {
  68.         if (match("-ms", *sargv))
  69.             {
  70.             *sargv = MACROS;
  71.             break;
  72.             }
  73.         if (match("-mm", *sargv))
  74.             {
  75.             *sargv = PYMACS;
  76.             break;
  77.             }
  78.         if (match("-TX", *sargv))
  79.             pr1403=1;
  80.         sargc--; sargv++;
  81.         }
  82.     if (sargc<=0) return(0);
  83. # ifdef unix
  84. /* file closing is done by GCOS troff preprocessor */
  85.     if (tabin!=stdin) fclose(tabin);
  86. # endif
  87.     tabin = fopen(ifile= *sargv, "r");
  88.     iline=1;
  89. # ifdef unix
  90. /* file names are all put into f. by the GCOS troff preprocessor */
  91.     fprintf(tabout, ".ds f. %s\n",ifile);
  92. # endif
  93.     if (tabin==NULL)
  94.         error("Can't open file");
  95.     sargc--;
  96.     sargv++;
  97.     return(1);
  98. }
  99. # ifdef unix
  100. badsig()
  101. {
  102. signal(SIGPIPE, 1);
  103.  exit(0);
  104. }
  105. # endif
  106.