2015-01-14 03:25:03 +00:00
|
|
|
(selective-load "mu.arc" section-level)
|
|
|
|
|
|
|
|
(reset)
|
|
|
|
(new-trace "read-move-legal")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address <- init-channel 1:literal)
|
2015-01-18 09:29:01 +00:00
|
|
|
(screen:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
|
|
|
(2:string-address/raw <- get screen:terminal-address/deref data:offset)
|
2015-01-18 19:55:22 +00:00
|
|
|
(r:integer/routine <- fork read-move:fn nil:literal/globals 2000:literal/limit stdin:channel-address screen:terminal-address)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\a literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\2 literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\- literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\a literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\4 literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(sleep until-routine-done:literal r:integer/routine)
|
|
|
|
])))
|
2015-01-14 03:38:53 +00:00
|
|
|
;? (set dump-trace*)
|
2015-01-14 06:03:57 +00:00
|
|
|
;? (= dump-trace* (obj whitelist '("schedule")))
|
2015-01-18 19:55:22 +00:00
|
|
|
;? (= dump-trace* (obj whitelist '("schedule" "run")))
|
2015-01-14 03:25:03 +00:00
|
|
|
(run 'main)
|
2015-01-14 05:14:52 +00:00
|
|
|
(each routine completed-routines*
|
2015-01-14 06:38:40 +00:00
|
|
|
;? (prn " " routine)
|
2015-01-14 05:14:52 +00:00
|
|
|
(awhen rep.routine!error
|
|
|
|
(prn "error - " it)))
|
2015-01-15 00:18:44 +00:00
|
|
|
(when (~ran-to-completion 'read-move)
|
2015-01-14 04:50:04 +00:00
|
|
|
(prn "F - chessboard accepts legal moves (<rank><file>-<rank><file>)"))
|
2015-01-18 09:29:01 +00:00
|
|
|
(when (~memory-contains-array memory*.2 "a2-a4")
|
|
|
|
(prn "F - chessboard prints moves read from keyboard"))
|
2015-01-14 06:03:57 +00:00
|
|
|
;? (quit)
|
2015-01-14 03:25:03 +00:00
|
|
|
|
2015-01-14 06:06:19 +00:00
|
|
|
(reset)
|
|
|
|
(new-trace "read-move-incomplete")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
2015-01-21 10:06:53 +00:00
|
|
|
; initialize some variables at specific raw locations
|
|
|
|
(run-code test-init
|
|
|
|
(1:channel-address/raw <- init-channel 1:literal)
|
|
|
|
(2:terminal-address/raw <- init-fake-terminal 20:literal 10:literal)
|
|
|
|
(3:string-address/raw <- get 2:terminal-address/raw/deref data:offset))
|
|
|
|
(wipe completed-routines*)
|
|
|
|
; the component under test; we'll be running this repeatedly
|
|
|
|
(let read-move-routine (make-routine 'read-move memory*.1 memory*.2)
|
|
|
|
(run-code send-first-key
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
|
|
|
(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))
|
|
|
|
(wipe completed-routines*)
|
|
|
|
; check that read-move consumes it and then goes to sleep
|
|
|
|
(enq read-move-routine running-routines*)
|
|
|
|
(run)
|
|
|
|
(when (ran-to-completion 'read-move)
|
|
|
|
(prn "F - chessboard waits after first letter of move"))
|
|
|
|
(wipe completed-routines*)
|
|
|
|
; send in a few more letters
|
|
|
|
(restart read-move-routine)
|
|
|
|
(run-code send-more-keys
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
|
|
|
(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))
|
|
|
|
; check that read-move consumes them and then goes to sleep
|
|
|
|
(when (ran-to-completion 'read-move)
|
|
|
|
(prn "F - chessboard waits after each subsequent letter of move until the last"))
|
|
|
|
(wipe completed-routines*)
|
|
|
|
; send final key
|
|
|
|
(restart read-move-routine)
|
|
|
|
(run-code send-final-key
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
|
|
|
(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))
|
|
|
|
; check that read-move consumes it and -- this time -- returns
|
|
|
|
(when (~ran-to-completion 'read-move)
|
|
|
|
(prn "F - 'read-move' completes after final letter of move"))
|
|
|
|
)
|
2015-01-14 06:06:19 +00:00
|
|
|
|
2015-01-14 03:25:03 +00:00
|
|
|
(reset)
|
|
|
|
(new-trace "read-move-quit")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address <- init-channel 1:literal)
|
2015-01-18 09:20:55 +00:00
|
|
|
(dummy:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
2015-01-18 19:55:22 +00:00
|
|
|
(r:integer/routine <- fork-helper read-move:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address)
|
2015-01-14 03:25:03 +00:00
|
|
|
(c:character <- copy ((#\q literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 03:25:03 +00:00
|
|
|
(sleep until-routine-done:literal r:integer/routine)
|
|
|
|
])))
|
|
|
|
(run 'main)
|
2015-01-15 00:18:44 +00:00
|
|
|
(when (~ran-to-completion 'read-move)
|
2015-01-14 03:25:03 +00:00
|
|
|
(prn "F - chessboard quits on move starting with 'q'"))
|
|
|
|
|
|
|
|
(reset)
|
2015-01-14 06:38:40 +00:00
|
|
|
(new-trace "read-illegal-file")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address <- init-channel 1:literal)
|
2015-01-18 09:20:55 +00:00
|
|
|
(dummy:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
2015-01-18 19:55:22 +00:00
|
|
|
(r:integer/routine <- fork-helper read-file:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address)
|
2015-01-14 06:38:40 +00:00
|
|
|
(c:character <- copy ((#\i literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 06:38:40 +00:00
|
|
|
(sleep until-routine-done:literal r:integer/routine)
|
|
|
|
])))
|
|
|
|
;? (= dump-trace* (obj whitelist '("schedule")))
|
|
|
|
(run 'main)
|
|
|
|
;? (each routine completed-routines*
|
|
|
|
;? (prn " " routine))
|
2015-01-15 00:18:44 +00:00
|
|
|
(when (or (ran-to-completion 'read-file)
|
|
|
|
(let routine routine-running!read-file
|
|
|
|
(~posmatch "file too high" rep.routine!error)))
|
2015-01-14 06:38:40 +00:00
|
|
|
(prn "F - 'read-file' checks that file lies between 'a' and 'h'"))
|
|
|
|
|
|
|
|
(reset)
|
|
|
|
(new-trace "read-illegal-rank")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address <- init-channel 1:literal)
|
2015-01-18 09:20:55 +00:00
|
|
|
(dummy:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
2015-01-18 19:55:22 +00:00
|
|
|
(r:integer/routine <- fork-helper read-rank:fn nil:literal/globals 2000:literal/limit stdin:channel-address dummy:terminal-address)
|
2015-01-14 06:38:40 +00:00
|
|
|
(c:character <- copy ((#\9 literal)))
|
|
|
|
(x:tagged-value <- save-type c:character)
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address/deref <- write stdin:channel-address x:tagged-value)
|
2015-01-14 06:38:40 +00:00
|
|
|
(sleep until-routine-done:literal r:integer/routine)
|
|
|
|
])))
|
|
|
|
(run 'main)
|
2015-01-15 00:18:44 +00:00
|
|
|
(when (or (ran-to-completion 'read-rank)
|
|
|
|
(let routine routine-running!read-rank
|
|
|
|
(~posmatch "rank too high" rep.routine!error)))
|
2015-01-14 06:38:40 +00:00
|
|
|
(prn "F - 'read-rank' checks that rank lies between '1' and '8'"))
|
|
|
|
|
|
|
|
(reset)
|
2015-01-18 02:50:32 +00:00
|
|
|
(new-trace "print-board")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
|
|
|
(initial-position:list-address <- init-list ((#\R literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\r literal))
|
|
|
|
((#\N literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\n literal))
|
|
|
|
((#\B literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\b literal))
|
|
|
|
((#\Q literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\q literal))
|
|
|
|
((#\K literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\k literal))
|
|
|
|
((#\B literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\b literal))
|
|
|
|
((#\N literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\n literal))
|
|
|
|
((#\R literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\r literal)))
|
|
|
|
(b:board-address <- init-board initial-position:list-address)
|
|
|
|
(screen:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
|
|
|
(print-board screen:terminal-address b:board-address)
|
|
|
|
(5:string-address/raw <- get screen:terminal-address/deref data:offset)
|
|
|
|
])))
|
|
|
|
;? (set dump-trace*)
|
|
|
|
;? (= dump-trace* (obj whitelist '("run")))
|
|
|
|
(run 'main)
|
|
|
|
(each routine completed-routines*
|
|
|
|
(awhen rep.routine!error
|
|
|
|
(prn "error - " it)))
|
|
|
|
;? (prn memory*.5)
|
|
|
|
(when (~memory-contains-array memory*.5
|
|
|
|
(+ "8 | r n b q k b n r "
|
|
|
|
"7 | p p p p p p p p "
|
|
|
|
"6 | _ _ _ _ _ _ _ _ "
|
|
|
|
"5 | _ _ _ _ _ _ _ _ "
|
|
|
|
"4 | _ _ _ _ _ _ _ _ "
|
|
|
|
"3 | _ _ _ _ _ _ _ _ "
|
|
|
|
"2 | P P P P P P P P "
|
|
|
|
"1 | R N B Q K B N R "
|
|
|
|
" +---------------- "
|
|
|
|
" a b c d e f g h "))
|
2015-01-18 09:55:25 +00:00
|
|
|
(prn "F - print-board works; chessboard begins at @memory*.5"))
|
|
|
|
|
|
|
|
; todo: how to fold this more elegantly with the previous test?
|
|
|
|
(reset)
|
|
|
|
(new-trace "make-move")
|
|
|
|
(add-code:readfile "chessboard-cursor.mu")
|
|
|
|
(add-code
|
|
|
|
'((function! main [
|
|
|
|
(default-space:space-address <- new space:literal 30:literal/capacity)
|
|
|
|
; hook up stdin
|
2015-01-18 19:55:22 +00:00
|
|
|
(stdin:channel-address <- init-channel 1:literal)
|
2015-01-18 09:55:25 +00:00
|
|
|
; fake screen
|
|
|
|
(screen:terminal-address <- init-fake-terminal 20:literal 10:literal)
|
|
|
|
; initial position
|
|
|
|
(initial-position:list-address <- init-list ((#\R literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\r literal))
|
|
|
|
((#\N literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\n literal))
|
|
|
|
((#\B literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\b literal))
|
|
|
|
((#\Q literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\q literal))
|
|
|
|
((#\K literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\k literal))
|
|
|
|
((#\B literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\b literal))
|
|
|
|
((#\N literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\n literal))
|
|
|
|
((#\R literal)) ((#\P literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\_ literal)) ((#\p literal)) ((#\r literal)))
|
|
|
|
(b:board-address <- init-board initial-position:list-address)
|
|
|
|
; move: a2-a4
|
|
|
|
(m:move-address <- new move:literal)
|
|
|
|
(f:integer-integer-pair-address <- get-address m:move-address/deref from:offset)
|
|
|
|
(dest:integer-address <- get-address f:integer-integer-pair-address/deref 0:offset)
|
|
|
|
(dest:integer-address/deref <- copy 0:literal) ; from-file: a
|
|
|
|
(dest:integer-address <- get-address f:integer-integer-pair-address/deref 1:offset)
|
|
|
|
(dest:integer-address/deref <- copy 1:literal) ; from-rank: 2
|
|
|
|
(t0:integer-integer-pair-address <- get-address m:move-address/deref to:offset)
|
|
|
|
(dest:integer-address <- get-address t0:integer-integer-pair-address/deref 0:offset)
|
|
|
|
(dest:integer-address/deref <- copy 0:literal) ; to-file: a
|
|
|
|
(dest:integer-address <- get-address t0:integer-integer-pair-address/deref 1:offset)
|
|
|
|
(dest:integer-address/deref <- copy 3:literal) ; to-rank: 4
|
|
|
|
(b:board-address <- make-move b:board-address m:move-address)
|
|
|
|
(print-board screen:terminal-address b:board-address)
|
|
|
|
(5:string-address/raw <- get screen:terminal-address/deref data:offset)
|
|
|
|
])))
|
|
|
|
;? (set dump-trace*)
|
|
|
|
;? (= dump-trace* (obj whitelist '("run")))
|
|
|
|
(run 'main)
|
|
|
|
(each routine completed-routines*
|
|
|
|
(awhen rep.routine!error
|
|
|
|
(prn "error - " it)))
|
|
|
|
;? (prn memory*.5)
|
|
|
|
(when (~memory-contains-array memory*.5
|
|
|
|
(+ "8 | r n b q k b n r "
|
|
|
|
"7 | p p p p p p p p "
|
|
|
|
"6 | _ _ _ _ _ _ _ _ "
|
|
|
|
"5 | _ _ _ _ _ _ _ _ "
|
|
|
|
"4 | P _ _ _ _ _ _ _ "
|
|
|
|
"3 | _ _ _ _ _ _ _ _ "
|
|
|
|
"2 | _ P P P P P P P "
|
|
|
|
"1 | R N B Q K B N R "
|
|
|
|
" +---------------- "
|
|
|
|
" a b c d e f g h "))
|
|
|
|
(prn "F - make-move works; chessboard begins at @memory*.5"))
|
2015-01-18 02:50:32 +00:00
|
|
|
|
|
|
|
(reset)
|