X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=dbus-api.lsp;h=03d8afa336470cc874a849bdd9f90b540d18ddae;hb=9f7618581bd36b45e0d877f673e258891d58bbdc;hp=0acd546af005942e4c2fa92ccc20ef09b1aeb189;hpb=8ea8f1976626d8d06f10106363fd7790cf38618a;p=rrq%2Fnewlisp%2Fdbus-api.git

diff --git a/dbus-api.lsp b/dbus-api.lsp
index 0acd546..03d8afa 100644
--- a/dbus-api.lsp
+++ b/dbus-api.lsp
@@ -15,7 +15,7 @@
 
 #################################################################
 ;; This newlisp module implements dbus socket connection
-;;
+;; originally lsp-dbus-connection.lsp
 
 (context 'MAIN:DbusConnection)
 (FOOP path socket name serial)
@@ -157,8 +157,8 @@
     (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.
@@ -275,7 +275,7 @@
                         (map pack-data-item ES DATA)))))
 
 ;;########## unpacking
-
+;; 
 ;; Advance AT to an I multiple.
 (define (align-AT I)
   (inc AT (% (- I (% AT I)) I)))
@@ -379,6 +379,8 @@
     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)