Posted to tcl by haole at Wed Jul 16 20:10:13 GMT 2014view raw
- 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) {}