From 036467ba6c305ae5d03a777bc496e09abba59afe Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 14 Jan 2015 20:43:23 -0800 Subject: 566 --- mu.arc | 29 +++++++++++++++++++++++++---- 1 file 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) -- cgit 1.4.1-2-gfad0 ass='right' method='get' action='/danisanti/profani-tty/log/tests/functionaltests/test_ping.h'>

path: root/tests/functionaltests/test_ping.h

blob: 1f2eeb916744dde399e443bc4e1151fa3789e7fb (plain) (tree)

f189dbc6 ^