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