mudsync.scm 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546
  1. ;;; Mudsync --- Live hackable MUD
  2. ;;; Copyright © 2016 Christine Lemmer-Webber <cwebber@dustycloud.org>
  3. ;;; Copyright © 2012, 2014 Ludovic Courtès <ludo@gnu.org>
  4. ;;;
  5. ;;; This file is part of Mudsync.
  6. ;;;
  7. ;;; Mudsync is free software; you can redistribute it and/or modify it
  8. ;;; under the terms of the GNU General Public License as published by
  9. ;;; the Free Software Foundation; either version 3 of the License, or
  10. ;;; (at your option) any later version.
  11. ;;;
  12. ;;; Mudsync is distributed in the hope that it will be useful, but
  13. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  14. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  15. ;;; General Public License for more details.
  16. ;;;
  17. ;;; You should have received a copy of the GNU General Public License
  18. ;;; along with Mudsync. If not, see <http://www.gnu.org/licenses/>.
  19. (define-module (mudsync)
  20. #:use-module (8sync actors)
  21. #:use-module (8sync agenda)
  22. #:use-module (ice-9 format)
  23. #:use-module (ice-9 match)
  24. #:use-module (oop goops))
  25. ;;; Composite model stuff borrowed from Guix. Thanks, Ludo!
  26. (eval-when (eval load compile)
  27. (begin
  28. (define %public-modules
  29. '(game-master
  30. gameobj
  31. networking
  32. command
  33. player
  34. room
  35. run-game
  36. utils
  37. parser))
  38. (for-each (let ((i (module-public-interface (current-module))))
  39. (lambda (m)
  40. (module-use! i (resolve-interface `(mudsync ,m)))))
  41. %public-modules)))