1: #ifndef lint
   2: static char sccsid[] = "@(#)integral.c	4.3 8/11/83";
   3: #endif
   4: 
   5: # include "e.h"
   6: # include "e.def"
   7: 
   8: integral(p, p1, p2) {
   9: #ifndef NEQN
  10:     if (p1 != 0)
  11:         printf(".ds %d \\h'-0.4m'\\v'0.4m'\\*(%d\\v'-0.4m'\n", p1, p1);
  12:     if (p2 != 0)
  13:         printf(".ds %d \\v'-0.3m'\\*(%d\\v'0.3m'\n", p2, p2);
  14: #endif
  15:     if (p1 != 0 && p2 != 0)
  16:         shift2(p, p1, p2);
  17:     else if (p1 != 0)
  18:         bshiftb(p, SUB, p1);
  19:     else if (p2 != 0)
  20:         bshiftb(p, SUP, p2);
  21:     if(dbg)printf(".\tintegral: S%d; h=%d b=%d\n",
  22:         p, eht[p], ebase[p]);
  23:     lfont[p] = ROM;
  24: }
  25: 
  26: setintegral() {
  27:     char *f;
  28: 
  29:     yyval = oalloc();
  30:     f = "\\(is";
  31: #ifndef NEQN
  32:     printf(".ds %d \\s%d\\v'.1m'\\s+4%s\\s-4\\v'-.1m'\\s%d\n",
  33:         yyval, ps, f, ps);
  34:     eht[yyval] = VERT( (((ps+4)*12)/10)*6 );
  35:     ebase[yyval] = VERT( (ps*6*3)/10 );
  36: #else NEQN
  37:     printf(".ds %d %s\n", yyval, f);
  38:     eht[yyval] = VERT(2);
  39:     ebase[yyval] = 0;
  40: #endif NEQN
  41:     lfont[yyval] = rfont[yyval] = ROM;
  42: }

Defined functions

integral defined in line 8; used 4 times
setintegral defined in line 26; used 1 times

Defined variables

sccsid defined in line 2; never used
Last modified: 1987-02-17
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 2080
Valid CSS Valid XHTML 1.0 Strict