1 files changed, 32 insertions, 0 deletions
diff --git a/libc/string/strcspn.c b/libc/string/strcspn.c
new file mode 100644
index 000000000..619c8be6b
--- /dev/null
+++ b/libc/string/strcspn.c
@@ -0,0 +1,32 @@
+/* strcspn.c */
+
+/* from Schumacher's Atari library, improved */
+
+#include <string.h>
+
+size_t strcspn(string, set)
+register char *string;
+char *set;
+/*
+ *	Return the length of the sub-string of <string> that consists
+ *	entirely of characters not found in <set>.  The terminating '\0'
+ *	in <set> is not considered part of the match set.  If the first
+ *	character if <string> is in <set>, 0 is returned.
+ */
+{
+    register char *setptr;
+    char *start;
+
+    start = string;
+    while (*string)
+    {
+	setptr = set;
+	do
+	    if (*setptr == *string)
+		goto break2;
+	while (*setptr++);
+	++string;
+    }
+break2:
+    return string - start;
+}