From c3594d389a0caba85ae4b5c3c97339c5705551c0 Mon Sep 17 00:00:00 2001
From: Sam Truzjan <pxqr.sta@gmail.com>
Date: Thu, 13 Feb 2014 17:55:13 +0400
Subject: Add bitfield of remote endpoint to Wire module

---
 src/Network/BitTorrent/Exchange/Wire.hs | 19 ++++++++++++++++++-
 1 file changed, 18 insertions(+), 1 deletion(-)

(limited to 'src/Network/BitTorrent/Exchange/Wire.hs')

diff --git a/src/Network/BitTorrent/Exchange/Wire.hs b/src/Network/BitTorrent/Exchange/Wire.hs
index 5cd9ec70..1fca6a66 100644
--- a/src/Network/BitTorrent/Exchange/Wire.hs
+++ b/src/Network/BitTorrent/Exchange/Wire.hs
@@ -49,6 +49,7 @@ module Network.BitTorrent.Exchange.Wire
        , runWire
        , connectWire
        , acceptWire
+       , resizeBitfield
 
          -- ** Messaging
        , recvMessage
@@ -59,7 +60,9 @@ module Network.BitTorrent.Exchange.Wire
        , getConnection
        , getSession
        , getStatus
+       , getRemoteBitfield
        , updateConnStatus
+       , updateRemoteBitfield
        , getExtCaps
        , getStats
        , getMetadata
@@ -94,7 +97,7 @@ import System.Timeout
 
 import Data.BEncode as BE
 import Data.Torrent
-import Data.Torrent.Bitfield
+import Data.Torrent.Bitfield as BF
 import Data.Torrent.InfoHash
 import Data.Torrent.Piece
 import Network.BitTorrent.Core
@@ -450,6 +453,9 @@ data ConnectionState = ConnectionState {
 
   , _connStatus       :: !ConnectionStatus
 
+    -- | Bitfield of remote endpoint.
+  , _connBitfield     :: !Bitfield
+
     -- | Infodict associated with this Connection's connTopic.
   , _connMetadata     :: Maybe (Cached InfoDict)
   }
@@ -707,6 +713,7 @@ connectWire session hs addr extCaps chan wire =
                            , incomingFlow  = FlowStats 1 $ handshakeStats hs'
                            }
       , _connStatus       = def
+      , _connBitfield     = BF.haveNone 0
       , _connMetadata     = Nothing
       }
 
@@ -752,6 +759,16 @@ updateConnStatus side u = lift $ do
     statusSide ThisPeer   = clientStatus
     statusSide RemotePeer = remoteStatus
 
+getRemoteBitfield :: Wire s Bitfield
+getRemoteBitfield = lift $ use connBitfield
+
+updateRemoteBitfield :: (Bitfield -> Bitfield) -> Wire s ()
+updateRemoteBitfield f = lift $ connBitfield %= f
+
+-- | Used when size of bitfield becomes known.
+resizeBitfield :: Int -> Wire s ()
+resizeBitfield n = updateRemoteBitfield (adjustSize n)
+
 {-----------------------------------------------------------------------
 --  Metadata exchange
 -----------------------------------------------------------------------}
-- 
cgit v1.2.3