{-# LINE 1 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
{-# Language ForeignFunctionInterface #-}
{-# LINE 2 "src/Text/Sundown/Buffer/Foreign.hsc" #-}

module Text.Sundown.Buffer.Foreign
       ( Buffer (..)
       , getBufferData
       , c_bufnew
       , c_bufputs
       , c_bufgrow
       , c_bufrelease
       ) where

import Data.ByteString         (ByteString)
import qualified Data.ByteString as BS
import Foreign
import Foreign.C.String
import Foreign.C.Types


{-# LINE 19 "src/Text/Sundown/Buffer/Foreign.hsc" #-}

data Buffer = Buffer { bufData  :: CString
                     , bufSize  :: CSize
                     , bufASize :: CSize
                     , bufUnit  :: CSize
                     }

instance Storable Buffer where
  sizeOf _ = ((16))
{-# LINE 28 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
  alignment _ = alignment (undefined :: CInt)
  peek ptr = do
    d  <- ((\hsc_ptr -> peekByteOff hsc_ptr 0)) ptr
{-# LINE 31 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
    s  <- ((\hsc_ptr -> peekByteOff hsc_ptr 4)) ptr
{-# LINE 32 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
    as <- ((\hsc_ptr -> peekByteOff hsc_ptr 8)) ptr
{-# LINE 33 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
    u  <- ((\hsc_ptr -> peekByteOff hsc_ptr 12)) ptr
{-# LINE 34 "src/Text/Sundown/Buffer/Foreign.hsc" #-}
    return $ Buffer d s as u
  poke _ _ = error "Buffer.poke not implemented."

getBufferData :: Buffer -> IO ByteString
getBufferData (Buffer d s _ _) | d == nullPtr = return $ BS.pack [0]
                               | otherwise = BS.packCStringLen (d, fromIntegral s)

foreign import ccall "buffer.h bufnew"
  c_bufnew :: CSize -> IO (Ptr Buffer)

c_bufputs :: Ptr Buffer -> ByteString -> IO ()
c_bufputs buf bs = BS.useAsCString bs $ c_bufputs' buf
foreign import ccall "buffer.h bufputs"
  c_bufputs' :: Ptr Buffer -> CString -> IO ()

foreign import ccall "buffer.h bufgrow"
  c_bufgrow :: Ptr Buffer -> CSize -> IO CInt

foreign import ccall "buffer.h bufrelease"
  c_bufrelease :: Ptr Buffer -> IO ()