array(array(1,1)),
'title'=>'',
'errors'=>0,
'errorstring'=>'');
$first=true;
$numlines=sizeof($lines);
for ($i=0;$i<$numlines;$i++)
{
if ($first)
{
$lines[$i]=trim($lines[$i]);
}
else
{
list($lines[$i])=preg_split('/[\s]+/', trim($lines[$i]), -1, PREG_SPLIT_NO_EMPTY);
}
if (strpos($lines[$i],'!')===0 || (!$first && $lines[$i]==''))
{
unset($lines[$i]);
}
else
{
$first=false;
}
}
$lines=array_values($lines);
$scale['title']=$lines[0];
$expected = (int)$lines[1];
$actual = sizeof($lines)-2;
if ($actual==$expected)
{
for($i=2;$i";
}
}
}
else
{
//die('Scala file read error! (1)');
//return array();
$scale['errors']++;
$scale['errorstring'].="Error: expected $expected tones but found $actual!\n
";
}
//echo '';print_r($scale);echo '
';
return $scale;
}
}
?>