module Bindings.Fann.ErrorHandling where
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.Array (peekArray,pokeArray)
import Data.Int
import Data.Word
import Bindings.Fann.DataStructures
foreign import ccall "fann_get_errno" c'fann_get_errno
:: Ptr C'fann_error -> IO CUInt
foreign import ccall "&fann_get_errno" p'fann_get_errno
:: FunPtr (Ptr C'fann_error -> IO CUInt)
foreign import ccall "fann_get_errstr" c'fann_get_errstr
:: Ptr C'fann_error -> IO CString
foreign import ccall "&fann_get_errstr" p'fann_get_errstr
:: FunPtr (Ptr C'fann_error -> IO CString)
foreign import ccall "fann_reset_errno" c'fann_reset_errno
:: Ptr C'fann_error -> IO ()
foreign import ccall "&fann_reset_errno" p'fann_reset_errno
:: FunPtr (Ptr C'fann_error -> IO ())
foreign import ccall "fann_reset_errstr" c'fann_reset_errstr
:: Ptr C'fann_error -> IO ()
foreign import ccall "&fann_reset_errstr" p'fann_reset_errstr
:: FunPtr (Ptr C'fann_error -> IO ())
foreign import ccall "fann_set_error_log" c'fann_set_error_log
:: Ptr C'fann_error -> Ptr CFile -> IO ()
foreign import ccall "&fann_set_error_log" p'fann_set_error_log
:: FunPtr (Ptr C'fann_error -> Ptr CFile -> IO ())
foreign import ccall "fann_print_error" c'fann_print_error
:: Ptr C'fann -> IO ()
foreign import ccall "&fann_print_error" p'fann_print_error
:: FunPtr (Ptr C'fann -> IO ())