Commit | Line | Data |
---|---|---|
c4113b9b BS |
1 | /* eqnbox.c 4.1 83/02/11 */ |
2 | ||
3 | # include "e.h" | |
4 | ||
5 | eqnbox(p1, p2, lu) { | |
6 | int b, h; | |
7 | char *sh; | |
8 | ||
9 | yyval = p1; | |
10 | b = max(ebase[p1], ebase[p2]); | |
11 | eht[yyval] = h = b + max(eht[p1]-ebase[p1], | |
12 | eht[p2]-ebase[p2]); | |
13 | ebase[yyval] = b; | |
14 | if(dbg)printf(".\te:eb: S%d <- S%d S%d; b=%d, h=%d\n", | |
15 | yyval, p1, p2, b, h); | |
16 | if (rfont[p1] == ITAL && lfont[p2] == ROM) | |
17 | sh = "\\|"; | |
18 | else | |
19 | sh = ""; | |
20 | if (lu) { | |
21 | printf(".nr %d \\w'\\s%d\\*(%d%s'\n", p1, ps, p1, sh); | |
22 | printf(".ds %d \\h'|\\n(97u-\\n(%du'\\*(%d\n", p1, p1, p1); | |
23 | } | |
24 | printf(".as %d \"%s\\*(%d\n", yyval, sh, p2); | |
25 | rfont[p1] = rfont[p2]; | |
26 | ofree(p2); | |
27 | } |