projects
/
rrq
/
lsp-utils.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
6387285
)
minor test update
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 18 Apr 2023 03:49:12 +0000
(13:49 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 18 Apr 2023 03:49:12 +0000
(13:49 +1000)
lsp-dbus-test.lsp
patch
|
blob
|
history
diff --git
a/lsp-dbus-test.lsp
b/lsp-dbus-test.lsp
index 3482305526c5ea7b6bc6cee82d7575c66ca991bb..dd710834fef5d8f4bbe28af37e372fc503e9f015 100644
(file)
--- a/
lsp-dbus-test.lsp
+++ b/
lsp-dbus-test.lsp
@@
-9,8
+9,8
@@
;; Request a bus name
(println (if (:invoke Dbus:ROOT
;; Request a bus name
(println (if (:invoke Dbus:ROOT
- (print
"RequestName(su)"
)
- (println (list (:
bus-
name au.rrq) 0)))
+ (print
(:m ObjectManager "RequestName(su)")
)
+ (println (list (:
%
name au.rrq) 0)))
(!= ($it -1 -1 -1)) ; returns BOOLEAN
))
(Dbus:process-all-pending)
(!= ($it -1 -1 -1)) ; returns BOOLEAN
))
(Dbus:process-all-pending)
@@
-18,15
+18,14
@@
(println (if (:invoke Dbus:ROOT
(print "GetNameOwner(s)")
(println (list "org.bluez")))
(println (if (:invoke Dbus:ROOT
(print "GetNameOwner(s)")
(println (list "org.bluez")))
- ($it -1 -1 -1) ; Return
s
value
+ ($it -1 -1 -1) ; Return value
))
(Dbus:process-all-pending)
))
(Dbus:process-all-pending)
-(
setf org.bluez (Dbus "/org/bluez"
))
+(
println (setf org.bluez (Dbus "/" "org.bluez")
))
(println (if (:invoke org.bluez
(println (if (:invoke org.bluez
- (print "/:org.freedesktop.DBus.ObjectManager.GetManagedObjects()")
- )
- ($it -1 -1 -1) ; Returns value
+ (println (:m ObjectManager "GetManagedObjects()")))
+ ($it -1 -1 -1) ; Return value
))
))