-- GENERATED by C->Haskell Compiler, version 0.28.1 Switcheroo, 1 April 2016 (Haskell)
-- Edit the ORIGNAL .chs file instead!


{-# LINE 1 "src/Foreign/R/Embedded.chs" #-}
-- |
-- Copyright: (C) 2013 Amgen, Inc.
--
-- Bindings for @<R/Rembedded.h>@, containing entry points for running an
-- instance of R embedded within another program.

{-# LANGUAGE CPP #-}
{-# LANGUAGE ForeignFunctionInterface #-}

{-# OPTIONS_GHC -fno-warn-unused-matches #-}
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




-- | Initialize R.
initEmbeddedR :: (Int) -> (Ptr CString) -> IO ()
initEmbeddedR a1 a2 =
  let {a1' = fromIntegral a1} in 
  let {a2' = castPtr a2} in 
  initEmbeddedR'_ a1' a2' >>
  return ()

{-# LINE 23 "src/Foreign/R/Embedded.chs" #-}


-- | Finalize R.
endEmbeddedR :: (Int) -> IO ()
endEmbeddedR a1 =
  let {a1' = fromIntegral a1} in 
  endEmbeddedR'_ a1' >>
  return ()

{-# LINE 26 "src/Foreign/R/Embedded.chs" #-}


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 ()))