attoparsec-enumerator (empty) → 0.1

raw patch · 4 files changed

+99/−0 lines, 4 filesdep +attoparsecdep +basedep +bytestringsetup-changed

Dependencies added: attoparsec, base, bytestring, enumerator, extensible-exceptions

Files

• Data/Attoparsec/Enumerator.hs +42/−0
• Setup.hs +2/−0
• attoparsec-enumerator.cabal +33/−0
• license.txt +22/−0

@@ -0,0 +1,42 @@+-----------------------------------------------------------------------------+-- |+-- Module: Data.Attoparsec.Enumerator+-- Copyright: 2010 John Millikin+-- License: MIT+--+-- Maintainer: jmillikin@gmail.com+-- Portability: portable+--+-----------------------------------------------------------------------------+module Data.Attoparsec.Enumerator+	( ParseError (..)+	, iterParser+	) where+import qualified Data.Attoparsec as A+import qualified Data.ByteString as B+import qualified Data.Enumerator as E++-- | The context and message from a 'A.Fail' value.+data ParseError = ParseError+	{ errorContexts :: [String]+	, errorMessage :: String+	}+	deriving (Show)++-- | Convert an Attoparsec 'A.Parser' into an 'E.Iteratee'. The parser will+-- be streamed bytes until it returns 'A.Done' or 'A.Fail'.+iterParser :: Monad m => A.Parser a -> E.Iteratee ParseError B.ByteString m a+iterParser p = E.continue (step (A.parse p)) where+	step parse (E.Chunks xs) = parseLoop parse xs+	step parse E.EOF = case parse B.empty of+		A.Done extra a -> E.yield a (E.Chunks [extra])+		A.Partial _ -> error "iterParser: divergent parser"+		A.Fail _ ctx msg -> err ctx msg+	+	parseLoop parse [] = E.continue (step parse)+	parseLoop parse (x:xs) = case parse x of+		A.Done extra a -> E.yield a (E.Chunks (extra:xs))+		A.Partial parse' -> parseLoop parse' xs+		A.Fail _ ctx msg -> err ctx msg+	+	err ctx msg = E.throwError (ParseError ctx msg)

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

@@ -0,0 +1,33 @@+name: attoparsec-enumerator+version: 0.1+synopsis: Convert an Attoparsec parser into an iteratee+license: MIT+license-file: license.txt+author: John Millikin <jmillikin@gmail.com>+maintainer: jmillikin@gmail.com+copyright: Copyright (c) John Millikin 2010+build-type: Simple+cabal-version: >=1.6+category: Text, Parsing+stability: experimental+bug-reports: mailto:jmillikin@gmail.com+tested-with: GHC==6.12.1++library+  ghc-options: -Wall -fno-warn-unused-do-bind++  build-depends:+      attoparsec >= 0.8 && < 0.9+    , bytestring >= 0.9 && < 0.10+    , enumerator >= 0.1 && < 0.2++  if impl(ghc >= 6.10)+    build-depends:+        base >=4 && < 5+  else+    build-depends:+        base >=3 && < 4+      , extensible-exceptions++  exposed-modules:+    Data.Attoparsec.Enumerator

@@ -0,0 +1,22 @@+Copyright (c) 2010 John Millikin++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.