diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-05-04 10:31:52 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-05-04 10:31:52 -0700 |
commit | de49fb426aa44984d308f5856ec836360ba0bdce (patch) | |
tree | 5522203f99d3d387439c4cd0385e0375ccd8ed0d /cpp/071print.mu | |
parent | a11d9c4a3375906bf8ae1117c6043776d2f08d17 (diff) | |
download | mu-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.mu | 8 |
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 { |