[gnunet-scheme] 173/324: netstruct/procedural: Support IEEE doubles.

[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 69b16ef5d68df2fbb4c3aba7896b46e6c76128dd
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Aug 13 12:07:30 2021 +0200

    netstruct/procedural: Support IEEE doubles.
    
    * gnu/gnunet/netstruct/procedural.scm
      (ieee-double/big, ieee-double/little): New variables.
---
 gnu/gnunet/netstruct/procedural.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/netstruct/procedural.scm 
b/gnu/gnunet/netstruct/procedural.scm
index 4004c47..fd5a6af 100644
--- a/gnu/gnunet/netstruct/procedural.scm
+++ b/gnu/gnunet/netstruct/procedural.scm
@@ -43,6 +43,7 @@
 
    u8 u16/big u32/big u64/big
    u16/little u32/little u64/little
+   ieee-double/big ieee-double/little
 
    u8vector
 
@@ -412,7 +413,9 @@ accepting a bytevector slice and a value."
     (define-unsigned-N-bytes*
       ((2 slice-u16-ref slice-u16-set!) (u16/big u16/little))
       ((4 slice-u32-ref slice-u32-set!) (u32/big u32/little))
-      ((8 slice-u64-ref slice-u64-set!) (u64/big u64/little)))
+      ((8 slice-u64-ref slice-u64-set!) (u64/big u64/little))
+      ((8 slice-ieee-double-ref slice-ieee-double-set!)
+       (ieee-double/big ieee-double/little)))
 
     (define (u8vector n)
       "Return a network structure representing an array of bytes,

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