Just got cl-dbus to build, I had a few problems building with the
latest osi-cat and iolib packages.
but I did manage to successfully build with some minor changes to the
cl-dbus sources (patch attached).
@Julian, I'd like to help with the project too during my free time.
Joel
On Tue, Jun 2, 2009 at 4:48 PM, Julian Stecklina <j...@alien8.de> wrote:
> Shawn Betts <sabe...@gmail.com> writes:
>
>> However, clearly, cl-dbus or another lisp dbus
>> implementation is the long term solution :). How hard can hacking dbus
>> possibly be?
>
> The potential uses of a Common Lisp DBUS binding are numerous. When I
> started cl-dbus, I looked at the code for the C dbus library. I quickly
> decided that reimplementation is the way to go. ;)
>
> The low-level communication setup and authentication are done. There is
> a prototype of the low-level marshalling code. The rest is mostly
> macrology. Basically, there could be two interfaces:
>
> 1. A def-dbus-method macro that takes the name of the method and the
> argument types and generates optimized stub code.[1]
>
> 2. Something like call-dbus-method, which does all the marshalling ad
> hoc. For speed you could wrap that up with a compiler macro.
>
> These only need to be written. ;) There are some parts of the DBUS spec
> that really suck and make writing cl-dbus highly annoying, though...
>
> For anyone that would like to help, the code is at
> http://github.com/blitz/cl-dbus and you can best reach me via
> Jabber/XMPP at bl...@spaceboyz.net.
>
> Footnotes:
> [1] C/C++ people are always amazed when you do this kind in a macro
> that is half a page long. I would rather pluck my eyes out than
> hack on http://os.inf.tu-dresden.de/dice/ ...
>
> --
> Julian Stecklina
>
> The day Microsoft makes something that doesn't suck is probably the day
> they start making vacuum cleaners - Ernst Jan Plugge
>
> _______________________________________________
> Stumpwm-devel mailing list
> Stumpwm-devel@nongnu.org
> http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
>
>
diff --git a/network.lisp b/network.lisp
index b7c0473..cc75d9b 100644
--- a/network.lisp
+++ b/network.lisp
@@ -25,7 +25,7 @@ address. Defaults to :SESSION."
(stream (connect-via-address-string
(etypecase address
(symbol (ecase address
- (:session (osicat-posix:getenv "DBUS_SESSION_BUS_ADDRESS"))))
+ (:session (sb-posix:getenv "DBUS_SESSION_BUS_ADDRESS"))))
(string address))))
(con (make-instance 'dbus-connection
:stream stream)))
diff --git a/unix-transport.lisp b/unix-transport.lisp
index d9049af..9a0feb0 100644
--- a/unix-transport.lisp
+++ b/unix-transport.lisp
@@ -4,15 +4,16 @@
;;; This file is part of CL-DBUS. Look into LICENSE for license terms.
(in-package :blitz.desktop.dbus)
+(require 'iolib)
(deftransport unix (address)
(handler-case
(let ((abstract (server-address-value address "abstract"))
(path (server-address-value address "path")))
- (iolib.sockets:make-socket
+ (iolib:make-socket
:address-family :local
:external-format :ascii
- :remote-filename (iolib.sockets:ensure-address
+ :remote-filename (iolib:ensure-address
(or abstract path)
:family :local
:abstract (if abstract
_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/stumpwm-devel
