initial commit with rc for skalibs-2.0.0.0

1 files changed, 14 insertions, 0 deletions

diff --git a/src/libstddjb/bitarray_firstset.c b/src/libstddjb/bitarray_firstset.c
new file mode 100644
index 0000000..de3d27e
--- /dev/null
+++ b/src/libstddjb/bitarray_firstset.c
@@ -0,0 +1,14 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+unsigned int bitarray_firstset (register unsigned char const *s, unsigned int max)
+{
+  unsigned int n = bitarray_div8(max) ;
+  register unsigned int i = 0 ;
+  for (; i < n ; i++) if (s[i]) break ;
+  if (i == n) return max ;
+  i <<= 3 ;
+  while ((i < max) && !bitarray_peek(s, i)) i++ ;
+  return i ;
+}