diff options
-rw-r--r-- | basic.lsp | 3 | ||||
-rw-r--r-- | cap-muck.lsp | 11 |
2 files changed, 13 insertions, 1 deletions
diff --git a/basic.lsp b/basic.lsp index 09efc5c..a91cc1c 100644 --- a/basic.lsp +++ b/basic.lsp @@ -9,7 +9,7 @@ (defclass <exp-int> (<expression>) ((int :accessor int))) (defclass <exp-var> (<expression>) ((var :accessor var))) (defclass <exp-str> (<expression>) ((str :accessor str))) -(defclass <exp-unr> (<expression>) ((op :accessor op) (exp :accessor exp))) +(defclass <exp-unr> (<expression>) ((op :accessor op) (expr :accessor expr))) (defclass <exp-bin> (<expression>) ((exp1 :accessor exp1) (op :accessor op) (exp2 :accessor exp2))) (defclass <command> () () (:abstractp t)) @@ -268,6 +268,7 @@ ;;;; Program evaluation (defun run (state) + ) ;;; Finishing touches diff --git a/cap-muck.lsp b/cap-muck.lsp index 8cace16..36bffba 100644 --- a/cap-muck.lsp +++ b/cap-muck.lsp @@ -1,5 +1,8 @@ +;;; See https://github.com/chazu/16k_muds/tree/master/drveg%40pacbell.net + (defglobal *terminate-program* nil) +;; Hmm, I now think procedural interfaces are better than protocols (defconstant +bold+ "#\esc[1m") (defconstant +unbold+ "#\esc[0m") (defconstant +q+ #\") @@ -167,6 +170,13 @@ (with-open-output-file (file +adb+) (mapcar (lambda (a) (print-object a file)) *avatars*))) +(defun establish-connection () + (let ((c (create (class <connection-type>)))) + (say c "Welcome to CapMUCK!") + (say c "Commands are all upper case, like HELP.") + (say c "") + (say c +name-prompt+))) + (defun main () (read-avatar-database) (read-room-database) @@ -174,3 +184,4 @@ (check-for-inputs))) (main) + |