module Data.Conduit.Parsers.Text.TextOffset
( TextOffset (..)
) where
import qualified Data.Text as S (Text)
import qualified Data.Text as ST hiding (Text, head, last, tail, init)
import Data.Word
import Data.Conduit.Parsers
import Data.Conduit.Parsers.GetC
import Data.Conduit.Parsers.Text
data TextOffset = TextOffset Word64 Word64 Word64 deriving Show
instance DecodingState TextOffset where
type DecodingToken TextOffset = S.Text
decoded !i (TextOffset !o !l !c) =
let newlines = reverse $ drop 1 $ ST.split (== '\n') i in
TextOffset (o + fromIntegral (ST.length i)) (l + fromIntegral (length newlines)) $ case newlines of
[] -> c + fromIntegral (ST.length i)
(x : _) -> fromIntegral (ST.length x)
{-# INLINE decoded #-}
instance DecodingElemsRead TextOffset where
decodingElemsRead (TextOffset !o _ _) = o
{-# INLINE decodingElemsRead #-}
instance DecodingLinesRead TextOffset where
decodingLinesRead (TextOffset _ !l _) = l
{-# INLINE decodingLinesRead #-}
instance DecodingColumnsRead TextOffset where
decodingColumnsRead (TextOffset _ _ !c) = c
{-# INLINE decodingColumnsRead #-}