lsp-dbus-test.lsp

   1 ;; This is a test program for the lsp-dbus provided dbus API.
   2
   3 (load "lsp-dbus.lsp")
   4
   5 ;; Connect to system bus and set up core framework API
   6
   7 ;; Install my own framework object
   8 (die nil (setf au.rrq (Dbus "/au/rrq")))
   9
  10 ;; Request a bus name
  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
  15            ))
  16 (Dbus:process-all-pending)
  17
  18 (println (if (:invoke Dbus:ROOT
  19                       (print "GetNameOwner(s)")
  20                       (println (list "org.bluez")))
  21              ($it -1 -1 -1) ; Returns value
  22            ))
  23 (Dbus:process-all-pending)
  24
  25 (setf org.bluez (Dbus "/org/bluez"))
  26 (println (if (:invoke org.bluez
  27                       (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()")
  28                       )
  29              ($it -1 -1 -1) ; Returns value
  30            ))
  31
  32
  33 (reset) ;
  34
  35 "lsp-dbus-test.lsp"