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/isisbn.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100755 reference/C/CONTRIB/SNIP/isisbn.c

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

diff --git a/reference/C/CONTRIB/SNIP/isisbn.c b/reference/C/CONTRIB/SNIP/isisbn.c
new file mode 100755
index 0000000..6fccee7
--- /dev/null
+++ b/reference/C/CONTRIB/SNIP/isisbn.c
@@ -0,0 +1,25 @@
+/*
+**  ISISBN.C - Validate International Standard Book Numbers (ISBNs)
+**
+**  public domain by Maynard Hogg
+*/
+
+#include <ctype.h>
+
+int isbn2(char *str)
+{
+      int i = 0;
+      int test = 0;
+      int c;
+
+      while ('\0' != (c = *str++))
+      {
+            if (isdigit(c))
+                  c -= '0';
+            else if (i == 9 && 'X' == c)
+                  c = 10;
+            else continue;
+            test += c * ++i;
+      }
+      return (i == 10 && test % 11 == 0);
+}
-- 
cgit v1.2.3-54-g00ecf