blob: 869460895249e57d1fdf6947836b1e8e42f745a5 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
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)
|
