[gnunet-scheme] 01/03: cadet/client: Add 'allow-send' field.

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