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 "RequestName(su)")
13 (println (list (:bus-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) ; Returns value
23 (Dbus:process-all-pending)