#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.Poppler.Objects.FontInfo
(
FontInfo(..) ,
IsFontInfo ,
toFontInfo ,
noFontInfo ,
#if ENABLE_OVERLOADING
FontInfoFreeMethodInfo ,
#endif
fontInfoFree ,
fontInfoNew ,
#if ENABLE_OVERLOADING
FontInfoScanMethodInfo ,
#endif
fontInfoScan ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Poppler.Objects.Document as Poppler.Document
import {-# SOURCE #-} qualified GI.Poppler.Structs.FontsIter as Poppler.FontsIter
newtype FontInfo = FontInfo (ManagedPtr FontInfo)
foreign import ccall "poppler_font_info_get_type"
c_poppler_font_info_get_type :: IO GType
instance GObject FontInfo where
gobjectType = c_poppler_font_info_get_type
class (GObject o, O.IsDescendantOf FontInfo o) => IsFontInfo o
instance (GObject o, O.IsDescendantOf FontInfo o) => IsFontInfo o
instance O.HasParentTypes FontInfo
type instance O.ParentTypes FontInfo = '[GObject.Object.Object]
toFontInfo :: (MonadIO m, IsFontInfo o) => o -> m FontInfo
toFontInfo = liftIO . unsafeCastTo FontInfo
noFontInfo :: Maybe FontInfo
noFontInfo = Nothing
#if ENABLE_OVERLOADING
type family ResolveFontInfoMethod (t :: Symbol) (o :: *) :: * where
ResolveFontInfoMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveFontInfoMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveFontInfoMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveFontInfoMethod "free" o = FontInfoFreeMethodInfo
ResolveFontInfoMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveFontInfoMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveFontInfoMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveFontInfoMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveFontInfoMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveFontInfoMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveFontInfoMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveFontInfoMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveFontInfoMethod "scan" o = FontInfoScanMethodInfo
ResolveFontInfoMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveFontInfoMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveFontInfoMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveFontInfoMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveFontInfoMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveFontInfoMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveFontInfoMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveFontInfoMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveFontInfoMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveFontInfoMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveFontInfoMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveFontInfoMethod t FontInfo, O.MethodInfo info FontInfo p) => OL.IsLabel t (FontInfo -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList FontInfo
type instance O.AttributeList FontInfo = FontInfoAttributeList
type FontInfoAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList FontInfo = FontInfoSignalList
type FontInfoSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "poppler_font_info_new" poppler_font_info_new ::
Ptr Poppler.Document.Document ->
IO (Ptr FontInfo)
fontInfoNew ::
(B.CallStack.HasCallStack, MonadIO m, Poppler.Document.IsDocument a) =>
a
-> m FontInfo
fontInfoNew document = liftIO $ do
document' <- unsafeManagedPtrCastPtr document
result <- poppler_font_info_new document'
checkUnexpectedReturnNULL "fontInfoNew" result
result' <- (wrapObject FontInfo) result
touchManagedPtr document
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "poppler_font_info_free" poppler_font_info_free ::
Ptr FontInfo ->
IO ()
fontInfoFree ::
(B.CallStack.HasCallStack, MonadIO m, IsFontInfo a) =>
a
-> m ()
fontInfoFree fontInfo = liftIO $ do
fontInfo' <- unsafeManagedPtrCastPtr fontInfo
poppler_font_info_free fontInfo'
touchManagedPtr fontInfo
return ()
#if ENABLE_OVERLOADING
data FontInfoFreeMethodInfo
instance (signature ~ (m ()), MonadIO m, IsFontInfo a) => O.MethodInfo FontInfoFreeMethodInfo a signature where
overloadedMethod _ = fontInfoFree
#endif
foreign import ccall "poppler_font_info_scan" poppler_font_info_scan ::
Ptr FontInfo ->
Int32 ->
Ptr (Ptr Poppler.FontsIter.FontsIter) ->
IO CInt
fontInfoScan ::
(B.CallStack.HasCallStack, MonadIO m, IsFontInfo a) =>
a
-> Int32
-> m ((Bool, Poppler.FontsIter.FontsIter))
fontInfoScan fontInfo nPages = liftIO $ do
fontInfo' <- unsafeManagedPtrCastPtr fontInfo
iter <- allocMem :: IO (Ptr (Ptr Poppler.FontsIter.FontsIter))
result <- poppler_font_info_scan fontInfo' nPages iter
let result' = (/= 0) result
iter' <- peek iter
iter'' <- (wrapBoxed Poppler.FontsIter.FontsIter) iter'
touchManagedPtr fontInfo
freeMem iter
return (result', iter'')
#if ENABLE_OVERLOADING
data FontInfoScanMethodInfo
instance (signature ~ (Int32 -> m ((Bool, Poppler.FontsIter.FontsIter))), MonadIO m, IsFontInfo a) => O.MethodInfo FontInfoScanMethodInfo a signature where
overloadedMethod _ = fontInfoScan
#endif