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

diff --git a/functions/string/strstr.c b/functions/string/strstr.c
index b249423..a1f8b74 100644
--- a/functions/string/strstr.c
+++ b/functions/string/strstr.c
@@ -15,3 +15,25 @@ char * strstr( char * s1, const char * s2 ) { /* TODO */ };
 // Standard C
 
 char * strstr( const char * s1, const char * s2 ) { /* TODO */ };
+
+/* PDPC code - unreviewed
+{
+    const char *p = s1, *p1, *p2 = s2;
+
+    while (*p)
+    {
+        if (*p == *s2)
+        {
+            p1 = p;
+            p2 = s2;
+            while ((*p2 != '\0') && (*p1++ == *p2++)) ;
+            if (*p2 == '\0')
+            {
+                return (char *)p;
+            }
+        }
+        p++;
+    }
+    return NULL;
+}
+*/