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

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;
+}
+*/