From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Tue, 16 May 2023 13:31:20 +0000 (+1000)
Subject: added back links for included files
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=7968f0baa7247a6b4d92f606269db60d0dbb9720;p=rrq%2Fnewlisp%2Fdbus-api.git

added back links for included files
---

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)