From 8a71214c64df22a899a4f6f77c6beb04818093cc Mon Sep 17 00:00:00 2001
From: Oskar Thoren <ot@oskarthoren.com>
Date: Fri, 22 Nov 2019 16:55:01 +0800
Subject: [PATCH] add whisper envelope scratch abnf

---
 abnf/hello-abnf/src/hello_abnf/core.clj | 114 ++++++++++++++++++++++++
 1 file changed, 114 insertions(+)

diff --git a/abnf/hello-abnf/src/hello_abnf/core.clj b/abnf/hello-abnf/src/hello_abnf/core.clj
index 87c6521..477de1c 100644
--- a/abnf/hello-abnf/src/hello_abnf/core.clj
+++ b/abnf/hello-abnf/src/hello_abnf/core.clj
@@ -5,5 +5,119 @@
   (insta/parser "https://raw.githubusercontent.com/Engelberg/instaparse/master/test/data/phone_uri.txt"
                 :input-format :abnf))
 
+;; (insta/parser (slurp "resources/phone_uri.txt") :input-format :abnf)
+
 (phone-uri-parser "tel:+1-201-555-0123")
 ;; => [:telephone-uri "tel:" [:telephone-subscriber [:global-number [:global-number-digits "+" [:DIGIT "1"] [:phonedigit [:visual-separator "-"]] [:phonedigit [:DIGIT "2"]] [:phonedigit [:DIGIT "0"]] [:phonedigit [:DIGIT "1"]] [:phonedigit [:visual-separator "-"]] [:phonedigit [:DIGIT "5"]] [:phonedigit [:DIGIT "5"]] [:phonedigit [:DIGIT "5"]] [:phonedigit [:visual-separator "-"]] [:phonedigit [:DIGIT "0"]] [:phonedigit [:DIGIT "1"]] [:phonedigit [:DIGIT "2"]] [:phonedigit [:DIGIT "3"]]]]]]
+
+;; flags: 1 byte; first two bits contain the size of auxiliary field, third bit indicates whether the signature is present.
+
+;; auxiliary field: up to 4 bytes; contains the size of payload.
+
+;; payload: byte array of arbitrary size (may be zero).
+
+;; padding: byte array of arbitrary size (may be zero).
+
+;; signature: 65 bytes, if present.
+
+;; XXX: arbitrary size seems bad
+(def whisper-envelope-parser
+  (insta/parser "
+
+whisper-envelope = expiry ttl topic data nonce
+
+; UNIX time in seconds
+expiry           = 4*4bytes
+
+; time-to-live in seconds
+ttl              = 4*4bytes
+
+topic            = 4*4bytes
+
+; contains encrypted message
+data             = *bytes
+
+; used for PoW calculation
+nonce            = 8*8bytes
+
+bytes = OCTET
+
+;; first two bits contain the size of auxiliary field, third bit indicates whether the signature is present.
+flags = bytes
+
+;; contains size of payload
+auxiliary-field = *4bytes
+
+payload = *bytes
+
+padding = *bytes
+
+signature = 65*65bytes
+
+;packet-code = %x30-33
+
+" :input-format :abnf))
+
+(whisper-envelope-parser "\u0000")
+
+;; can we print whisper envelope
+; hex repr
+
+;; See envelope.nim and envelope.nim.out
+;;env0 = Envelope(expiry:100000, ttl: 30, topic: [byte 0, 0, 0, 0],data: repeat(byte 9, 256), nonce: 1010101)
+
+;; XXX: This isn't going to work because we don't have RLP logic setup, in principle though
+;;(whisper-envelope-parser
+"f90111830186a01e8400000000b9010009090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909090909830f69b5")
+
+
+(def waku-parser
+
+  (insta/parser (slurp "resources/waku.txt") :input-format :abnf)
+
+  )
+
+;; XXX: Should this encode RLP stuff?
+(waku-parser "[ 0 ]")
+
+;; example
+
+(comment
+
+  (insta/parser "
+bytes = *OCTET
+packet-code = %x30-33
+" :input-format :abnf)
+
+  bytes = OCTET*
+  OCTET = #"[\u0000-\u00FF]"
+  packet-code = %x0030-0033
+
+  ;; SP is 20
+  ;;[\\u0000-\\u00FF]"
+
+  ;; parse as packet-code, how?
+  (waku-parser "0")
+
+  (waku-parser "\u0030")
+
+  (waku-parser "\u0030\u0020")
+
+
+  (waku-parser "0"[\u0000]"")
+
+
+  bytes = OCTET
+  OCTET = #"[\u0000-\u00FF]"
+
+
+  ;; matches first thing
+  (
+   (insta/parser "
+packet-code = 3DIGIT
+; 0-127 packet codes are reserved
+bytes = *OCTET" :input-format :abnf)
+
+   "127")
+
+  )