[gnunet-scheme] 02/03: cadet/client: New (stubbed) module.

[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 3eeafd198b8a6d5ed903cb035d3ba4635628ca67
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Feb 7 17:32:54 2022 +0000

    cadet/client: New (stubbed) module.
    
    * gnu/gnunet/cadet/client.scm: New module full of stubs.
    * Makefile.am (modules): Add it.
---
 Makefile.am                 |  1 +
 gnu/gnunet/cadet/client.scm | 38 ++++++++++++++++++++++++++++++++++++++
 2 files changed, 39 insertions(+)

diff --git a/Makefile.am b/Makefile.am
index e7ac0f3..00120f2 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -65,6 +65,7 @@ modules = \
   \
   gnu/gnunet/block.scm \
   \
+  gnu/gnunet/cadet/client.scm \
   gnu/gnunet/cadet/struct.scm \
   \
   gnu/gnunet/config/parser.scm \
diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
new file mode 100644
index 0000000..a930f55
--- /dev/null
+++ b/gnu/gnunet/cadet/client.scm
@@ -0,0 +1,38 @@
+;; This file is part of Scheme-GNUnet.
+;; Copyright © 2022 GNUnet e.V.
+;;
+;; Scheme-GNUnet is free software: you can redistribute it and/or modify it
+;; under the terms of the GNU Affero General Public License as published
+;; by the Free Software Foundation, either version 3 of the License,
+;; or (at your option) any later version.
+;;
+;; Scheme-GNUnet is distributed in the hope that it will be useful, but
+;; WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+;; Affero General Public License for more details.
+;;
+;; You should have received a copy of the GNU Affero General Public License
+;; along with this program.  If not, see <http://www.gnu.org/licenses/>.
+;;
+;; SPDX-License-Identifier: AGPL-3.0-or-later
+(define-library (gnu gnunet cadet client)
+  (export connect disconnect!
+         make-cadet-address cadet-address? cadet-address-peer 
cadet-address-port
+         channel? open-channel! close-channel!
+         port? open-port! close-port!)
+  (import (only (rnrs base) begin define assert))
+  (begin
+    (define (stub . foo)
+      (error "todo"))
+    (define connect stub)
+    (define disconnect! stub)
+    (define make-cadet-address stub)
+    (define cadet-address? stub)
+    (define cadet-address-peer stub)
+    (define cadet-address-port stub)
+    (define channel? stub)
+    (define open-channel! stub)
+    (define close-channel! stub)
+    (define port? stub)
+    (define open-port! stub)
+    (define close-port! stub)))

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