* This module is believed to contain source code proprietary to AT&T.
* Use and redistribution is subject to the Berkeley Software License
* Agreement and your Software Agreement with AT&T (Western Electric).
static char sccsid
[] = "@(#)t1.c 4.5 (Berkeley) 4/18/91";
/* t1.c: main control and input switching */
/* required by GCOS because file is passed to "tbl" by troff preprocessor */
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
);