[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.