{- |
Copyright  : Will Thompson, Iñaki García Etxebarria and Jonas Platte
License    : LGPL-2.1
Maintainer : Iñaki García Etxebarria (garetxe@gmail.com)

An interface used for objects which implement linking between
multiple resource or content locations, or multiple \'markers\'
within a single document.  A Hypertext instance is associated with
one or more Hyperlinks, which are associated with particular
offsets within the Hypertext\'s included content.  While this
interface is derived from Text, there is no requirement that
Hypertext instances have textual content; they may implement Image
as well, and Hyperlinks need not have non-zero text offsets.
-}

#define ENABLE_OVERLOADING \
       (!defined(__HADDOCK_VERSION__))

module GI.Atk.Interfaces.Hypertext
    ( 

-- * Exported types
    Hypertext(..)                           ,
    noHypertext                             ,
    IsHypertext                             ,
    toHypertext                             ,


 -- * Methods
-- ** getLink #method:getLink#

#if ENABLE_OVERLOADING
    HypertextGetLinkMethodInfo              ,
#endif
    hypertextGetLink                        ,


-- ** getLinkIndex #method:getLinkIndex#

#if ENABLE_OVERLOADING
    HypertextGetLinkIndexMethodInfo         ,
#endif
    hypertextGetLinkIndex                   ,


-- ** getNLinks #method:getNLinks#

#if ENABLE_OVERLOADING
    HypertextGetNLinksMethodInfo            ,
#endif
    hypertextGetNLinks                      ,




 -- * Signals
-- ** linkSelected #signal:linkSelected#

    C_HypertextLinkSelectedCallback         ,
    HypertextLinkSelectedCallback           ,
#if ENABLE_OVERLOADING
    HypertextLinkSelectedSignalInfo         ,
#endif
    afterHypertextLinkSelected              ,
    genClosure_HypertextLinkSelected        ,
    mk_HypertextLinkSelectedCallback        ,
    noHypertextLinkSelectedCallback         ,
    onHypertextLinkSelected                 ,
    wrap_HypertextLinkSelectedCallback      ,




    ) 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.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.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP

