BSD 4 release

[unix-history] / usr / src / cmd / px / utilities.c

diff --git a/usr/src/cmd/px/utilities.c b/usr/src/cmd/px/utilities.c
index 0e5f609..12451b8 100644 (file)
--- a/usr/src/cmd/px/utilities.c
+++ b/usr/src/cmd/px/utilities.c
@@ -1,3 +1,7 @@
+/* Copyright (c) 1979 Regents of the University of California */
+
+static char sccsid[] = "@(#)utilities.c 4.2 10/20/80";
+

 #include       "stdio.h"
 #include       "h00vars.h"
 #include       "h01errs.h"
 #include       "stdio.h"
 #include       "h00vars.h"
 #include       "h01errs.h"


@@ -42,33 +46,117 @@ else if (free(ptr) == -1)
        error(ETRASHHEAP);
 }
 \f
        error(ETRASHHEAP);
 }
 \f

+long   _mask[] = {     
+                   0xffffffff , 0xfffffffe , 0xfffffffc , 0xfffffff8 ,
+                   0xfffffff0 , 0xffffffe0 , 0xffffffc0 , 0xffffff80 ,
+                   0xffffff00 , 0xfffffe00 , 0xfffffc00 , 0xfffff800 ,
+                   0xfffff000 , 0xffffe000 , 0xffffc000 , 0xffff8000 ,
+                   0xffff0000 , 0xfffe0000 , 0xfffc0000 , 0xfff80000 ,
+                   0xfff00000 , 0xffe00000 , 0xffc00000 , 0xff800000 ,
+                   0xff000000 , 0xfe000000 , 0xfc000000 , 0xf8000000 ,
+                   0xf0000000 , 0xe0000000 , 0xc0000000 , 0x80000000 ,
+                   0x00000000
+                };

 /*
 /*

- * Constant set constructor (yechh!)
+ * Constant set constructor

  */
 
  */
 

-#define        sets    int short
-
-sets   *pcttot(uprbp, lwrb, n, av)
+long *
+cttot(result, lowerbnd, upperbnd, paircnt, singcnt, data)

 
 

-int    uprbp, lwrb, n;
-sets   av;
+       long    *result;        /* pointer to final set */
+       int     lowerbnd;       /* lower bound of set */
+       int     upperbnd;       /* upper - lower of set */
+       int     paircnt;        /* number of pairs to construct */
+       int     singcnt;        /* number of singles to construct */
+       int     data;           /* paircnt plus singcnt sets of data */
+{
+       register int    lower;
+       register int    lowerdiv;
+       register int    lowermod;
+       register int    upper;
+       int             upperdiv;
+       int             uppermod;
+       register int    *dataptr;
+       register long   *lp;
+       long            *limit;
+       long            temp;
+       long            cnt;
+
+       limit = &result[(upperbnd + 1 + BITSPERLONG - 1) / BITSPERLONG];
+       for (lp = result; lp < limit; )
+               *lp++ = 0;
+       dataptr = &data;
+       for (cnt = 0; cnt < paircnt; cnt++) {
+               lower = *dataptr++ - lowerbnd;
+               if (lower < 0 || lower > upperbnd) {
+                       error(ECTLWR);
+                       return;
+               }
+               upper = *dataptr++ - lowerbnd;
+               if (upper < 0 || upper > upperbnd) {
+                       error(ECTUPR);
+                       return;
+               }
+               if (lower > upper) {
+                       continue;
+               }
+               lowerdiv = lower / BITSPERLONG;
+               lowermod = lower % BITSPERLONG;
+               upperdiv = upper / BITSPERLONG;
+               uppermod = upper % BITSPERLONG;
+               temp = _mask [lowermod];
+               if ( lowerdiv == upperdiv ) {
+                       temp &= ~_mask[ uppermod + 1 ];
+               }
+               result[ lowerdiv ] |= temp;
+               limit = &result[ upperdiv-1 ];
+               for ( lp = &result[ lowerdiv+1 ] ; lp <= limit ; lp++ ) {
+                       *lp |= ~0;
+               }
+               if ( lowerdiv != upperdiv ) {
+                       result[ upperdiv ] |= ~_mask[ uppermod + 1 ];
+               }
+       }
+       for (cnt = 0; cnt < singcnt; cnt++) {
+               lower = *dataptr++ - lowerbnd;
+               if (lower < 0 || lower > upperbnd) {
+                       error(ECTSNG);
+                       return;
+               }
+               lowerdiv = lower / BITSPERLONG;
+               lowermod = lower % BITSPERLONG;
+               result[ lowerdiv ] |= ( 1 << lowermod );
+       }
+       return(result);
+}
+\f
+inct(element, paircnt, singcnt, data)

 
 

+       register int    element;        /* element to find */
+       int             paircnt;        /* number of pairs to check */
+       int             singcnt;        /* number of singles to check */
+       int             data;           /* paircnt plus singcnt bounds */

 {
 {

-register int l, h;
-register sets *set, *ap;
-
-       ap = &av;
-       set = &ap[2 * n];
-       while(--n >= 0) {
-               if ((l = *ap++ - lwrb) < 0 || l > uprbp ||
-                   (h = *ap++ - lwrb) < 0 || h > uprbp)
-                       error(ECTTOT);
-               while (l <= h) {
-                       set[l >> 4] = set[l >> 4] | 1 << (l & 017);
-                       l++;
+       register int    *dataptr;
+       register int    cnt;
+
+       dataptr = &data;
+       for (cnt = 0; cnt < paircnt; cnt++) {
+               if (element < *dataptr++) {
+                       dataptr++;
+                       continue;
+               }
+               if (element <= *dataptr++) {
+                       return TRUE;
+               }
+       }
+       for (cnt = 0; cnt < singcnt; cnt++) {
+               if (element == *dataptr++) {
+                       return TRUE;

                }
        }
                }
        }

-       return(set);
+       return FALSE;

 }
 \f
 char   pd_date[] = {
 }
 \f
 char   pd_date[] = {


@@ -99,7 +187,7 @@ long code;
 {
 
 pmflush();
 {
 
 pmflush();

-if (mode == PIX && nodump == 0) {
+if (mode == PIX) {

        fputs("Execution terminated",stderr);
        if (code)
                fputs(" abnormally",stderr);
        fputs("Execution terminated",stderr);
        if (code)
                fputs(" abnormally",stderr);