projects
/
rrq
/
newlisp
/
dbus-api.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
8ea8f19
)
added back links for included files
author
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 16 May 2023 13:31:20 +0000
(23:31 +1000)
committer
Ralph Ronnquist
<ralph.ronnquist@gmail.com>
Tue, 16 May 2023 13:31:20 +0000
(23:31 +1000)
dbus-api.lsp
patch
|
blob
|
history
diff --git
a/dbus-api.lsp
b/dbus-api.lsp
index 0acd546af005942e4c2fa92ccc20ef09b1aeb189..03d8afa336470cc874a849bdd9f90b540d18ddae 100644
(file)
--- a/
dbus-api.lsp
+++ b/
dbus-api.lsp
@@
-15,7
+15,7
@@
#################################################################
;; This newlisp module implements dbus socket connection
#################################################################
;; This newlisp module implements dbus socket connection
-;;
+;;
originally lsp-dbus-connection.lsp
(context 'MAIN:DbusConnection)
(FOOP path socket name serial)
(context 'MAIN:DbusConnection)
(FOOP path socket name serial)
@@
-157,8
+157,8
@@
(SYSTEM-BUS (:serial++ SYSTEM-BUS))
(true 0)))
(SYSTEM-BUS (:serial++ SYSTEM-BUS))
(true 0)))
-; marshalling functions and signal handling framework
-;;
This newlisp "module" implements dbus marshalling
+;
;
marshalling functions and signal handling framework
+;;
originallt lsp-dbus-marshal.lsp
;
; The newlisp representation is a simplified form using lists for
; structs and arrays.
;
; The newlisp representation is a simplified form using lists for
; structs and arrays.
@@
-275,7
+275,7
@@
(map pack-data-item ES DATA)))))
;;########## unpacking
(map pack-data-item ES DATA)))))
;;########## unpacking
-
+;;
;; Advance AT to an I multiple.
(define (align-AT I)
(inc AT (% (- I (% AT I)) I)))
;; Advance AT to an I multiple.
(define (align-AT I)
(inc AT (% (- I (% AT I)) I)))
@@
-379,6
+379,8
@@
OUT ))
#################################################################
OUT ))
#################################################################
+;; Originally lsp-dbus-events.lsp
+;;
;; This newlisp module implements dbus socket send-receive together
;; with signal receive. (This file should be loaded into the Dbus
;; context)
;; This newlisp module implements dbus socket send-receive together
;; with signal receive. (This file should be loaded into the Dbus
;; context)