Tiny little console that just prints the board and accepts moves

gib-gab-gob/ui/console.scm

@@ -0,0 +1,37 @@
+(define-module (gib-gab-gob ui console)
+  #:use-module (gib-gab-gob board)
+  #:use-module (ice-9 rdelim)
+  #:use-module (ice-9 exceptions)
+  #:export (begin-game-loop))
+
+;; Module for simple console-based UI (no curses)
+
+;; A single run of the loop for a bespoke REPL for playing the game
+(define (%loop b)
+  (%print b)
+  (let ((coords (%read)))
+    (if coords (%eval coords) #f)))
+
+(define (%read)
+  (define line (read-line (current-input-port)))
+  (if (string-prefix? ",q" line) #f
+      (let ((coords (map string->number (string-tokenize line char-set:digit))))
+        (if (not (= (length coords) 2))
+            (begin (format #t "Must be two numbers, x y; or ,quit to quit. Try again.\n")
+                   (%prompt) (%read))
+            coords))))
+
+(define (%eval coordinates)
+  (format #t "Moving ~a\n" coordinates))
+
+(define (%print board)
+  (board-display board)
+  (%prompt))
+
+(define (%prompt)
+  (format #t "Enter your move: "))
+
+(define (begin-game-loop board)
+  (while (%loop board))
+  (format #t "bye-bye!\n")
+  #f)