blob: e2315e4bb2073cce9aab10c9070296b6bc21ff3f [file] [log] [blame]
Guido van Rossumf70e43a1991-02-19 12:39:46 +00001/***********************************************************
Guido van Rossumb9f8d6e1995-01-04 19:08:09 +00002Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
3The Netherlands.
Guido van Rossumf70e43a1991-02-19 12:39:46 +00004
5 All Rights Reserved
6
Guido van Rossumd266eb41996-10-25 14:44:06 +00007Permission to use, copy, modify, and distribute this software and its
8documentation for any purpose and without fee is hereby granted,
Guido van Rossumf70e43a1991-02-19 12:39:46 +00009provided that the above copyright notice appear in all copies and that
Guido van Rossumd266eb41996-10-25 14:44:06 +000010both that copyright notice and this permission notice appear in
Guido van Rossumf70e43a1991-02-19 12:39:46 +000011supporting documentation, and that the names of Stichting Mathematisch
Guido van Rossumd266eb41996-10-25 14:44:06 +000012Centrum or CWI or Corporation for National Research Initiatives or
13CNRI not be used in advertising or publicity pertaining to
14distribution of the software without specific, written prior
15permission.
Guido van Rossumf70e43a1991-02-19 12:39:46 +000016
Guido van Rossumd266eb41996-10-25 14:44:06 +000017While CWI is the initial source for this software, a modified version
18is made available by the Corporation for National Research Initiatives
19(CNRI) at the Internet address ftp://ftp.python.org.
20
21STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
22REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
23MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
24CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
25DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
26PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
27TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
28PERFORMANCE OF THIS SOFTWARE.
Guido van Rossumf70e43a1991-02-19 12:39:46 +000029
30******************************************************************/
31
Guido van Rossum3f5da241990-12-20 15:06:42 +000032/* Bitset primitives used by the parser generator */
Guido van Rossum85a5fbb1990-10-14 12:07:46 +000033
Guido van Rossum3f5da241990-12-20 15:06:42 +000034#include "pgenheaders.h"
Guido van Rossum85a5fbb1990-10-14 12:07:46 +000035#include "bitset.h"
36
37bitset
38newbitset(nbits)
39 int nbits;
40{
41 int nbytes = NBYTES(nbits);
42 bitset ss = NEW(BYTE, nbytes);
43
44 if (ss == NULL)
45 fatal("no mem for bitset");
46
47 ss += nbytes;
48 while (--nbytes >= 0)
49 *--ss = 0;
50 return ss;
51}
52
53void
54delbitset(ss)
55 bitset ss;
56{
57 DEL(ss);
58}
59
60int
61addbit(ss, ibit)
62 bitset ss;
63 int ibit;
64{
65 int ibyte = BIT2BYTE(ibit);
66 BYTE mask = BIT2MASK(ibit);
67
68 if (ss[ibyte] & mask)
69 return 0; /* Bit already set */
70 ss[ibyte] |= mask;
71 return 1;
72}
73
74#if 0 /* Now a macro */
75int
76testbit(ss, ibit)
77 bitset ss;
78 int ibit;
79{
80 return (ss[BIT2BYTE(ibit)] & BIT2MASK(ibit)) != 0;
81}
82#endif
83
84int
85samebitset(ss1, ss2, nbits)
86 bitset ss1, ss2;
87 int nbits;
88{
89 int i;
90
91 for (i = NBYTES(nbits); --i >= 0; )
92 if (*ss1++ != *ss2++)
93 return 0;
94 return 1;
95}
96
97void
98mergebitset(ss1, ss2, nbits)
99 bitset ss1, ss2;
100 int nbits;
101{
102 int i;
103
104 for (i = NBYTES(nbits); --i >= 0; )
105 *ss1++ |= *ss2++;
106}