;; This is a test program for the lsp-dbus provided dbus API.

(load "lsp-dbus.lsp")

;; Connect to system bus and set up core framework API

;; Install my own framework object
(die nil (setf au.rrq (Dbus "/au/rrq")))

;; Request a bus name
(println (if (:invoke Dbus:ROOT
                      (print (:m ObjectManager "RequestName(su)"))
                      (println (list (:%name au.rrq) 0)))
             (!= ($it -1 -1 -1)) ; returns BOOLEAN
           ))
(Dbus:process-all-pending)

(println (if (:invoke Dbus:ROOT
                      (print "GetNameOwner(s)")
                      (println (list "org.bluez")))
             ($it -1 -1 -1) ; Return value
           ))
(Dbus:process-all-pending)

(println (setf org.bluez (Dbus "/" "org.bluez")))
(println (if (:invoke org.bluez (:m ObjectManager "GetManagedObjects()"))
             ($it -1 -1 -1) ; Return value
           ))


(reset) ; 

"lsp-dbus-test.lsp"