2.9BSD - /usr/src/local/seqn/integral.c

   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: }

Defined functions