Source restructure. yaz-marcdump part of installation

[yaz-moved-to-github.git] / src / atoin.c

diff --git a/src/atoin.c b/src/atoin.c
new file mode 100644 (file)
index 0000000..1bc5947
--- /dev/null
+++ b/src/atoin.c
@@ -0,0 +1,28 @@
+/*
+ * Copyright (c) 1997-2003, Index Data
+ * See the file LICENSE for details.
+ *
+ * $Id: atoin.c,v 1.1 2003-10-27 12:21:30 adam Exp $
+ */
+
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <string.h>
+#include <ctype.h>
+#include <yaz/yaz-util.h>
+
+int atoi_n (const char *buf, int len)
+{
+    int val = 0;
+
+    while (--len >= 0)
+    {
+        if (isdigit (*buf))
+            val = val*10 + (*buf - '0');
+       buf++;
+    }
+    return val;
+}
+