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