At Sat, 21 Apr 2012 09:44:15 +0800, z_axis wrote:
> The mpd module works great with SBCL. But it seems that the mpd module
> doesnot support CCL.
>
> Would anyone knowing CCL like to hack it to support CCL ?
>From my local git repo:
===File /tmp/123============================================
commit 1e206af2f3dd40060c8ef3f169af081d5fd646a6
Author: Vitaly Mayatskikh <v.mayats...@gmail.com>
Date: Sun Aug 7 20:16:20 2011 -0400
contrib/mpd.lisp: added support for Clozure CL.
diff --git a/contrib/mpd.lisp b/contrib/mpd.lisp
index 954fe01..1013e33 100644
--- a/contrib/mpd.lisp
+++ b/contrib/mpd.lisp
@@ -48,7 +48,7 @@
;;; CODE:
-#-(or sbcl clisp) (error "unimplemented")
+#-(or sbcl clisp ccl) (error "unimplemented")
(in-package :stumpwm)
@@ -108,7 +108,7 @@
;;mpd client
(defparameter *mpd-socket* nil)
(defparameter *mpd-server*
- #+clisp
+ #+(or clisp ccl)
"localhost"
#+sbcl
#(127 0 0 1)
@@ -138,10 +138,11 @@
(with-mpd-connection
(#+clisp
ext:write-char-sequence
- #+sbcl
+ #+(or sbcl ccl)
write-sequence
(concatenate 'string command (string #\Newline))
- *mpd-socket*)))
+ *mpd-socket*)
+ (force-output *mpd-socket*)))
(defun mpd-send-command (cmd)
(mpd-send cmd)
@@ -183,24 +184,26 @@
(defun init-mpd-connection ()
"Connect to mpd server"
(setf *mpd-socket*
+ (handler-case
#+clisp
- (handler-case (socket:socket-connect *mpd-port* *mpd-server*
- :element-type 'character)
- ((or system::simple-os-error error)
- (err)
- (format t "Error connecting to mpd: ~a~%" err)))
+ (socket:socket-connect *mpd-port* *mpd-server*
+ :element-type 'character)
#+sbcl
- (handler-case (let ((s (make-instance 'sb-bsd-sockets:inet-socket
- :type :stream :protocol :tcp)))
- (sb-bsd-sockets:socket-connect s *mpd-server*
- *mpd-port*)
- (sb-bsd-sockets:socket-make-stream s
- :input t
- :output t
- :buffering :none))
- ((or simple-error error)
- (err)
- (format t "Error connecting to mpd: ~a~%" err))))
+ (let ((s (make-instance 'sb-bsd-sockets:inet-socket
+ :type :stream :protocol :tcp)))
+ (sb-bsd-sockets:socket-connect s *mpd-server* *mpd-port*)
+ (sb-bsd-sockets:socket-make-stream s
+ :input t
+ :output t
+ :buffering :none))
+ #+ccl
+ (let ((s (ccl:make-socket :connect :active :format :text
+ :remote-host *mpd-server*
+ :remote-port *mpd-port*)))
+ (setf (stream-external-format s) :utf-8)
+ s)
+ (error (err)
+ (format t "Error connecting to mpd: ~a~%" err))))
(when *mpd-socket*
(when *mpd-timeout*
(setf *mpd-timer*
============================================================
--
wbr, Vitaly
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
https://lists.nongnu.org/mailman/listinfo/stumpwm-devel
