From e7b2958229c7e0d7e98e130764aa50d1ca9017d3 Mon Sep 17 00:00:00 2001 From: Antonio Borneo Date: Mon, 8 Nov 2010 17:23:49 +0800 Subject: TCL scripts: replace "puts" with "echo" Signed-off-by: Antonio Borneo --- tcl/chip/atmel/at91/aic.tcl | 24 ++++++++++++------------ tcl/chip/atmel/at91/rtt.tcl | 18 +++++++++--------- tcl/chip/atmel/at91/usarts.tcl | 16 ++++++++-------- tcl/chip/st/spear/quirk_no_srst.tcl | 4 ++-- tcl/chip/st/spear/spear3xx_ddr.tcl | 4 ++-- 5 files changed, 33 insertions(+), 33 deletions(-) (limited to 'tcl/chip') diff --git a/tcl/chip/atmel/at91/aic.tcl b/tcl/chip/atmel/at91/aic.tcl index 366be6d..6dae36a 100644 --- a/tcl/chip/atmel/at91/aic.tcl +++ b/tcl/chip/atmel/at91/aic.tcl @@ -57,33 +57,33 @@ proc show_AIC { } { if [catch { mem2array aaa 32 $AIC_SMR [expr 32 * 4] } msg ] { error [format "%s (%s)" $msg AIC_SMR] } - puts "AIC_SMR: Mode & Type" + echo "AIC_SMR: Mode & Type" global AT91C_ID for { set x 0 } { $x < 32 } { } { - puts -nonewline " " - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n " " + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] + echo [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] incr x } global AIC_SVR if [catch { mem2array aaa 32 $AIC_SVR [expr 32 * 4] } msg ] { error [format "%s (%s)" $msg AIC_SVR] } - puts "AIC_SVR: Vectors" + echo "AIC_SVR: Vectors" for { set x 0 } { $x < 32 } { } { - puts -nonewline " " - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n " " + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts -nonewline [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] + echo -n [format "%2d: %5s 0x%08x | " $x $AT91C_ID($x) $aaa($x)] incr x - puts [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] + echo [format "%2d: %5s 0x%08x" $x $AT91C_ID($x) $aaa($x)] incr x } diff --git a/tcl/chip/atmel/at91/rtt.tcl b/tcl/chip/atmel/at91/rtt.tcl index 433cfe3..8be6a56 100644 --- a/tcl/chip/atmel/at91/rtt.tcl +++ b/tcl/chip/atmel/at91/rtt.tcl @@ -18,16 +18,16 @@ proc show_RTTC_RTMR_helper { NAME ADDR VAL } { # Nasty hack, make this a float by tacking a .0 on the end # otherwise, jim makes the value an integer set f [expr $AT91C_SLOWOSC_FREQ.0 / $rtpres.0] - puts [format "\tPrescale value: 0x%04x (%5d) => %f Hz" $rtpres $rtpres $f] + echo [format "\tPrescale value: 0x%04x (%5d) => %f Hz" $rtpres $rtpres $f] if { $VAL & $BIT16 } { - puts "\tBit16 -> Alarm IRQ Enabled" + echo "\tBit16 -> Alarm IRQ Enabled" } else { - puts "\tBit16 -> Alarm IRQ Disabled" + echo "\tBit16 -> Alarm IRQ Disabled" } if { $VAL & $BIT17 } { - puts "\tBit17 -> RTC Inc IRQ Enabled" + echo "\tBit17 -> RTC Inc IRQ Enabled" } else { - puts "\tBit17 -> RTC Inc IRQ Disabled" + echo "\tBit17 -> RTC Inc IRQ Disabled" } # Bit 18 is write only. } @@ -35,14 +35,14 @@ proc show_RTTC_RTMR_helper { NAME ADDR VAL } { proc show_RTTC_RTSR_helper { NAME ADDR VAL } { global BIT0 BIT1 if { $VAL & $BIT0 } { - puts "\tBit0 -> ALARM PENDING" + echo "\tBit0 -> ALARM PENDING" } else { - puts "\tBit0 -> alarm not pending" + echo "\tBit0 -> alarm not pending" } if { $VAL & $BIT1 } { - puts "\tBit0 -> RTINC PENDING" + echo "\tBit0 -> RTINC PENDING" } else { - puts "\tBit0 -> rtinc not pending" + echo "\tBit0 -> rtinc not pending" } } diff --git a/tcl/chip/atmel/at91/usarts.tcl b/tcl/chip/atmel/at91/usarts.tcl index f798fc4..6842029 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" } } } diff --git a/tcl/chip/st/spear/quirk_no_srst.tcl b/tcl/chip/st/spear/quirk_no_srst.tcl index df22764..fd02d07 100644 --- a/tcl/chip/st/spear/quirk_no_srst.tcl +++ b/tcl/chip/st/spear/quirk_no_srst.tcl @@ -37,9 +37,9 @@ proc sp_reset_deassert_post {} { set bar(3) \\ poll on - puts "====> Press reset button on the board <====" + echo "====> Press reset button on the board <====" for {set i 0} { [sp_is_halted] == 0 } { set i [expr $i + 1]} { - puts -nonewline "$bar([expr $i & 3])\r" + echo -n "$bar([expr $i & 3])\r" sleep 200 } diff --git a/tcl/chip/st/spear/spear3xx_ddr.tcl b/tcl/chip/st/spear/spear3xx_ddr.tcl index eb1c4b0..a804cdc 100644 --- a/tcl/chip/st/spear/spear3xx_ddr.tcl +++ b/tcl/chip/st/spear/spear3xx_ddr.tcl @@ -23,11 +23,11 @@ proc sp3xx_ddr_init {ddr_type} { mww $ddr_size 0x87654321 mww 0x00000000 0x12345678 if {[expr [mrw 0x00000000] == 0x12345678 && [mrw $ddr_size] == 0x87654321]} { - puts [format \ + echo [format \ "Double chip DDR memory. Total memory size 0x%08x byte" \ [expr 2 * $ddr_size]] } else { - puts [format \ + echo [format \ "Single chip DDR memory. Memory size 0x%08x byte" \ $ddr_size] } -- cgit v1.1