akkartik
/
mu
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

557

This commit is contained in:
Kartik K. Agaram 2015-01-13 22:06:19 -08:00
parent c1f8217a7c
commit f306071516
1 changed files with 26 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
chessboard-cursor.arc.t
View File

@ -36,6 +36,32 @@
(prn "F - chessboard accepts legal moves (<rank><file>-<rank><file>)"))
;? (quit)
(reset)
(new-trace "read-move-incomplete")
(add-code:readfile "chessboard-cursor.mu")
(add-code
'((function! main [
(default-space:space-address <- new space:literal 30:literal/capacity)
(1:channel-address/raw <- init-channel 3:literal)
(r:integer/routine <- fork-helper read-move:fn nil:literal/globals 200:literal/limit)
(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)
(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)
(c:character <- copy ((#\- literal)))
(x:tagged-value <- save-type c:character)
(1:channel-address/raw/deref <- write 1:channel-address/raw 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)
(sleep until-routine-done:literal r:integer/routine)
])))
(run 'main)
(if (ran-to-completion 'read-move)
(prn "F - chessboard hangs until 5 characters are entered"))
(reset)
(new-trace "read-move-quit")
(add-code:readfile "chessboard-cursor.mu")