classes.lisp

(in-package :server)

;; An object that has a continuation.
(deftem (cont (:conc-name nil))
  cont)

;; A server socket that has a continuation.
(deftem (cont-server (:include cont stream-server-usocket)))

;; A player which both has a continuation and is the same thing as the
;; socket they are on.
(deftem (player (:conc-name nil) (:include cont stream-usocket))
  game num flags)

(deftem (game (:conc-name nil))
  need players game-log flags (player-type 'player))

;; Makes accessing into a game with a board easier.
(deftem (board-game (:conc-name nil) (:include game))
  board)

(defmethod get ((b board-game) (p list))
  (get b!board p))

(defmethod (setf get) (val (b board-game) (p list))
  (= (get b!board p) val))

(defmethod get ((b board-game) (p number))
  (get b!board p))

(defmethod (setf get) (val (b board-game) (p number))
  (setf (get b!board p) val))