reworking... ToxTransport and related modules.

1 files changed, 76 insertions, 0 deletions

diff --git a/ToxPacket.hs b/ToxPacket.hs
new file mode 100644
index 00000000..d10a7597
--- /dev/null
+++ b/ToxPacket.hs
@@ -0,0 +1,76 @@
+{-# LANGUAGE BangPatterns               #-}
+{-# LANGUAGE CPP                        #-}
+{-# LANGUAGE GeneralizedNewtypeDeriving #-}
+{-# LANGUAGE TupleSections              #-}
+module ToxPacket where
+
+import ToxCrypto
+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 ToxAddress -- 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 SendNodes = SendNodes [NodeInfo]
+    deriving (Eq,Ord,Show,Read)
+