void subsup(int p1, int p2, int p3) { if (p2 != 0 && p3 != 0) shift2(p1, p2, p3); else if (p2 != 0) bshiftb(p1, SUB, p2); else if (p3 != 0) bshiftb(p1, SUP, p3); }
void integral(int p, int p1, int p2) { if (p1 != 0) printf(".ds %d \\h'%gm'\\v'%gm'\\*(%d\\v'%gm'\n", p1, -Int1h, Int1v, p1, -Int1v); if (p2 != 0) printf(".ds %d \\v'%gm'\\h'%gm'\\*(%d\\v'%gm'\n", p2, -Int2v, Int2h, p2, Int2v); if (p1 != 0 && p2 != 0) shift2(p, p1, p2); else if (p1 != 0) bshiftb(p, SUB, p1); else if (p2 != 0) bshiftb(p, SUP, p2); dprintf(".\tintegral: S%d; h=%g b=%g\n", p, eht[p], ebase[p]); lfont[p] = ROM; }
int integral(int p, int p1, int p2) { int yyval; #ifndef NEQN if (p1 != 0) printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1); if (p2 != 0) printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2); #endif if (p1 != 0 && p2 != 0) yyval = shift2(p, p1, p2); else if (p1 != 0) yyval = bshiftb(p, SUB, p1); else if (p2 != 0) yyval = bshiftb(p, SUP, p2); else yyval = p; /* default: $$ = $1 */ if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", p, eht[p], ebase[p]); lfont[p] = ROM; return yyval; }
void integral(int p, int p1, int p2) { #ifndef NEQN if (p1 != 0) printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1); if (p2 != 0) printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2); #endif if (p1 != 0 && p2 != 0) shift2(p, p1, p2); else if (p1 != 0) bshiftb(p, SUB, p1); else if (p2 != 0) bshiftb(p, SUP, p2); #ifndef NEQN if(dbg)printf(".\tintegral: S%d; h=%g b=%g\n", p, eht[p], ebase[p]); #else /* NEQN */ if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", p, eht[p], ebase[p]); #endif /* NEQN */ lfont[p] = ROM; }