{-# LANGUAGE ImplicitParams, RankNTypes, TypeApplications #-}
#if (MIN_VERSION_haskell_gi_overloading(1,0,0) && !defined(__HADDOCK_VERSION__))
#define ENABLE_OVERLOADING
#endif
module GI.Vips.Objects.Object
(
#if defined(ENABLE_OVERLOADING)
ObjectSetRequiredMethodInfo ,
#endif
Object(..) ,
IsObject ,
toObject ,
#if defined(ENABLE_OVERLOADING)
ResolveObjectMethod ,
#endif
#if defined(ENABLE_OVERLOADING)
ObjectArgumentIssetMethodInfo ,
#endif
objectArgumentIsset ,
#if defined(ENABLE_OVERLOADING)
ObjectArgumentNeedsstringMethodInfo ,
#endif
objectArgumentNeedsstring ,
#if defined(ENABLE_OVERLOADING)
ObjectBuildMethodInfo ,
#endif
objectBuild ,
#if defined(ENABLE_OVERLOADING)
ObjectGetArgumentFlagsMethodInfo ,
#endif
objectGetArgumentFlags ,
#if defined(ENABLE_OVERLOADING)
ObjectGetArgumentPriorityMethodInfo ,
#endif
objectGetArgumentPriority ,
#if defined(ENABLE_OVERLOADING)
ObjectGetArgumentToStringMethodInfo ,
#endif
objectGetArgumentToString ,
#if defined(ENABLE_OVERLOADING)
ObjectGetDescriptionMethodInfo ,
#endif
objectGetDescription ,
objectGetProperty ,
#if defined(ENABLE_OVERLOADING)
ObjectLocalCbMethodInfo ,
#endif
objectLocalCb ,
objectNewFromString ,
#if defined(ENABLE_OVERLOADING)
ObjectPrecloseMethodInfo ,
#endif
objectPreclose ,
objectPrintAll ,
#if defined(ENABLE_OVERLOADING)
ObjectPrintDumpMethodInfo ,
#endif
objectPrintDump ,
#if defined(ENABLE_OVERLOADING)
ObjectPrintNameMethodInfo ,
#endif
objectPrintName ,
#if defined(ENABLE_OVERLOADING)
ObjectPrintSummaryMethodInfo ,
#endif
objectPrintSummary ,
objectPrintSummaryClass ,
#if defined(ENABLE_OVERLOADING)
ObjectRewindMethodInfo ,
#endif
objectRewind ,
#if defined(ENABLE_OVERLOADING)
ObjectSanityMethodInfo ,
#endif
objectSanity ,
objectSanityAll ,
#if defined(ENABLE_OVERLOADING)
ObjectSetArgumentFromStringMethodInfo ,
#endif
objectSetArgumentFromString ,
#if defined(ENABLE_OVERLOADING)
ObjectSetFromStringMethodInfo ,
#endif
objectSetFromString ,
objectSetProperty ,
#if defined(ENABLE_OVERLOADING)
ObjectSetStaticMethodInfo ,
#endif
objectSetStatic ,
#if defined(ENABLE_OVERLOADING)
ObjectToStringMethodInfo ,
#endif
objectToString ,
#if defined(ENABLE_OVERLOADING)
ObjectUnrefOutputsMethodInfo ,
#endif
objectUnrefOutputs ,
#if defined(ENABLE_OVERLOADING)
ObjectDescriptionPropertyInfo ,
#endif
clearObjectDescription ,
constructObjectDescription ,
getObjectDescription ,
#if defined(ENABLE_OVERLOADING)
objectDescription ,
#endif
setObjectDescription ,
#if defined(ENABLE_OVERLOADING)
ObjectNicknamePropertyInfo ,
#endif
clearObjectNickname ,
constructObjectNickname ,
getObjectNickname ,
#if defined(ENABLE_OVERLOADING)
objectNickname ,
#endif
setObjectNickname ,
ObjectCloseCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectCloseSignalInfo ,
#endif
afterObjectClose ,
onObjectClose ,
ObjectPostbuildCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectPostbuildSignalInfo ,
#endif
afterObjectPostbuild ,
onObjectPostbuild ,
ObjectPostcloseCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectPostcloseSignalInfo ,
#endif
afterObjectPostclose ,
onObjectPostclose ,
ObjectPrecloseCallback ,
#if defined(ENABLE_OVERLOADING)
ObjectPrecloseSignalInfo ,
#endif
afterObjectPreclose ,
onObjectPreclose ,
) 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.BasicTypes as B.Types
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GArray as B.GArray
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GHashTable as B.GHT
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.GI.Base.Signals as B.Signals
import qualified Control.Monad.IO.Class as MIO
import qualified Data.Coerce as Coerce
import qualified Data.Text as T
import qualified Data.Kind as DK
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 GHC.Records as R
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.Vips.Flags as Vips.Flags
import {-# SOURCE #-} qualified GI.Vips.Structs.Buf as Vips.Buf
import {-# SOURCE #-} qualified GI.Vips.Structs.ObjectClass as Vips.ObjectClass
newtype Object = Object (SP.ManagedPtr Object)
deriving (Object -> Object -> Bool
(Object -> Object -> Bool)
-> (Object -> Object -> Bool) -> Eq Object
forall a. (a -> a -> Bool) -> (a -> a -> Bool) -> Eq a
$c== :: Object -> Object -> Bool
== :: Object -> Object -> Bool
$c/= :: Object -> Object -> Bool
/= :: Object -> Object -> Bool
Eq)
instance SP.ManagedPtrNewtype Object where
toManagedPtr :: Object -> ManagedPtr Object
toManagedPtr (Object ManagedPtr Object
p) = ManagedPtr Object
p
foreign import ccall "vips_object_get_type"
c_vips_object_get_type :: IO B.Types.GType
instance B.Types.TypedObject Object where
glibType :: IO GType
glibType = IO GType
c_vips_object_get_type
instance B.Types.GObject Object
class (SP.GObject o, O.IsDescendantOf Object o) => IsObject o
instance (SP.GObject o, O.IsDescendantOf Object o) => IsObject o
instance O.HasParentTypes Object
type instance O.ParentTypes Object = '[GObject.Object.Object]
toObject :: (MIO.MonadIO m, IsObject o) => o -> m Object
toObject :: forall (m :: * -> *) o. (MonadIO m, IsObject o) => o -> m Object
toObject = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Object -> m Object) -> (o -> IO Object) -> o -> m Object
forall b c a. (b -> c) -> (a -> b) -> a -> c
. (ManagedPtr Object -> Object) -> o -> IO Object
forall o o'.
(HasCallStack, ManagedPtrNewtype o, TypedObject o,
ManagedPtrNewtype o', TypedObject o') =>
(ManagedPtr o' -> o') -> o -> IO o'
B.ManagedPtr.unsafeCastTo ManagedPtr Object -> Object
Object
instance B.GValue.IsGValue (Maybe Object) where
gvalueGType_ :: IO GType
gvalueGType_ = IO GType
c_vips_object_get_type
gvalueSet_ :: Ptr GValue -> Maybe Object -> IO ()
gvalueSet_ Ptr GValue
gv Maybe Object
P.Nothing = Ptr GValue -> Ptr Object -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv (Ptr Object
forall a. Ptr a
FP.nullPtr :: FP.Ptr Object)
gvalueSet_ Ptr GValue
gv (P.Just Object
obj) = Object -> (Ptr Object -> IO ()) -> IO ()
forall a c.
(HasCallStack, ManagedPtrNewtype a) =>
a -> (Ptr a -> IO c) -> IO c
B.ManagedPtr.withManagedPtr Object
obj (Ptr GValue -> Ptr Object -> IO ()
forall a. GObject a => Ptr GValue -> Ptr a -> IO ()
B.GValue.set_object Ptr GValue
gv)
gvalueGet_ :: Ptr GValue -> IO (Maybe Object)
gvalueGet_ Ptr GValue
gv = do
Ptr Object
ptr <- Ptr GValue -> IO (Ptr Object)
forall a. GObject a => Ptr GValue -> IO (Ptr a)
B.GValue.get_object Ptr GValue
gv :: IO (FP.Ptr Object)
if Ptr Object
ptr Ptr Object -> Ptr Object -> Bool
forall a. Eq a => a -> a -> Bool
/= Ptr Object
forall a. Ptr a
FP.nullPtr
then Object -> Maybe Object
forall a. a -> Maybe a
P.Just (Object -> Maybe Object) -> IO Object -> IO (Maybe Object)
forall (f :: * -> *) a b. Functor f => (a -> b) -> f a -> f b
<$> (ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
B.ManagedPtr.newObject ManagedPtr Object -> Object
Object Ptr Object
ptr
else Maybe Object -> IO (Maybe Object)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe Object
forall a. Maybe a
P.Nothing
#if defined(ENABLE_OVERLOADING)
type family ResolveObjectMethod (t :: Symbol) (o :: DK.Type) :: DK.Type where
ResolveObjectMethod "argumentIsset" o = ObjectArgumentIssetMethodInfo
ResolveObjectMethod "argumentNeedsstring" o = ObjectArgumentNeedsstringMethodInfo
ResolveObjectMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveObjectMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveObjectMethod "build" o = ObjectBuildMethodInfo
ResolveObjectMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveObjectMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveObjectMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveObjectMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveObjectMethod "localCb" o = ObjectLocalCbMethodInfo
ResolveObjectMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveObjectMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveObjectMethod "preclose" o = ObjectPrecloseMethodInfo
ResolveObjectMethod "printDump" o = ObjectPrintDumpMethodInfo
ResolveObjectMethod "printName" o = ObjectPrintNameMethodInfo
ResolveObjectMethod "printSummary" o = ObjectPrintSummaryMethodInfo
ResolveObjectMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveObjectMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveObjectMethod "rewind" o = ObjectRewindMethodInfo
ResolveObjectMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveObjectMethod "sanity" o = ObjectSanityMethodInfo
ResolveObjectMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveObjectMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveObjectMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveObjectMethod "toString" o = ObjectToStringMethodInfo
ResolveObjectMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveObjectMethod "unrefOutputs" o = ObjectUnrefOutputsMethodInfo
ResolveObjectMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveObjectMethod "getArgumentFlags" o = ObjectGetArgumentFlagsMethodInfo
ResolveObjectMethod "getArgumentPriority" o = ObjectGetArgumentPriorityMethodInfo
ResolveObjectMethod "getArgumentToString" o = ObjectGetArgumentToStringMethodInfo
ResolveObjectMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveObjectMethod "getDescription" o = ObjectGetDescriptionMethodInfo
ResolveObjectMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveObjectMethod "setArgumentFromString" o = ObjectSetArgumentFromStringMethodInfo
ResolveObjectMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveObjectMethod "setDataFull" o = GObject.Object.ObjectSetDataFullMethodInfo
ResolveObjectMethod "setFromString" o = ObjectSetFromStringMethodInfo
ResolveObjectMethod "setRequired" o = ObjectSetRequiredMethodInfo
ResolveObjectMethod "setStatic" o = ObjectSetStaticMethodInfo
ResolveObjectMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveObjectMethod t Object, O.OverloadedMethod info Object p) => OL.IsLabel t (Object -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod @info
#else
fromLabel _ = O.overloadedMethod @info
#endif
#if MIN_VERSION_base(4,13,0)
instance (info ~ ResolveObjectMethod t Object, O.OverloadedMethod info Object p, R.HasField t Object p) => R.HasField t Object p where
getField = O.overloadedMethod @info
#endif
instance (info ~ ResolveObjectMethod t Object, O.OverloadedMethodInfo info Object) => OL.IsLabel t (O.MethodProxy info Object) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.MethodProxy
#else
fromLabel _ = O.MethodProxy
#endif
#endif
type ObjectCloseCallback =
IO ()
type C_ObjectCloseCallback =
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectCloseCallback :: C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
wrap_ObjectCloseCallback ::
GObject a => (a -> ObjectCloseCallback) ->
C_ObjectCloseCallback
wrap_ObjectCloseCallback :: forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectCloseCallback a -> IO ()
gi'cb Ptr Object
gi'selfPtr Ptr ()
_ = do
Ptr Object -> (Object -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Object
gi'selfPtr ((Object -> IO ()) -> IO ()) -> (Object -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Object
gi'self -> a -> IO ()
gi'cb (Object -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Object
gi'self)
onObjectClose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectCloseCallback) -> m SignalHandlerId
onObjectClose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onObjectClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectCloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectCloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"close" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterObjectClose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectCloseCallback) -> m SignalHandlerId
afterObjectClose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterObjectClose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectCloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectCloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"close" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectCloseSignalInfo
instance SignalInfo ObjectCloseSignalInfo where
type HaskellCallbackType ObjectCloseSignalInfo = ObjectCloseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectCloseCallback cb
cb'' <- mk_ObjectCloseCallback cb'
connectSignalFunPtr obj "close" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object::close"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:signal:close"})
#endif
type ObjectPostbuildCallback =
IO Int32
type C_ObjectPostbuildCallback =
Ptr Object ->
Ptr () ->
IO Int32
foreign import ccall "wrapper"
mk_ObjectPostbuildCallback :: C_ObjectPostbuildCallback -> IO (FunPtr C_ObjectPostbuildCallback)
wrap_ObjectPostbuildCallback ::
GObject a => (a -> ObjectPostbuildCallback) ->
C_ObjectPostbuildCallback
wrap_ObjectPostbuildCallback :: forall a.
GObject a =>
(a -> ObjectPostbuildCallback) -> C_ObjectPostbuildCallback
wrap_ObjectPostbuildCallback a -> ObjectPostbuildCallback
gi'cb Ptr Object
gi'selfPtr Ptr ()
_ = do
Int32
result <- Ptr Object
-> (Object -> ObjectPostbuildCallback) -> ObjectPostbuildCallback
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Object
gi'selfPtr ((Object -> ObjectPostbuildCallback) -> ObjectPostbuildCallback)
-> (Object -> ObjectPostbuildCallback) -> ObjectPostbuildCallback
forall a b. (a -> b) -> a -> b
$ \Object
gi'self -> a -> ObjectPostbuildCallback
gi'cb (Object -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Object
gi'self)
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
onObjectPostbuild :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPostbuildCallback) -> m SignalHandlerId
onObjectPostbuild :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => ObjectPostbuildCallback) -> m SignalHandlerId
onObjectPostbuild a
obj (?self::a) => ObjectPostbuildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ObjectPostbuildCallback
wrapped a
self = let ?self = a
?self::a
self in ObjectPostbuildCallback
(?self::a) => ObjectPostbuildCallback
cb
let wrapped' :: C_ObjectPostbuildCallback
wrapped' = (a -> ObjectPostbuildCallback) -> C_ObjectPostbuildCallback
forall a.
GObject a =>
(a -> ObjectPostbuildCallback) -> C_ObjectPostbuildCallback
wrap_ObjectPostbuildCallback a -> ObjectPostbuildCallback
wrapped
FunPtr C_ObjectPostbuildCallback
wrapped'' <- C_ObjectPostbuildCallback -> IO (FunPtr C_ObjectPostbuildCallback)
mk_ObjectPostbuildCallback C_ObjectPostbuildCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectPostbuildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"postbuild" FunPtr C_ObjectPostbuildCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterObjectPostbuild :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPostbuildCallback) -> m SignalHandlerId
afterObjectPostbuild :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => ObjectPostbuildCallback) -> m SignalHandlerId
afterObjectPostbuild a
obj (?self::a) => ObjectPostbuildCallback
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> ObjectPostbuildCallback
wrapped a
self = let ?self = a
?self::a
self in ObjectPostbuildCallback
(?self::a) => ObjectPostbuildCallback
cb
let wrapped' :: C_ObjectPostbuildCallback
wrapped' = (a -> ObjectPostbuildCallback) -> C_ObjectPostbuildCallback
forall a.
GObject a =>
(a -> ObjectPostbuildCallback) -> C_ObjectPostbuildCallback
wrap_ObjectPostbuildCallback a -> ObjectPostbuildCallback
wrapped
FunPtr C_ObjectPostbuildCallback
wrapped'' <- C_ObjectPostbuildCallback -> IO (FunPtr C_ObjectPostbuildCallback)
mk_ObjectPostbuildCallback C_ObjectPostbuildCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectPostbuildCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"postbuild" FunPtr C_ObjectPostbuildCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectPostbuildSignalInfo
instance SignalInfo ObjectPostbuildSignalInfo where
type HaskellCallbackType ObjectPostbuildSignalInfo = ObjectPostbuildCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectPostbuildCallback cb
cb'' <- mk_ObjectPostbuildCallback cb'
connectSignalFunPtr obj "postbuild" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object::postbuild"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:signal:postbuild"})
#endif
type ObjectPostcloseCallback =
IO ()
type C_ObjectPostcloseCallback =
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectPostcloseCallback :: C_ObjectPostcloseCallback -> IO (FunPtr C_ObjectPostcloseCallback)
wrap_ObjectPostcloseCallback ::
GObject a => (a -> ObjectPostcloseCallback) ->
C_ObjectPostcloseCallback
wrap_ObjectPostcloseCallback :: forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPostcloseCallback a -> IO ()
gi'cb Ptr Object
gi'selfPtr Ptr ()
_ = do
Ptr Object -> (Object -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Object
gi'selfPtr ((Object -> IO ()) -> IO ()) -> (Object -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Object
gi'self -> a -> IO ()
gi'cb (Object -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Object
gi'self)
onObjectPostclose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPostcloseCallback) -> m SignalHandlerId
onObjectPostclose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onObjectPostclose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPostcloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectPostcloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"postclose" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterObjectPostclose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPostcloseCallback) -> m SignalHandlerId
afterObjectPostclose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterObjectPostclose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPostcloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectPostcloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"postclose" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectPostcloseSignalInfo
instance SignalInfo ObjectPostcloseSignalInfo where
type HaskellCallbackType ObjectPostcloseSignalInfo = ObjectPostcloseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectPostcloseCallback cb
cb'' <- mk_ObjectPostcloseCallback cb'
connectSignalFunPtr obj "postclose" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object::postclose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:signal:postclose"})
#endif
type ObjectPrecloseCallback =
IO ()
type C_ObjectPrecloseCallback =
Ptr Object ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mk_ObjectPrecloseCallback :: C_ObjectPrecloseCallback -> IO (FunPtr C_ObjectPrecloseCallback)
wrap_ObjectPrecloseCallback ::
GObject a => (a -> ObjectPrecloseCallback) ->
C_ObjectPrecloseCallback
wrap_ObjectPrecloseCallback :: forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPrecloseCallback a -> IO ()
gi'cb Ptr Object
gi'selfPtr Ptr ()
_ = do
Ptr Object -> (Object -> IO ()) -> IO ()
forall a b.
(HasCallStack, ManagedPtrNewtype a) =>
Ptr a -> (a -> IO b) -> IO b
B.ManagedPtr.withTransient Ptr Object
gi'selfPtr ((Object -> IO ()) -> IO ()) -> (Object -> IO ()) -> IO ()
forall a b. (a -> b) -> a -> b
$ \Object
gi'self -> a -> IO ()
gi'cb (Object -> a
forall a b. Coercible a b => a -> b
Coerce.coerce Object
gi'self)
onObjectPreclose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPrecloseCallback) -> m SignalHandlerId
onObjectPreclose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
onObjectPreclose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPrecloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectPrecloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preclose" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectBefore Maybe Text
forall a. Maybe a
Nothing
afterObjectPreclose :: (IsObject a, MonadIO m) => a -> ((?self :: a) => ObjectPrecloseCallback) -> m SignalHandlerId
afterObjectPreclose :: forall a (m :: * -> *).
(IsObject a, MonadIO m) =>
a -> ((?self::a) => IO ()) -> m SignalHandlerId
afterObjectPreclose a
obj (?self::a) => IO ()
cb = IO SignalHandlerId -> m SignalHandlerId
forall a. IO a -> m a
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 wrapped :: a -> IO ()
wrapped a
self = let ?self = a
?self::a
self in IO ()
(?self::a) => IO ()
cb
let wrapped' :: C_ObjectCloseCallback
wrapped' = (a -> IO ()) -> C_ObjectCloseCallback
forall a. GObject a => (a -> IO ()) -> C_ObjectCloseCallback
wrap_ObjectPrecloseCallback a -> IO ()
wrapped
FunPtr C_ObjectCloseCallback
wrapped'' <- C_ObjectCloseCallback -> IO (FunPtr C_ObjectCloseCallback)
mk_ObjectPrecloseCallback C_ObjectCloseCallback
wrapped'
a
-> Text
-> FunPtr C_ObjectCloseCallback
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
forall o a.
GObject o =>
o
-> Text
-> FunPtr a
-> SignalConnectMode
-> Maybe Text
-> IO SignalHandlerId
connectSignalFunPtr a
obj Text
"preclose" FunPtr C_ObjectCloseCallback
wrapped'' SignalConnectMode
SignalConnectAfter Maybe Text
forall a. Maybe a
Nothing
#if defined(ENABLE_OVERLOADING)
data ObjectPrecloseSignalInfo
instance SignalInfo ObjectPrecloseSignalInfo where
type HaskellCallbackType ObjectPrecloseSignalInfo = ObjectPrecloseCallback
connectSignal obj cb connectMode detail = do
let cb' = wrap_ObjectPrecloseCallback cb
cb'' <- mk_ObjectPrecloseCallback cb'
connectSignalFunPtr obj "preclose" cb'' connectMode detail
dbgSignalInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object::preclose"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:signal:preclose"})
#endif
getObjectDescription :: (MonadIO m, IsObject o) => o -> m T.Text
getObjectDescription :: forall (m :: * -> *) o. (MonadIO m, IsObject o) => o -> m Text
getObjectDescription o
obj = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ Text -> IO (Maybe Text) -> IO Text
forall a. HasCallStack => Text -> IO (Maybe a) -> IO a
checkUnexpectedNothing Text
"getObjectDescription" (IO (Maybe Text) -> IO Text) -> IO (Maybe Text) -> IO Text
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"description"
setObjectDescription :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectDescription :: forall (m :: * -> *) o.
(MonadIO m, IsObject o) =>
o -> Text -> m ()
setObjectDescription o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"description" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectDescription :: (IsObject o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructObjectDescription :: forall o (m :: * -> *).
(IsObject o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructObjectDescription Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"description" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearObjectDescription :: (MonadIO m, IsObject o) => o -> m ()
clearObjectDescription :: forall (m :: * -> *) o. (MonadIO m, IsObject o) => o -> m ()
clearObjectDescription o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"description" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectDescriptionPropertyInfo
instance AttrInfo ObjectDescriptionPropertyInfo where
type AttrAllowedOps ObjectDescriptionPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectDescriptionPropertyInfo = IsObject
type AttrSetTypeConstraint ObjectDescriptionPropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectDescriptionPropertyInfo = (~) T.Text
type AttrTransferType ObjectDescriptionPropertyInfo = T.Text
type AttrGetType ObjectDescriptionPropertyInfo = T.Text
type AttrLabel ObjectDescriptionPropertyInfo = "description"
type AttrOrigin ObjectDescriptionPropertyInfo = Object
attrGet = getObjectDescription
attrSet = setObjectDescription
attrTransfer _ v = do
return v
attrConstruct = constructObjectDescription
attrClear = clearObjectDescription
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.description"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:attr:description"
})
#endif
getObjectNickname :: (MonadIO m, IsObject o) => o -> m (Maybe T.Text)
getObjectNickname :: forall (m :: * -> *) o.
(MonadIO m, IsObject o) =>
o -> m (Maybe Text)
getObjectNickname o
obj = IO (Maybe Text) -> m (Maybe Text)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (Maybe Text) -> m (Maybe Text))
-> IO (Maybe Text) -> m (Maybe Text)
forall a b. (a -> b) -> a -> b
$ o -> String -> IO (Maybe Text)
forall a. GObject a => a -> String -> IO (Maybe Text)
B.Properties.getObjectPropertyString o
obj String
"nickname"
setObjectNickname :: (MonadIO m, IsObject o) => o -> T.Text -> m ()
setObjectNickname :: forall (m :: * -> *) o.
(MonadIO m, IsObject o) =>
o -> Text -> m ()
setObjectNickname o
obj Text
val = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"nickname" (Text -> Maybe Text
forall a. a -> Maybe a
Just Text
val)
constructObjectNickname :: (IsObject o, MIO.MonadIO m) => T.Text -> m (GValueConstruct o)
constructObjectNickname :: forall o (m :: * -> *).
(IsObject o, MonadIO m) =>
Text -> m (GValueConstruct o)
constructObjectNickname Text
val = IO (GValueConstruct o) -> m (GValueConstruct o)
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> m (GValueConstruct o))
-> IO (GValueConstruct o) -> m (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ do
IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a. IO a -> IO a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
MIO.liftIO (IO (GValueConstruct o) -> IO (GValueConstruct o))
-> IO (GValueConstruct o) -> IO (GValueConstruct o)
forall a b. (a -> b) -> a -> b
$ String -> Maybe Text -> IO (GValueConstruct o)
forall o. String -> Maybe Text -> IO (GValueConstruct o)
B.Properties.constructObjectPropertyString String
"nickname" (Text -> Maybe Text
forall a. a -> Maybe a
P.Just Text
val)
clearObjectNickname :: (MonadIO m, IsObject o) => o -> m ()
clearObjectNickname :: forall (m :: * -> *) o. (MonadIO m, IsObject o) => o -> m ()
clearObjectNickname o
obj = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ o -> String -> Maybe Text -> IO ()
forall a. GObject a => a -> String -> Maybe Text -> IO ()
B.Properties.setObjectPropertyString o
obj String
"nickname" (Maybe Text
forall a. Maybe a
Nothing :: Maybe T.Text)
#if defined(ENABLE_OVERLOADING)
data ObjectNicknamePropertyInfo
instance AttrInfo ObjectNicknamePropertyInfo where
type AttrAllowedOps ObjectNicknamePropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrBaseTypeConstraint ObjectNicknamePropertyInfo = IsObject
type AttrSetTypeConstraint ObjectNicknamePropertyInfo = (~) T.Text
type AttrTransferTypeConstraint ObjectNicknamePropertyInfo = (~) T.Text
type AttrTransferType ObjectNicknamePropertyInfo = T.Text
type AttrGetType ObjectNicknamePropertyInfo = (Maybe T.Text)
type AttrLabel ObjectNicknamePropertyInfo = "nickname"
type AttrOrigin ObjectNicknamePropertyInfo = Object
attrGet = getObjectNickname
attrSet = setObjectNickname
attrTransfer _ v = do
return v
attrConstruct = constructObjectNickname
attrClear = clearObjectNickname
dbgAttrInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.nickname"
, O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#g:attr:nickname"
})
#endif
#if defined(ENABLE_OVERLOADING)
instance O.HasAttributeList Object
type instance O.AttributeList Object = ObjectAttributeList
type ObjectAttributeList = ('[ '("description", ObjectDescriptionPropertyInfo), '("nickname", ObjectNicknamePropertyInfo)] :: [(Symbol, DK.Type)])
#endif
#if defined(ENABLE_OVERLOADING)
objectDescription :: AttrLabelProxy "description"
objectDescription = AttrLabelProxy
objectNickname :: AttrLabelProxy "nickname"
objectNickname = AttrLabelProxy
#endif
#if defined(ENABLE_OVERLOADING)
type instance O.SignalList Object = ObjectSignalList
type ObjectSignalList = ('[ '("close", ObjectCloseSignalInfo), '("notify", GObject.Object.ObjectNotifySignalInfo), '("postbuild", ObjectPostbuildSignalInfo), '("postclose", ObjectPostcloseSignalInfo), '("preclose", ObjectPrecloseSignalInfo)] :: [(Symbol, DK.Type)])
#endif
foreign import ccall "vips_object_new_from_string" vips_object_new_from_string ::
Ptr Vips.ObjectClass.ObjectClass ->
CString ->
IO (Ptr Object)
objectNewFromString ::
(B.CallStack.HasCallStack, MonadIO m) =>
Vips.ObjectClass.ObjectClass
-> T.Text
-> m Object
objectNewFromString :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ObjectClass -> Text -> m Object
objectNewFromString ObjectClass
objectClass Text
p = IO Object -> m Object
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Object -> m Object) -> IO Object -> m Object
forall a b. (a -> b) -> a -> b
$ do
Ptr ObjectClass
objectClass' <- ObjectClass -> IO (Ptr ObjectClass)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ObjectClass
objectClass
CString
p' <- Text -> IO CString
textToCString Text
p
Ptr Object
result <- Ptr ObjectClass -> CString -> IO (Ptr Object)
vips_object_new_from_string Ptr ObjectClass
objectClass' CString
p'
Text -> Ptr Object -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"objectNewFromString" Ptr Object
result
Object
result' <- ((ManagedPtr Object -> Object) -> Ptr Object -> IO Object
forall a b.
(HasCallStack, GObject a, GObject b) =>
(ManagedPtr a -> a) -> Ptr b -> IO a
wrapObject ManagedPtr Object -> Object
Object) Ptr Object
result
ObjectClass -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ObjectClass
objectClass
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
p'
Object -> IO Object
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Object
result'
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vips_object_argument_isset" vips_object_argument_isset ::
Ptr Object ->
CString ->
IO CInt
objectArgumentIsset ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m Bool
objectArgumentIsset :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> m Bool
objectArgumentIsset a
object Text
name = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
CInt
result <- Ptr Object -> CString -> IO CInt
vips_object_argument_isset Ptr Object
object' CString
name'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ObjectArgumentIssetMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsObject a) => O.OverloadedMethod ObjectArgumentIssetMethodInfo a signature where
overloadedMethod = objectArgumentIsset
instance O.OverloadedMethodInfo ObjectArgumentIssetMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectArgumentIsset",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectArgumentIsset"
})
#endif
foreign import ccall "vips_object_argument_needsstring" vips_object_argument_needsstring ::
Ptr Object ->
CString ->
IO CInt
objectArgumentNeedsstring ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m Bool
objectArgumentNeedsstring :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> m Bool
objectArgumentNeedsstring a
object Text
name = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
CInt
result <- Ptr Object -> CString -> IO CInt
vips_object_argument_needsstring Ptr Object
object' CString
name'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ObjectArgumentNeedsstringMethodInfo
instance (signature ~ (T.Text -> m Bool), MonadIO m, IsObject a) => O.OverloadedMethod ObjectArgumentNeedsstringMethodInfo a signature where
overloadedMethod = objectArgumentNeedsstring
instance O.OverloadedMethodInfo ObjectArgumentNeedsstringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectArgumentNeedsstring",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectArgumentNeedsstring"
})
#endif
foreign import ccall "vips_object_build" vips_object_build ::
Ptr Object ->
IO Int32
objectBuild ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Int32
objectBuild :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m Int32
objectBuild a
object = ObjectPostbuildCallback -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectPostbuildCallback -> m Int32)
-> ObjectPostbuildCallback -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Int32
result <- Ptr Object -> ObjectPostbuildCallback
vips_object_build Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ObjectBuildMethodInfo
instance (signature ~ (m Int32), MonadIO m, IsObject a) => O.OverloadedMethod ObjectBuildMethodInfo a signature where
overloadedMethod = objectBuild
instance O.OverloadedMethodInfo ObjectBuildMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectBuild",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectBuild"
})
#endif
foreign import ccall "vips_object_get_argument_flags" vips_object_get_argument_flags ::
Ptr Object ->
CString ->
IO CUInt
objectGetArgumentFlags ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m [Vips.Flags.ArgumentFlags]
objectGetArgumentFlags :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> m [ArgumentFlags]
objectGetArgumentFlags a
object Text
name = IO [ArgumentFlags] -> m [ArgumentFlags]
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO [ArgumentFlags] -> m [ArgumentFlags])
-> IO [ArgumentFlags] -> m [ArgumentFlags]
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
CUInt
result <- Ptr Object -> CString -> IO CUInt
vips_object_get_argument_flags Ptr Object
object' CString
name'
let result' :: [ArgumentFlags]
result' = CUInt -> [ArgumentFlags]
forall a b. (Storable a, Integral a, Bits a, IsGFlag b) => a -> [b]
wordToGFlags CUInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
[ArgumentFlags] -> IO [ArgumentFlags]
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return [ArgumentFlags]
result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetArgumentFlagsMethodInfo
instance (signature ~ (T.Text -> m [Vips.Flags.ArgumentFlags]), MonadIO m, IsObject a) => O.OverloadedMethod ObjectGetArgumentFlagsMethodInfo a signature where
overloadedMethod = objectGetArgumentFlags
instance O.OverloadedMethodInfo ObjectGetArgumentFlagsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectGetArgumentFlags",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectGetArgumentFlags"
})
#endif
foreign import ccall "vips_object_get_argument_priority" vips_object_get_argument_priority ::
Ptr Object ->
CString ->
IO Int32
objectGetArgumentPriority ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m Int32
objectGetArgumentPriority :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> m Int32
objectGetArgumentPriority a
object Text
name = ObjectPostbuildCallback -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectPostbuildCallback -> m Int32)
-> ObjectPostbuildCallback -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
Int32
result <- Ptr Object -> CString -> ObjectPostbuildCallback
vips_object_get_argument_priority Ptr Object
object' CString
name'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ObjectGetArgumentPriorityMethodInfo
instance (signature ~ (T.Text -> m Int32), MonadIO m, IsObject a) => O.OverloadedMethod ObjectGetArgumentPriorityMethodInfo a signature where
overloadedMethod = objectGetArgumentPriority
instance O.OverloadedMethodInfo ObjectGetArgumentPriorityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectGetArgumentPriority",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectGetArgumentPriority"
})
#endif
foreign import ccall "vips_object_get_argument_to_string" vips_object_get_argument_to_string ::
Ptr Object ->
CString ->
CString ->
IO Int32
objectGetArgumentToString ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> T.Text
-> m Int32
objectGetArgumentToString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> Text -> m Int32
objectGetArgumentToString a
object Text
name Text
arg = ObjectPostbuildCallback -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectPostbuildCallback -> m Int32)
-> ObjectPostbuildCallback -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
CString
arg' <- Text -> IO CString
textToCString Text
arg
Int32
result <- Ptr Object -> CString -> CString -> ObjectPostbuildCallback
vips_object_get_argument_to_string Ptr Object
object' CString
name' CString
arg'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
arg'
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ObjectGetArgumentToStringMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Int32), MonadIO m, IsObject a) => O.OverloadedMethod ObjectGetArgumentToStringMethodInfo a signature where
overloadedMethod = objectGetArgumentToString
instance O.OverloadedMethodInfo ObjectGetArgumentToStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectGetArgumentToString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectGetArgumentToString"
})
#endif
foreign import ccall "vips_object_get_description" vips_object_get_description ::
Ptr Object ->
IO CString
objectGetDescription ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m T.Text
objectGetDescription :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m Text
objectGetDescription a
object = IO Text -> m Text
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Text -> m Text) -> IO Text -> m Text
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
result <- Ptr Object -> IO CString
vips_object_get_description Ptr Object
object'
Text -> CString -> IO ()
forall a. HasCallStack => Text -> Ptr a -> IO ()
checkUnexpectedReturnNULL Text
"objectGetDescription" CString
result
Text
result' <- HasCallStack => CString -> IO Text
CString -> IO Text
cstringToText CString
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
Text -> IO Text
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Text
result'
#if defined(ENABLE_OVERLOADING)
data ObjectGetDescriptionMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsObject a) => O.OverloadedMethod ObjectGetDescriptionMethodInfo a signature where
overloadedMethod = objectGetDescription
instance O.OverloadedMethodInfo ObjectGetDescriptionMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectGetDescription",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectGetDescription"
})
#endif
foreign import ccall "vips_object_local_cb" vips_object_local_cb ::
Ptr Object ->
Ptr GObject.Object.Object ->
IO ()
objectLocalCb ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a, GObject.Object.IsObject b) =>
a
-> b
-> m ()
objectLocalCb :: forall (m :: * -> *) a b.
(HasCallStack, MonadIO m, IsObject a, IsObject b) =>
a -> b -> m ()
objectLocalCb a
vobject b
gobject = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
vobject' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
vobject
Ptr Object
gobject' <- b -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr b
gobject
Ptr Object -> Ptr Object -> IO ()
vips_object_local_cb Ptr Object
vobject' Ptr Object
gobject'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
vobject
b -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr b
gobject
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectLocalCbMethodInfo
instance (signature ~ (b -> m ()), MonadIO m, IsObject a, GObject.Object.IsObject b) => O.OverloadedMethod ObjectLocalCbMethodInfo a signature where
overloadedMethod = objectLocalCb
instance O.OverloadedMethodInfo ObjectLocalCbMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectLocalCb",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectLocalCb"
})
#endif
foreign import ccall "vips_object_preclose" vips_object_preclose ::
Ptr Object ->
IO ()
objectPreclose ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectPreclose :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectPreclose a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_preclose Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectPrecloseMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectPrecloseMethodInfo a signature where
overloadedMethod = objectPreclose
instance O.OverloadedMethodInfo ObjectPrecloseMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectPreclose",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectPreclose"
})
#endif
foreign import ccall "vips_object_print_dump" vips_object_print_dump ::
Ptr Object ->
IO ()
objectPrintDump ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectPrintDump :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectPrintDump a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_print_dump Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectPrintDumpMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectPrintDumpMethodInfo a signature where
overloadedMethod = objectPrintDump
instance O.OverloadedMethodInfo ObjectPrintDumpMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectPrintDump",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectPrintDump"
})
#endif
foreign import ccall "vips_object_print_name" vips_object_print_name ::
Ptr Object ->
IO ()
objectPrintName ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectPrintName :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectPrintName a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_print_name Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectPrintNameMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectPrintNameMethodInfo a signature where
overloadedMethod = objectPrintName
instance O.OverloadedMethodInfo ObjectPrintNameMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectPrintName",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectPrintName"
})
#endif
foreign import ccall "vips_object_print_summary" vips_object_print_summary ::
Ptr Object ->
IO ()
objectPrintSummary ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectPrintSummary :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectPrintSummary a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_print_summary Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectPrintSummaryMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectPrintSummaryMethodInfo a signature where
overloadedMethod = objectPrintSummary
instance O.OverloadedMethodInfo ObjectPrintSummaryMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectPrintSummary",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectPrintSummary"
})
#endif
foreign import ccall "vips_object_rewind" vips_object_rewind ::
Ptr Object ->
IO ()
objectRewind ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectRewind :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectRewind a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_rewind Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectRewindMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectRewindMethodInfo a signature where
overloadedMethod = objectRewind
instance O.OverloadedMethodInfo ObjectRewindMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectRewind",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectRewind"
})
#endif
foreign import ccall "vips_object_sanity" vips_object_sanity ::
Ptr Object ->
IO CInt
objectSanity ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m Bool
objectSanity :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m Bool
objectSanity a
object = IO Bool -> m Bool
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO Bool -> m Bool) -> IO Bool -> m Bool
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CInt
result <- Ptr Object -> IO CInt
vips_object_sanity Ptr Object
object'
let result' :: Bool
result' = (CInt -> CInt -> Bool
forall a. Eq a => a -> a -> Bool
/= CInt
0) CInt
result
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
Bool -> IO Bool
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Bool
result'
#if defined(ENABLE_OVERLOADING)
data ObjectSanityMethodInfo
instance (signature ~ (m Bool), MonadIO m, IsObject a) => O.OverloadedMethod ObjectSanityMethodInfo a signature where
overloadedMethod = objectSanity
instance O.OverloadedMethodInfo ObjectSanityMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectSanity",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectSanity"
})
#endif
foreign import ccall "vips_object_set_argument_from_string" vips_object_set_argument_from_string ::
Ptr Object ->
CString ->
CString ->
IO Int32
objectSetArgumentFromString ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> T.Text
-> m Int32
objectSetArgumentFromString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> Text -> m Int32
objectSetArgumentFromString a
object Text
name Text
value = ObjectPostbuildCallback -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectPostbuildCallback -> m Int32)
-> ObjectPostbuildCallback -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
name' <- Text -> IO CString
textToCString Text
name
CString
value' <- Text -> IO CString
textToCString Text
value
Int32
result <- Ptr Object -> CString -> CString -> ObjectPostbuildCallback
vips_object_set_argument_from_string Ptr Object
object' CString
name' CString
value'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
name'
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
value'
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ObjectSetArgumentFromStringMethodInfo
instance (signature ~ (T.Text -> T.Text -> m Int32), MonadIO m, IsObject a) => O.OverloadedMethod ObjectSetArgumentFromStringMethodInfo a signature where
overloadedMethod = objectSetArgumentFromString
instance O.OverloadedMethodInfo ObjectSetArgumentFromStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectSetArgumentFromString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectSetArgumentFromString"
})
#endif
foreign import ccall "vips_object_set_from_string" vips_object_set_from_string ::
Ptr Object ->
CString ->
IO Int32
objectSetFromString ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> T.Text
-> m Int32
objectSetFromString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Text -> m Int32
objectSetFromString a
object Text
string = ObjectPostbuildCallback -> m Int32
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (ObjectPostbuildCallback -> m Int32)
-> ObjectPostbuildCallback -> m Int32
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
CString
string' <- Text -> IO CString
textToCString Text
string
Int32
result <- Ptr Object -> CString -> ObjectPostbuildCallback
vips_object_set_from_string Ptr Object
object' CString
string'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
CString -> IO ()
forall a. Ptr a -> IO ()
freeMem CString
string'
Int32 -> ObjectPostbuildCallback
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Int32
result
#if defined(ENABLE_OVERLOADING)
data ObjectSetFromStringMethodInfo
instance (signature ~ (T.Text -> m Int32), MonadIO m, IsObject a) => O.OverloadedMethod ObjectSetFromStringMethodInfo a signature where
overloadedMethod = objectSetFromString
instance O.OverloadedMethodInfo ObjectSetFromStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectSetFromString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectSetFromString"
})
#endif
#if defined(ENABLE_OVERLOADING)
data ObjectSetRequiredMethodInfo
instance (p ~ (), o ~ O.UnsupportedMethodError "setRequired" Object) => O.OverloadedMethod ObjectSetRequiredMethodInfo o p where
overloadedMethod = undefined
instance (o ~ O.UnsupportedMethodError "setRequired" Object) => O.OverloadedMethodInfo ObjectSetRequiredMethodInfo o where
overloadedMethodInfo = undefined
#endif
foreign import ccall "vips_object_set_static" vips_object_set_static ::
Ptr Object ->
CInt ->
IO ()
objectSetStatic ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Bool
-> m ()
objectSetStatic :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Bool -> m ()
objectSetStatic a
object Bool
staticObject = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
let staticObject' :: CInt
staticObject' = (Int -> CInt
forall a b. (Integral a, Num b) => a -> b
P.fromIntegral (Int -> CInt) -> (Bool -> Int) -> Bool -> CInt
forall b c a. (b -> c) -> (a -> b) -> a -> c
. Bool -> Int
forall a. Enum a => a -> Int
P.fromEnum) Bool
staticObject
Ptr Object -> CInt -> IO ()
vips_object_set_static Ptr Object
object' CInt
staticObject'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectSetStaticMethodInfo
instance (signature ~ (Bool -> m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectSetStaticMethodInfo a signature where
overloadedMethod = objectSetStatic
instance O.OverloadedMethodInfo ObjectSetStaticMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectSetStatic",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectSetStatic"
})
#endif
foreign import ccall "vips_object_to_string" vips_object_to_string ::
Ptr Object ->
Ptr Vips.Buf.Buf ->
IO ()
objectToString ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> Vips.Buf.Buf
-> m ()
objectToString :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Buf -> m ()
objectToString a
object Buf
buf = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Buf
buf' <- Buf -> IO (Ptr Buf)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr Buf
buf
Ptr Object -> Ptr Buf -> IO ()
vips_object_to_string Ptr Object
object' Ptr Buf
buf'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
Buf -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr Buf
buf
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectToStringMethodInfo
instance (signature ~ (Vips.Buf.Buf -> m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectToStringMethodInfo a signature where
overloadedMethod = objectToString
instance O.OverloadedMethodInfo ObjectToStringMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectToString",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectToString"
})
#endif
foreign import ccall "vips_object_unref_outputs" vips_object_unref_outputs ::
Ptr Object ->
IO ()
objectUnrefOutputs ::
(B.CallStack.HasCallStack, MonadIO m, IsObject a) =>
a
-> m ()
objectUnrefOutputs :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> m ()
objectUnrefOutputs a
object = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
object' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
object
Ptr Object -> IO ()
vips_object_unref_outputs Ptr Object
object'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
object
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
data ObjectUnrefOutputsMethodInfo
instance (signature ~ (m ()), MonadIO m, IsObject a) => O.OverloadedMethod ObjectUnrefOutputsMethodInfo a signature where
overloadedMethod = objectUnrefOutputs
instance O.OverloadedMethodInfo ObjectUnrefOutputsMethodInfo a where
overloadedMethodInfo = P.Just (O.ResolvedSymbolInfo {
O.resolvedSymbolName = "GI.Vips.Objects.Object.objectUnrefOutputs",
O.resolvedSymbolURL = "https://hackage.haskell.org/package/gi-vips-8.0.4/docs/GI-Vips-Objects-Object.html#v:objectUnrefOutputs"
})
#endif
foreign import ccall "vips_object_get_property" vips_object_get_property ::
Ptr GObject.Object.Object ->
Word32 ->
Ptr GValue ->
Ptr GParamSpec ->
IO ()
objectGetProperty ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
a
-> Word32
-> GValue
-> GParamSpec
-> m ()
objectGetProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Word32 -> GValue -> GParamSpec -> m ()
objectGetProperty a
gobject Word32
propertyId GValue
value GParamSpec
pspec = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
gobject' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gobject
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
Ptr Object -> Word32 -> Ptr GValue -> Ptr GParamSpec -> IO ()
vips_object_get_property Ptr Object
gobject' Word32
propertyId Ptr GValue
value' Ptr GParamSpec
pspec'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gobject
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vips_object_print_all" vips_object_print_all ::
IO ()
objectPrintAll ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ()
objectPrintAll :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ()
objectPrintAll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO ()
vips_object_print_all
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vips_object_print_summary_class" vips_object_print_summary_class ::
Ptr Vips.ObjectClass.ObjectClass ->
IO ()
objectPrintSummaryClass ::
(B.CallStack.HasCallStack, MonadIO m) =>
Vips.ObjectClass.ObjectClass
-> m ()
objectPrintSummaryClass :: forall (m :: * -> *).
(HasCallStack, MonadIO m) =>
ObjectClass -> m ()
objectPrintSummaryClass ObjectClass
klass = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr ObjectClass
klass' <- ObjectClass -> IO (Ptr ObjectClass)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr ObjectClass
klass
Ptr ObjectClass -> IO ()
vips_object_print_summary_class Ptr ObjectClass
klass'
ObjectClass -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr ObjectClass
klass
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vips_object_sanity_all" vips_object_sanity_all ::
IO ()
objectSanityAll ::
(B.CallStack.HasCallStack, MonadIO m) =>
m ()
objectSanityAll :: forall (m :: * -> *). (HasCallStack, MonadIO m) => m ()
objectSanityAll = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
IO ()
vips_object_sanity_all
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif
foreign import ccall "vips_object_set_property" vips_object_set_property ::
Ptr GObject.Object.Object ->
Word32 ->
Ptr GValue ->
Ptr GParamSpec ->
IO ()
objectSetProperty ::
(B.CallStack.HasCallStack, MonadIO m, GObject.Object.IsObject a) =>
a
-> Word32
-> GValue
-> GParamSpec
-> m ()
objectSetProperty :: forall (m :: * -> *) a.
(HasCallStack, MonadIO m, IsObject a) =>
a -> Word32 -> GValue -> GParamSpec -> m ()
objectSetProperty a
gobject Word32
propertyId GValue
value GParamSpec
pspec = IO () -> m ()
forall a. IO a -> m a
forall (m :: * -> *) a. MonadIO m => IO a -> m a
liftIO (IO () -> m ()) -> IO () -> m ()
forall a b. (a -> b) -> a -> b
$ do
Ptr Object
gobject' <- a -> IO (Ptr Object)
forall a b. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr b)
unsafeManagedPtrCastPtr a
gobject
Ptr GValue
value' <- GValue -> IO (Ptr GValue)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GValue
value
Ptr GParamSpec
pspec' <- GParamSpec -> IO (Ptr GParamSpec)
forall a. (HasCallStack, ManagedPtrNewtype a) => a -> IO (Ptr a)
unsafeManagedPtrGetPtr GParamSpec
pspec
Ptr Object -> Word32 -> Ptr GValue -> Ptr GParamSpec -> IO ()
vips_object_set_property Ptr Object
gobject' Word32
propertyId Ptr GValue
value' Ptr GParamSpec
pspec'
a -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr a
gobject
GValue -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GValue
value
GParamSpec -> IO ()
forall a. ManagedPtrNewtype a => a -> IO ()
touchManagedPtr GParamSpec
pspec
() -> IO ()
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return ()
#if defined(ENABLE_OVERLOADING)
#endif