module Foreign.R.Embedded
( initEmbeddedR
, endEmbeddedR
) where
import qualified Foreign.C.Types as C2HSImp
import qualified Foreign.Ptr as C2HSImp
import Foreign
import Foreign.C
initEmbeddedR :: (Int) -> (Ptr CString) -> IO ()
initEmbeddedR a1 a2 =
let {a1' = fromIntegral a1} in
let {a2' = castPtr a2} in
initEmbeddedR'_ a1' a2' >>
return ()
endEmbeddedR :: (Int) -> IO ()
endEmbeddedR a1 =
let {a1' = fromIntegral a1} in
endEmbeddedR'_ a1' >>
return ()
foreign import ccall safe "Foreign/R/Embedded.chs.h Rf_initEmbeddedR"
initEmbeddedR'_ :: (C2HSImp.CInt -> ((C2HSImp.Ptr (C2HSImp.Ptr C2HSImp.CChar)) -> (IO C2HSImp.CInt)))
foreign import ccall safe "Foreign/R/Embedded.chs.h Rf_endEmbeddedR"
endEmbeddedR'_ :: (C2HSImp.CInt -> (IO ()))