module GI.Poppler.Structs.ActionJavascript
(
ActionJavascript(..) ,
noActionJavascript ,
actionJavascriptReadScript ,
actionJavascriptReadTitle ,
actionJavascriptReadType ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.Poppler.Types
import GI.Poppler.Callbacks
newtype ActionJavascript = ActionJavascript (ForeignPtr ActionJavascript)
noActionJavascript :: Maybe ActionJavascript
noActionJavascript = Nothing
actionJavascriptReadType :: ActionJavascript -> IO ActionType
actionJavascriptReadType s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
actionJavascriptReadTitle :: ActionJavascript -> IO T.Text
actionJavascriptReadTitle s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'
actionJavascriptReadScript :: ActionJavascript -> IO T.Text
actionJavascriptReadScript s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CString
val' <- cstringToText val
return val'