2.9BSD - /usr/src/ucb/pascal/px/pcttot.c

   1: #
   2: #include "0x.h"
   3: #include "E.h"
   4: 
   5: /*
   6:  * Constant set constructor (yechh!)
   7:  */
   8: pcttot(uprbp, lwrb, n, av)
   9: {
  10:     register *set;
  11:     register l;
  12:     int *ap, h;
  13: 
  14:     ap = &av;
  15:     set = &ap[2 * n];
  16:     while(--n >= 0) {
  17:         if ((l = *ap++ - lwrb) < 0 || l > uprbp ||
  18:             (h = *ap++ - lwrb) < 0 || h > uprbp)
  19:             error(ECTTOT);
  20:         while (l <= h) {
  21:             set[l >> 4] =| 1 << (l & 017);
  22:             l++;
  23:         }
  24:     }
  25:     return(set);
  26: }

Defined functions