[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 01/03: cadet/client: Add 'allow-send' field.
From: |
gnunet |
Subject: |
[gnunet-scheme] 01/03: cadet/client: Add 'allow-send' field. |
Date: |
Sun, 31 Jul 2022 21:09:44 +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 017d7f66540c083c971bb8357ed1fcd7c85e7ff5
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Jul 31 20:34:54 2022 +0200
cadet/client: Add 'allow-send' field.
* gnu/gnunet/cadet/client.scm (<channel>)[allow-send]: New field.
[protocol]: Adjust constructor.
---
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 d77df43..a6fa8e5 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -110,11 +110,21 @@
;; numbers are reset.
(mutable channel-number channel-channel-number
set-channel-channel-number!)
- (immutable message-queue channel-message-queue)) ; <message-queue>
+ (immutable message-queue channel-message-queue) ; <message-queue>
+ ;; (Natural number, possibly zero) The number of messages the
service
+ ;; currently allows the the client to send to the service.
+ ;; This is decremented after sending a message to the service
+ ;; and incremented after receiving a
+ ;; @code{/:msg:cadet:local:acknowledgement}.
+ ;;
+ ;; TODO: implement
+ ;;
+ ;; Concurrency: this may only be read/written in the main event
loop.
+ (mutable allow-send channel-allow-send set-channel-allow-send!))
(protocol (lambda (%make)
(lambda (server destination options message-queue)
((%make (losable-lost-and-found server)) server
- destination options #false message-queue)))))
+ destination options #false message-queue 0)))))
(define* (connect config #:key (connected values) (disconnected values)
(spawn spawn-fiber))
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.