3 files changed, 0 insertions, 148 deletions

diff --git a/bittorrent/bench/Main.hs b/bittorrent/bench/Main.hs
deleted file mode 100644
index f04485ab..00000000
--- a/bittorrent/bench/Main.hs
+++ /dev/null
@@ -1,75 +0,0 @@
-{-# LANGUAGE OverloadedStrings     #-}
-{-# LANGUAGE MultiParamTypeClasses #-}
-{-# OPTIONS -fno-warn-orphans #-}
-module Main (main) where
-
-import Control.DeepSeq
-import Network
-import Control.Monad
-import Control.Monad.Logger
-import Control.Monad.Reader
-import Criterion.Main
-import Data.ByteString as BS
-import Network.DatagramServer
-
-
-import Network.BitTorrent.Exchange.Protocol as BT
-import Data.Torrent.Block as BT
-import Data.Torrent.Bitfield as BT
-
-instance KRPC ByteString ByteString where
-  method = "echo"
-
-instance MonadLogger IO where
-  monadLoggerLog _ _ _ _ = return ()
-
-
-instance NFData PortNumber where
-  rnf = rnf . (fromIntegral :: PortNumber -> Int)
-
-instance NFData BlockIx where
-  rnf (BlockIx a b c) = a `deepseq` b `deepseq` rnf c
-
-instance NFData Block where
-  rnf (Block a b c) = a `deepseq` b `deepseq` rnf c
-
-instance NFData Bitfield
-
-instance NFData Message where
-  rnf (Have i)     = rnf i
-  rnf (Bitfield b) = rnf b
-  rnf (Request  b) = rnf b
-  rnf (Piece    b) = rnf b
-  rnf (Cancel   b) = rnf b
-  rnf (Port     i) = rnf i
-  rnf _ = ()  -- other fields are forced by pattern matching
-
-{-
-encodeMessages :: [Message] -> ByteString
-encodeMessages xs = runPut (mapM_ put xs)
-
-decodeMessages :: ByteString -> Either String [Message]
-decodeMessages = runGet (many get)
--}
-
-echo :: Handler IO
-echo = handler $ \ _ bs -> return (bs :: ByteString)
-
-addr :: SockAddr
-addr = SockAddrInet 6000 (256 * 256 * 256 + 127)
-
--- main :: IO ()
--- main = defaultMain []
-main :: IO ()
-main = withManager def addr [echo] $ \ m -> (`runReaderT` m) $ do
-    listen
-    liftIO $ defaultMain (benchmarks m)
-  where
-    sizes        = [10, 100, 1000, 10000, 16 * 1024]
-    repetitions  = [1, 10, 100, 1000]
-    benchmarks m = [mkbench m r s | r <- repetitions, s <- sizes]
-      where
-        mkbench action r n =
-          bench (show r ++ "times" ++ "/" ++ show n ++ "bytes") $ nfIO $
-            replicateM r $
-              runReaderT (query addr (BS.replicate n 0)) action
diff --git a/bittorrent/bench/Throughtput.hs b/bittorrent/bench/Throughtput.hs
deleted file mode 100644
index d0404405..00000000
--- a/bittorrent/bench/Throughtput.hs
+++ /dev/null
@@ -1,46 +0,0 @@
-{-# LANGUAGE ViewPatterns  #-}
-{-# LANGUAGE PatternGuards #-}
-module Main (main) where
-
-import Control.Concurrent
-import Data.Bitfield
-import Network.BitTorrent
-import System.Environment
-import Control.Monad.Reader
-import Data.IORef
-
-
-main :: IO ()
-main = do
-  [path]  <- getArgs
-  torrent <- fromFile path
-
-  print (contentLayout "./" (tInfo torrent))
-
-  client  <- newClient 100 []
-  swarm   <- newLeecher  client torrent
-
-  ref <- liftIO $ newIORef 0
-  discover swarm $ do
-    forever $ do
-      e <- awaitEvent
-      case e of
-        Available bf
-          | Just m <- findMin bf -> yieldEvent (Want (BlockIx m 0 10))
-          |     otherwise        -> return ()
-        Want     bix -> liftIO $ print bix
-        Fragment blk -> do
-
-          sc <- liftIO $ getSessionCount swarm
-          addr <- asks connectedPeerAddr
-
-          liftIO $ do
-            x <- atomicModifyIORef ref (\x -> (succ x, x))
-            if x `mod` 100 == 0
-              then print (x, sc, addr)
-              else return ()
-
-          yieldEvent (Want (BlockIx 0 0 (16 * 1024)))
-
-
-  print "Bye-bye! =_="
\ No newline at end of file
diff --git a/bittorrent/bench/TorrentFile.hs b/bittorrent/bench/TorrentFile.hs
deleted file mode 100644
index e91a9c10..00000000
--- a/bittorrent/bench/TorrentFile.hs
+++ /dev/null
@@ -1,27 +0,0 @@
-{-# LANGUAGE BangPatterns #-}
-module Main (main) where
-
-import Data.BEncode
-import Data.ByteString as BS
-import Data.Torrent
-import Criterion.Main
-
-
-tinyPath :: FilePath
-tinyPath = "res/dapper-dvd-amd64.iso.torrent"
-
-largePath :: FilePath
-largePath = "res/pkg.torrent"
-
-decoder :: ByteString -> Torrent
-decoder bs = let Right r = decode bs in r
-
-main :: IO ()
-main = do
-  !tinyBin  <- BS.readFile tinyPath
-  !largeBin <- BS.readFile largePath
-
-  defaultMain
-    [ bench "read/tiny"  $ nf decoder tinyBin
-    , bench "read/large" $ nf decoder largeBin
-    ]
\ No newline at end of file