klib and makefile

[zos] / klib / strcspn.c

diff --git a/klib/strcspn.c b/klib/strcspn.c
new file mode 100644 (file)
index 0000000..8970175
--- /dev/null
+++ b/klib/strcspn.c
@@ -0,0 +1,17 @@
+#include <string.h>
+
+size_t strcspn(const char *s1, const char *s2) {
+       size_t len = 0;
+       const char *p;
+
+       while (s1[len]) {
+               p = s2;
+               while (*p) {
+                       if (s1[len] == *p++) {
+                               return len;
+                       }
+               }
+               ++len;
+       }
+       return len;
+}