home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Trees / V7 / usr / src / cmd / neqn / integral.c < prev    next >
Encoding:
C/C++ Source or Header  |  1979-01-10  |  624 b   |  32 lines
  1. # include "e.h"
  2. # include "e.def"
  3.  
  4. integral(p, p1, p2) {
  5. #ifndef    NEQN
  6.     if (p1 != 0)
  7.         printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1);
  8.     if (p2 != 0)
  9.         printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2);
  10. #endif
  11.     if (p1 != 0 && p2 != 0)
  12.         shift2(p, p1, p2);
  13.     else if (p1 != 0)
  14.         bshiftb(p, SUB, p1);
  15.     else if (p2 != 0)
  16.         bshiftb(p, SUP, p2);
  17.     if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n", 
  18.         p, eht[p], ebase[p]);
  19.     lfont[p] = ROM;
  20. }
  21.  
  22. setintegral() {
  23.     char *f;
  24.  
  25.     yyval = oalloc();
  26.     f = "\\(is";
  27.     printf(".ds %d %s\n", yyval, f);
  28.     eht[yyval] = VERT(2);
  29.     ebase[yyval] = 0;
  30.     lfont[yyval] = rfont[yyval] = ROM;
  31. }
  32.