X-Git-Url: https://pd.if.org/git/?p=pdclib;a=blobdiff_plain;f=functions%2Fstring%2Fstrspn.c;h=6b0e586b79f661152d774d7ccbb1c28888649628;hp=47b28618b7a0004072d85fb0a0171b5c1957f3ff;hb=0a5395faab237ba9008352b0f4bee9659bbd3d5f;hpb=34893ecc2200dc7017c36a54cb6c5f4c2378b5ec

diff --git a/functions/string/strspn.c b/functions/string/strspn.c
index 47b2861..6b0e586 100644
--- a/functions/string/strspn.c
+++ b/functions/string/strspn.c
@@ -6,3 +6,24 @@
 // ----------------------------------------------------------------------------
 
 size_t strspn( const char * s1, const char * s2 ) { /* TODO */ };
+
+/* PDPC code - unreviewed
+{
+    const char *p1;
+    const char *p2;
+    
+    p1 = s1;
+    while (*p1 != '\0')
+    {
+        p2 = s2;
+        while (*p2 != '\0')
+        {
+            if (*p1 == *p2) break;
+            p2++;
+        }
+        if (*p2 == '\0') return ((size_t)(p1 - s1));
+        p1++;
+    }
+    return ((size_t)(p1 - s1));
+}
+*/