From 49b6493a99cdcf66b2c9da42318238e26c652c81 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Tue, 10 Feb 2015 13:39:20 -0800
Subject: 730 - first test for trace browser

This was painless compared to the chessboard app. Still need to handle
input, though. Fingers crossed..
---
 trace.mu | 58 +++++++++++++++++++++++++++++++++++-----------------------
 1 file changed, 35 insertions(+), 23 deletions(-)

(limited to 'trace.mu')

diff --git a/trace.mu b/trace.mu
index 2f72b850..06674020 100644
--- a/trace.mu
+++ b/trace.mu
@@ -106,16 +106,20 @@
 
 (function print-trace [
   (default-space:space-address <- new space:literal 30:literal)
+  (screen:terminal-address <- next-input)
   (x:trace-address <- next-input)
   (l:string-address <- get x:trace-address/deref label:offset)
-  (print-string nil:literal/terminal l:string-address)
-  ($print ((" : " literal)))
+  (print-string screen:terminal-address l:string-address)
+  (print-character screen:terminal-address ((#\space literal)))
+  (print-character screen:terminal-address ((#\: literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   (c:string-address <- get x:trace-address/deref contents:offset)
-  (print-string nil:literal/terminal c:string-address)
+  (print-string screen:terminal-address c:string-address)
 ])
 
 (function print-instruction-trace [
   (default-space:space-address <- new space:literal 30:literal)
+  (screen:terminal-address <- next-input)
   (x:instruction-trace-address <- next-input)
   ; print call stack
   (c:string-address-array-address <- get x:instruction-trace-address/deref call-stack:offset)
@@ -125,20 +129,22 @@
     (done?:boolean <- greater-or-equal i:integer len:integer)
     (break-if done?:boolean)
     (s:string-address <- index c:string-address-array-address/deref i:integer)
-    (print-string nil:literal/terminal s:string-address)
-    ($print (("/" literal)))
+    (print-string screen:terminal-address s:string-address)
+    (print-character screen:terminal-address ((#\/ literal)))
     (i:integer <- add i:integer 1:literal)
     (loop)
   }
   ; print pc
-  ($print ((" " literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   (p:string-address <- get x:instruction-trace-address/deref pc:offset)
-  (print-string nil:literal/terminal p:string-address)
+  (print-string screen:terminal-address p:string-address)
   ; print instruction
-  ($print ((" : " literal)))
+  (print-character screen:terminal-address ((#\space literal)))
+  (print-character screen:terminal-address ((#\: literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   (i:string-address <- get x:instruction-trace-address/deref instruction:offset)
-  (print-string nil:literal/terminal i:string-address)
-  ($print (("\r\n" literal)))
+  (print-string screen:terminal-address i:string-address)
+  (cursor-to-next-line screen:terminal-address)
   ; print children
   (ch:trace-address-array-address <- get x:instruction-trace-address/deref children:offset)
   (i:integer <- copy 0:literal)
@@ -152,9 +158,9 @@
     (done?:boolean <- greater-or-equal i:integer len:integer)
     (break-if done?:boolean)
     (t:trace-address <- index ch:trace-address-array-address/deref i:integer)
-    ($print (("  " literal)))
-    (print-trace t:trace-address)
-    ($print (("\r\n" literal)))
+    (print-character screen:terminal-address ((#\space literal)))
+    (print-trace screen:terminal-address t:trace-address)
+    (cursor-to-next-line screen:terminal-address)
     (i:integer <- add i:integer 1:literal)
     (loop)
   }
@@ -162,8 +168,10 @@
 
 (function print-instruction-trace-collapsed [
   (default-space:space-address <- new space:literal 30:literal)
+  (screen:terminal <- next-input)
   (x:instruction-trace-address <- next-input)
-  ($print (("+ " literal)))
+  (print-character screen:terminal-address ((#\+ literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   ; print call stack
   (c:string-address-array-address <- get x:instruction-trace-address/deref call-stack:offset)
   (i:integer <- copy 0:literal)
@@ -172,20 +180,24 @@
     (done?:boolean <- greater-or-equal i:integer len:integer)
     (break-if done?:boolean)
     (s:string-address <- index c:string-address-array-address/deref i:integer)
-    (print-string nil:literal/terminal s:string-address)
-    ($print (("/" literal)))
+    (print-string screen:terminal-address s:string-address)
+;?     (print-character screen:terminal-address ((#\space literal)))
+    (print-character screen:terminal-address ((#\/ literal)))
+;?     (print-character screen:terminal-address ((#\space literal)))
     (i:integer <- add i:integer 1:literal)
     (loop)
   }
   ; print pc
-  ($print ((" " literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   (p:string-address <- get x:instruction-trace-address/deref pc:offset)
-  (print-string nil:literal/terminal p:string-address)
+  (print-string screen:terminal-address p:string-address)
   ; print instruction
-  ($print ((" : " literal)))
+  (print-character screen:terminal-address ((#\space literal)))
+  (print-character screen:terminal-address ((#\: literal)))
+  (print-character screen:terminal-address ((#\space literal)))
   (i:string-address <- get x:instruction-trace-address/deref instruction:offset)
-  (print-string nil:literal/terminal i:string-address)
-  ($print (("\r\n" literal)))
+  (print-string screen:terminal-address i:string-address)
+  (cursor-to-next-line screen:terminal-address)
 ])
 
 (function main [
@@ -217,7 +229,7 @@ schedule:  done with routine")
     (done?:boolean <- greater-or-equal i:integer len:integer)
     (break-if done?:boolean)
     (tr:instruction-trace-address <- index arr:instruction-trace-address-array-address/deref i:integer)
-    (print-instruction-trace-collapsed tr:instruction-trace-address)
+    (print-instruction-trace-collapsed nil:literal/terminal tr:instruction-trace-address)
     (i:integer <- add i:integer 1:literal)
     (loop)
   }
@@ -253,7 +265,7 @@ schedule:  done with routine")
       (toggle?:boolean <- equal c:character ((#\newline literal)))
       (break-unless toggle?:boolean)
       (tr:instruction-trace-address <- index arr:instruction-trace-address-array-address/deref cursor-row:integer)
-      (print-instruction-trace tr:instruction-trace-address)
+      (print-instruction-trace nil:literal/terminal tr:instruction-trace-address)
       (jump next-key:offset)  ; loop
     }
     ; debugging: print cursor-row
-- 
cgit 1.4.1-2-gfad0

id='n113' href='#n113'>113</a>
<a id='n114' href='#n114'>114</a>
<a id='n115' href='#n115'>115</a>
<a id='n116' href='#n116'>116</a>
<a id='n117' href='#n117'>117</a>
<a id='n118' href='#n118'>118</a>
<a id='n119' href='#n119'>119</a>
<a id='n120' href='#n120'>120</a>
<a id='n121' href='#n121'>121</a>
<a id='n122' href='#n122'>122</a>
<a id='n123' href='#n123'>123</a>
<a id='n124' href='#n124'>124</a>
<a id='n125' href='#n125'>125</a>
<a id='n126' href='#n126'>126</a>
<a id='n127' href='#n127'>127</a>
<a id='n128' href='#n128'>128</a>
<a id='n129' href='#n129'>129</a>
<a id='n130' href='#n130'>130</a>
<a id='n131' href='#n131'>131</a>
<a id='n132' href='#n132'>132</a>
<a id='n133' href='#n133'>133</a>
<a id='n134' href='#n134'>134</a>
<a id='n135' href='#n135'>135</a>
<a id='n136' href='#n136'>136</a>
<a id='n137' href='#n137'>137</a>
<a id='n138' href='#n138'>138</a>
<a id='n139' href='#n139'>139</a>
<a id='n140' href='#n140'>140</a>
<a id='n141' href='#n141'>141</a>
<a id='n142' href='#n142'>142</a>
<a id='n143' href='#n143'>143</a>
<a id='n144' href='#n144'>144</a>
<a id='n145' href='#n145'>145</a>
<a id='n146' href='#n146'>146</a>
<a id='n147' href='#n147'>147</a>
<a id='n148' href='#n148'>148</a>
<a id='n149' href='#n149'>149</a>
<a id='n150' href='#n150'>150</a>
<a id='n151' href='#n151'>151</a>
<a id='n152' href='#n152'>152</a>
<a id='n153' href='#n153'>153</a>
<a id='n154' href='#n154'>154</a>
<a id='n155' href='#n155'>155</a>
<a id='n156' href='#n156'>156</a>
<a id='n157' href='#n157'>157</a>
<a id='n158' href='#n158'>158</a>
<a id='n159' href='#n159'>159</a>
<a id='n160' href='#n160'>160</a>
<a id='n161' href='#n161'>161</a>
<a id='n162' href='#n162'>162</a>
<a id='n163' href='#n163'>163</a>
<a id='n164' href='#n164'>164</a>
<a id='n165' href='#n165'>165</a>
<a id='n166' href='#n166'>166</a>
<a id='n167' href='#n167'>167</a>
<a id='n168' href='#n168'>168</a>
<a id='n169' href='#n169'>169</a>
<a id='n170' href='#n170'>170</a>
<a id='n171' href='#n171'>171</a>
<a id='n172' href='#n172'>172</a>
<a id='n173' href='#n173'>173</a>
<a id='n174' href='#n174'>174</a>
<a id='n175' href='#n175'>175</a>
<a id='n176' href='#n176'>176</a>
<a id='n177' href='#n177'>177</a>
<a id='n178' href='#n178'>178</a>
<a id='n179' href='#n179'>179</a>
</pre></td>
<td class='lines'><pre><code>