4 #define inline _einline
6 #define MAXLINE 3600 /* maximum input line */
8 char *version = "version Oct 24, 1991";
10 char in[MAXLINE]; /* input buffer */
23 main(int argc, char *argv[])
28 if ((p = getenv("TYPESETTER")))
30 while (argc > 1 && argv[1][0] == '-') {
34 if (argv[1][2] == '\0') {
36 printf("...\teqn %s\n", version);
42 case 's': szstack[0] = gsize = atoi(&argv[1][2]); break;
43 case 'p': deltaps = atoi(&argv[1][2]); dps_set = 1; break;
44 case 'm': minsize = atoi(&argv[1][2]); break;
45 case 'f': strcpy(ftstack[0].name,&argv[1][2]); break;
46 case 'e': noeqn++; break;
47 case 'T': typesetter = &argv[1][2]; break;
49 fprintf(stderr, "%s: unknown option %s\n", cmdname, argv[1]);
56 sprintf(buf, "\"%s\"", typesetter);
57 install(deftbl, strsave(typesetter), strsave(buf), 0);
58 init_tbl(); /* install other keywords in tables */
60 pushsrc(File, curfile->fname);
63 curfile->fname = strsave("-");
67 if (strcmp(*++argv, "-") == 0)
69 else if ((curfile->fin = fopen(*argv, "r")) == NULL)
70 ERROR "can't open file %s", *argv FATAL;
71 curfile->fname = strsave(*argv);
73 if (curfile->fin != stdin)
79 void settype(char *s) /* initialize data for particular typesetter */
80 /* the minsize could profitably come from the */
81 { /* troff description file /usr/lib/font/dev.../DESC.out */
82 if (strcmp(s, "202") == 0)
83 { minsize = 5; ttype = DEV202; }
84 else if (strcmp(s, "aps") == 0)
85 { minsize = 5; ttype = DEVAPS; }
86 else if (strcmp(s, "cat") == 0)
87 { minsize = 6; ttype = DEVCAT; }
88 else if (strcmp(s, "post") == 0)
89 { minsize = 4; ttype = DEVPOST; }
91 { minsize = 5; ttype = DEV202; }
102 printf(".lf 1 %s\n", curfile->fname);
103 while ((type = getline(in)) != EOF) {
104 if (in[0] == '.' && in[1] == 'E' && in[2] == 'Q') {
105 for (i = 11; i < 100; i++)
108 if (markline) { /* turn off from last time */
109 printf(".nr MK 0\n");
117 printf(".nr MK %d\n", markline); /* for -ms macros */
118 printf(".if %gm>\\n(.v .ne %gm\n", eqnht, eqnht);
119 printf(".rn %d 10\n", eqnreg);
121 printf("\\&\\*(10\n");
124 while (putchar(input()) != '\n')
126 printf(".lf %d\n", curfile->lineno+1);
128 else if (type == lefteq)
130 else if (in[0] == '.' && in[1] == 'l' && in[2] == 'f') {
131 if (sscanf(in+3, "%d %s", &ln, fname) == 2) {
132 free(curfile->fname);
133 printf(".lf %d %s\n", curfile->lineno = ln, curfile->fname = strsave(fname));
135 printf(".lf %d\n", curfile->lineno = ln);
147 while ((c=input()) != '\n' && c != EOF && c != lefteq) {
148 if (s >= in+MAXLINE) {
149 ERROR "input line too long: %.20s\n", in WARNING;
167 printf(".nr %d \\n(.s\n", sz1 = salloc());
169 printf(".rm %d \n", ds);
173 printf(".as %d \"%s\n", ds, in);
177 printf(".as %d \\*(%d\n", ds, eqnreg);
179 printf(".lf %d\n", curfile->lineno+1);
181 } while (getline(in) == lefteq);
183 printf(".as %d \"%s", ds, in);
185 printf("\\s\\n(%d", sz1);
186 printf("\\*(%d\n", ds);
187 printf(".lf %d\n", curfile->lineno+1);
188 if (curfile->lineno > n+3)
189 fprintf(stderr, "eqn warning: multi-line %c...%c, file %s:%d,%d\n",
190 lefteq, righteq, curfile->fname, n, curfile->lineno);
197 double before, after;
198 extern double BeforeSub, AfterSub;
200 dprintf(".\tanswer <- S%d, h=%g,b=%g\n",p1, eht[p1], ebase[p1]);
202 before = eht[p1] - ebase[p1] - BeforeSub; /* leave room for sub or superscript */
203 after = ebase[p1] - AfterSub;
204 if (spaceval || before > 0.01 || after > 0.01) {
205 printf(".ds %d ", p1); /* used to be \\x'0' here: why? */
206 if (spaceval != NULL)
207 printf("\\x'0-%s'", spaceval);
208 else if (before > 0.01)
209 printf("\\x'0-%gm'", before);
210 printf("\\*(%d", p1);
211 if (spaceval == NULL && after > 0.01)
212 printf("\\x'%gm'", after);
216 printf(".ds %d %s\\*(%d\\s\\n(99\n", p1, DPS(gsize,gsize), p1);
218 if (spaceval != NULL) {
232 if (szstack[0] != 0) /* absolute gsize in effect */
233 printf(".nr 99 \\n(.s\n");
241 for (i = 11; i < 100; i++)
246 ERROR "no eqn strings left (%d)", i FATAL;
255 void nrwid(int n1, int p, int n2)
257 printf(".nr %d 0\\w'%s\\*(%d'\n", n1, DPS(gsize,p), n2); /* 0 defends against - width */
260 char *ABSPS(int dn) /* absolute size dn in printable form \sd or \s(dd (dd >= 40) */
262 static char buf[100], *lb = buf;
265 if (lb > buf + sizeof(buf) - 10)
270 if (dn >= 10) { /* \s(dd only works in new troff */
282 char *DPS(int f, int t) /* delta ps (t-f) in printable form \s+d or \s-d or \s+-(dd */
284 static char buf[100], *lb = buf;
288 if (lb > buf + sizeof(buf) - 10)
293 dn = EFFPS(t) - EFFPS(f);
294 if (szstack[nszstack] != 0) /* absolute */
295 dn = EFFPS(t); /* should do proper \s(dd */
302 if (dn >= 10) { /* \s+(dd only works in new troff */
314 EFFPS(int n) /* effective value of n */
322 double EM(double m, int ps) /* convert m to ems in gsize */
324 m *= (double) EFFPS(ps) / gsize;
325 if (m <= 0.001 && m >= -0.001)
331 double REL(double m, int ps) /* convert m to ems in ps */
333 m *= (double) gsize / EFFPS(ps);
334 if (m <= 0.001 && m >= -0.001)