about summary refs log tree commit diff stats
path: root/cpp/071print.mu
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2015-05-04 10:31:52 -0700
committerKartik K. Agaram <vc@akkartik.com>2015-05-04 10:31:52 -0700
commitde49fb426aa44984d308f5856ec836360ba0bdce (patch)
tree5522203f99d3d387439c4cd0385e0375ccd8ed0d /cpp/071print.mu
parenta11d9c4a3375906bf8ae1117c6043776d2f08d17 (diff)
downloadmu-de49fb426aa44984d308f5856ec836360ba0bdce.tar.gz
1248 - syntax for using screens in scenarios
Still ugly as hell.
Diffstat (limited to 'cpp/071print.mu')
-rw-r--r--cpp/071print.mu8
1 files changed, 8 insertions, 0 deletions
diff --git a/cpp/071print.mu b/cpp/071print.mu
index 6789ff89..2bf1df0b 100644
--- a/cpp/071print.mu
+++ b/cpp/071print.mu
@@ -56,9 +56,14 @@ recipe print-character [
   default-space:address:array:location <- new location:type, 30:literal
   x:address:screen <- next-ingredient
   c:character <- next-ingredient
+#?   $print x:address:character #? 1
+#?   $print [ print-character #? 1
+#? ] #? 1
   {
     # if x exists
     break-unless x:address:screen
+#?   $print [print-character2 #? 1
+#? ] #? 1
     # save character in fake screen
     row:address:integer <- get-address x:address:screen/deref, cursor-row:offset
     column:address:integer <- get-address x:address:screen/deref, cursor-column:offset
@@ -67,6 +72,9 @@ recipe print-character [
     index:integer <- add index:integer, column:address:integer/deref
     buf:address:array:character <- get x:address:screen/deref, data:offset
     cursor:address:character <- index-address buf:address:array:character/deref, index:integer
+#?     $print cursor:address:character #? 1
+#?     $print [ #? 1
+#? ] #? 1
     cursor:address:character/deref <- copy c:character  # todo: newline, etc.
     # increment column unless it's already all the way to the right
     {