1 files changed, 0 insertions, 122 deletions
diff --git a/ToxPacket.hs b/ToxPacket.hs
deleted file mode 100644
index 1d848a61..00000000
--- a/ToxPacket.hs
+++ /dev/null
@@ -1,122 +0,0 @@
-{-# LANGUAGE BangPatterns               #-}
-{-# LANGUAGE CPP                        #-}
-{-# LANGUAGE GeneralizedNewtypeDeriving #-}
-{-# LANGUAGE TupleSections              #-}
-module ToxPacket where
-import Crypto.Tox
-import Data.Serialize as S
-import Data.Aeson as JSON
-import Data.IP
-import qualified Data.ByteString.Char8 as C8
-import qualified Data.ByteString as B
-import Data.Word
-import qualified Data.ByteString.Base16 as Base16
-import Network.Socket
-import Data.ByteArray (ByteArrayAccess)
-import qualified Data.ByteArray as BA
-import Data.Hashable
-import Data.Bits
-import System.IO.Unsafe
-import qualified Text.ParserCombinators.ReadP as RP
-import Foreign.Storable
-import Network.Tox.Address -- import Network.Address hiding (nodePort,nodeInfo)
-import Text.Read
-import Control.Applicative
-import Data.Char
-import Control.Monad
-import Crypto.Error.Types (throwCryptoError)
-- ## DHT Request packets
--
-- | Length | Contents                  |
-- |:-------|:--------------------------|
-- | `1`    | `uint8_t` (0x20)          |
-- | `32`   | receiver's DHT public key |
--   ...      ...
-data DHTRequestPacket = DHTRequestPacket
-    { requestTarget :: PublicKey
-    , request       :: Assym (Encrypted DHTRequest)
-    }
-instance Serialize DHTRequestPacket where
-    get = _todo
-    put = _todo
-data DHTRequest
-    = NATPing Nonce8
-    | NATPong Nonce8
-    | DHTPK DHTPublicKey
-- | Length      | Contents                            |
-- |:------------|:------------------------------------|
-- | `1`         | `uint8_t` (0x9c)                    |
-- | `8`         | `uint64_t` `no_replay`              |
-- | `32`        | Our DHT public key                  |
-- | `[39, 204]` | Maximum of 4 nodes in packed format |
-data DHTPublicKey = DHTPublicKey
-    { dhtpkNonce :: Nonce8
-    , dhtpk :: PublicKey
-    , dhtpkNodes :: SendNodes
-    }
-- | `32`   | sender's DHT public key   |
-- | `24`   | nonce                     |
-- | `?`    | encrypted message         |
-data Assym a = Assym
-    { senderKey :: PublicKey
-    , assymNonce :: Nonce24
-    , assymData :: a
-    }
-newtype GetNodes = GetNodes NodeId
-    deriving (Eq,Ord,Show,Read,S.Serialize)
-newtype SendNodes = SendNodes [NodeInfo]
-    deriving (Eq,Ord,Show,Read)
-instance S.Serialize SendNodes where
-    get = do
-        cnt <- S.get :: S.Get Word8
-        ns <- sequence $ replicate (fromIntegral cnt) S.get
-        return $ SendNodes ns
-    put (SendNodes ns) = do
-        let ns' = take 4 ns
-        S.put (fromIntegral (length ns') :: Word8)
-        mapM_ S.put ns'
-data Ping = Ping deriving Show
-data Pong = Pong deriving Show
-instance S.Serialize Ping where
-    get = do w8 <- S.get
-             if (w8 :: Word8) /= 0
-                then fail "Malformed ping."
-                else return Ping
-    put Ping = S.put (0 :: Word8)
-instance S.Serialize Pong where
-    get = do w8 <- S.get
-             if (w8 :: Word8) /= 1
-                then fail "Malformed pong."
-                else return Pong
-    put Pong = S.put (1 :: Word8)
-newtype CookieRequest = CookieRequest PublicKey
-newtype CookieResponse = CookieResponse Cookie
-data Cookie = Cookie Nonce24 (Encrypted CookieData)
-instance Sized Cookie where size = ConstSize 112 -- 24 byte nonce + 88 byte cookie data
-data CookieData = CookieData   --   16 (mac)
-    { cookieTime  :: Word64    --    8
-    , longTermKey :: PublicKey --   32
-    , dhtKey      :: PublicKey -- + 32
-    }                          -- = 88 bytes when encrypted.
-instance Sized CookieRequest where
-    size = ConstSize 64 -- 32 byte key + 32 byte padding

diff --git a/ToxPacket.hs b/ToxPacket.hs deleted file mode 100644 index 1d848a61..00000000 --- a/ToxPacket.hs +++ /dev/null
@@ -1,122 +0,0 @@
1	{-# LANGUAGE BangPatterns #-}
2	{-# LANGUAGE CPP #-}
3	{-# LANGUAGE GeneralizedNewtypeDeriving #-}
4	{-# LANGUAGE TupleSections #-}
5	module ToxPacket where
6
7	import Crypto.Tox
8	import Data.Serialize as S
9	import Data.Aeson as JSON
10	import Data.IP
11	import qualified Data.ByteString.Char8 as C8
12	import qualified Data.ByteString as B
13	import Data.Word
14	import qualified Data.ByteString.Base16 as Base16
15	import Network.Socket
16	import Data.ByteArray (ByteArrayAccess)
17	import qualified Data.ByteArray as BA
18	import Data.Hashable
19	import Data.Bits
20	import System.IO.Unsafe
21	import qualified Text.ParserCombinators.ReadP as RP
22	import Foreign.Storable
23	import Network.Tox.Address -- import Network.Address hiding (nodePort,nodeInfo)
24	import Text.Read
25	import Control.Applicative
26	import Data.Char
27	import Control.Monad
28	import Crypto.Error.Types (throwCryptoError)
29
30	-- ## DHT Request packets
31	--
32	-- \| Length \| Contents \|
33	-- \|:-------\|:--------------------------\|
34	-- \| `1` \| `uint8_t` (0x20) \|
35	-- \| `32` \| receiver's DHT public key \|
36	-- ... ...
37
38	data DHTRequestPacket = DHTRequestPacket
39	{ requestTarget :: PublicKey
40	, request :: Assym (Encrypted DHTRequest)
41	}
42
43	instance Serialize DHTRequestPacket where
44	get = _todo
45	put = _todo
46
47
48	data DHTRequest
49	= NATPing Nonce8
50	\| NATPong Nonce8
51	\| DHTPK DHTPublicKey
52
53	-- \| Length \| Contents \|
54	-- \|:------------\|:------------------------------------\|
55	-- \| `1` \| `uint8_t` (0x9c) \|
56	-- \| `8` \| `uint64_t` `no_replay` \|
57	-- \| `32` \| Our DHT public key \|
58	-- \| `[39, 204]` \| Maximum of 4 nodes in packed format \|
59	data DHTPublicKey = DHTPublicKey
60	{ dhtpkNonce :: Nonce8
61	, dhtpk :: PublicKey
62	, dhtpkNodes :: SendNodes
63	}
64
65	-- \| `32` \| sender's DHT public key \|
66	-- \| `24` \| nonce \|
67	-- \| `?` \| encrypted message \|
68	data Assym a = Assym
69	{ senderKey :: PublicKey
70	, assymNonce :: Nonce24
71	, assymData :: a
72	}
73
74	newtype GetNodes = GetNodes NodeId
75	deriving (Eq,Ord,Show,Read,S.Serialize)
76
77	newtype SendNodes = SendNodes [NodeInfo]
78	deriving (Eq,Ord,Show,Read)
79
80	instance S.Serialize SendNodes where
81	get = do
82	cnt <- S.get :: S.Get Word8
83	ns <- sequence $ replicate (fromIntegral cnt) S.get
84	return $ SendNodes ns
85
86	put (SendNodes ns) = do
87	let ns' = take 4 ns
88	S.put (fromIntegral (length ns') :: Word8)
89	mapM_ S.put ns'
90
91	data Ping = Ping deriving Show
92	data Pong = Pong deriving Show
93
94	instance S.Serialize Ping where
95	get = do w8 <- S.get
96	if (w8 :: Word8) /= 0
97	then fail "Malformed ping."
98	else return Ping
99	put Ping = S.put (0 :: Word8)
100
101	instance S.Serialize Pong where
102	get = do w8 <- S.get
103	if (w8 :: Word8) /= 1
104	then fail "Malformed pong."
105	else return Pong
106	put Pong = S.put (1 :: Word8)
107
108	newtype CookieRequest = CookieRequest PublicKey
109	newtype CookieResponse = CookieResponse Cookie
110
111	data Cookie = Cookie Nonce24 (Encrypted CookieData)
112
113	instance Sized Cookie where size = ConstSize 112 -- 24 byte nonce + 88 byte cookie data
114
115	data CookieData = CookieData -- 16 (mac)
116	{ cookieTime :: Word64 -- 8
117	, longTermKey :: PublicKey -- 32
118	, dhtKey :: PublicKey -- + 32
119	} -- = 88 bytes when encrypted.
120
121	instance Sized CookieRequest where
122	size = ConstSize 64 -- 32 byte key + 32 byte padding