dummy_xsct.tcl

# Based on https://wiki.tcl-lang.org/page/The+simplest+possible+socket+demonstration

set run 1

proc accept {chan addr port} {          ;# Make a proc to accept connections
    while {1} {
        set cmd [gets $chan]
        puts "$addr:$port says $cmd"    ;# Receive a string
        set ans [eval $cmd] 
        set ans "okay $ans"
        after 100
        puts $chan $ans                 ;# Send the answer back
        flush $chan
        if {$cmd == "exit"} {
            close $chan                 ;# Close the socket (automatically flushes)
            set run 0
            break
        }
    }
}                                        ;#
socket -server accept 4567               ;# Create a server socket
vwait run