1 5cedca1b 2004-05-15 devnull /* t1.c: main control and input switching */
 2 5cedca1b 2004-05-15 devnull #
 3 5cedca1b 2004-05-15 devnull # include "t.h"
 4 5cedca1b 2004-05-15 devnull 
 5 5cedca1b 2004-05-15 devnull # define MACROS "/usr/lib/tmac.s"
 6 5cedca1b 2004-05-15 devnull # define PYMACS "/usr/lib/tmac.m"
 7 5cedca1b 2004-05-15 devnull 
 8 5cedca1b 2004-05-15 devnull 
 9 5cedca1b 2004-05-15 devnull # define ever (;;)
10 5cedca1b 2004-05-15 devnull 
11 c5561c23 2004-05-16 devnull int
12 5cedca1b 2004-05-15 devnull main(int argc, char *argv[])
13 5cedca1b 2004-05-15 devnull {
14 c5561c23 2004-05-16 devnull 	tabin = stdin;
15 c5561c23 2004-05-16 devnull 	tabout = stdout;
16 c5561c23 2004-05-16 devnull 
17 c5561c23 2004-05-16 devnull 	if(tbl(argc, argv)){
18 c5561c23 2004-05-16 devnull 		fprintf(stderr, "error");
19 c5561c23 2004-05-16 devnull 		return 1;
20 c5561c23 2004-05-16 devnull 	}
21 c5561c23 2004-05-16 devnull 	return 0;
22 5cedca1b 2004-05-15 devnull }
23 5cedca1b 2004-05-15 devnull 
24 5cedca1b 2004-05-15 devnull 
25 5cedca1b 2004-05-15 devnull int
26 5cedca1b 2004-05-15 devnull tbl(int argc, char *argv[])
27 5cedca1b 2004-05-15 devnull {
28 5cedca1b 2004-05-15 devnull 	char	line[5120];
29 5cedca1b 2004-05-15 devnull 	/*int x;*/
30 5cedca1b 2004-05-15 devnull 	/*x=malloc((char *)0);	uncomment when allocation breaks*/
31 c5561c23 2004-05-16 devnull 	/*Binit(&tabout, 1, OWRITE); /* tabout=stdout */
32 5cedca1b 2004-05-15 devnull 	setinp(argc, argv);
33 5cedca1b 2004-05-15 devnull 	while (gets1(line, sizeof(line))) {
34 c5561c23 2004-05-16 devnull 		fprintf(tabout, "%s\n", line);
35 5cedca1b 2004-05-15 devnull 		if (prefix(".TS", line))
36 5cedca1b 2004-05-15 devnull 			tableput();
37 5cedca1b 2004-05-15 devnull 	}
38 c5561c23 2004-05-16 devnull 	fclose(tabin);
39 5cedca1b 2004-05-15 devnull 	return(0);
40 5cedca1b 2004-05-15 devnull }
41 5cedca1b 2004-05-15 devnull 
42 5cedca1b 2004-05-15 devnull 
43 5cedca1b 2004-05-15 devnull int	sargc;
44 5cedca1b 2004-05-15 devnull char	**sargv;
45 5cedca1b 2004-05-15 devnull 
46 5cedca1b 2004-05-15 devnull void
47 5cedca1b 2004-05-15 devnull setinp(int argc, char **argv)
48 5cedca1b 2004-05-15 devnull {
49 5cedca1b 2004-05-15 devnull 	sargc = argc;
50 5cedca1b 2004-05-15 devnull 	sargv = argv;
51 5cedca1b 2004-05-15 devnull 	sargc--; 
52 5cedca1b 2004-05-15 devnull 	sargv++;
53 5cedca1b 2004-05-15 devnull 	if (sargc > 0)
54 5cedca1b 2004-05-15 devnull 		swapin();
55 c5561c23 2004-05-16 devnull 	else
56 c5561c23 2004-05-16 devnull 		tabin = stdin;
57 5cedca1b 2004-05-15 devnull }
58 5cedca1b 2004-05-15 devnull 
59 5cedca1b 2004-05-15 devnull 
60 5cedca1b 2004-05-15 devnull int
61 5cedca1b 2004-05-15 devnull swapin(void)
62 5cedca1b 2004-05-15 devnull {
63 5cedca1b 2004-05-15 devnull 	char	*name;
64 5cedca1b 2004-05-15 devnull 	while (sargc > 0 && **sargv == '-') {
65 5cedca1b 2004-05-15 devnull 		if (match("-ms", *sargv)) {
66 5cedca1b 2004-05-15 devnull 			*sargv = MACROS;
67 5cedca1b 2004-05-15 devnull 			break;
68 5cedca1b 2004-05-15 devnull 		}
69 5cedca1b 2004-05-15 devnull 		if (match("-mm", *sargv)) {
70 5cedca1b 2004-05-15 devnull 			*sargv = PYMACS;
71 5cedca1b 2004-05-15 devnull 			break;
72 5cedca1b 2004-05-15 devnull 		}
73 5cedca1b 2004-05-15 devnull 		if (match("-TX", *sargv))
74 5cedca1b 2004-05-15 devnull 			pr1403 = 1;
75 5cedca1b 2004-05-15 devnull 		if (match("-", *sargv))
76 5cedca1b 2004-05-15 devnull 			break;
77 5cedca1b 2004-05-15 devnull 		sargc--; 
78 5cedca1b 2004-05-15 devnull 		sargv++;
79 5cedca1b 2004-05-15 devnull 	}
80 5cedca1b 2004-05-15 devnull 	if (sargc <= 0) 
81 5cedca1b 2004-05-15 devnull 		return(0);
82 5cedca1b 2004-05-15 devnull 	/* file closing is done by GCOS troff preprocessor */
83 5cedca1b 2004-05-15 devnull 	if(tabin)
84 c5561c23 2004-05-16 devnull 		fclose(tabin);
85 5cedca1b 2004-05-15 devnull 	ifile = *sargv;
86 5cedca1b 2004-05-15 devnull 	name = ifile;
87 5cedca1b 2004-05-15 devnull 	if (match(ifile, "-")) {
88 c5561c23 2004-05-16 devnull 		tabin = stdin;
89 5cedca1b 2004-05-15 devnull 	} else
90 c5561c23 2004-05-16 devnull 		tabin = fopen(ifile, "r");
91 5cedca1b 2004-05-15 devnull 	iline = 1;
92 c5561c23 2004-05-16 devnull 	fprintf(tabout, ".ds f. %s\n", ifile);
93 c5561c23 2004-05-16 devnull 	fprintf(tabout, ".lf %d %s\n", iline, name);
94 5cedca1b 2004-05-15 devnull 	if (tabin == 0)
95 5cedca1b 2004-05-15 devnull 		error("Can't open file");
96 5cedca1b 2004-05-15 devnull 	sargc--;
97 5cedca1b 2004-05-15 devnull 	sargv++;
98 5cedca1b 2004-05-15 devnull 	return(1);
99 5cedca1b 2004-05-15 devnull }