/*  * This file is part of the UCB release of Plan 9. It is subject to the license * terms in the LICENSE file found in the top-level directory of this * distribution and at http://akaros.cs.berkeley.edu/files/Plan9License. No * part of the UCB release of Plan 9, including this file, may be copied, * modified, propagated, or distributed except according to the terms contained * in the LICENSE file. */ /* t1.c: main control and input switching */## include "t.h" # define MACROS "/sys/lib/tmac/tmac.s"# define PYMACS "/sys/lib/tmac/tmac.m"  # define ever (;;) voidmain(int argc, char *argv[]){	exits(tbl(argc, argv)? "error" : 0);}  inttbl(int argc, char *argv[]){	char	line[5120];	/*int x;*/	/*x=malloc((char *)0);	uncomment when allocation breaks*/	Binit(&tabout, 1, OWRITE);	setinp(argc, argv);	while (gets1(line, sizeof(line))) {		Bprint(&tabout, "%s\n", line);		if (prefix(".TS", line))			tableput();	}	Bterm(tabin);	return(0);}  int	sargc;char	**sargv; voidsetinp(int argc, char **argv){	sargc = argc;	sargv = argv;	sargc--; 	sargv++;	if (sargc == 0 || swapin() == 0) {		tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);		Binit(tabin, 0, OREAD);	}}  intswapin(void){	char	*name;	while (sargc > 0 && **sargv == '-') {		if (match("-ms", *sargv)) {			*sargv = MACROS;			break;		}		if (match("-mm", *sargv)) {			*sargv = PYMACS;			break;		}		if (match("-TX", *sargv))			pr1403 = 1;		if (match("-", *sargv))			break;		sargc--; 		sargv++;	}	if (sargc <= 0) 		return(0);	/* file closing is done by GCOS troff preprocessor */	if(tabin)		Bterm(tabin);	ifile = *sargv;	name = ifile;	if (match(ifile, "-")) {		tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);		Binit(tabin, 0, OREAD);	} else		tabin = Bopen(ifile, OREAD);	iline = 1;	Bprint(&tabout, ".ds f. %s\n", ifile);	Bprint(&tabout, ".lf %d %s\n", iline, name);	if (tabin == 0)		error("Can't open file");	sargc--;	sargv++;	return(1);}