1 ;; This is a test program for the lsp-dbus provided dbus API.
5 ;; Connect to system bus and set up core framework API
7 ;; Install my own framework object
8 (die nil (setf au.rrq (Dbus "/au/rrq")))
11 (println (if (:invoke Dbus:ROOT
12 (print (:m ObjectManager "RequestName(su)"))
13 (println (list (:%name au.rrq) 0)))
14 (!= ($it -1 -1 -1)) ; returns BOOLEAN
16 (Dbus:process-all-pending)
18 (println (if (:invoke Dbus:ROOT
19 (print "GetNameOwner(s)")
20 (println (list "org.bluez")))
21 ($it -1 -1 -1) ; Return value
23 (Dbus:process-all-pending)
25 (println (setf org.bluez (Dbus "/" "org.bluez")))
26 (println (if (:invoke org.bluez
27 (println (:m ObjectManager "GetManagedObjects()")))
28 ($it -1 -1 -1) ; Return value