From 7e0f021a9aec35fd8e6725e87e3313b101d26f5e Mon Sep 17 00:00:00 2001
From: Tobias Klauser <tklauser@distanz.ch>
Date: Sun, 27 Jan 2008 11:37:44 +0100
Subject: Initial import (2.0.2-6)

---
 reference/C/CONTRIB/SNIP/hstr_i.c | 48 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 48 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/hstr_i.c

(limited to 'reference/C/CONTRIB/SNIP/hstr_i.c')

diff --git a/reference/C/CONTRIB/SNIP/hstr_i.c b/reference/C/CONTRIB/SNIP/hstr_i.c
new file mode 100755
index 0000000..a0976b9
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/hstr_i.c
@@ -0,0 +1,48 @@
+/*
+**  Originally published as part of the MicroFirm Function Library
+**
+**  Copyright 1986, S.E. Margison
+**  Copyright 1989, Robert B.Stout
+**
+**  Subset version released to the public domain, 1992
+**
+**  Make an ascii hexadecimal string into an integer.
+*/
+
+#include <stdio.h>
+#include <ctype.h>
+
+unsigned int hstr_i(char *cptr)
+{
+      unsigned int i, j = 0;
+
+      while (cptr && *cptr && isxdigit(*cptr))
+      {
+            i = *cptr++ - '0';
+            if (9 < i)
+                  i -= 7;
+            j <<= 4;
+            j |= (i & 0x0f);
+      }
+      return(j);
+}
+
+#ifdef TEST
+
+#include <stdio.h>
+#include <stdlib.h>
+
+int main(int argc, char *argv[])
+{
+      char *arg;
+      unsigned int x;
+
+      while (--argc)
+      {
+            x = hstr_i(arg = *++argv);
+            printf("Hex %s = %d\n", arg, x, x);
+      }
+      return EXIT_SUCCESS;
+}
+
+#endif /* TEST */
-- 
cgit v1.2.3-54-g00ecf