Changeset 3372

Timestamp:

Oct 17, 2012 9:05:36 AM (8 months ago)

Author:

quozl

Message:

decompiler - for strings with embedded control characters, render the characters as #, to fix visual debugger rendering, ​http://dev.laptop.org/ticket/12104

File:

• forth/lib/decomp.fth (modified) (1 diff)

forth/lib/decomp.fth

@@ -331 +331 @@
    2swap               ( ip $ name$ )
 ;
+
+: type#  ( $ -- )  \ render control characters as green #
+   bounds ?do
+      i c@ dup h# 20 < if
+         drop green-letters ." #" red-letters
+      else
+         emit
+      then
+   loop
+;
+
 : .string-tail  ( $ name$ -- )
    2 pick over +  3 + ?line    ( $ name$ )  \ Keep word and string on the same line
    cr".  space                 ( $ )
-   red-letters type            ( )
+   red-letters type#           ( )
    magenta-letters             ( )
    ." "" "                     ( )