fs/network: Define analyse-request-loc-signature.

Counterpart to construct-request-loc-signature.

1 files changed, 26 insertions, 6 deletions

diff --git a/gnu/gnunet/fs/network.scm b/gnu/gnunet/fs/network.scm
index 981ecac..4b3b01c 100644
--- a/gnu/gnunet/fs/network.scm
+++ b/gnu/gnunet/fs/network.scm
@@ -19,22 +19,25 @@
 
 ;; TODO: untested
 (define-library (gnu gnunet fs network)
-  (export construct-request-loc-signature)
-  (import (only (rnrs base) define define-syntax quote)
+  (export construct-request-loc-signature analyse-request-loc-signature)
+  (import (only (rnrs base) define define-syntax quote values)
           (only (guile) begin define*)
           (only (gnu gnunet utils bv-slice)
                 make-slice/read-write slice-copy! slice-length )
+          (only (gnu gnunet utils hat-let) let^)
           (only (gnu extractor enum) value->index symbol-value)
           (only (gnu gnunet message protocols) message-type)
-          (only (gnu gnunet fs struct) /:msg:fs:request-loc-signature)
+          (only (gnu gnunet fs struct)
+                /content-hash-key /:msg:fs:request-loc-signature)
           (only (gnu gnunet fs uri)
                 chk-key ;; TODO rename
-                chk-query)
+                chk-query
+                make-content-hash-key/share)
           (only (gnu gnunet hashcode)
                 hashcode:512->slice)
           (only (gnu gnunet utils cut-syntax) cut-syntax)
           (only (gnu gnunet netstruct syntactic)
-                set%! sizeof select))
+                set%! sizeof select read%))
   (begin
     ;; GNUNET_SIGNATURE_PURPOSE_PEER_PLACEMENT,
     ;; (see gnunet-signatures/gnunet_signatures.rst)
@@ -67,4 +70,21 @@ expiring at @var{expiration-time} (TODO type), for @var{purpose}
        (hashcode:512->slice (chk-query content-hash-key))
        (select* '(content-hash-key query)))
       (set%!* '(file-length) file-length)
-      s)))
+      s)
+
+   (define (analyse-request-loc-signature message)
+     "Return the file length, content hash key, expiration time (TODO type)
+and signature purpose corresponding to the @code{/:msg:fs:request-loc-signature}
+message @var{message}."
+     (let^ ((! file-length
+               (read% /:msg:fs:request-loc-signature '(file-length) message))
+            (! content-hash-key
+               (make-content-hash-key/share
+                (select /:msg:fs:request-loc-signature
+                        '(content-hash-key) message)))
+            (! expiration-time
+               (read% /:msg:fs:request-loc-signature
+                      '(expiration-time) message))
+            (! purpose
+               (read% /:msg:fs:request-loc-signature '(purpose) message)))
+           (values file-length content-hash-key expiration-time purpose)))))