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 (parent:
83bc9e6
)
removed debugging
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 18 Apr 2023 01:49:27 +0000
(11:49 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 18 Apr 2023 01:49:27 +0000
(11:49 +1000)
lsp-dbus/lsp-dbus-events.lsp
patch
|
blob
|
history
diff --git
a/lsp-dbus/lsp-dbus-events.lsp
b/lsp-dbus/lsp-dbus-events.lsp
index 3bde66144bc3295361f58f956cfde93e3c943cec..5770604bd3752025102d91c64b548c2c01298be2 100644
(file)
--- a/
lsp-dbus/lsp-dbus-events.lsp
+++ b/
lsp-dbus/lsp-dbus-events.lsp
@@
-44,9
+44,7
@@
(write-line 2 (format "** No handler %s for:\n%s" KEY (string MSG))))
(define (process-message MSG)
(write-line 2 (format "** No handler %s for:\n%s" KEY (string MSG))))
(define (process-message MSG)
- ;;(die nil (list 'process-message MSG))
(let ((KEY (message-key MSG)))
(let ((KEY (message-key MSG)))
- ;;(die nil "Dbus:process-message" KEY (and (RECV KEY) true))
(if (RECV KEY) ($it (lookup "" MSG))
(no-handler KEY MSG))))
(if (RECV KEY) ($it (lookup "" MSG))
(no-handler KEY MSG))))
@@
-58,7
+56,6
@@
;; asyncronous events
(define (main-loop S)
(let ((FDS (list 0 (:%socket SYSTEM-BUS))) (FD nil))
;; asyncronous events
(define (main-loop S)
(let ((FDS (list 0 (:%socket SYSTEM-BUS))) (FD nil))
- ;;(die nil "Dbus:main-loop" (length pending) "pending")
(write 2 (string "> "))
(while (or pending (not (member 0 (net-select FDS "r" -1))))
(if (pop pending) (process-message $it)
(write 2 (string "> "))
(while (or pending (not (member 0 (net-select FDS "r" -1))))
(if (pop pending) (process-message $it)
@@
-69,7
+66,6
@@
;; 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 (octals-string 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)