404 Not Found");
if( $respos > 0){
echo "<![CDATA[track xml not found]]>";
return;
}
$dom = domxml_open_mem( $xmlstr );
if( ! $dom ) { return NULL; }
$root = $dom->document_element();
if( $root->node_name() != 'track' ) { return NULL; }
$ret = array();
$ret['name'] = $root->get_attribute('name');
$ret['comment'] = $root->get_attribute('comment');
$ret['description_url'] = $root->get_attribute('description_url');
$ret['optattr'] = $root->get_attribute('optattr');
if( $root_child = $root->first_child() ) {
do {
if( $root_child->node_name() == 'layers' ) {
$ret['layers'] = array();
if( $layers_child = $root_child->first_child() ) {
do {
if( $layers_child->node_name() == 'layer' ) {
$layer = array();
$layer['kind'] = $layers_child->get_attribute('kind');
$layer['url'] = expand_metaurl( $layers_child->get_attribute('url'));
$ret['layers'][$layer['kind']] = $layer;
}
} while( $layers_child = $layers_child->next_sibling() );
}
}
elseif( $root_child->node_name() == 'species' ) {
$ret['species'] = array();
if( $species_child = $root_child->first_child() ) {
do {
if( $species_child->node_name() == 'species' ) {
$species = array();
$species['name'] = $species_child->get_attribute('name');
if( $species_grandchild = $species_child->first_child() ) {
do {
if( $species_grandchild->node_name() == 'revisions' ) {
$species['revisions'] = array();
if( $revisions_child = $species_grandchild->first_child() ) {
do {
if( $revisions_child->node_name() == 'revision' ) {
$species['revisions'][] = $revisions_child->get_attribute('name');
}
} while( $revisions_child = $revisions_child->next_sibling() );
}
}
} while( $species_grandchild = $species_grandchild->next_sibling() );
}
$ret['species'][] = $species;
}
} while( $species_child = $species_child->next_sibling() );
}
}
} while( $root_child = $root_child->next_sibling() );
}
return $ret;
}
///////////////////////////////////////////////////////////////////////////////
// [get_first_text_value]
///////////////////////////////////////////////////////////////////////////////
function get_first_text_value( $domelem ) {
$child = $domelem->first_child();
if( ! $child ) { return NULL; }
do {
if( $child->node_name() == '#text' ) {
return $child->node_value();
}
} while( $child = $child->next_sibling() );
return NULL;
}
///////////////////////////////////////////////////////////////////////////////
// [http_get]
///////////////////////////////////////////////////////////////////////////////
function http_get( $url, $timeout=1 ) {
$url = expand_metaurl($url);
$ch = curl_init( $url );
curl_setopt( $ch, CURLOPT_USERAGENT, 'UTGB' );
curl_setopt( $ch, CURLOPT_TIMEOUT, $timeout );
ob_start();
curl_exec( $ch );
if( ! curl_errno( $ch ) ) {
curl_close( $ch );
$retrievedhtml = ob_get_contents();
ob_end_clean();
return $retrievedhtml;
}
else {
curl_close( $ch );
ob_end_clean();
return NULL;
}
}
///////////////////////////////////////////////////////////////////////////////
// [http_get_with_info]
///////////////////////////////////////////////////////////////////////////////
function http_get_with_info( $url, $tileout=1 ) {
$ch = curl_init( $url );
curl_setopt( $ch, CURLOPT_USERAGENT, 'UTGB' );
curl_setopt( $ch, CURLOPT_HEADER, $tileout );
ob_start();
curl_exec( $ch );
if( ! curl_errno( $ch ) ) {
$info = curl_getinfo( $ch );
curl_close( $ch );
$retrieved = ob_get_contents();
ob_end_clean();
$separated = explode( "\r\n\r\n", $retrieved );
$separatedheader = explode( "\r\n", array_shift($separated) );
$retrievedstatus = array_shift( $separatedheader );
$retrievedheader = array();
foreach( $separatedheader as $sh ) {
$sep = explode( ': ', $sh );
$name = array_shift( $sep );
$retrievedheader[$name] = implode( ': ', $sep );
}
$retrievedhtml = implode( "\r\n\r\n", $separated );
return array( 'status' => $retrievedstatus, 'header' => $retrievedheader, 'contents' => $retrievedhtml, 'info' => $info );
}
else {
curl_close( $ch );
ob_end_clean();
return NULL;
}
}
///////////////////////////////////////////////////////////////////////////////
// [query2string]
// 概要 : 連想配列形式のクエリーを文字列に変換する
// 例 : 入力 ; array( 'a' => 'b', 'c' => 'd' )
// 出力 ; 'a=b&c=d'
///////////////////////////////////////////////////////////////////////////////
function query2string( $query ) {
$ret = '';
foreach( $query as $key => $val ) {
$ret .= $key.'='.$val.'&';
}
return substr( $ret, 0, -1 );
}
///////////////////////////////////////////////////////////////////////////////
// [getmovedquery]
///////////////////////////////////////////////////////////////////////////////
function getmovedquery( $query, $distance, $thislen ) {
if( is_numeric($query['start']) && is_numeric($query['end']) ) {
if( $query['start'] <= $query['end'] ) {
$query['start'] += $distance;
$query['end'] += $distance;
}
else {
$query['start'] -= $distance;
$query['end'] -= $distance;
}
if( $query['start'] < 0 ) {
$query['end'] -= $query['start'];
$query['start'] = 0;
}
if( $query['end'] < 0 ) {
$query['start'] -= $query['end'];
$query['end'] = 0;
}
if( $thislen-1 < $query['end'] ) {
$query['start'] -= $query['end'] - ($thislen - 1);
$query['end'] = $thislen-1;
}
if( $thislen-1 < $query['start'] ) {
$query['end'] -= $query['start'] - ($thislen - 1);
$query['start'] = $thislen-1;
}
$query['start'] = round($query['start']);
$query['end'] = round($query['end']);
}
return $query;
}
///////////////////////////////////////////////////////////////////////////////
// [getzoomedquery]
///////////////////////////////////////////////////////////////////////////////
function getzoomedquery( $query, $zoomrate, $thislen ) {
if( is_numeric($query['start']) && is_numeric($query['end']) && is_numeric($query['width']) ) {
$center = ( $query['start'] + $query['end'] ) / 2;
$width = $query['width'];
if( $query['start'] <= $query['end'] ) {
$query['start'] = $center - $width/$zoomrate/2;
$query['end'] = $center + $width/$zoomrate/2;
}
else {
$query['start'] = $center + $width/$zoomrate/2;
$query['end'] = $center - $width/$zoomrate/2;
}
if( $query['start'] < 0 ) {
$query['end'] -= $query['start'];
$query['start'] = 0;
}
if( $query['end'] < 0 ) {
$query['start'] -= $query['end'];
$query['end'] = 0;
}
$query['start'] = round($query['start']);
$query['end'] = round($query['end']);
}
return $query;
}
///////////////////////////////////////////////////////////////////////////////
// [getreversedquery]
///////////////////////////////////////////////////////////////////////////////
function getreversedquery( $query ) {
if( is_numeric($query['start']) && is_numeric($query['end']) ) {
$tmp = $query['start'];
$query['start'] = $query['end'];
$query['end'] = $tmp;
}
return $query;
}
///////////////////////////////////////////////////////////////////////////////
// [parse_optattr]
// 入力 : optattr 文字列
// Ex. 'fromSpecies/select[medaka,fugu,zebrafish](disp,color,sort),matchRate/real[0.7,1.0](color,ubound,lbound)'
// 出力 : optattr 情報
// Ex. array( array( 'name' => 'fromSpecies',
// 'type' => 'select',
// 'candidates' => array('medaka','fugu','zebrafish'),
// 'operation' => array('disp','color','sort') ),
// array( 'matchRate' => 'fromSpecies',
// 'type' => 'real',
// 'range' => array( 0.7, 1.0 ),
// 'operation' => array('color','ubound','lbound') ) )
///////////////////////////////////////////////////////////////////////////////
function parse_optattr( $optattr_str ) {
$ret = array();
while( preg_match( '/^([^\/]+)\/([^\[\]]+)\[([^\[\]]+)\]\(([^\[\]]+)\)\,?/', $optattr_str, $matches ) ) {
$optattr = array();
$optattr['name'] = $matches[1];
$optattr['type'] = $matches[2];
if( $optattr['type'] == 'select' ) {
$optattr['candidates'] = explode( ',', $matches[3] );
}
elseif( $optattr['type'] == 'real' ) {
$optattr['range'] = explode( ',', $matches[3] );
}
$optattr['operation'] = explode( ',', $matches[4] );
$ret[] = $optattr;
$optattr_str = substr( $optattr_str, strlen( $matches[0] ) );
}
if( count($ret) == 0 ) {
return null;
}
else {
return $ret;
}
}
///////////////////////////////////////////////////////////////////////////////
// [print_color_selecter]
///////////////////////////////////////////////////////////////////////////////
function print_color_selecter( $name, $color=null, $id=nulll, $disabled=null ) {
$colors = array( array( 'color' => '(0,0,0)', 'name' => 'Black' ),
array( 'color' => '(255,0,0)', 'name' => 'Red' ),
array( 'color' => '(255,255,0)', 'name' => 'Yellow' ),
array( 'color' => '(0,255,0)', 'name' => 'Green' ),
array( 'color' => '(0,255,255)', 'name' => 'Cyan' ),
array( 'color' => '(0,0,255)', 'name' => 'Blue' ),
array( 'color' => '(255,0,255)', 'name' => 'Violet' ),
array( 'color' => '(255,255,255)', 'name' => 'White' ),
array( 'color' => '(153,102,0)', 'name' => 'Chr1' ),
array( 'color' => '(102,102,0)', 'name' => 'Chr2' ),
array( 'color' => '(153,153,0)', 'name' => 'Chr3' ),
array( 'color' => '(204,0,0)', 'name' => 'Chr4' ),
array( 'color' => '(254,0,0)', 'name' => 'Chr5' ),
array( 'color' => '(254,0,204)', 'name' => 'Chr6' ),
array( 'color' => '(254,204,204)', 'name' => 'Chr7' ),
array( 'color' => '(254,153,0)', 'name' => 'Chr8' ),
array( 'color' => '(254,204,0)', 'name' => 'Chr9' ),
array( 'color' => '(254,254,0)', 'name' => 'Chr10' ),
array( 'color' => '(204,254,0)', 'name' => 'Chr11' ),
array( 'color' => '(0,254,0)', 'name' => 'Chr12' ),
array( 'color' => '(53,128,0)', 'name' => 'Chr13' ),
array( 'color' => '(0,0,204)', 'name' => 'Chr14' ),
array( 'color' => '(102,153,254)', 'name' => 'Chr15' ),
array( 'color' => '(153,204,254)', 'name' => 'Chr16' ),
array( 'color' => '(0,254,254)', 'name' => 'Chr17' ),
array( 'color' => '(204,254,254)', 'name' => 'Chr18' ),
array( 'color' => '(153,0,204)', 'name' => 'Chr19' ),
array( 'color' => '(204,51,254)', 'name' => 'Chr20' ),
array( 'color' => '(204,153,254)', 'name' => 'Chr21' ),
array( 'color' => '(102,102,102)', 'name' => 'Chr22' ),
array( 'color' => '(153,153,153)', 'name' => 'ChrX' ),
array( 'color' => '(204,204,204)', 'name' => 'ChrY' ),
array( 'color' => '(204,204,153)', 'name' => 'ChrM' ),
array( 'color' => '(121,204,61)', 'name' => 'ChrUn' ) );
if ( is_null($disabled) ) {
print "