blob: 34341121c995d318ae093f40edc565a31e7997d5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
|
;; This file is part of scheme-GNUnet
;; Copyright (C) 2001-2011, 2021 GNUnet e.V.
;;
;; 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.
;;
;; 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: AGPL3.0-or-later
;; Author (GNUnet): Nathan Evans
;; File (GNUnet): nse/nse.h
;;
;; Brief: Common type definitions for the network size estimation
;; service and API.
(define-library (gnu gnunet nse struct (0 0))
(export /:msg:nse:estimate
/:msg:nse:flood)
(import (only (rnrs base) begin quote)
(only (gnu gnunet util struct)
/:message-header /time-absolute)
(only (gnu gnunet crypto struct)
/peer-identity /eddsa-signature /ecc-signature-purpose)
(only (gnu gnunet netstruct syntactic)
define-type structure/packed)
(only (gnu gnunet netstruct procedural)
u32/big u64/big ieee-double/big))
(begin
;; XXX check for mistakes
(define-type /:msg:nse:estimate
(structure/packed
(synopsis "Network size estimate sent from the service to clients")
(documentation
"Contains the current size estimate
(or 0 if none has been calculated) and the
standard deviation of known estimates.")
(properties '((message-symbol msg:nse:estimate)))
(field (header /:message-header))
(field (reserved u32/big))
(field (timestamp /time-absolute)
(synopsis "Timestamp for when the estimate was made"))
(field (size-estimate ieee-double/big))
(field (std-deviation ieee-double/big))))
(define-type /:msg:nse:flood
(structure/packed
(synopsis "Network size estimate reply")
(documentation
"Sent when \"this\" peer's timer has run out before receiving a
valid reply from another peer.")
(properties '((message-symbol msg:nse:flood)))
(field (header /:message-header))
(field (hop-count u32/big)
(synopsis
"Number of hops this message has taken so far"))
(field (purpose /ecc-signature-purpose)
(synopsis "Purpose"))
(field (timestamp /time-absolute)
(synopsis "The current timestamp value (which all
peers should agree on)"))
(field (matching-bits u32/big)
;; XXX add to (gnu gnunet util struct)
;; XXX I don't understand the above XXX anymore
(synopsis
"Number of matching bits between the hash
of timestamp and the initiator's public key."))
(field (origin /peer-identity)
(synopsis "Public key of the originator"))
(field (proof-of-work u64/big)
(synopsis
"Proof of work, causing leading zeros when hashed with pkey."))
(field (signature /eddsa-signature)
(synopsis "Signature (over range specified in purpose)."))))))
|
