From ca28eb67318874b6747878c9c33b4d79a53d5779 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Sat, 15 Apr 2023 23:33:48 +1000 Subject: [PATCH] adding comments --- lsp-dbus/lsp-dbus-marshal.lsp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/lsp-dbus/lsp-dbus-marshal.lsp b/lsp-dbus/lsp-dbus-marshal.lsp index 81b6aa5..02859d6 100644 --- a/lsp-dbus/lsp-dbus-marshal.lsp +++ b/lsp-dbus/lsp-dbus-marshal.lsp @@ -191,15 +191,19 @@ (while (and (< AT (length DATA)) (setf M (unpack-data "yyyyuua(yv)" DATA AT))) (setf AT (M 1)) - (setf M (M 0 -1)) ; Drop + (setf M (M 0 -1)) ; Drop all but the headers then map to symbol keys (dotimes (i (length M 0)) (setf (M i 0) (MESSAGE-HEADERS (M i 0) 0))) + ;; Add the body, if any, keyed by "". (setf S (if (lookup 'SIGNATURE M) ($it 0) "")) (when (and (!= S "") (setf D (unpack-data S DATA AT))) (setf AT (D 1)) (extend M (list (list "" (D 0))))) - (push M OUT -1) + ;; Collate message and move to the next portion in DATA + (push M OUT -1) (setf DATA (AT DATA)) (setf AT 0) ) OUT )) + +"lsp-dbus-marshal.lsp" -- 2.39.2