git.sur5r.net Git - openocd/blob - testing/tcl_server.tcl

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