<?PHP
function separate_version($file){
    
$items explode('-'$file);
    
$prog '';
    
$version '';
    
$revision 0;

    
$prog .= $items[0];
    
$x 1;
    while ( 
$x <= count($items) - && !is_numeric(substr($items[$x],0,1)) ){
        
$prog .= '-' $items[$x];
        
$x++;
    }

    while ( 
$x count($items) ){
        if(
$x == count($items) -&& substr($items[$x],0,1) == 'r'){
            
$revision trim($items$x ], 'r');
        }else{
            
$version .= '-' $items$x ];
        }
        
        
$x++;
    }
    
    return array( 
'program' => $prog'version' => trim($version'-'), 'revision' => $revision);
}
?>