module GI.GLib.Structs.OptionEntry
(
OptionEntry(..) ,
noOptionEntry ,
optionEntryReadArg ,
optionEntryReadArgData ,
optionEntryReadArgDescription ,
optionEntryReadDescription ,
optionEntryReadFlags ,
optionEntryReadLongName ,
optionEntryReadShortName ,
) 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.GLib.Types
import GI.GLib.Callbacks
newtype OptionEntry = OptionEntry (ForeignPtr OptionEntry)
noOptionEntry :: Maybe OptionEntry
noOptionEntry = Nothing
optionEntryReadLongName :: OptionEntry -> IO T.Text
optionEntryReadLongName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CString
val' <- cstringToText val
return val'
optionEntryReadShortName :: OptionEntry -> IO Int8
optionEntryReadShortName s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO Int8
return val
optionEntryReadFlags :: OptionEntry -> IO Int32
optionEntryReadFlags s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 12) :: IO Int32
return val
optionEntryReadArg :: OptionEntry -> IO OptionArg
optionEntryReadArg s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 16) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
optionEntryReadArgData :: OptionEntry -> IO (Ptr ())
optionEntryReadArgData s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 24) :: IO (Ptr ())
return val
optionEntryReadDescription :: OptionEntry -> IO T.Text
optionEntryReadDescription s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 32) :: IO CString
val' <- cstringToText val
return val'
optionEntryReadArgDescription :: OptionEntry -> IO T.Text
optionEntryReadArgDescription s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 40) :: IO CString
val' <- cstringToText val
return val'