496

1 files changed, 9 insertions, 0 deletions

diff --git a/chessboard.mu b/chessboard.mu
index 5ed8ddc9..71e3da92 100644
--- a/chessboard.mu
+++ b/chessboard.mu
@@ -1,3 +1,12 @@
+;; data structure: board
+(primitive square)
+(address square-address (square))  ; pointer. verbose but sadly necessary for now
+(array file (square))  ; ranks and files are arrays of squares
+(address file-address (file))
+(address file-address-address (file-address))  ; pointer to a pointer
+(array board (file-address))
+(address board-address (board))
+
 (function read-board [
   (default-scope:scope-address <- new scope:literal 30:literal)
   (initial-position:list-address <- init-list R:literal P:literal _:literal _:literal _:literal _:literal p:literal r:literal