[gnunet-scheme] 03/06: fs/struct: Define new message type /:msg:fs:response-loc-sign.

[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 4b7adae16c3ca3a305fb9dbd60b14231cf0100fe
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Tue Oct 25 22:20:41 2022 +0200

    fs/struct: Define new message type /:msg:fs:response-loc-sign.
    
    * gnu/gnunet/fs/struct.scm (/:msg:fs:response-loc-sign): New
    definition.
---
 gnu/gnunet/fs/struct.scm | 27 ++++++++++++++++++++++++---
 1 file changed, 24 insertions(+), 3 deletions(-)

diff --git a/gnu/gnunet/fs/struct.scm b/gnu/gnunet/fs/struct.scm
index 788383f..cb7917c 100644
--- a/gnu/gnunet/fs/struct.scm
+++ b/gnu/gnunet/fs/struct.scm
@@ -1,5 +1,5 @@
 ;; This file is part of Scheme-GNUnet.
-;; Copyright © 2003--2012 GNUnet e.V.
+;; Copyright © 2003--2012, 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
@@ -21,8 +21,11 @@
 ;; Author: Igor Wronsky, Christian Grothoff
 ;; Ported to Scheme-GNUnet by: Maxime Devos
 (define-library (gnu gnunet fs struct)
-  (export /:msg:fs:loc-sign)
+  (export /:msg:fs:loc-sign
+         /:msg:fs:response-loc-sign)
   (import (only (rnrs base) define begin * quote)
+         (only (gnu gnunet crypto struct)
+               /peer-identity)
          (only (gnu gnunet hashcode struct)
                /hashcode:512)
          (only (gnu gnunet util struct)
@@ -56,4 +59,22 @@
        (field (content-hash-key /content-hash-key)
              (synopsis "Information about the shared file (to be signed"))
        (field (file-length u64/big)
-             (synopsis "Size of the shared file (to be signed)"))))))
+             (synopsis "Size of the shared file (to be signed)"))))
+
+    (define-type /:msg:fs:response-loc-sign
+      (structure/packed
+       (synopsis "Message sent by the service to the client with a LOC 
signature.")
+       (properties '((message-symbol msg:fs:response-loc-signature)
+                    (c-type . ResponseLocSignatureMessage)))
+       (field (header /:message-header))
+       (field (purpose u32/big)
+             (synopsis "Requested signature purpose")
+             (documentation "For now, always 
GNUNET_SIGNATURE_PURPOSE_PEER_PLACEMENT"))
+       (field (expiration-time /time-absolute)
+             (synopsis "Expiration time of this signature.")
+             (documentation "Expiration time that was actually used (rounded!).
+IIUC, not necessarily the time that was requested."))
+       (field (peer /peer-identity)
+             (synopsis "Identity of the peer sharing the file.")
+             (documentation "On a typical setup, this is the identity of the
+local peer on a typical setup, IIUC."))))))

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