;;; -*- mode: Lisp; Syntax: Common-Lisp; -*-
;;;
;;; Copyright (c) 2009 by the authors.
;;;
;;; See LICENCE for details.

(defsystem :hu.dwim.number-toss
  :defsystem-depends-on (:hu.dwim.asdf)
  :class "hu.dwim.asdf:hu.dwim.system"
  :depends-on (:cl-base64
               :hu.dwim.perec+iolib
               :hu.dwim.rdbms.postgresql
               :hu.dwim.util/flexml
               :hu.dwim.util/production
               :hu.dwim.web-server.application+hu.dwim.perec)
  :components ((:module "source"
                :components ((:file "constant" :depends-on ("package"))
                             (:file "entry-point" :depends-on ("server"))
                             (:file "game" :depends-on ("constant"))
                             (:file "model" :depends-on ("game"))
                             (:file "package")
                             (:file "scoreboard" :depends-on ("model"))
                             (:file "server" :depends-on ("scoreboard"))
                             (:file "service" :depends-on ("model"))
                             (:file "solution" :depends-on ("game"))
                             (:file "statistics" :depends-on ("server"))))))

(defmethod perform :after ((o hu.dwim.asdf:develop-op) (c (eql (find-system :hu.dwim.number-toss))))
  (eval (let ((*package* (find-package :hu.dwim.number-toss)))
          (read-from-string
           "(progn
              (setf *database* *number-toss-database*)
              (setf hu.dwim.perec::*compiled-query-cache* (make-compiled-query-cache))
              (setf *debug-on-error* t)
              (startup-server *number-toss-server*))")))
  (warn "Made sideffects on the following global variables: *database*, *compiled-query-cache*, *debug-on-error*."))