mambo_utils: add p_str <addr> [limit]

Adds a helper function to mambo_utils.tcl that prints the NUL terminated
string at <addr>, and optionally limits the output to a fixed number of
characters.

Signed-off-by: Oliver O'Halloran <oohall@gmail.com>
Signed-off-by: Stewart Smith <stewart@linux.vnet.ibm.com>

1 files changed, 19 insertions, 0 deletions

diff --git a/external/mambo/mambo_utils.tcl b/external/mambo/mambo_utils.tcl
index e124343..879db92 100644
--- a/external/mambo/mambo_utils.tcl
+++ b/external/mambo/mambo_utils.tcl
@@ -161,6 +161,25 @@ proc hexdump { location count }    {
     }
 }
 
+proc get_char { addr } {
+    return [expr [mysim memory display "$addr" 1]]
+}
+
+proc p_str { addr { limit 0 } } {
+    set addr_limit 0xfffffffffffffffff
+    if { $limit > 0 } { set addr_limit [expr $limit + $addr] }
+    set s ""
+
+    for {} { [get_char "$addr"] != 0} { incr addr 1 } {
+        # memory display returns hex values with a leading 0x
+        set c [format %c [get_char "$addr"]]
+        set s [string cat "$s" "$c"]
+        if { $addr == $addr_limit } { break }
+    }
+
+    puts "$s"
+}
+
 proc slbv {} {
     puts [mysim cpu 0 display slb valid]
 }