bitvector.c

PIXIL is a small footprint operating environment, complete with PDA PIM applications, a browser and

/***********************************************************************

bitvector.c - some routines for dealing with bitvectors

Copyright (C) 1991 Dean Rubine

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License. See ../COPYING for
the full agreement.

 **********************************************************************/

 /*LINTLIBRARY*/
#include "util.h"
#undef	BITS_PER_VECTOR
#define BITS_PER_VECTOR	128
#include "bitvector.h"
/* ari -- for strlen */
#include <string.h>
    int
bitcount(max, bv)
     int max;
     BitVector bv;
{
    register int i, count;

    for (count = i = 0; i < max; i++)
	if (IS_SET(i, bv))
	    count++;
    return count;
}

char *
BitVectorToString(max, bv)
     BitVector bv;
{
    char *string = tempstring();
    register int i;

    for (i = 0; i < max; i++)
	string[i] = IS_SET(i, bv) ? (i % 10) + '0' : '-';
    string[i] = '\0';
    return string;
}


void
StringToBitVector(string, max, bv)
     char *string;
     int max;
     BitVector bv;
{
    register int i;

/* ari -- strlen returns a size_t, which depends on which OS you've got */
    if ((int) strlen(string) != max) {
	error("StringToBitVector: strlen(%s)=%d != %d",
	      string, (int) strlen(string), max);
	return;
    }

    for (i = 0; i < max; i++)
	if (string[i] != '-')
	    BIT_SET(i, bv);
	else
	    BIT_CLEAR(i, bv);
}


void
SetBitVector(v)
     register BitVector v;
{
    register int nints = INTS_PER_VECTOR;

    while (--nints >= 0)
	*v++ = -1;
}


void
ClearBitVector(nints, v)
     register int nints;
     register BitVector v;
{

    while (--nints >= 0)
	*v++ = 0;
}

void
AssignBitVector(nints, v1, v2)
     register int nints;
     register BitVector v1, v2;
{

    while (--nints >= 0)
	*v1++ = *v2++;
}

int
BitVectorDeQ(max, v)
     register int max;
     register BitVector v;
{
    register int i;
    for (i = 0; i < max; i++)
	if (IS_SET(i, v)) {
	    BIT_CLEAR(i, v);
	    return i;
	}
    return -1;

}

int *
BitVectorOr(v, v1, v2, ipv)
     int *v;
     register int *v1, *v2;
     register int ipv;
{
    int *vv = v;
    do
	*vv++ = *v1++ | *v2++;
    while (--ipv > 0);
    return v;
}

int *
BitVectorAnd(v, v1, v2, ipv)
     int *v;
     register int *v1, *v2;
     register int ipv;
{
    int *vv = v;
    do
	*vv++ = *v1++ & *v2++;
    while (--ipv > 0);
    return v;
}

int
BitVectorNoBitsSet(v, ipv)
     register int *v;
     register int ipv;
{
    do
	if (*v++)
	    return 0;
    while (--ipv > 0);
    return 1;
}