Version 0 of remote ssh tcl

Updated 2004-05-26 11:38:39 by CMCc

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 [email protected]
        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]
    }