2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.2 1995-01-24 16:00:21 adam
8 * Added -ansi to CFLAGS.
9 * Some changes to the dfa module.
11 * Revision 1.1 1994/09/26 10:16:53 adam
12 * First version of dfa module in alex. This version uses yacc to parse
13 * regular expressions. This should be hand-made instead.
26 #define GET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]&(1<<(m&(sizeof(BSetWord)*8-1))))
27 #define SET_BIT(s,m) (s[(m)/(sizeof(BSetWord)*8)]|=(1<<(m&(sizeof(BSetWord)*8-1))))
29 BSetHandle *mk_BSetHandle (int size, int chunk)
31 int wsize = 1+size/(sizeof(BSetWord)*8);
36 sh = (BSetHandle *) imalloc (sizeof(BSetHandle) +
37 chunk*sizeof(BSetWord)*wsize);
41 sh->chunk = chunk * wsize;
47 void rm_BSetHandle (BSetHandle **shp)
62 int inf_BSetHandle (BSetHandle *sh, long *used, long *allocated)
73 *allocated += sh->chunk;
74 } while ((sh = sh->setchain));
78 BSet mk_BSet (BSetHandle **shp)
87 if ((off + sh->wsize) > sh->chunk)
89 sh1 = (BSetHandle *) imalloc (sizeof(BSetHandle) +
90 sh->chunk*sizeof(BSetWord));
92 sh1->wsize = sh->wsize;
93 sh1->chunk = sh->chunk;
94 off = sh1->offset = 0;
98 sh->offset = off + sh->wsize;
99 return sh->setarray + off;
102 void add_BSet (BSetHandle *sh, BSet dst, unsigned member)
106 assert (member <= sh->size);
107 SET_BIT(dst, member);
110 unsigned test_BSet (BSetHandle *sh, BSet src, unsigned member)
114 assert (member <= sh->size);
115 return GET_BIT (src , member) != 0;
118 BSet cp_BSet (BSetHandle *sh, BSet dst, BSet src)
123 memcpy (dst, src, sh->wsize * sizeof(BSetWord));
127 void res_BSet (BSetHandle *sh, BSet dst)
130 memset (dst, 0, sh->wsize * sizeof(BSetWord));
133 void union_BSet (BSetHandle *sh, BSet dst, BSet src)
139 for (i=sh->wsize; --i >= 0;)
143 unsigned hash_BSet (BSetHandle *sh, BSet src)
149 for (i=sh->wsize; --i >= 0;)
154 void com_BSet (BSetHandle *sh, BSet dst)
159 for (i=sh->wsize; --i >= 0; dst++)
163 int eq_BSet (BSetHandle *sh, BSet dst, BSet src)
169 for (i=sh->wsize; --i >= 0;)
170 if (*dst++ != *src++)
175 int trav_BSet (BSetHandle *sh, BSet src, unsigned member)
177 int i = sh->size - member;
178 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
179 unsigned b = member & (sizeof(BSetWord)*8-1);
181 if (b == 0 && *sw == 0)
183 member += sizeof(BSetWord)*8;
185 i -= sizeof(BSetWord)*8;
187 else if (*sw & (1<<b))
193 if (++b == sizeof(BSetWord)*8)
202 int travi_BSet (BSetHandle *sh, BSet src, unsigned member)
204 int i = sh->size - member;
205 BSetWord *sw = src+member/(sizeof(BSetWord)*8);
206 unsigned b = member & (sizeof(BSetWord)*8-1);
208 if (b == 0 && *sw == (BSetWord) ~ 0)
210 member += sizeof(BSetWord)*8;
212 i -= sizeof(BSetWord)*8;
214 else if ((*sw & (1<<b)) == 0)
220 if (++b == sizeof(BSetWord)*8)
230 void pr_BSet (BSetHandle *sh, BSet src)
235 for (i=0; (i=trav_BSet(sh,src,i)) != -1; i++)
240 void pr_charBSet (BSetHandle *sh, BSet src, void (*f) (int))
246 i = trav_BSet (sh, src, 0);
253 i1 = trav_BSet (sh, src, ++i);
256 while ((i1=trav_BSet (sh, src, ++i)) == i)