From 3534b428629be185e096be99e3bd5fdfe32d5544 Mon Sep 17 00:00:00 2001 From: Laurent Bercot Date: Thu, 18 Sep 2014 18:55:44 +0000 Subject: initial commit with rc for skalibs-2.0.0.0 --- src/libdatastruct/gensetdyn_iter.c | 26 ++++++++++++++++++++++++++ 1 file changed, 26 insertions(+) create mode 100644 src/libdatastruct/gensetdyn_iter.c (limited to 'src/libdatastruct/gensetdyn_iter.c') diff --git a/src/libdatastruct/gensetdyn_iter.c b/src/libdatastruct/gensetdyn_iter.c new file mode 100644 index 0000000..216d42b --- /dev/null +++ b/src/libdatastruct/gensetdyn_iter.c @@ -0,0 +1,26 @@ +/* ISC license. */ + +#include +#include +#include + +unsigned int gensetdyn_iter (gensetdyn_ref g, iterfunc_t_ref f, void *stuff) +{ + /* + XXX: we may be called by a freeing function, so we cannot alloc - + XXX: so pray that the bitarray fits in the stack. + */ + unsigned char bits[bitarray_div8(g->storage.len)] ; + unsigned int i = 0, j = 0, n = 0, m = gensetdyn_n(g) ; + register unsigned int *fl = genalloc_s(unsigned int, &g->freelist) ; + register unsigned int sp = genalloc_len(unsigned int, &g->freelist) ; + bitarray_setn(bits, 0, g->storage.len) ; + + for (; i < sp ; i++) bitarray_clear(bits, fl[i]) ; + for (i = 0 ; (i < g->storage.len) && (j < m) ; i++) if (bitarray_peek(bits, i)) + { + j++ ; + if ((*f)(gensetdyn_p(g, i), stuff)) n++ ; + } + return n ; +} -- cgit v1.3.1