{-# LANGUAGE ForeignFunctionInterface #-}
module Sound.File.Sndfile.Buffer.Internal
(
    IOFunc
  , hBufIO
  , sf_readf_word16
  , sf_writef_word16
  , sf_readf_word32
  , sf_writef_word32
  , sf_readf_float
  , sf_writef_float
  , sf_readf_double
  , sf_writef_double
) where

import Data.Word					(Word16, Word32)
import Foreign.Ptr     				(Ptr)
import Foreign.C.Types 				(CLLong(..))
import Sound.File.Sndfile.Interface (Count, Handle(..), HandlePtr)

type IOFunc a = HandlePtr -> Ptr a -> CLLong -> IO CLLong

hBufIO :: IOFunc a -> Handle -> Ptr a -> Count -> IO Count
hBufIO f h ptr = fmap fromIntegral . f (hPtr h) ptr . fromIntegral

foreign import ccall unsafe "sf_readf_short"   sf_readf_word16  :: IOFunc Word16
foreign import ccall unsafe "sf_writef_short"  sf_writef_word16 :: IOFunc Word16

foreign import ccall unsafe "sf_readf_int"     sf_readf_word32  :: IOFunc Word32
foreign import ccall unsafe "sf_writef_int"    sf_writef_word32 :: IOFunc Word32

foreign import ccall unsafe "sf_readf_float"   sf_readf_float   :: IOFunc Float
foreign import ccall unsafe "sf_writef_float"  sf_writef_float  :: IOFunc Float

foreign import ccall unsafe "sf_readf_double"  sf_readf_double  :: IOFunc Double
foreign import ccall unsafe "sf_writef_double" sf_writef_double :: IOFunc Double