# 2.11BSD#431 - /usr/src/usr.bin/eqn/integral.c

##### Functions

    integral          X
    setintegral       X

       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

- in /usr/src/usr.bin/eqn/e.y line 74-77(4)

setintegral defined in line 26; used 1 times

- in /usr/src/usr.bin/eqn/e.y line 90

#### 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: 870 |