1 5cedca1b 2004-05-15 devnull /* t1.c: main control and input switching */
3 5cedca1b 2004-05-15 devnull # include "t.h"
5 5cedca1b 2004-05-15 devnull # define MACROS "/usr/lib/tmac.s"
6 5cedca1b 2004-05-15 devnull # define PYMACS "/usr/lib/tmac.m"
9 5cedca1b 2004-05-15 devnull # define ever (;;)
12 5cedca1b 2004-05-15 devnull main(int argc, char *argv[])
14 8a3cbc15 2004-05-17 devnull exits(tbl(argc, argv)? "error" : 0);
19 5cedca1b 2004-05-15 devnull tbl(int argc, char *argv[])
21 5cedca1b 2004-05-15 devnull char line[5120];
22 5cedca1b 2004-05-15 devnull /*int x;*/
23 5cedca1b 2004-05-15 devnull /*x=malloc((char *)0); uncomment when allocation breaks*/
24 8a3cbc15 2004-05-17 devnull Binit(&tabout, 1, OWRITE);
25 5cedca1b 2004-05-15 devnull setinp(argc, argv);
26 5cedca1b 2004-05-15 devnull while (gets1(line, sizeof(line))) {
27 8a3cbc15 2004-05-17 devnull Bprint(&tabout, "%s\n", line);
28 5cedca1b 2004-05-15 devnull if (prefix(".TS", line))
29 5cedca1b 2004-05-15 devnull tableput();
31 8a3cbc15 2004-05-17 devnull Bterm(tabin);
32 5cedca1b 2004-05-15 devnull return(0);
36 5cedca1b 2004-05-15 devnull int sargc;
37 5cedca1b 2004-05-15 devnull char **sargv;
40 5cedca1b 2004-05-15 devnull setinp(int argc, char **argv)
42 5cedca1b 2004-05-15 devnull sargc = argc;
43 5cedca1b 2004-05-15 devnull sargv = argv;
46 5cedca1b 2004-05-15 devnull if (sargc > 0)
47 5cedca1b 2004-05-15 devnull swapin();
49 8a3cbc15 2004-05-17 devnull tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
50 8a3cbc15 2004-05-17 devnull Binit(tabin, 0, OREAD);
56 5cedca1b 2004-05-15 devnull swapin(void)
58 5cedca1b 2004-05-15 devnull char *name;
59 5cedca1b 2004-05-15 devnull while (sargc > 0 && **sargv == '-') {
60 5cedca1b 2004-05-15 devnull if (match("-ms", *sargv)) {
61 5cedca1b 2004-05-15 devnull *sargv = MACROS;
64 5cedca1b 2004-05-15 devnull if (match("-mm", *sargv)) {
65 5cedca1b 2004-05-15 devnull *sargv = PYMACS;
68 5cedca1b 2004-05-15 devnull if (match("-TX", *sargv))
69 5cedca1b 2004-05-15 devnull pr1403 = 1;
70 5cedca1b 2004-05-15 devnull if (match("-", *sargv))
75 5cedca1b 2004-05-15 devnull if (sargc <= 0)
76 5cedca1b 2004-05-15 devnull return(0);
77 5cedca1b 2004-05-15 devnull /* file closing is done by GCOS troff preprocessor */
78 5cedca1b 2004-05-15 devnull if(tabin)
79 8a3cbc15 2004-05-17 devnull Bterm(tabin);
80 5cedca1b 2004-05-15 devnull ifile = *sargv;
81 5cedca1b 2004-05-15 devnull name = ifile;
82 5cedca1b 2004-05-15 devnull if (match(ifile, "-")) {
83 8a3cbc15 2004-05-17 devnull tabin = (Biobuf*)getcore(sizeof(Biobuf), 1);
84 8a3cbc15 2004-05-17 devnull Binit(tabin, 0, OREAD);
86 8a3cbc15 2004-05-17 devnull tabin = Bopen(ifile, OREAD);
87 5cedca1b 2004-05-15 devnull iline = 1;
88 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".ds f. %s\n", ifile);
89 8a3cbc15 2004-05-17 devnull Bprint(&tabout, ".lf %d %s\n", iline, name);
90 5cedca1b 2004-05-15 devnull if (tabin == 0)
91 5cedca1b 2004-05-15 devnull error("Can't open file");
94 5cedca1b 2004-05-15 devnull return(1);