diff options
| author | David Barksdale <amatus.amongus@gmail.com> | 2010-05-18 23:39:39 -0700 |
|---|---|---|
| committer | David Barksdale <amatus.amongus@gmail.com> | 2010-05-18 23:39:39 -0700 |
| commit | af7385dae9571b322cccf284f40465236262a0c8 (patch) | |
| tree | 2f234177740fc85f5f31e4d283fee6c71d85131e | |
| parent | e0a12e92593c509609c4dfdbf45fbd5d74636586 (diff) | |
Starting work on tcp transport.
| -rw-r--r-- | src/org/gnu/clojure/gnunet/identity.clj | 2 | ||||
| -rw-r--r-- | src/org/gnu/clojure/gnunet/tcp.clj | 12 |
2 files changed, 14 insertions, 0 deletions
diff --git a/src/org/gnu/clojure/gnunet/identity.clj b/src/org/gnu/clojure/gnunet/identity.clj index 85392a4..9ddbef9 100644 --- a/src/org/gnu/clojure/gnunet/identity.clj +++ b/src/org/gnu/clojure/gnunet/identity.clj @@ -5,3 +5,5 @@ "Generate the SHA-512 digest of the encoded public key." [keypair] (sha-512 (encode-rsa-public-key (.getPublic keypair)))) + +(def id-size (count (sha-512 ()))) diff --git a/src/org/gnu/clojure/gnunet/tcp.clj b/src/org/gnu/clojure/gnunet/tcp.clj new file mode 100644 index 0000000..bab3a77 --- /dev/null +++ b/src/org/gnu/clojure/gnunet/tcp.clj @@ -0,0 +1,12 @@ +(ns org.gnu.clojure.gnunet.tcp + (:use (org.gnu.clojure.gnunet parser message identity crypto) + clojure.contrib.monads)) + +(def message-type-tcp-welcome 60) + +(defn encode-welcome + [my-id] + my-id) + +(def parse-welcome + (domonad parser-m [my-id (items id-size)] my-id)) |