{-# LINE 1 "src/Bindings/Fann/ErrorHandling.hsc" #-}

{-# LINE 2 "src/Bindings/Fann/ErrorHandling.hsc" #-}

{-# LINE 3 "src/Bindings/Fann/ErrorHandling.hsc" #-}

-- | <http://leenissen.dk/fann/fann_1_2_0/x1499.html>

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

{-# LINE 8 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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)

{-# LINE 11 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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)

{-# LINE 12 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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 ())

{-# LINE 13 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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 ())

{-# LINE 14 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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 ())

{-# LINE 15 "src/Bindings/Fann/ErrorHandling.hsc" #-}
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 ())

{-# LINE 16 "src/Bindings/Fann/ErrorHandling.hsc" #-}