home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / px / pcttot.c < prev    next >
C/C++ Source or Header  |  1980-02-17  |  444b  |  28 lines
  1. /* (c) 1979 Regents of the University of California */
  2. #
  3. #include "0x.h"
  4. #include "E.h"
  5.  
  6. /*
  7.  * Constant set constructor (yechh!)
  8.  */
  9. pcttot(uprbp, lwrb, n, av)
  10. {
  11.     register *set;
  12.     register l;
  13.     int *ap, h;
  14.  
  15.     ap = &av;
  16.     set = &ap[2 * n];
  17.     while(--n >= 0) {
  18.         if ((l = *ap++ - lwrb) < 0 || l > uprbp ||
  19.             (h = *ap++ - lwrb) < 0 || h > uprbp)
  20.             error(ECTTOT);
  21.         while (l <= h) {
  22.             set[l >> 4] =| 1 << (l & 017);
  23.             l++;
  24.         }
  25.     }
  26.     return(set);
  27. }
  28.