1 files changed, 54 insertions, 0 deletions
diff --git a/PlugIns/MXP.lisp b/PlugIns/MXP.lisp
new file mode 100644
index 0000000..8694608
--- /dev/null
+++ b/PlugIns/MXP.lisp
@@ -0,0 +1,54 @@
+;; -*- Lisp -*-
+;; $Id: MXP.lisp 20 2005-12-27 15:21:23Z bjc $
+
+(defpackage mxp
+  (:use :cl :cl-user :moxie :bjc-utils))
+(in-package :mxp)
+
+(defun parse-mxp-args (string)
+  (let ((last-space 0))
+    (loop as next-space = (position-if (lambda (c)
+                                         (or (eql c #\Space) (eql c #\Tab) (eql c #\Newline)))
+                                       string
+                                       :start last-space)
+         collect (if next-space 
+                     (prog1
+                       (subseq string last-space next-space)
+                       (setf last-space (1+ next-space)))
+                     (subseq string last-space (length string)))
+         while next-space)))
+
+;; We have to get the world name here, which isn't being set
+;; for some reason in the world-opened-hook.
+;;
+;; Update: the reason is that world-opened-hook doesn't have
+;; anything on it. We need to create a function to make the
+;; alist in args the environment for the world, and figure out
+;; where to put it.
+;;
+;; Built in plugin via runhook?
+;; Do we want runhook at all, since this is so low-level we may
+;; not want people messing with it.
+(defun play-sound (args)
+  (format t "msp dir: ~S~%" (merge-pathnames (car args)
+                                             (merge-pathnames "Library/Moxie/MSP/"
+                                             (user-homedir-pathname)))))
+
+(defun dispatch-mxp-command (string)
+  (let* ((strlen (length string))
+         (lp-pos (position #\( string))
+         (rp-pos (and lp-pos (position #\) string)))
+         (cmd (subseq string 0 (or lp-pos strlen)))
+         (args (and rp-pos (parse-mxp-args (subseq string (1+ lp-pos) rp-pos)))))
+    (cond ((or (string= cmd "MUSIC") (string= cmd "SOUND"))
+           (play-sound args))
+          (t (format t "Found MXP cmd: ~S, args: ~S~%" cmd args)))
+    (subseq string (1+ rp-pos))))
+
+(defun scan-mxp-data (string)
+  (let ((string (if (stringp string) string (car string))))
+    (when (and (> (length string) 2)
+               (string= (subseq string 0 2) "!!"))
+      (dispatch-mxp-command (subseq string 2)))))
+
+(add-hook 'scan-mxp-data :output-from-server-hook)