| 
									
										
										
										
											1991-02-19 12:39:46 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1990-12-20 15:06:42 +00:00
										 |  |  | /* Bitset primitives used by the parser generator */ | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											1990-12-20 15:06:42 +00:00
										 |  |  | #include "pgenheaders.h"
 | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | #include "bitset.h"
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | bitset | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | newbitset(int nbits) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     int nbytes = NBYTES(nbits); | 
					
						
							|  |  |  |     bitset ss = (char *)PyObject_MALLOC(sizeof(BYTE) *  nbytes); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |     if (ss == NULL) | 
					
						
							|  |  |  |         Py_FatalError("no mem for bitset"); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |     ss += nbytes; | 
					
						
							|  |  |  |     while (--nbytes >= 0) | 
					
						
							|  |  |  |         *--ss = 0; | 
					
						
							|  |  |  |     return ss; | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | void | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | delbitset(bitset ss) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     PyObject_FREE(ss); | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | int | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | addbit(bitset ss, int ibit) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     int ibyte = BIT2BYTE(ibit); | 
					
						
							|  |  |  |     BYTE mask = BIT2MASK(ibit); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |     if (ss[ibyte] & mask) | 
					
						
							|  |  |  |         return 0; /* Bit already set */ | 
					
						
							|  |  |  |     ss[ibyte] |= mask; | 
					
						
							|  |  |  |     return 1; | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #if 0 /* Now a macro */
 | 
					
						
							|  |  |  | int | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | testbit(bitset ss, int ibit) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     return (ss[BIT2BYTE(ibit)] & BIT2MASK(ibit)) != 0; | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } | 
					
						
							|  |  |  | #endif
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | int | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | samebitset(bitset ss1, bitset ss2, int nbits) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     int i; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |     for (i = NBYTES(nbits); --i >= 0; ) | 
					
						
							|  |  |  |         if (*ss1++ != *ss2++) | 
					
						
							|  |  |  |             return 0; | 
					
						
							|  |  |  |     return 1; | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | void | 
					
						
							| 
									
										
										
										
											2000-07-22 19:20:54 +00:00
										 |  |  | mergebitset(bitset ss1, bitset ss2, int nbits) | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | { | 
					
						
							| 
									
										
										
										
											2010-05-09 15:52:27 +00:00
										 |  |  |     int i; | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  |     for (i = NBYTES(nbits); --i >= 0; ) | 
					
						
							|  |  |  |         *ss1++ |= *ss2++; | 
					
						
							| 
									
										
										
										
											1990-10-14 12:07:46 +00:00
										 |  |  | } |