{-# LINE 1 "CV/Bindings/Files.hsc" #-}
{-# LANGUAGE ForeignFunctionInterface #-}
{-# LINE 2 "CV/Bindings/Files.hsc" #-}
module CV.Bindings.Files where

import Foreign.Ptr
import Foreign.C.String
import CV.Bindings.Types
import CV.Image(BareImage)

import Foreign.Ptr (Ptr,FunPtr,plusPtr)
import Foreign.Ptr (wordPtrToPtr,castPtrToFunPtr)
import Foreign.Storable
import Foreign.C.Types
import Foreign.C.String (CString,CStringLen,CWString,CWStringLen)
import Foreign.Marshal.Alloc (alloca)
import Foreign.Marshal.Array (peekArray,pokeArray)
import Data.Int
import Data.Word

{-# LINE 10 "CV/Bindings/Files.hsc" #-}


{-# LINE 12 "CV/Bindings/Files.hsc" #-}

{-# LINE 13 "CV/Bindings/Files.hsc" #-}

foreign import ccall "read_from_tcr" c'read_from_tcr
  :: CString -> Ptr (Ptr CUInt) -> IO (Ptr BareImage)
foreign import ccall "&read_from_tcr" p'read_from_tcr
  :: FunPtr (CString -> Ptr (Ptr CUInt) -> IO (Ptr BareImage))

{-# LINE 15 "CV/Bindings/Files.hsc" #-}

foreign import ccall "read_from_tcr_rectified" c'read_from_tcr_rectified
  :: CString -> IO (Ptr BareImage)
foreign import ccall "&read_from_tcr_rectified" p'read_from_tcr_rectified
  :: FunPtr (CString -> IO (Ptr BareImage))

{-# LINE 17 "CV/Bindings/Files.hsc" #-}

foreign import ccall "read_from_tcr_mag" c'read_from_tcr_mag
  :: CString -> IO (Ptr BareImage)
foreign import ccall "&read_from_tcr_mag" p'read_from_tcr_mag
  :: FunPtr (CString -> IO (Ptr BareImage))

{-# LINE 19 "CV/Bindings/Files.hsc" #-}

foreign import ccall "calc_derivative_direction" c'calc_derivative_direction
  :: Ptr BareImage -> IO (Ptr BareImage)
foreign import ccall "&calc_derivative_direction" p'calc_derivative_direction
  :: FunPtr (Ptr BareImage -> IO (Ptr BareImage))

{-# LINE 21 "CV/Bindings/Files.hsc" #-}