import {-# SOURCE #-} qualified GI.Atk.Objects.Hyperlink as Atk.Hyperlink
import qualified GI.GObject.Objects.Object as GObject.Object

-- interface Hypertext 
-- | Memory-managed wrapper type.
newtype Hypertext = Hypertext (ManagedPtr Hypertext)
-- | A convenience alias for `Nothing` :: `Maybe` `Hypertext`.
noHypertext :: Maybe Hypertext
noHypertext :: Maybe Hypertext
noHypertext = Maybe Hypertext
forall a. Maybe a
Nothing

-- signal Hypertext::link-selected
{- |
The \"link-selected\" signal is emitted by an AtkHyperText
object when one of the hyperlinks associated with the object
is selected.
-}
type HypertextLinkSelectedCallback =
    Int32
    {- ^ /@arg1@/: the index of the hyperlink which is selected -}
    -> IO ()

-- | A convenience synonym for @`Nothing` :: `Maybe` `HypertextLinkSelectedCallback`@.
noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback
noHypertextLinkSelectedCallback :: Maybe HypertextLinkSelectedCallback
noHypertextLinkSelectedCallback = Maybe HypertextLinkSelectedCallback
forall a. Maybe a
Nothing

-- | Type for the callback on the (unwrapped) C side.
type C_HypertextLinkSelectedCallback =
    Ptr () ->                               -- object
    Int32 ->
    Ptr () ->                               -- user_data
    IO ()

-- | Generate a function pointer callable from C code, from a `C_HypertextLinkSelectedCallback`.
foreign import ccall "wrapper"
    mk_HypertextLinkSelectedCallback :: C_HypertextLinkSelectedCallback -> IO (FunPtr C_HypertextLinkSelectedCallback)

-- | Wrap the callback into a `Closure`.
genClosure_HypertextLinkSelected :: HypertextLinkSelectedCallback -> IO Closure
genClosure_HypertextLinkSelected :: HypertextLinkSelectedCallback -> IO Closure
genClosure_HypertextLinkSelected cb :: HypertextLinkSelectedCallback
cb = do
    let cb' :: C_HypertextLinkSelectedCallback
cb' = HypertextLinkSelectedCallback -> C_HypertextLinkSelectedCallback
wrap_HypertextLinkSelectedCallback HypertextLinkSelectedCallback
cb
    C_HypertextLinkSelectedCallback
-> IO (FunPtr C_HypertextLinkSelectedCallback)
mk_HypertextLinkSelectedCallback C_HypertextLinkSelectedCallback
cb' IO (FunPtr C_HypertextLinkSelectedCallback)
-> (FunPtr C_HypertextLinkSelectedCallback -> IO Closure)
-> IO Closure
forall (m :: * -> *) a b. Monad m => m a -> (a -> m b) -> m b
>>= FunPtr C_HypertextLinkSelectedCallback -> IO Closure
forall a. FunPtr a -> IO Closure
newCClosure


-- | Wrap a `HypertextLinkSelectedCallback` into a `C_HypertextLinkSelectedCallback`.
wrap_HypertextLinkSelectedCallback ::
    HypertextLinkSelectedCallback ->
    C_HypertextLinkSelectedCallback
wrap_HypertextLinkSelectedCallback :: HypertextLinkSelectedCallback -> C_HypertextLinkSelectedCallback
wrap_HypertextLinkSelectedCallback _cb :: HypertextLinkSelectedCallback
_cb _ arg1 :: Int32
arg1 _ = do
    HypertextLinkSelectedCallback
_cb  Int32
arg1


{- |
Connect a signal handler for the “@link-selected@” signal, to be run before the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Signals.on' hypertext #linkSelected callback
@
-}
onHypertextLinkSelected :: (IsHypertext a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId
onHypertextLinkSelected :: a -> HypertextLinkSelectedCallback -> m SignalHandlerId
onHypertextLinkSelected obj :: a
obj cb :: HypertextLinkSelectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_HypertextLinkSelectedCallback
cb' = HypertextLinkSelectedCallback -> C_HypertextLinkSelectedCallback
wrap_HypertextLinkSelectedCallback HypertextLinkSelectedCallback
cb
    FunPtr C_HypertextLinkSelectedCallback
cb'' <- C_HypertextLinkSelectedCallback
-> IO (FunPtr C_HypertextLinkSelectedCallback)
mk_HypertextLinkSelectedCallback C_HypertextLinkSelectedCallback
cb'
    a
-> String
-> FunPtr C_HypertextLinkSelectedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "link-selected" FunPtr C_HypertextLinkSelectedCallback
cb'' SignalConnectMode
SignalConnectBefore

{- |
Connect a signal handler for the “@link-selected@” signal, to be run after the default handler.
When <https://github.com/haskell-gi/haskell-gi/wiki/Overloading overloading> is enabled, this is equivalent to

@
'Data.GI.Base.Signals.after' hypertext #linkSelected callback
@
-}
afterHypertextLinkSelected :: (IsHypertext a, MonadIO m) => a -> HypertextLinkSelectedCallback -> m SignalHandlerId
afterHypertextLinkSelected :: a -> HypertextLinkSelectedCallback -> m SignalHandlerId
afterHypertextLinkSelected obj :: a
obj cb :: HypertextLinkSelectedCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO SignalHandlerId -> m SignalHandlerId)
-> IO SignalHandlerId -> m SignalHandlerId
forall a b. (a -> b) -> a -> b
$ do
    let cb' :: C_HypertextLinkSelectedCallback
cb' = HypertextLinkSelectedCallback -> C_HypertextLinkSelectedCallback
wrap_HypertextLinkSelectedCallback HypertextLinkSelectedCallback
cb
    FunPtr C_HypertextLinkSelectedCallback
cb'' <- C_HypertextLinkSelectedCallback
-> IO (FunPtr C_HypertextLinkSelectedCallback)
mk_HypertextLinkSelectedCallback C_HypertextLinkSelectedCallback
cb'
    a
-> String
-> FunPtr C_HypertextLinkSelectedCallback
-> SignalConnectMode
-> IO SignalHandlerId
forall o a.
GObject o =>
o -> String -> FunPtr a -> SignalConnectMode -> IO SignalHandlerId
connectSignalFunPtr a
obj "link-selected" FunPtr C_HypertextLinkSelectedCallback
cb'' SignalConnectMode
SignalConnectAfter


#if ENABLE_OVERLOADING
data HypertextLinkSelectedSignalInfo
instance SignalInfo HypertextLinkSelectedSignalInfo where
    type HaskellCallbackType HypertextLinkSelectedSignalInfo = HypertextLinkSelectedCallback
    connectSignal _ obj cb connectMode = do
        let cb' = wrap_HypertextLinkSelectedCallback cb
        cb'' <- mk_HypertextLinkSelectedCallback cb'
        connectSignalFunPtr obj "link-selected" cb'' connectMode

type instance O.SignalList Hypertext = HypertextSignalList
type HypertextSignalList = ('[ '("linkSelected", HypertextLinkSelectedSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

#endif

foreign import ccall "atk_hypertext_get_type"
    c_atk_hypertext_get_type :: IO GType

instance GObject Hypertext where
    gobjectType :: Hypertext -> IO GType
gobjectType _ = IO GType
c_atk_hypertext_get_type
    

-- | Type class for types which can be safely cast to `Hypertext`, for instance with `toHypertext`.
class GObject o => IsHypertext o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError Hypertext a) =>
    IsHypertext a
#endif
instance IsHypertext Hypertext
instance GObject.Object.IsObject Hypertext

-- | Cast to `Hypertext`, for types for which this is known to be safe. For general casts, use `Data.GI.Base.ManagedPtr.castTo`.
toHypertext :: (MonadIO m, IsHypertext o) => o -> m Hypertext
toHypertext :: o -> m Hypertext
toHypertext = IO Hypertext -> m Hypertext
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Hypertext -> m Hypertext)
-> (o -> IO Hypertext) -> o -> m Hypertext
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Hypertext -> Hypertext) -> o -> IO Hypertext
forall o o'.
(HasCallStack, GObject o, GObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
unsafeCastTo ManagedPtr Hypertext -> Hypertext
Hypertext

#if ENABLE_OVERLOADING
instance O.HasAttributeList Hypertext
type instance O.AttributeList Hypertext = HypertextAttributeList
type HypertextAttributeList = ('[ ] :: [(Symbol, *)])
#endif

#if ENABLE_OVERLOADING
#endif

#if ENABLE_OVERLOADING
type family ResolveHypertextMethod (t :: Symbol) (o :: *) :: * where
    ResolveHypertextMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveHypertextMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveHypertextMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveHypertextMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveHypertextMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
    ResolveHypertextMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveHypertextMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveHypertextMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveHypertextMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveHypertextMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveHypertextMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveHypertextMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveHypertextMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveHypertextMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveHypertextMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveHypertextMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveHypertextMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveHypertextMethod "getLink" o = HypertextGetLinkMethodInfo
    ResolveHypertextMethod "getLinkIndex" o = HypertextGetLinkIndexMethodInfo
    ResolveHypertextMethod "getNLinks" o = HypertextGetNLinksMethodInfo
    ResolveHypertextMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveHypertextMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveHypertextMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveHypertextMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveHypertextMethod l o = O.MethodResolutionFailed l o

instance (info ~ ResolveHypertextMethod t Hypertext, O.MethodInfo info Hypertext p) => O.IsLabelProxy t (Hypertext -> p) where
    fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveHypertextMethod t Hypertext, O.MethodInfo info Hypertext p) => O.IsLabel t (Hypertext -> 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

#endif

-- method Hypertext::get_link
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "hypertext", argType = TInterface (Name {namespace = "Atk", name = "Hypertext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #AtkHypertext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "link_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an integer specifying the desired link", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TInterface (Name {namespace = "Atk", name = "Hyperlink"}))
-- throws : False
-- Skip return : False

foreign import ccall "atk_hypertext_get_link" atk_hypertext_get_link :: 
    Ptr Hypertext ->                        -- hypertext : TInterface (Name {namespace = "Atk", name = "Hypertext"})
    Int32 ->                                -- link_index : TBasicType TInt
    IO (Ptr Atk.Hyperlink.Hyperlink)

{- |
Gets the link in this hypertext document at index
/@linkIndex@/
-}
hypertextGetLink ::
    (B.CallStack.HasCallStack, MonadIO m, IsHypertext a) =>
    a
    {- ^ /@hypertext@/: an 'GI.Atk.Interfaces.Hypertext.Hypertext' -}
    -> Int32
    {- ^ /@linkIndex@/: an integer specifying the desired link -}
    -> m Atk.Hyperlink.Hyperlink
    {- ^ __Returns:__ the link in this hypertext document at
index /@linkIndex@/ -}
hypertextGetLink :: a -> Int32 -> m Hyperlink
hypertextGetLink hypertext :: a
hypertext linkIndex :: Int32
linkIndex = IO Hyperlink -> m Hyperlink
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Hyperlink -> m Hyperlink) -> IO Hyperlink -> m Hyperlink
forall a b. (a -> b) -> a -> b
$ do
    Ptr Hypertext
hypertext' <- a -> IO (Ptr Hypertext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hypertext
    Ptr Hyperlink
result <- Ptr Hypertext -> Int32 -> IO (Ptr Hyperlink)
atk_hypertext_get_link Ptr Hypertext
hypertext' Int32
linkIndex
    Text -> Ptr Hyperlink -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL "hypertextGetLink" Ptr Hyperlink
result
    Hyperlink
result' <- ((ManagedPtr Hyperlink -> Hyperlink)
-> Ptr Hyperlink -> IO Hyperlink
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
newObject ManagedPtr Hyperlink -> Hyperlink
Atk.Hyperlink.Hyperlink) Ptr Hyperlink
result
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hypertext
    Hyperlink -> IO Hyperlink
forall (m :: * -> *) a. Monad m => a -> m a
return Hyperlink
result'

#if ENABLE_OVERLOADING
data HypertextGetLinkMethodInfo
instance (signature ~ (Int32 -> m Atk.Hyperlink.Hyperlink), MonadIO m, IsHypertext a) => O.MethodInfo HypertextGetLinkMethodInfo a signature where
    overloadedMethod _ = hypertextGetLink

#endif

-- method Hypertext::get_link_index
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "hypertext", argType = TInterface (Name {namespace = "Atk", name = "Hypertext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #AtkHypertext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing},Arg {argCName = "char_index", argType = TBasicType TInt, direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "a character index", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False

foreign import ccall "atk_hypertext_get_link_index" atk_hypertext_get_link_index :: 
    Ptr Hypertext ->                        -- hypertext : TInterface (Name {namespace = "Atk", name = "Hypertext"})
    Int32 ->                                -- char_index : TBasicType TInt
    IO Int32

{- |
Gets the index into the array of hyperlinks that is associated with
the character specified by /@charIndex@/.
-}
hypertextGetLinkIndex ::
    (B.CallStack.HasCallStack, MonadIO m, IsHypertext a) =>
    a
    {- ^ /@hypertext@/: an 'GI.Atk.Interfaces.Hypertext.Hypertext' -}
    -> Int32
    {- ^ /@charIndex@/: a character index -}
    -> m Int32
    {- ^ __Returns:__ an index into the array of hyperlinks in /@hypertext@/,
or -1 if there is no hyperlink associated with this character. -}
hypertextGetLinkIndex :: a -> Int32 -> m Int32
hypertextGetLinkIndex hypertext :: a
hypertext charIndex :: Int32
charIndex = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Hypertext
hypertext' <- a -> IO (Ptr Hypertext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hypertext
    Int32
result <- Ptr Hypertext -> Int32 -> IO Int32
atk_hypertext_get_link_index Ptr Hypertext
hypertext' Int32
charIndex
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hypertext
    Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result

#if ENABLE_OVERLOADING
data HypertextGetLinkIndexMethodInfo
instance (signature ~ (Int32 -> m Int32), MonadIO m, IsHypertext a) => O.MethodInfo HypertextGetLinkIndexMethodInfo a signature where
    overloadedMethod _ = hypertextGetLinkIndex

#endif

-- method Hypertext::get_n_links
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "hypertext", argType = TInterface (Name {namespace = "Atk", name = "Hypertext"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "an #AtkHypertext", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TInt)
-- throws : False
-- Skip return : False

foreign import ccall "atk_hypertext_get_n_links" atk_hypertext_get_n_links :: 
    Ptr Hypertext ->                        -- hypertext : TInterface (Name {namespace = "Atk", name = "Hypertext"})
    IO Int32

{- |
Gets the number of links within this hypertext document.
-}
hypertextGetNLinks ::
    (B.CallStack.HasCallStack, MonadIO m, IsHypertext a) =>
    a
    {- ^ /@hypertext@/: an 'GI.Atk.Interfaces.Hypertext.Hypertext' -}
    -> m Int32
    {- ^ __Returns:__ the number of links within this hypertext document -}
hypertextGetNLinks :: a -> m Int32
hypertextGetNLinks hypertext :: a
hypertext = IO Int32 -> m Int32
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Int32 -> m Int32) -> IO Int32 -> m Int32
forall a b. (a -> b) -> a -> b
$ do
    Ptr Hypertext
hypertext' <- a -> IO (Ptr Hypertext)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
hypertext
    Int32
result <- Ptr Hypertext -> IO Int32
atk_hypertext_get_n_links Ptr Hypertext
hypertext'
    a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
hypertext
    Int32 -> IO Int32
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result

#if ENABLE_OVERLOADING
data HypertextGetNLinksMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsHypertext a) => O.MethodInfo HypertextGetNLinksMethodInfo a signature where
    overloadedMethod _ = hypertextGetNLinks

#endif