/* t1.c: main control and input switching */
/* required by GCOS because file is passed to "tbl" by troff preprocessor */
# define MACROS "/usr/lib/tmac.s"
# define PYMACS "/usr/lib/tmac.m"
# define MACROS "cc/troff/smac"
# define PYMACS "cc/troff/mmac"
if(!intss()) tabout
= fopen("qq", "w"); /* default media code is type 5 */
/* required by GCOS because "stdout" is set by troff preprocessor */
tabin
=stdin
; tabout
=stdout
;
fprintf(tabout
, "%s\n",line
);
while (sargc
>0 && **sargv
=='-') /* Mem fault if no test on sargc */
if (match("-ms", *sargv
))
if (match("-mm", *sargv
))
if (match("-TX", *sargv
))
/* file closing is done by GCOS troff preprocessor */
if (tabin
!=stdin
) fclose(tabin
);
tabin
= fopen(ifile
= *sargv
, "r");
/* file names are all put into f. by the GCOS troff preprocessor */
fprintf(tabout
, ".ds f. %s\n",ifile
);
error("Can't open file");
signal(SIGPIPE
, SIG_IGN
);