diff options
Diffstat (limited to 'chessboard-cursor.arc.t')
| -rw-r--r-- | chessboard-cursor.arc.t | 47 |
1 files changed, 24 insertions, 23 deletions
diff --git a/chessboard-cursor.arc.t b/chessboard-cursor.arc.t index 43e6890b..991db2c5 100644 --- a/chessboard-cursor.arc.t +++ b/chessboard-cursor.arc.t @@ -6,29 +6,30 @@ (add-code '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) (screen:terminal-address <- init-fake-terminal 20:literal 10:literal) (2:string-address/raw <- get screen:terminal-address/deref data:offset) - (r:integer/routine <- fork read-move:fn nil:literal/globals 2000:literal/limit screen:terminal-address) + (r:integer/routine <- fork read-move:fn nil:literal/globals 2000:literal/limit stdin:channel-address screen:terminal-address) (c:character <- copy ((#\a literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\2 literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\- literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\a literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\4 literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (sleep until-routine-done:literal r:integer/routine) ]))) ;? (set dump-trace*) ;? (= dump-trace* (obj whitelist '("schedule"))) +;? (= dump-trace* (obj whitelist '("schedule" "run"))) (run 'main) (each routine completed-routines* ;? (prn " " routine) @@ -46,22 +47,22 @@ (add-code '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) (screen:terminal-address <- init-fake-terminal 20:literal 10:literal) (2:string-address/raw <- get screen:terminal-address/deref data:offset) - (r:integer/routine <- fork-helper read-move:fn nil:literal/globals 2000:literal/limit screen:terminal-address) + (r:integer/routine <- fork-helper read-move:fn nil:literal/globals 2000:literal/limit stdin:channel-address screen:terminal-address) (c:character <- copy ((#\a literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\2 literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\- literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (c:character <- copy ((#\a literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (sleep until-routine-done:literal r:integer/routine) ]))) (run 'main) @@ -76,12 +77,12 @@ (add-code '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) (dummy:terminal-address <- init-fake-terminal 20:literal 10:literal) - (r:integer/routine <- fork-helper read-move:fn nil:literal/globals nil:literal/limit dummy:terminal-address) + (r:integer/routine <- fork-helper read-move:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address) (c:character <- copy ((#\q literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (sleep until-routine-done:literal r:integer/routine) ]))) (run 'main) @@ -94,12 +95,12 @@ (add-code '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) (dummy:terminal-address <- init-fake-terminal 20:literal 10:literal) - (r:integer/routine <- fork-helper read-file:fn nil:literal/globals nil:literal/limit dummy:terminal-address) + (r:integer/routine <- fork-helper read-file:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address) (c:character <- copy ((#\i literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (sleep until-routine-done:literal r:integer/routine) ]))) ;? (= dump-trace* (obj whitelist '("schedule"))) @@ -117,12 +118,12 @@ (add-code '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) (dummy:terminal-address <- init-fake-terminal 20:literal 10:literal) - (r:integer/routine <- fork-helper read-rank:fn nil:literal/globals nil:literal/limit dummy:terminal-address) + (r:integer/routine <- fork-helper read-rank:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address) (c:character <- copy ((#\9 literal))) (x:tagged-value <- save-type c:character) - (1:channel-address/raw/deref <- write 1:channel-address/raw x:tagged-value) + (stdin:channel-address/deref <- write stdin:channel-address x:tagged-value) (sleep until-routine-done:literal r:integer/routine) ]))) (run 'main) @@ -178,7 +179,7 @@ '((function! main [ (default-space:space-address <- new space:literal 30:literal/capacity) ; hook up stdin - (1:channel-address/raw <- init-channel 1:literal) + (stdin:channel-address <- init-channel 1:literal) ; fake screen (screen:terminal-address <- init-fake-terminal 20:literal 10:literal) ; initial position |