<?php

// Fast strstr() replacement function.
// (c) Matous Jan Fialka, 2006. Licence: GNU/GPL.

// string length function

function str_len ($target)
{
        $index = -1;
        while (1)
        {
                $index += 1;
                if ($target{$index} == "")
                {
                        break;
                }
        }
        return $index;
}

// fast strstr() replacement function

function fast_strstr ($src, $target)
{
        $slen = str_len ($src);
        $plen = str_len ($target);
        $fret = 0;
        for ($index = 0; $index <= $slen - $plen; $index++)
        {
                if ($target{0} == $src{$index})
                {
                        for ($index2=1; $index2 <= $plen - 1; $index2++)
                        {
                                if ($target{$index2} != $src{$index+$index2})
                                {
                                        continue 2;
                                }
                        }
                        $fret = $index;
                }
        }
        return $fret;
}

// demo program

printf ("%d\n", fast_strstr ("Matous Jan Fialka", "Jan"));

?>