gnunet-svn
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[gnunet-scheme] 03/05: cadet/client: Actually define a message queue whe


From: gnunet
Subject: [gnunet-scheme] 03/05: cadet/client: Actually define a message queue when opening a channel.
Date: Sun, 31 Jul 2022 16:48:32 +0200

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 4267734f40f0db3bc30a403ccabd5e1e7da4f6ef
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Jul 31 15:24:14 2022 +0200

    cadet/client: Actually define a message queue when opening a channel.
    
    * gnu/gnunet/cadet/client.scm (open-channel!): Make a stub message queue.
---
 gnu/gnunet/cadet/client.scm | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index bdef1ab..7e72746 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -65,6 +65,7 @@
                /hashcode:512)
          (only (gnu gnunet message protocols) message-type)
          (only (gnu gnunet mq-impl stream) connect/fibers)
+         (only (gnu gnunet mq) make-message-queue)
          (only (gnu gnunet netstruct syntactic)
                sizeof select read% set%!)
          (only (gnu gnunet utils bv-slice)
@@ -321,6 +322,14 @@ message @var{message}."
     ;; TODO: callbacks, message queue, actually test it
     (define* (open-channel! server address handlers)
       (assert (and (server:cadet? server) (cadet-address? address)))
+      (define error-handler stub)
+      (define sender stub)
+      (define closer stub)
+      (define message-queue
+       (make-message-queue handlers
+                           error-handler
+                           sender
+                           closer))
       (define channel (%make-channel server address 0
                                     #false)) ; TODO
       (maybe-send-control-message! server 'open-channel! channel)

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



reply via email to

[Prev in Thread] Current Thread [Next in Thread]