#################################################################
;; This newlisp module implements dbus socket connection
-;;
+;; originally lsp-dbus-connection.lsp
(context 'MAIN:DbusConnection)
(FOOP path socket name serial)
(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.
(map pack-data-item ES DATA)))))
;;########## unpacking
-
+;;
;; Advance AT to an I multiple.
(define (align-AT I)
(inc AT (% (- I (% AT I)) I)))
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)