FFI.hsc

{-# LANGUAGE ForeignFunctionInterface, InterruptibleFFI #-}
module HROOT.Math.TRandom.FFI where
import Data.Word
import Data.Int
import Foreign.C
import Foreign.Ptr
import HROOT.Math.TRandom.RawType
import HROOT.Math.TRandom.RawType
import HROOT.Core.TObject.RawType
import HROOT.Core.TClass.RawType

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_SetName" c_trandom_setname ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_SetNameTitle" c_trandom_setnametitle ::
               Ptr RawTRandom -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_SetTitle" c_trandom_settitle ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Clear" c_trandom_clear ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Draw" c_trandom_draw ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_FindObject" c_trandom_findobject ::
               Ptr RawTRandom -> CString -> IO (Ptr RawTObject)

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_GetName" c_trandom_getname ::
               Ptr RawTRandom -> IO CString

foreign import ccall interruptible "HROOTMathTRandom.h TRandom_IsA"
               c_trandom_isa :: Ptr RawTRandom -> IO (Ptr RawTClass)

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Paint" c_trandom_paint ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_printObj" c_trandom_printobj ::
               Ptr RawTRandom -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_SaveAs" c_trandom_saveas ::
               Ptr RawTRandom -> CString -> CString -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Write" c_trandom_write ::
               Ptr RawTRandom -> CString -> CInt -> CInt -> IO CInt

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Write_" c_trandom_write_ ::
               Ptr RawTRandom -> IO CInt

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_delete" c_trandom_delete ::
               Ptr RawTRandom -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_newTRandom" c_trandom_newtrandom ::
               CInt -> IO (Ptr RawTRandom)

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_GetSeed" c_trandom_getseed ::
               Ptr RawTRandom -> IO CInt

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Gaus" c_trandom_gaus ::
               Ptr RawTRandom -> CDouble -> CDouble -> IO CDouble

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_SetSeed" c_trandom_setseed ::
               Ptr RawTRandom -> CInt -> IO ()

foreign import ccall interruptible
               "HROOTMathTRandom.h TRandom_Uniform" c_trandom_uniform ::
               Ptr RawTRandom -> CDouble -> CDouble -> IO CDouble