1 files changed, 40 insertions, 0 deletions
diff --git a/reference/C/CONTRIB/SNIP/bstr_i.c b/reference/C/CONTRIB/SNIP/bstr_i.c
new file mode 100755
index 0000000..94255e1
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/bstr_i.c
@@ -0,0 +1,40 @@
+/*
+**  Make an ascii binary string into an integer.
+**
+**  Public domain by Bob Stout
+*/
+
+#include <string.h>
+
+unsigned int bstr_i(char *cptr)
+{
+      unsigned int i, j = 0;
+
+      while (cptr && *cptr && strchr("01", *cptr))
+      {
+            i = *cptr++ - '0';
+            j <<= 1;
+            j |= (i & 0x01);
+      }
+      return(j);
+}
+
+#ifdef TEST
+
+#include <stdio.h>
+#include <stdlib.h>
+
+int main(int argc, char *argv[])
+{
+      char *arg;
+      unsigned int x;
+
+      while (--argc)
+      {
+            x = bstr_i(arg = *++argv);
+            printf("Binary %s = %d = %04Xh\n", arg, x, x);
+      }
+      return EXIT_SUCCESS;
+}
+
+#endif /* TEST */