2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.3 1995-09-04 12:33:25 adam
8 * Various cleanup. YAZ util used instead.
10 * Revision 1.2 1995/01/24 16:00:21 adam
11 * Added -ansi to CFLAGS.
12 * Some changes to the dfa module.
14 * Revision 1.1 1994/09/26 10:16:53 adam
15 * First version of dfa module in alex. This version uses yacc to parse
16 * regular expressions. This should be hand-made instead.
29 #define GET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]&(1<<(m&(sizeof(BSetWord)*8-1))))
30 #define SET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]|=(1<<(m&(sizeof(BSetWord)*8-1))))
32 BSetHandle *mk_BSetHandle (int size, int chunk)
34 int wsize = 1+size/(sizeof(BSetWord)*8);
39 sh = (BSetHandle *) imalloc (sizeof(BSetHandle) +
40 chunk*sizeof(BSetWord)*wsize);
44 sh->chunk = chunk * wsize;
50 void rm_BSetHandle (BSetHandle **shp)
65 int inf_BSetHandle (BSetHandle *sh, long *used, long *allocated)
76 *allocated += sh->chunk;
77 } while ((sh = sh->setchain));
81 BSet mk_BSet (BSetHandle **shp)
90 if ((off + sh->wsize) > sh->chunk)
92 sh1 = (BSetHandle *) imalloc (sizeof(BSetHandle) +
93 sh->chunk*sizeof(BSetWord));
95 sh1->wsize = sh->wsize;
96 sh1->chunk = sh->chunk;
97 off = sh1->offset = 0;
101 sh->offset = off + sh->wsize;
102 return sh->setarray + off;
105 void add_BSet (BSetHandle *sh, BSet dst, unsigned member)
109 assert (member <= sh->size);
110 SET_BIT(dst, member);
113 unsigned test_BSet (BSetHandle *sh, BSet src, unsigned member)
117 assert (member <= sh->size);
118 return GET_BIT (src , member) != 0;
121 BSet cp_BSet (BSetHandle *sh, BSet dst, BSet src)
126 memcpy (dst, src, sh->wsize * sizeof(BSetWord));
130 void res_BSet (BSetHandle *sh, BSet dst)
133 memset (dst, 0, sh->wsize * sizeof(BSetWord));
136 void union_BSet (BSetHandle *sh, BSet dst, BSet src)
142 for (i=sh->wsize; --i >= 0;)
146 unsigned hash_BSet (BSetHandle *sh, BSet src)
152 for (i=sh->wsize; --i >= 0;)
157 void com_BSet (BSetHandle *sh, BSet dst)
162 for (i=sh->wsize; --i >= 0; dst++)
166 int eq_BSet (BSetHandle *sh, BSet dst, BSet src)
172 for (i=sh->wsize; --i >= 0;)
173 if (*dst++ != *src++)
178 int trav_BSet (BSetHandle *sh, BSet src, unsigned member)
180 int i = sh->size - member;
181 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
182 unsigned b = member & (sizeof(BSetWord)*8-1);
184 if (b == 0 && *sw == 0)
186 member += sizeof(BSetWord)*8;
188 i -= sizeof(BSetWord)*8;
190 else if (*sw & (1<<b))
196 if (++b == sizeof(BSetWord)*8)
205 int travi_BSet (BSetHandle *sh, BSet src, unsigned member)
207 int i = sh->size - member;
208 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
209 unsigned b = member & (sizeof(BSetWord)*8-1);
211 if (b == 0 && *sw == (BSetWord) ~ 0)
213 member += sizeof(BSetWord)*8;
215 i -= sizeof(BSetWord)*8;
217 else if ((*sw & (1<<b)) == 0)
223 if (++b == sizeof(BSetWord)*8)
233 void pr_BSet (BSetHandle *sh, BSet src)
238 for (i=0; (i=trav_BSet(sh,src,i)) != -1; i++)
243 void pr_charBSet (BSetHandle *sh, BSet src, void (*f) (int))
249 i = trav_BSet (sh, src, 0);
256 i1 = trav_BSet (sh, src, ++i);
259 while ((i1=trav_BSet (sh, src, ++i)) == i)