#
# usage:
# source tdstest.tcl
# tdsread *idn?

load /control/lib/libtds.so
# set t [Tds_open 172.19.68.20]
package require http

proc tdsreset {} {
set token \
[::http::geturl http://172.19.68.20:8080/resetinst.cgi -timeout 60000  -query ""]
::http::cleanup $token
}

proc tdsopen {} {
    global t
    set t [Tds_open 172.19.68.20]
}

proc tdsread {com} {
    global t
    for {set i 0} {$i<=10} {incr i} {
	if {![catch "Tds_lock $t" stat]} break
	if {$i>10} {return -1}
	after 500
	puts "loop $i"
    }
    Tds_write $t $com
    puts [Tds_read $t]
    Tds_unlock $t
    return 0
}