", "") == "exon")
{
$pairfrom[] = intval(find($s, "", ""));
$pairto[] = intval(find($s, "", ""));
}
}
function process($s) {
global $pairfrom;
global $pairto;
multifind($s, "", "", process_feature);
$sequence = find($s, "", "");
for($i = 0; $i < sizeof($pairfrom); $i++) {
$part = substr($sequence, $pairfrom[$i], $pairto[$i] - $pairfrom[$i] + 1);
process_sequencepart($part);
}
}
$buf = file_get_contents("INSD.xml");
process($buf);
?>