[gnunet-scheme] 06/06: cadet/client: Handle msg:cadet:local:acknowledgement by sending a message to 'control'.

[gnunet]

This is an automated email from the git hooks/post-receive script.

maxime-devos pushed a commit to branch master
in repository gnunet-scheme.

commit 43a15ede412226d795e5dc41f86799b0b8518345
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Wed Aug 17 15:59:50 2022 +0200

    cadet/client: Handle msg:cadet:local:acknowledgement by sending a message 
to 'control'.
    
    * gnu/gnunet/cadet/client.scm
    (reconnect)[handlers]{msg:cadet:local:acknowledgement}<handle!>: Unstub.
    (reconnect)[control*]{acknowledgement}: Stub.
---
 gnu/gnunet/cadet/client.scm | 14 ++++++++++++--
 1 file changed, 12 insertions(+), 2 deletions(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index 6be92f8..f2843b4 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -61,7 +61,9 @@
          (only (gnu gnunet mq envelope)
                attempt-irrevocable-sent!)
          (only (gnu gnunet server)
-               maybe-send-control-message! make-error-handler
+               maybe-send-control-message!
+               maybe-send-control-message!*
+               make-error-handler
                make-disconnect!
                server-terminal-condition
                server-control-channel
@@ -165,7 +167,13 @@
          ((interpose exp) exp)
          ((well-formed? slice)
           (= (slice-length slice) (sizeof /:msg:cadet:local:acknowledgement 
'())))
-         ((handle! slice) TODO))))
+         ((handle! slice)
+          ;; The slice needs to be read here (and not in 'control'), as it 
might
+          ;; later be reused for something different.
+          (let ((channel-number (analyse-local-acknowledgement slice)))
+            (maybe-send-control-message!* terminal-condition control-channel
+                                          'acknowledgement
+                                          channel-number))))))
       (define error-handler
        (make-error-handler connected disconnected terminal-condition
                            control-channel))
@@ -236,6 +244,8 @@
           ;; TODO: no operations and no channels are implemented yet,
           ;; so for now nothing can be done.
           (continue))
+         (('acknowledgement channel-number)
+          TODO do stuff with channel-number)
          (('send-channel-stuff! message-queue channel)
           ;; Tell the service to send the messages over CADET.
           (send-channel-stuff! channel)

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.