Funkciju labojums: .. 

sestdien, 18.12.2004 @5:14 pm | Kaitnieks-San

Funkciju labojums:

#################################################
## atgriež viena simbola atrašanās vietu tekstā.
## ja $dir ir -1, meklē no beigām.
## kur, ko, no kura gala

function chrpos(string haystack, string needle, int dir) : int {

if ($dir == -1) { $haystack = reverse $haystack; }

foreach var int i (0..size $haystack) {
if ($haystack->substr($i,size $needle)==$needle) {
if ($dir == -1) {
return $haystack->length() - $i;
} else
{
return $i;
}
}
}
return -1;
}

function chrpos(string haystack, string needle) : int {
return chrpos($haystack, $needle, 1);
}


function autosubject(string text, int maxlen) : string {
var string result;
$result = $text->substr(0, $maxlen);
var int tuksne = chrpos($result, " ", -1);
if ($tuksne > 0) {
$result = $result->substr(0, $tuksne - 1);
}
$result = $result + "..";
return $result;
}
###########################