projects
/
rrq
/
lsp-utils.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Added DbusInterface context for explicit modelling of DBus interfaces.
[rrq/lsp-utils.git]
/
lsp-dbus
/
lsp-dbus-events.lsp
diff --git
a/lsp-dbus/lsp-dbus-events.lsp
b/lsp-dbus/lsp-dbus-events.lsp
index 5770604bd3752025102d91c64b548c2c01298be2..634ab07ae2b33a12fef672e637456536d8a9c324 100644
(file)
--- a/
lsp-dbus/lsp-dbus-events.lsp
+++ b/
lsp-dbus/lsp-dbus-events.lsp
@@
-64,8
+64,12
@@
))
"main-loop: "))
))
"main-loop: "))
+(define (human-msg MSG)
+ (human-bytes (unpack (dup "b" (length MSG)) MSG)))
+
;; Send message, then keep reading messages until there is a reply
(define (send-recv-message MSG)
;; Send message, then keep reading messages until there is a reply
(define (send-recv-message MSG)
+ ;;(die nil (list 'send-recv-message (human-msg MSG)))
(net-send (:%socket SYSTEM-BUS) MSG)
(let ((REPLY nil))
(while (nil? REPLY)
(net-send (:%socket SYSTEM-BUS) MSG)
(let ((REPLY nil))
(while (nil? REPLY)