/[lmud]/lmud/driver.lisp
ViewVC logotype

Contents of /lmud/driver.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (show annotations)
Sat Sep 11 20:01:33 2004 UTC (9 years, 7 months ago) by james
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +8 -1 lines
Added stub of a locks class.
1 ;;;; driver.lisp -- LMud driver.
2 ;;;;
3 ;;;; $Id: driver.lisp,v 1.3 2004/09/11 20:01:33 james Exp $
4 ;;;;
5 ;;;; Copyfnord (K) 3167 - 3169 James A. Crippen <james@unlambda.com>
6 ;;;;
7 ;;;; This software is in the Public Domain. If you break it you get to keep
8 ;;;; both pieces.
9 ;;;;
10 ;;;; The LMud driver. In MUD parlance a 'driver' is the software engine that
11 ;;;; runs the MUD and in whose programming or configuration language language
12 ;;;; the MUD is written. Thus this is the top level of the LMud system.
13
14 (in-package #:lmudi)
15
16 (defun boot-lmud ()
17 "The initial function that starts an LMud system."
18 (init-universe)
19 (spawn-listener-thread)
20 (values))
21
22 (defun init-universe ()
23 ())
24
25 (defun spawn-listener-thread ()
26 ())
27
28
29 ;;
30 ;;;;;; The Listener.
31 ;;
32
33 (defun listener ()
34 ())
35
36
37 (define-condition lmud-quit-condition
38
39 ;;
40 ;;;;;; Locks
41 ;;
42
43 (defclass locks-mixin ()
44 ((write-lock :reader write-lock-p :initform nil)
45 (read-lock :reader read-lock-p :initform nil)))

  ViewVC Help
Powered by ViewVC 1.1.5