proc connect {where} {
global ssh
set ssh [open "|ssh $where" "r+"]
fconfigure $ssh -buffering line -blocking 1
puts $ssh {
fconfigure stdout -buffering line
while {![eof stdin]} {
set cmd [gets stdin]
set code [catch $cmd result opt]
puts [string map [list \\ \\\\ \n \\n] $opt]
puts [string map [list \\ \\\\ \n \\n] $result]
}
}
return $ssh
}
proc remote {args} {
global ssh
#puts stderr "CMD: $args"
puts $ssh $args
set result ""
set cnt 0
set opt [string map [list \\n \n \\\\ \\] [gets $ssh]]
#puts "OPT: $opt"
set result [string map [list \\n \n \\\\ \\] [gets $ssh]]
#puts "RESULT: $result"
return -options [eval dict create $opt] $result
}
if {[info exists argv0] && ($argv0 == [info script])} {
connect snapshot@colin
puts [remote set mumble 100]
puts [remote incr mumble]
puts [remote set mumble]
puts [remote return "Woo\\nWoo\\n"]
puts [remote set blerf] ;# expect an error here
puts [remote set mumble]
}