add the attoparsec version

Author: Geal

http/attoparsec/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2015 Geoffroy Couprie
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be included
+in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
+IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
+CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
+TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

http/attoparsec/Setup.hs

@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain

http/attoparsec/http.cabal

@@ -0,0 +1,26 @@
+-- Initial mp4.cabal generated by cabal init.  For further documentation, 
+-- see http://haskell.org/cabal/users-guide/
+
+name:                http
+version:             0.1.0.0
+-- synopsis:            
+-- description:         
+license:             MIT
+license-file:        LICENSE
+author:              Geoffroy Couprie
+maintainer:          [email protected]
+-- copyright:           
+category:            Testing
+build-type:          Simple
+-- extra-source-files:  
+cabal-version:       >=1.10
+
+
+executable http
+  main-is:             Main.hs
+  -- other-modules:       
+  -- other-extensions:    
+  build-depends:       criterion, attoparsec-binary, bytestring, attoparsec, base
+  hs-source-dirs:      src
+  default-language:    Haskell2010
+  --ghc-options:         -O2 -fllvm -pgmlo opt-3.4 -pgmlc llc-3.4

http/attoparsec/src/Main.hs

@@ -0,0 +1,90 @@
+{-# LANGUAGE OverloadedStrings #-}
+
+import           Criterion.Main                   (bench, bgroup, defaultMain,
+                                                   env, nfIO, whnf, whnfIO)
+import qualified Data.Attoparsec.Binary           as Bin
+import qualified Data.ByteString                  as B
+import qualified Data.ByteString.Char8            as C8
+
+import           Control.Applicative
+import           Data.Attoparsec.ByteString       as P
+import           Data.Attoparsec.ByteString.Char8 (char8, endOfLine, isDigit_w8)
+import           Data.Attoparsec.ByteString.Char8 (isEndOfLine,
+                                                   isHorizontalSpace)
+import           Data.ByteString                  (ByteString)
+import           Data.Word                        (Word8)
+
+isToken :: Word8 -> Bool
+isToken w = w <= 127 && notInClass "\0-\31()<>@,;:\\\"/[]?={} \t" w
+
+skipSpaces :: Parser ()
+skipSpaces = satisfy isHorizontalSpace *> skipWhile isHorizontalSpace
+
+data Request = Request {
+      requestMethod  :: ByteString
+    , requestUri     :: ByteString
+    , requestVersion :: ByteString
+    } deriving (Eq, Ord, Show)
+
+httpVersion :: Parser ByteString
+httpVersion = "HTTP/" *> P.takeWhile (\c -> isDigit_w8 c || c == 46)
+
+requestLine :: Parser Request
+requestLine = Request <$> (takeWhile1 isToken <* char8 ' ')
+                      <*> (takeWhile1 (/=32) <* char8 ' ')
+                      <*> (httpVersion <* endOfLine)
+
+data Header = Header {
+      headerName  :: ByteString
+    , headerValue :: [ByteString]
+    } deriving (Eq, Ord, Show)
+
+messageHeader :: Parser Header
+messageHeader = Header
+  <$> (P.takeWhile isToken <* char8 ':' <* skipWhile isHorizontalSpace)
+  <*> ((:) <$> (takeTill isEndOfLine <* endOfLine)
+           <*> (many $ skipSpaces *> takeTill isEndOfLine <* endOfLine))
+
+request :: Parser (Request, [Header])
+request = (,) <$> requestLine <*> many messageHeader <* endOfLine
+
+allRequests = many1 request
+
+data Response = Response {
+      responseVersion :: ByteString
+    , responseCode    :: ByteString
+    , responseMsg     :: ByteString
+    } deriving (Eq, Ord, Show)
+
+responseLine :: Parser Response
+responseLine = Response <$> (httpVersion <* char8 ' ')
+                        <*> (P.takeWhile isDigit_w8 <* char8 ' ')
+                        <*> (takeTill isEndOfLine <* endOfLine)
+
+response :: Parser (Response, [Header])
+response = (,) <$> responseLine <*> many messageHeader <* endOfLine
+
+smallFile :: FilePath
+smallFile = "../http-requests.txt"
+biggerFile :: FilePath
+biggerFile = "../bigger.txt"
+
+setupEnv = do
+  small  <- B.readFile smallFile
+  bigger <- B.readFile biggerFile
+  return (small, bigger)
+
+criterion :: IO ()
+criterion = defaultMain
+    [
+      env setupEnv $ \ ~(small, bigger) ->
+      bgroup "IO"
+        [
+          bench "small"          $ whnf (P.parseOnly allRequests) small
+        , bench "bigger"         $ whnf (P.parseOnly allRequests) bigger
+        ]
+    ]
+
+main :: IO ()
+main = criterion
+--main = B.readFile biggerFile >>= print . P.parseOnly allRequests