1 /* t1.c: main control and input switching */
5 # define MACROS "/usr/lib/tmac.s"
6 # define PYMACS "/usr/lib/tmac.m"
12 main(int argc, char *argv[])
14 exits(tbl(argc, argv)? "error" : 0);
19 tbl(int argc, char *argv[])
23 /*x=malloc((char *)0); uncomment when allocation breaks*/
24 Binit(&tabout, 1, OWRITE);
26 while (gets1(line, sizeof(line))) {
27 Bprint(&tabout, "%s\n", line);
28 if (prefix(".TS", line))
40 setinp(int argc, char **argv)
49 tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
50 Binit(tabin, 0, OREAD);
59 while (sargc > 0 && **sargv == '-') {
60 if (match("-ms", *sargv)) {
64 if (match("-mm", *sargv)) {
68 if (match("-TX", *sargv))
70 if (match("-", *sargv))
77 /* file closing is done by GCOS troff preprocessor */
82 if (match(ifile, "-")) {
83 tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
84 Binit(tabin, 0, OREAD);
86 tabin = Bopen(ifile, OREAD);
88 Bprint(&tabout, ".ds f. %s\n", ifile);
89 Bprint(&tabout, ".lf %d %s\n", iline, name);
91 error("Can't open file");