diff options
author | Antonio Borneo <borneo.antonio@gmail.com> | 2010-11-08 17:23:49 +0800 |
---|---|---|
committer | Øyvind Harboe <oyvind.harboe@zylin.com> | 2010-11-09 08:12:51 +0100 |
commit | e7b2958229c7e0d7e98e130764aa50d1ca9017d3 (patch) | |
tree | 93503ebca6e20ffe9ca968680b834ab75d809224 /tcl/chip/atmel/at91/usarts.tcl | |
parent | 4747af362de04b508c91df4004d2aed5579c8a1c (diff) |
TCL scripts: replace "puts" with "echo"
Signed-off-by: Antonio Borneo <borneo.antonio@gmail.com>
Diffstat (limited to 'tcl/chip/atmel/at91/usarts.tcl')
-rw-r--r-- | tcl/chip/atmel/at91/usarts.tcl | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tcl/chip/atmel/at91/usarts.tcl b/tcl/chip/atmel/at91/usarts.tcl index f798fc4a..68420292 100644 --- a/tcl/chip/atmel/at91/usarts.tcl +++ b/tcl/chip/atmel/at91/usarts.tcl @@ -41,9 +41,9 @@ proc show_mmr_USx_MR_helper { NAME ADDR VAL } { set x [show_normalize_bitfield $VAL 3 0] if { $x == 0 } { - puts "\tNormal operation" + echo "\tNormal operation" } else { - puts [format "\tNon Normal operation mode: 0x%02x" $x] + echo [format "\tNon Normal operation mode: 0x%02x" $x] } set x [show_normalize_bitfield $VAL 11 9] @@ -61,17 +61,17 @@ proc show_mmr_USx_MR_helper { NAME ADDR VAL } { } } } - puts [format "\tParity: %s " $s] + echo [format "\tParity: %s " $s] set x [expr 5 + [show_normalize_bitfield $VAL 7 6]] - puts [format "\tDatabits: %d" $x] + echo [format "\tDatabits: %d" $x] set x [show_normalize_bitfield $VAL 13 12] switch -exact $x { - 0 { puts "\tStop bits: 1" } - 1 { puts "\tStop bits: 1.5" } - 2 { puts "\tStop bits: 2" } - 3 { puts "\tStop bits: Illegal/Reserved" } + 0 { echo "\tStop bits: 1" } + 1 { echo "\tStop bits: 1.5" } + 2 { echo "\tStop bits: 2" } + 3 { echo "\tStop bits: Illegal/Reserved" } } } |