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) {}