diff options
-rw-r--r-- | mu.arc | 29 |
1 files changed, 25 insertions, 4 deletions
diff --git a/mu.arc b/mu.arc index 628626e8..41647517 100644 --- a/mu.arc +++ b/mu.arc @@ -646,17 +646,17 @@ (do1 nil (if (no ($.current-charterm)) ($.open-charterm))) retro-mode (do1 nil (if ($.current-charterm) ($.close-charterm))) - clear-screen + clear-host-screen (do1 nil (if ($.current-charterm) ($.charterm-clear-screen) ($.graphics-open?) ($.clear-viewport Viewport))) - cursor + cursor-on-host (do1 nil ($.charterm-cursor (m arg.0) (m arg.1))) - cursor-to-next-line + cursor-on-host-to-next-line (do1 nil ($.charterm-newline)) - print-primitive + print-primitive-to-host (do1 nil ((if ($.current-charterm) $.charterm-display pr) (m arg.0))) read-key (if ($.current-charterm) @@ -1893,6 +1893,27 @@ } ) +(init-fn clear-screen + (clear-host-screen) +) + +(init-fn cursor + (default-space:space-address <- new space:literal 30:literal) + (row:integer <- next-input) + (col:integer <- next-input) + (cursor-on-host row:integer col:integer) +) + +(init-fn cursor-to-next-line + (cursor-on-host-to-next-line) +) + +(init-fn print-primitive + (default-space:space-address <- new space:literal 30:literal) + (x:location <- next-input) + (print-primitive-to-host x:location) +) + (init-fn send-prints-to-stdout (default-space:space-address <- new space:literal 30:literal) (stdout:channel-address <- next-input) |