Posted to tcl by haole at Wed Jul 16 20:10:13 GMT 2014view pretty
set serial [open /dev/ttyUSB0 r+] fconfigure $serial -mode "115200,n,8,1" fconfigure $serial -blocking 0 -buffering none fileevent $serial readable { set data [gets $serial] puts $data } while(1) {}