1*14485Ssam #ifndef lint 2*14485Ssam static char sccsid[] = "@(#)eqnbox.c 4.2 08/11/83"; 3*14485Ssam #endif 411001Sshannon 511001Sshannon # include "e.h" 611001Sshannon 711001Sshannon eqnbox(p1, p2, lu) { 811001Sshannon int b, h; 911001Sshannon char *sh; 1011001Sshannon 1111001Sshannon yyval = p1; 1211001Sshannon b = max(ebase[p1], ebase[p2]); 1311001Sshannon eht[yyval] = h = b + max(eht[p1]-ebase[p1], 1411001Sshannon eht[p2]-ebase[p2]); 1511001Sshannon ebase[yyval] = b; 1611001Sshannon if(dbg)printf(".\te:eb: S%d <- S%d S%d; b=%d, h=%d\n", 1711001Sshannon yyval, p1, p2, b, h); 1811001Sshannon if (rfont[p1] == ITAL && lfont[p2] == ROM) 1911001Sshannon sh = "\\|"; 2011001Sshannon else 2111001Sshannon sh = ""; 2211001Sshannon if (lu) { 2311001Sshannon printf(".nr %d \\w'\\s%d\\*(%d%s'\n", p1, ps, p1, sh); 2411001Sshannon printf(".ds %d \\h'|\\n(97u-\\n(%du'\\*(%d\n", p1, p1, p1); 2511001Sshannon } 2611001Sshannon printf(".as %d \"%s\\*(%d\n", yyval, sh, p2); 2711001Sshannon rfont[p1] = rfont[p2]; 2811001Sshannon ofree(p2); 2911001Sshannon } 30