2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.4 1996-10-29 13:57:20 adam
8 * Include of zebrautl.h instead of alexutil.h.
10 * Revision 1.3 1995/09/04 12:33:25 adam
11 * Various cleanup. YAZ util used instead.
13 * Revision 1.2 1995/01/24 16:00:21 adam
14 * Added -ansi to CFLAGS.
15 * Some changes to the dfa module.
17 * Revision 1.1 1994/09/26 10:16:53 adam
18 * First version of dfa module in alex. This version uses yacc to parse
19 * regular expressions. This should be hand-made instead.
32 #define GET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]&(1<<(m&(sizeof(BSetWord)*8-1))))
33 #define SET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]|=(1<<(m&(sizeof(BSetWord)*8-1))))
35 BSetHandle *mk_BSetHandle (int size, int chunk)
37 int wsize = 1+size/(sizeof(BSetWord)*8);
42 sh = (BSetHandle *) imalloc (sizeof(BSetHandle) +
43 chunk*sizeof(BSetWord)*wsize);
47 sh->chunk = chunk * wsize;
53 void rm_BSetHandle (BSetHandle **shp)
68 int inf_BSetHandle (BSetHandle *sh, long *used, long *allocated)
79 *allocated += sh->chunk;
80 } while ((sh = sh->setchain));
84 BSet mk_BSet (BSetHandle **shp)
93 if ((off + sh->wsize) > sh->chunk)
95 sh1 = (BSetHandle *) imalloc (sizeof(BSetHandle) +
96 sh->chunk*sizeof(BSetWord));
98 sh1->wsize = sh->wsize;
99 sh1->chunk = sh->chunk;
100 off = sh1->offset = 0;
104 sh->offset = off + sh->wsize;
105 return sh->setarray + off;
108 void add_BSet (BSetHandle *sh, BSet dst, unsigned member)
112 assert (member <= sh->size);
113 SET_BIT(dst, member);
116 unsigned test_BSet (BSetHandle *sh, BSet src, unsigned member)
120 assert (member <= sh->size);
121 return GET_BIT (src , member) != 0;
124 BSet cp_BSet (BSetHandle *sh, BSet dst, BSet src)
129 memcpy (dst, src, sh->wsize * sizeof(BSetWord));
133 void res_BSet (BSetHandle *sh, BSet dst)
136 memset (dst, 0, sh->wsize * sizeof(BSetWord));
139 void union_BSet (BSetHandle *sh, BSet dst, BSet src)
145 for (i=sh->wsize; --i >= 0;)
149 unsigned hash_BSet (BSetHandle *sh, BSet src)
155 for (i=sh->wsize; --i >= 0;)
160 void com_BSet (BSetHandle *sh, BSet dst)
165 for (i=sh->wsize; --i >= 0; dst++)
169 int eq_BSet (BSetHandle *sh, BSet dst, BSet src)
175 for (i=sh->wsize; --i >= 0;)
176 if (*dst++ != *src++)
181 int trav_BSet (BSetHandle *sh, BSet src, unsigned member)
183 int i = sh->size - member;
184 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
185 unsigned b = member & (sizeof(BSetWord)*8-1);
187 if (b == 0 && *sw == 0)
189 member += sizeof(BSetWord)*8;
191 i -= sizeof(BSetWord)*8;
193 else if (*sw & (1<<b))
199 if (++b == sizeof(BSetWord)*8)
208 int travi_BSet (BSetHandle *sh, BSet src, unsigned member)
210 int i = sh->size - member;
211 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
212 unsigned b = member & (sizeof(BSetWord)*8-1);
214 if (b == 0 && *sw == (BSetWord) ~ 0)
216 member += sizeof(BSetWord)*8;
218 i -= sizeof(BSetWord)*8;
220 else if ((*sw & (1<<b)) == 0)
226 if (++b == sizeof(BSetWord)*8)
236 void pr_BSet (BSetHandle *sh, BSet src)
241 for (i=0; (i=trav_BSet(sh,src,i)) != -1; i++)
246 void pr_charBSet (BSetHandle *sh, BSet src, void (*f) (int))
252 i = trav_BSet (sh, src, 0);
259 i1 = trav_BSet (sh, src, ++i);
262 while ((i1=trav_BSet (sh, src, ++i)) == i)