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.Alloc (alloca)
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 ())