From 27b5e8a99f9b2ebb8aeca10a0e85f9e63172bc3c Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 2 Jan 2015 14:45:24 -0800 Subject: 485 --- chessboard-rawterm.mu | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/chessboard-rawterm.mu b/chessboard-rawterm.mu index cf74bea6..067d0f1e 100644 --- a/chessboard-rawterm.mu +++ b/chessboard-rawterm.mu @@ -1,31 +1,23 @@ (function read-board [ (default-scope:scope-address <- new scope:literal 30:literal) -;? (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal) (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) ; assert(length(initial-position) == 64) -;? (print-primitive (("list-length\n" literal))) (len:integer <- list-length initial-position:list-address) (correct-length?:boolean <- equal len:integer 64:literal) -;? (correct-length?:boolean <- equal len:integer 4:literal) (assert correct-length?:boolean (("chessboard had incorrect size" literal))) (b:board-address <- new board:literal 8:literal) -;? (b:board-address <- new board:literal 2:literal) (col:integer <- copy 0:literal) (curr:list-address <- copy initial-position:list-address) { begin (done?:boolean <- equal col:integer 8:literal) -;? (done?:boolean <- equal col:integer 2:literal) (break-if done?:boolean) -;? (print-primitive col:integer) -;? (print-primitive (("\n" literal))) (file:file-address-address <- index-address b:board-address/deref col:integer) (file:file-address-address/deref curr:list-address <- read-file curr:list-address) (col:integer <- add col:integer 1:literal) @@ -38,15 +30,10 @@ (default-scope:scope-address <- new scope:literal 30:literal) (cursor:list-address <- next-input) (result:file-address <- new file:literal 8:literal) -;? (result:file-address <- new file:literal 2:literal) (row:integer <- copy 0:literal) { begin (done?:boolean <- equal row:integer 8:literal) -;? (done?:boolean <- equal row:integer 2:literal) (break-if done?:boolean) -;? (print-primitive ((" " literal))) -;? (print-primitive row:integer) -;? (print-primitive (("\n" literal))) (src:tagged-value-address <- list-value-address cursor:list-address) (dest:square-address <- index-address result:file-address/deref row:integer) (dest:square-address/deref <- get src:tagged-value-address/deref payload:offset) ; unsafe typecast @@ -61,7 +48,6 @@ (default-scope:scope-address <- new scope:literal 30:literal) (b:board-address <- next-input) (row:integer <- copy 7:literal) -;? (row:integer <- copy 1:literal) (screen-y:integer <- copy 1:literal) ; print each row { begin @@ -72,7 +58,6 @@ (col:integer <- copy 0:literal) { begin (done?:boolean <- equal col:integer 8:literal) -;? (done?:boolean <- equal col:integer 2:literal) (break-if done?:boolean) (f:file-address <- index b:board-address/deref col:integer) (s:square <- index f:file-address/deref row:integer) @@ -97,10 +82,8 @@ (function read-move [ (a:character <- copy ((#\a literal))) (file-base:integer <- character-to-integer a:character) -;? (file-base:integer <- subtract file-base:integer 1:literal) (one:character <- copy ((#\1 literal))) (rank-base:integer <- character-to-integer one:character) -;? (rank-base:integer <- subtract rank-base:integer 1:literal) ; get from-file (c:character <- wait-for-key) (print-primitive c:character) @@ -110,7 +93,6 @@ (above-min:boolean <- greater-or-equal from-file:integer 0:literal) (assert above-min:boolean (("from-file too low" literal))) (below-max:boolean <- lesser-or-equal from-file:integer 7:literal) -;? (below-max:boolean <- lesser-or-equal from-file:integer 1:literal) (assert below-max:boolean (("from-file too high" literal))) ; get from-rank (c:character <- wait-for-key) @@ -121,7 +103,6 @@ (above-min:boolean <- greater-or-equal from-rank:integer 0:literal) (assert above-min:boolean (("from-rank too low" literal))) (below-max:boolean <- lesser-or-equal from-rank:integer 7:literal) -;? (below-max:boolean <- lesser-or-equal from-rank:integer 1:literal) (assert below-max:boolean (("from-rank too high" literal))) ; slurp hyphen (c:character <- wait-for-key) @@ -169,21 +150,12 @@ (m:move-address <- next-input) (x:integer-integer-pair <- get m:move-address/deref from:offset) (from-file:integer <- get x:integer-integer-pair 0:offset) -;? (print-primitive (("\n" literal))) -;? (print-primitive from-file:integer) -;? (print-primitive (("\n" literal))) (from-rank:integer <- get x:integer-integer-pair 1:offset) -;? (print-primitive from-rank:integer) -;? (print-primitive (("\n" literal))) (f:file-address <- index b:board-address/deref from-file:integer) (src:square-address <- index-address f:file-address/deref from-rank:integer) (x:integer-integer-pair <- get m:move-address/deref to:offset) (to-file:integer <- get x:integer-integer-pair 0:offset) -;? (print-primitive to-file:integer) -;? (print-primitive (("\n" literal))) (to-rank:integer <- get x:integer-integer-pair 1:offset) -;? (print-primitive to-rank:integer) -;? (print-primitive (("\n" literal))) (f:file-address <- index b:board-address/deref to-file:integer) (dest:square-address <- index-address f:file-address/deref to-rank:integer) (dest:square-address/deref <- copy src:square-address/deref) @@ -192,7 +164,6 @@ ]) (function main [ -;? (print-primitive (("\u2654 \u265a" literal))) (default-scope:scope-address <- new scope:literal 30:literal) (b:board-address <- read-board) (console-on) -- cgit 1.4.1-2-gfad0