module GI.Pango.Structs.EngineScriptInfo
(
EngineScriptInfo(..) ,
noEngineScriptInfo ,
engineScriptInfoReadLangs ,
engineScriptInfoReadScript ,
) 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.Pango.Types
import GI.Pango.Callbacks
newtype EngineScriptInfo = EngineScriptInfo (ForeignPtr EngineScriptInfo)
noEngineScriptInfo :: Maybe EngineScriptInfo
noEngineScriptInfo = Nothing
engineScriptInfoReadScript :: EngineScriptInfo -> IO Script
engineScriptInfoReadScript s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 0) :: IO CUInt
let val' = (toEnum . fromIntegral) val
return val'
engineScriptInfoReadLangs :: EngineScriptInfo -> IO T.Text
engineScriptInfoReadLangs s = withManagedPtr s $ \ptr -> do
val <- peek (ptr `plusPtr` 8) :: IO CString
val' <- cstringToText val
return val'