initial commit with rc for skalibs-2.0.0.0

1 files changed, 11 insertions, 0 deletions

diff --git a/src/libstddjb/bitarray_testandpoke.c b/src/libstddjb/bitarray_testandpoke.c
new file mode 100644
index 0000000..5075f1d
--- /dev/null
+++ b/src/libstddjb/bitarray_testandpoke.c
@@ -0,0 +1,11 @@
+/* ISC license. */
+
+#include <skalibs/bitarray.h>
+
+int bitarray_testandpoke (register unsigned char *s, register unsigned int n, register int h)
+{
+  register unsigned char mask = 1 << (n & 7) ;
+  register unsigned char c = s[n>>3] ;
+  s[n>>3] = h ? c | mask : c & ~mask ;
+  return (c & mask) ? 1 : 0 ;
+}