You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

16 lines
331 B

  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