#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.WebKit2.Objects.URISchemeRequest
(
URISchemeRequest(..) ,
IsURISchemeRequest ,
toURISchemeRequest ,
noURISchemeRequest ,
#if ENABLE_OVERLOADING
URISchemeRequestFinishMethodInfo ,
#endif
uRISchemeRequestFinish ,
#if ENABLE_OVERLOADING
URISchemeRequestFinishErrorMethodInfo ,
#endif
uRISchemeRequestFinishError ,
#if ENABLE_OVERLOADING
URISchemeRequestGetPathMethodInfo ,
#endif
uRISchemeRequestGetPath ,
#if ENABLE_OVERLOADING
URISchemeRequestGetSchemeMethodInfo ,
#endif
uRISchemeRequestGetScheme ,
#if ENABLE_OVERLOADING
URISchemeRequestGetUriMethodInfo ,
#endif
uRISchemeRequestGetUri ,
#if ENABLE_OVERLOADING
URISchemeRequestGetWebViewMethodInfo ,
#endif
uRISchemeRequestGetWebView ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import qualified GI.Gio.Objects.InputStream as Gio.InputStream
import {-# SOURCE #-} qualified GI.WebKit2.Objects.WebView as WebKit2.WebView
newtype URISchemeRequest = URISchemeRequest (ManagedPtr URISchemeRequest)
foreign import ccall "webkit_uri_scheme_request_get_type"
c_webkit_uri_scheme_request_get_type :: IO GType
instance GObject URISchemeRequest where
gobjectType = c_webkit_uri_scheme_request_get_type
class (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o
instance (GObject o, O.IsDescendantOf URISchemeRequest o) => IsURISchemeRequest o
instance O.HasParentTypes URISchemeRequest
type instance O.ParentTypes URISchemeRequest = '[GObject.Object.Object]
toURISchemeRequest :: (MonadIO m, IsURISchemeRequest o) => o -> m URISchemeRequest
toURISchemeRequest = liftIO . unsafeCastTo URISchemeRequest
noURISchemeRequest :: Maybe URISchemeRequest
noURISchemeRequest = Nothing
#if ENABLE_OVERLOADING
type family ResolveURISchemeRequestMethod (t :: Symbol) (o :: *) :: * where
ResolveURISchemeRequestMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveURISchemeRequestMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveURISchemeRequestMethod "finish" o = URISchemeRequestFinishMethodInfo
ResolveURISchemeRequestMethod "finishError" o = URISchemeRequestFinishErrorMethodInfo
ResolveURISchemeRequestMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveURISchemeRequestMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveURISchemeRequestMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveURISchemeRequestMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveURISchemeRequestMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveURISchemeRequestMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveURISchemeRequestMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveURISchemeRequestMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveURISchemeRequestMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveURISchemeRequestMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveURISchemeRequestMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveURISchemeRequestMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveURISchemeRequestMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveURISchemeRequestMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveURISchemeRequestMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveURISchemeRequestMethod "getPath" o = URISchemeRequestGetPathMethodInfo
ResolveURISchemeRequestMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveURISchemeRequestMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveURISchemeRequestMethod "getScheme" o = URISchemeRequestGetSchemeMethodInfo
ResolveURISchemeRequestMethod "getUri" o = URISchemeRequestGetUriMethodInfo
ResolveURISchemeRequestMethod "getWebView" o = URISchemeRequestGetWebViewMethodInfo
ResolveURISchemeRequestMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveURISchemeRequestMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveURISchemeRequestMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveURISchemeRequestMethod t URISchemeRequest, O.MethodInfo info URISchemeRequest p) => OL.IsLabel t (URISchemeRequest -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList URISchemeRequest
type instance O.AttributeList URISchemeRequest = URISchemeRequestAttributeList
type URISchemeRequestAttributeList = ('[ ] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList URISchemeRequest = URISchemeRequestSignalList
type URISchemeRequestSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "webkit_uri_scheme_request_finish" webkit_uri_scheme_request_finish ::
Ptr URISchemeRequest ->
Ptr Gio.InputStream.InputStream ->
Int64 ->
CString ->
IO ()
uRISchemeRequestFinish ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a, Gio.InputStream.IsInputStream b) =>
a
-> b
-> Int64
-> Maybe (T.Text)
-> m ()
uRISchemeRequestFinish request stream streamLength mimeType = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
stream' <- unsafeManagedPtrCastPtr stream
maybeMimeType <- case mimeType of
Nothing -> return nullPtr
Just jMimeType -> do
jMimeType' <- textToCString jMimeType
return jMimeType'
webkit_uri_scheme_request_finish request' stream' streamLength maybeMimeType
touchManagedPtr request
touchManagedPtr stream
freeMem maybeMimeType
return ()
#if ENABLE_OVERLOADING
data URISchemeRequestFinishMethodInfo
instance (signature ~ (b -> Int64 -> Maybe (T.Text) -> m ()), MonadIO m, IsURISchemeRequest a, Gio.InputStream.IsInputStream b) => O.MethodInfo URISchemeRequestFinishMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestFinish
#endif
foreign import ccall "webkit_uri_scheme_request_finish_error" webkit_uri_scheme_request_finish_error ::
Ptr URISchemeRequest ->
Ptr GError ->
IO ()
uRISchemeRequestFinishError ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>
a
-> GError
-> m ()
uRISchemeRequestFinishError request error_ = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
error_' <- unsafeManagedPtrGetPtr error_
webkit_uri_scheme_request_finish_error request' error_'
touchManagedPtr request
touchManagedPtr error_
return ()
#if ENABLE_OVERLOADING
data URISchemeRequestFinishErrorMethodInfo
instance (signature ~ (GError -> m ()), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestFinishErrorMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestFinishError
#endif
foreign import ccall "webkit_uri_scheme_request_get_path" webkit_uri_scheme_request_get_path ::
Ptr URISchemeRequest ->
IO CString
uRISchemeRequestGetPath ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>
a
-> m T.Text
uRISchemeRequestGetPath request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_uri_scheme_request_get_path request'
checkUnexpectedReturnNULL "uRISchemeRequestGetPath" result
result' <- cstringToText result
touchManagedPtr request
return result'
#if ENABLE_OVERLOADING
data URISchemeRequestGetPathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetPathMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestGetPath
#endif
foreign import ccall "webkit_uri_scheme_request_get_scheme" webkit_uri_scheme_request_get_scheme ::
Ptr URISchemeRequest ->
IO CString
uRISchemeRequestGetScheme ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>
a
-> m T.Text
uRISchemeRequestGetScheme request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_uri_scheme_request_get_scheme request'
checkUnexpectedReturnNULL "uRISchemeRequestGetScheme" result
result' <- cstringToText result
touchManagedPtr request
return result'
#if ENABLE_OVERLOADING
data URISchemeRequestGetSchemeMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetSchemeMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestGetScheme
#endif
foreign import ccall "webkit_uri_scheme_request_get_uri" webkit_uri_scheme_request_get_uri ::
Ptr URISchemeRequest ->
IO CString
uRISchemeRequestGetUri ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>
a
-> m T.Text
uRISchemeRequestGetUri request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_uri_scheme_request_get_uri request'
checkUnexpectedReturnNULL "uRISchemeRequestGetUri" result
result' <- cstringToText result
touchManagedPtr request
return result'
#if ENABLE_OVERLOADING
data URISchemeRequestGetUriMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetUriMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestGetUri
#endif
foreign import ccall "webkit_uri_scheme_request_get_web_view" webkit_uri_scheme_request_get_web_view ::
Ptr URISchemeRequest ->
IO (Ptr WebKit2.WebView.WebView)
uRISchemeRequestGetWebView ::
(B.CallStack.HasCallStack, MonadIO m, IsURISchemeRequest a) =>
a
-> m WebKit2.WebView.WebView
uRISchemeRequestGetWebView request = liftIO $ do
request' <- unsafeManagedPtrCastPtr request
result <- webkit_uri_scheme_request_get_web_view request'
checkUnexpectedReturnNULL "uRISchemeRequestGetWebView" result
result' <- (newObject WebKit2.WebView.WebView) result
touchManagedPtr request
return result'
#if ENABLE_OVERLOADING
data URISchemeRequestGetWebViewMethodInfo
instance (signature ~ (m WebKit2.WebView.WebView), MonadIO m, IsURISchemeRequest a) => O.MethodInfo URISchemeRequestGetWebViewMethodInfo a signature where
overloadedMethod _ = uRISchemeRequestGetWebView
#endif