projects
/
rrq
/
lsp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Adding mmap API with test and documentation.
[rrq/lsp-utils.git]
/
lsp-dbus-test.lsp
diff --git
a/lsp-dbus-test.lsp
b/lsp-dbus-test.lsp
index 82c5ecb4fa8a2402527ff3329e45d9de07e95cbd..94981b521d1dcf647392c7a123772b27ddedf945 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,10
+18,16
@@
(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)
+(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"
(reset) ;
"lsp-dbus-test.lsp"