error "syntax error" at line 17 character 0
" the License.
 -->

< <--Error-- !doctype html>
OUTPUT BUFFER:
#!/usr/local/bin/tclsh


package require WS::Client


proc pdict { d {i 0} {p "  "} {s " -> "} } {
    set errorInfo $::errorInfo
    set errorCode $::errorCode
    set fRepExist [expr {0 < [llength\
	    [info commands tcl::unsupported::representation]]}]
    while 1 {
        if { [catch {dict keys $d}] } {
            if {! [info exists dName] && [uplevel 1 [list info exists $d]]} {
                set dName $d
                unset d
                upvar 1 $dName d
                continue
            }
            return -code error  "error: pdict - argument is not a dict"
        }
        break
    }
    if {[info exists dName]} {
        puts "dict $dName"
    }
    set prefix [string repeat $p $i]
    set max 0
    foreach key [dict keys $d] {
        if { [string length $key] > $max } {
            set max [string length $key]
        }
    }
    dict for {key val} ${d} {
        puts -nonewline "${prefix}[format "%-${max}s" $key]$s"
        if {    $fRepExist && ! [string match "value is a dict*"\
		[tcl::unsupported::representation $val]]
	|| ! $fRepExist && [catch {dict keys $val}] } {
            puts "'${val}'"
        } else {
            puts ""
            pdict $val [expr {$i+1}] $p $s
        }
    }
    set ::errorInfo $errorInfo
    set ::errorCode $errorCode
    return ""
}


proc main_db {} {
    # EB-eye WSDL
    set ret [::WS::Client::GetAndParseWsdl "http://www.ebi.ac.uk/ebisearch/service.ebi?wsdl"]

    puts "WSDL Utils"
    pdict $ret
    #exit

    puts "\n######\n# Bank Info\n"
    set ddb [::WS::Client::DoCall EBISearchService listDomains [list ]]
    pdict $ddb
    set Lres [dict get $ddb [dict keys $ddb]]
    foreach res $Lres {
	set lv [lindex $res 1]
	foreach v $lv {
	    puts "  $v"
	}
    }

    set ddb [::WS::Client::DoCall EBISearchService listFields [list domain uniprot]]
    pdict $ddb
    #exit

    set ddb [::WS::Client::DoCall EBISearchService getDomainsHierarchy ""]
    pdict $ddb
    exit

    set ddb [::WS::Client::DoCall EBISearchService getEntry [list domain uniprot query p14868]]
    pdict $ddb

    exit

    return
}


proc main_seq {{id ""}} {
    # WSDL address for fetch service
    puts "\n########"
    puts "# Fetch IDs in NCBI through WS"
    puts ""

    set ret [::WS::Client::GetAndParseWsdl "http://www.ncbi.nlm.nih.gov/entrez/eutils/soap/v2.0/efetch_seq.wsdl"]
    #pdict $ret

    # query data for a given Id
    set ft [::WS::Client::DoCall eFetchSequenceService run_eFetch [list db "protein" id "XP_002295841,XP_570076"]]
    
    puts "[dict info $ft]"
    pdict $ft
    puts ""

    dict for {k v} $ft {
	puts "Jdon1 $k [llength $v]"
	if {! ([llength $v] % 2)} {
	    lassign $v k1 v1
	    puts "   Jdon2 $k1 [llength $v1]"
	    foreach idl $v1 {
		foreach {m n} $idl {
		    puts "     $m $n"
		}
	    }
	}
    }

    return
}

main_db
#::log::lvSuppress info 0
main_seq

exit