testing/tcl_server.tcl

   1 # Simple tcl client to connect to openocd
   2 puts "Use empty line to exit"
   3 set fo [socket 127.0.0.1 6666]
   4 puts -nonewline stdout "> "
   5 flush stdout
   6 while {[gets stdin line] >= 0} {
   7     if {$line eq {}} break
   8     puts $fo $line
   9     flush $fo
  10     gets $fo line
  11     puts $line
  12     puts -nonewline stdout "> "
  13     flush stdout
  14 }
  15 close $fo