diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2015-01-26 20:29:55 -0800 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2015-01-26 20:29:55 -0800 |
commit | e0511280e692810c84693eb11f40756bb23ce11f (patch) | |
tree | f9e7443e9bd8add0f60cfed6625041b385723477 /mu.arc.t | |
parent | da31c4245227d6e05080d4e289e34c5360aa933d (diff) | |
download | mu-e0511280e692810c84693eb11f40756bb23ce11f.tar.gz |
635
Diffstat (limited to 'mu.arc.t')
-rw-r--r-- | mu.arc.t | 40 |
1 files changed, 39 insertions, 1 deletions
diff --git a/mu.arc.t b/mu.arc.t index 4409d70e..f2bbd7f3 100644 --- a/mu.arc.t +++ b/mu.arc.t @@ -4352,6 +4352,42 @@ (prn "F - 'buffer-stdin' prints lines to screen")) (reset) +(new-trace "print-buffered-contents-right-at-newline") +(add-code + '((function main [ + (default-space:space-address <- new space:literal 30:literal) + (s:string-address <- new "foo\n") + (k:keyboard-address <- init-keyboard s:string-address) + (stdin:channel-address <- init-channel 1:literal) + (fork send-keys-to-stdin:fn nil:literal/globals nil:literal/limit k:keyboard-address stdin:channel-address) + (buffered-stdin:channel-address <- init-channel 1:literal) + (r:integer/routine <- fork buffer-stdin:fn nil:literal/globals nil:literal/limit stdin:channel-address buffered-stdin:channel-address) + (screen:terminal-address <- init-fake-terminal 20:literal 10:literal) + (5:string-address/raw <- get screen:terminal-address/deref data:offset) + (fork-helper send-prints-to-stdout:fn nil:literal/globals nil:literal/limit screen:terminal-address buffered-stdin:channel-address) + (sleep until-routine-done:literal r:integer/routine) + ; hack: give helper some time to finish printing + (sleep for-some-cycles:literal 500:literal) + ]))) +;? (= dump-trace* (obj whitelist '("schedule" "run"))) ;? 1 +(run 'main) +(each routine completed-routines* + (awhen rep.routine!error + (prn "error - " it))) +(when (~memory-contains-array memory*.5 + (+ "foo\n " + " " + " " + " " + " " + " " + " " + " " + " " + " ")) + (prn "F - 'buffer-stdin' prints lines to screen immediately on newline")) + +(reset) (new-trace "buffered-contents-skip-backspace") (add-code '((function main [ @@ -4390,7 +4426,7 @@ (add-code '((function main [ (default-space:space-address <- new space:literal 30:literal) - (s:string-address <- new "a\b\bfoo\nbar") + (s:string-address <- new "a\b\bfoo\n") (k:keyboard-address <- init-keyboard s:string-address) (stdin:channel-address <- init-channel 1:literal) (fork send-keys-to-stdin:fn nil:literal/globals nil:literal/limit k:keyboard-address stdin:channel-address) @@ -4400,6 +4436,8 @@ (5:string-address/raw <- get screen:terminal-address/deref data:offset) (fork-helper send-prints-to-stdout:fn nil:literal/globals nil:literal/limit screen:terminal-address buffered-stdin:channel-address) (sleep until-routine-done:literal r:integer/routine) + ; hack: give helper some time to finish printing + (sleep for-some-cycles:literal 500:literal) ]))) ;? (= dump-trace* (obj whitelist '("schedule" "run"))) ;? 1 (run 'main) |