# Simple tcl client to connect to openocd puts "Use empty line to exit" set fo [socket 127.0.0.1 6666] puts -nonewline stdout "> " flush stdout while {[gets stdin line] >= 0} { if {$line eq {}} break puts $fo $line flush $fo gets $fo line puts $line puts -nonewline stdout "> " flush stdout } close $fo />
aboutsummaryrefslogtreecommitdiff
path: root/step-05/Emakefile
blob: 46702877dac1b4962eb5d8e1eb5f97a5b65c7f6d (plain) 
1