module GI.WebKit.Objects.WebResource
(
WebResource(..) ,
WebResourceK ,
toWebResource ,
noWebResource ,
webResourceGetData ,
webResourceGetEncoding ,
webResourceGetFrameName ,
webResourceGetMimeType ,
webResourceGetUri ,
webResourceNew ,
WebResourceEncodingPropertyInfo ,
getWebResourceEncoding ,
WebResourceFrameNamePropertyInfo ,
getWebResourceFrameName ,
WebResourceMimeTypePropertyInfo ,
getWebResourceMimeType ,
WebResourceUriPropertyInfo ,
constructWebResourceUri ,
getWebResourceUri ,
WebResourceContentLengthReceivedCallback,
WebResourceContentLengthReceivedCallbackC,
WebResourceContentLengthReceivedSignalInfo,
afterWebResourceContentLengthReceived ,
mkWebResourceContentLengthReceivedCallback,
noWebResourceContentLengthReceivedCallback,
onWebResourceContentLengthReceived ,
webResourceContentLengthReceivedCallbackWrapper,
webResourceContentLengthReceivedClosure ,
WebResourceLoadFailedCallback ,
WebResourceLoadFailedCallbackC ,
WebResourceLoadFailedSignalInfo ,
afterWebResourceLoadFailed ,
mkWebResourceLoadFailedCallback ,
noWebResourceLoadFailedCallback ,
onWebResourceLoadFailed ,
webResourceLoadFailedCallbackWrapper ,
webResourceLoadFailedClosure ,
WebResourceLoadFinishedCallback ,
WebResourceLoadFinishedCallbackC ,
WebResourceLoadFinishedSignalInfo ,
afterWebResourceLoadFinished ,
mkWebResourceLoadFinishedCallback ,
noWebResourceLoadFinishedCallback ,
onWebResourceLoadFinished ,
webResourceLoadFinishedCallbackWrapper ,
webResourceLoadFinishedClosure ,
WebResourceResponseReceivedCallback ,
WebResourceResponseReceivedCallbackC ,
WebResourceResponseReceivedSignalInfo ,
afterWebResourceResponseReceived ,
mkWebResourceResponseReceivedCallback ,
noWebResourceResponseReceivedCallback ,
onWebResourceResponseReceived ,
webResourceResponseReceivedCallbackWrapper,
webResourceResponseReceivedClosure ,
) where
import Prelude ()
import Data.GI.Base.ShortPrelude
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import GI.WebKit.Types
import GI.WebKit.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype WebResource = WebResource (ForeignPtr WebResource)
foreign import ccall "webkit_web_resource_get_type"
c_webkit_web_resource_get_type :: IO GType
type instance ParentTypes WebResource = WebResourceParentTypes
type WebResourceParentTypes = '[GObject.Object]
instance GObject WebResource where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_webkit_web_resource_get_type
class GObject o => WebResourceK o
instance (GObject o, IsDescendantOf WebResource o) => WebResourceK o
toWebResource :: WebResourceK o => o -> IO WebResource
toWebResource = unsafeCastTo WebResource
noWebResource :: Maybe WebResource
noWebResource = Nothing
type WebResourceContentLengthReceivedCallback =
Int32 ->
IO ()
noWebResourceContentLengthReceivedCallback :: Maybe WebResourceContentLengthReceivedCallback
noWebResourceContentLengthReceivedCallback = Nothing
type WebResourceContentLengthReceivedCallbackC =
Ptr () ->
Int32 ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebResourceContentLengthReceivedCallback :: WebResourceContentLengthReceivedCallbackC -> IO (FunPtr WebResourceContentLengthReceivedCallbackC)
webResourceContentLengthReceivedClosure :: WebResourceContentLengthReceivedCallback -> IO Closure
webResourceContentLengthReceivedClosure cb = newCClosure =<< mkWebResourceContentLengthReceivedCallback wrapped
where wrapped = webResourceContentLengthReceivedCallbackWrapper cb
webResourceContentLengthReceivedCallbackWrapper ::
WebResourceContentLengthReceivedCallback ->
Ptr () ->
Int32 ->
Ptr () ->
IO ()
webResourceContentLengthReceivedCallbackWrapper _cb _ length_received _ = do
_cb length_received
onWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId
onWebResourceContentLengthReceived obj cb = liftIO $ connectWebResourceContentLengthReceived obj cb SignalConnectBefore
afterWebResourceContentLengthReceived :: (GObject a, MonadIO m) => a -> WebResourceContentLengthReceivedCallback -> m SignalHandlerId
afterWebResourceContentLengthReceived obj cb = connectWebResourceContentLengthReceived obj cb SignalConnectAfter
connectWebResourceContentLengthReceived :: (GObject a, MonadIO m) =>
a -> WebResourceContentLengthReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceContentLengthReceived obj cb after = liftIO $ do
cb' <- mkWebResourceContentLengthReceivedCallback (webResourceContentLengthReceivedCallbackWrapper cb)
connectSignalFunPtr obj "content-length-received" cb' after
type WebResourceLoadFailedCallback =
Ptr () ->
IO ()
noWebResourceLoadFailedCallback :: Maybe WebResourceLoadFailedCallback
noWebResourceLoadFailedCallback = Nothing
type WebResourceLoadFailedCallbackC =
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebResourceLoadFailedCallback :: WebResourceLoadFailedCallbackC -> IO (FunPtr WebResourceLoadFailedCallbackC)
webResourceLoadFailedClosure :: WebResourceLoadFailedCallback -> IO Closure
webResourceLoadFailedClosure cb = newCClosure =<< mkWebResourceLoadFailedCallback wrapped
where wrapped = webResourceLoadFailedCallbackWrapper cb
webResourceLoadFailedCallbackWrapper ::
WebResourceLoadFailedCallback ->
Ptr () ->
Ptr () ->
Ptr () ->
IO ()
webResourceLoadFailedCallbackWrapper _cb _ error_ _ = do
_cb error_
onWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId
onWebResourceLoadFailed obj cb = liftIO $ connectWebResourceLoadFailed obj cb SignalConnectBefore
afterWebResourceLoadFailed :: (GObject a, MonadIO m) => a -> WebResourceLoadFailedCallback -> m SignalHandlerId
afterWebResourceLoadFailed obj cb = connectWebResourceLoadFailed obj cb SignalConnectAfter
connectWebResourceLoadFailed :: (GObject a, MonadIO m) =>
a -> WebResourceLoadFailedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceLoadFailed obj cb after = liftIO $ do
cb' <- mkWebResourceLoadFailedCallback (webResourceLoadFailedCallbackWrapper cb)
connectSignalFunPtr obj "load-failed" cb' after
type WebResourceLoadFinishedCallback =
IO ()
noWebResourceLoadFinishedCallback :: Maybe WebResourceLoadFinishedCallback
noWebResourceLoadFinishedCallback = Nothing
type WebResourceLoadFinishedCallbackC =
Ptr () ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebResourceLoadFinishedCallback :: WebResourceLoadFinishedCallbackC -> IO (FunPtr WebResourceLoadFinishedCallbackC)
webResourceLoadFinishedClosure :: WebResourceLoadFinishedCallback -> IO Closure
webResourceLoadFinishedClosure cb = newCClosure =<< mkWebResourceLoadFinishedCallback wrapped
where wrapped = webResourceLoadFinishedCallbackWrapper cb
webResourceLoadFinishedCallbackWrapper ::
WebResourceLoadFinishedCallback ->
Ptr () ->
Ptr () ->
IO ()
webResourceLoadFinishedCallbackWrapper _cb _ _ = do
_cb
onWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId
onWebResourceLoadFinished obj cb = liftIO $ connectWebResourceLoadFinished obj cb SignalConnectBefore
afterWebResourceLoadFinished :: (GObject a, MonadIO m) => a -> WebResourceLoadFinishedCallback -> m SignalHandlerId
afterWebResourceLoadFinished obj cb = connectWebResourceLoadFinished obj cb SignalConnectAfter
connectWebResourceLoadFinished :: (GObject a, MonadIO m) =>
a -> WebResourceLoadFinishedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceLoadFinished obj cb after = liftIO $ do
cb' <- mkWebResourceLoadFinishedCallback (webResourceLoadFinishedCallbackWrapper cb)
connectSignalFunPtr obj "load-finished" cb' after
type WebResourceResponseReceivedCallback =
NetworkResponse ->
IO ()
noWebResourceResponseReceivedCallback :: Maybe WebResourceResponseReceivedCallback
noWebResourceResponseReceivedCallback = Nothing
type WebResourceResponseReceivedCallbackC =
Ptr () ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
foreign import ccall "wrapper"
mkWebResourceResponseReceivedCallback :: WebResourceResponseReceivedCallbackC -> IO (FunPtr WebResourceResponseReceivedCallbackC)
webResourceResponseReceivedClosure :: WebResourceResponseReceivedCallback -> IO Closure
webResourceResponseReceivedClosure cb = newCClosure =<< mkWebResourceResponseReceivedCallback wrapped
where wrapped = webResourceResponseReceivedCallbackWrapper cb
webResourceResponseReceivedCallbackWrapper ::
WebResourceResponseReceivedCallback ->
Ptr () ->
Ptr NetworkResponse ->
Ptr () ->
IO ()
webResourceResponseReceivedCallbackWrapper _cb _ response _ = do
response' <- (newObject NetworkResponse) response
_cb response'
onWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId
onWebResourceResponseReceived obj cb = liftIO $ connectWebResourceResponseReceived obj cb SignalConnectBefore
afterWebResourceResponseReceived :: (GObject a, MonadIO m) => a -> WebResourceResponseReceivedCallback -> m SignalHandlerId
afterWebResourceResponseReceived obj cb = connectWebResourceResponseReceived obj cb SignalConnectAfter
connectWebResourceResponseReceived :: (GObject a, MonadIO m) =>
a -> WebResourceResponseReceivedCallback -> SignalConnectMode -> m SignalHandlerId
connectWebResourceResponseReceived obj cb after = liftIO $ do
cb' <- mkWebResourceResponseReceivedCallback (webResourceResponseReceivedCallbackWrapper cb)
connectSignalFunPtr obj "response-received" cb' after
getWebResourceEncoding :: (MonadIO m, WebResourceK o) => o -> m T.Text
getWebResourceEncoding obj = liftIO $ getObjectPropertyString obj "encoding"
data WebResourceEncodingPropertyInfo
instance AttrInfo WebResourceEncodingPropertyInfo where
type AttrAllowedOps WebResourceEncodingPropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebResourceEncodingPropertyInfo = (~) ()
type AttrBaseTypeConstraint WebResourceEncodingPropertyInfo = WebResourceK
type AttrGetType WebResourceEncodingPropertyInfo = T.Text
type AttrLabel WebResourceEncodingPropertyInfo = "WebResource::encoding"
attrGet _ = getWebResourceEncoding
attrSet _ = undefined
attrConstruct _ = undefined
getWebResourceFrameName :: (MonadIO m, WebResourceK o) => o -> m T.Text
getWebResourceFrameName obj = liftIO $ getObjectPropertyString obj "frame-name"
data WebResourceFrameNamePropertyInfo
instance AttrInfo WebResourceFrameNamePropertyInfo where
type AttrAllowedOps WebResourceFrameNamePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebResourceFrameNamePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebResourceFrameNamePropertyInfo = WebResourceK
type AttrGetType WebResourceFrameNamePropertyInfo = T.Text
type AttrLabel WebResourceFrameNamePropertyInfo = "WebResource::frame-name"
attrGet _ = getWebResourceFrameName
attrSet _ = undefined
attrConstruct _ = undefined
getWebResourceMimeType :: (MonadIO m, WebResourceK o) => o -> m T.Text
getWebResourceMimeType obj = liftIO $ getObjectPropertyString obj "mime-type"
data WebResourceMimeTypePropertyInfo
instance AttrInfo WebResourceMimeTypePropertyInfo where
type AttrAllowedOps WebResourceMimeTypePropertyInfo = '[ 'AttrGet]
type AttrSetTypeConstraint WebResourceMimeTypePropertyInfo = (~) ()
type AttrBaseTypeConstraint WebResourceMimeTypePropertyInfo = WebResourceK
type AttrGetType WebResourceMimeTypePropertyInfo = T.Text
type AttrLabel WebResourceMimeTypePropertyInfo = "WebResource::mime-type"
attrGet _ = getWebResourceMimeType
attrSet _ = undefined
attrConstruct _ = undefined
getWebResourceUri :: (MonadIO m, WebResourceK o) => o -> m T.Text
getWebResourceUri obj = liftIO $ getObjectPropertyString obj "uri"
constructWebResourceUri :: T.Text -> IO ([Char], GValue)
constructWebResourceUri val = constructObjectPropertyString "uri" val
data WebResourceUriPropertyInfo
instance AttrInfo WebResourceUriPropertyInfo where
type AttrAllowedOps WebResourceUriPropertyInfo = '[ 'AttrConstruct, 'AttrGet]
type AttrSetTypeConstraint WebResourceUriPropertyInfo = (~) T.Text
type AttrBaseTypeConstraint WebResourceUriPropertyInfo = WebResourceK
type AttrGetType WebResourceUriPropertyInfo = T.Text
type AttrLabel WebResourceUriPropertyInfo = "WebResource::uri"
attrGet _ = getWebResourceUri
attrSet _ = undefined
attrConstruct _ = constructWebResourceUri
type instance AttributeList WebResource = WebResourceAttributeList
type WebResourceAttributeList = ('[ '("encoding", WebResourceEncodingPropertyInfo), '("frame-name", WebResourceFrameNamePropertyInfo), '("mime-type", WebResourceMimeTypePropertyInfo), '("uri", WebResourceUriPropertyInfo)] :: [(Symbol, *)])
data WebResourceContentLengthReceivedSignalInfo
instance SignalInfo WebResourceContentLengthReceivedSignalInfo where
type HaskellCallbackType WebResourceContentLengthReceivedSignalInfo = WebResourceContentLengthReceivedCallback
connectSignal _ = connectWebResourceContentLengthReceived
data WebResourceLoadFailedSignalInfo
instance SignalInfo WebResourceLoadFailedSignalInfo where
type HaskellCallbackType WebResourceLoadFailedSignalInfo = WebResourceLoadFailedCallback
connectSignal _ = connectWebResourceLoadFailed
data WebResourceLoadFinishedSignalInfo
instance SignalInfo WebResourceLoadFinishedSignalInfo where
type HaskellCallbackType WebResourceLoadFinishedSignalInfo = WebResourceLoadFinishedCallback
connectSignal _ = connectWebResourceLoadFinished
data WebResourceResponseReceivedSignalInfo
instance SignalInfo WebResourceResponseReceivedSignalInfo where
type HaskellCallbackType WebResourceResponseReceivedSignalInfo = WebResourceResponseReceivedCallback
connectSignal _ = connectWebResourceResponseReceived
type instance SignalList WebResource = WebResourceSignalList
type WebResourceSignalList = ('[ '("content-length-received", WebResourceContentLengthReceivedSignalInfo), '("load-failed", WebResourceLoadFailedSignalInfo), '("load-finished", WebResourceLoadFinishedSignalInfo), '("notify", GObject.ObjectNotifySignalInfo), '("response-received", WebResourceResponseReceivedSignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
foreign import ccall "webkit_web_resource_new" webkit_web_resource_new ::
CString ->
Int64 ->
CString ->
CString ->
CString ->
CString ->
IO (Ptr WebResource)
webResourceNew ::
(MonadIO m) =>
T.Text ->
Int64 ->
T.Text ->
T.Text ->
T.Text ->
T.Text ->
m WebResource
webResourceNew data_ size uri mime_type encoding frame_name = liftIO $ do
data_' <- textToCString data_
uri' <- textToCString uri
mime_type' <- textToCString mime_type
encoding' <- textToCString encoding
frame_name' <- textToCString frame_name
result <- webkit_web_resource_new data_' size uri' mime_type' encoding' frame_name'
checkUnexpectedReturnNULL "webkit_web_resource_new" result
result' <- (wrapObject WebResource) result
freeMem data_'
freeMem uri'
freeMem mime_type'
freeMem encoding'
freeMem frame_name'
return result'
foreign import ccall "webkit_web_resource_get_data" webkit_web_resource_get_data ::
Ptr WebResource ->
IO (Ptr GLib.String)
webResourceGetData ::
(MonadIO m, WebResourceK a) =>
a ->
m GLib.String
webResourceGetData _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_data _obj'
checkUnexpectedReturnNULL "webkit_web_resource_get_data" result
result' <- (newBoxed GLib.String) result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_resource_get_encoding" webkit_web_resource_get_encoding ::
Ptr WebResource ->
IO CString
webResourceGetEncoding ::
(MonadIO m, WebResourceK a) =>
a ->
m T.Text
webResourceGetEncoding _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_encoding _obj'
checkUnexpectedReturnNULL "webkit_web_resource_get_encoding" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_resource_get_frame_name" webkit_web_resource_get_frame_name ::
Ptr WebResource ->
IO CString
webResourceGetFrameName ::
(MonadIO m, WebResourceK a) =>
a ->
m T.Text
webResourceGetFrameName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_frame_name _obj'
checkUnexpectedReturnNULL "webkit_web_resource_get_frame_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_resource_get_mime_type" webkit_web_resource_get_mime_type ::
Ptr WebResource ->
IO CString
webResourceGetMimeType ::
(MonadIO m, WebResourceK a) =>
a ->
m T.Text
webResourceGetMimeType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_mime_type _obj'
checkUnexpectedReturnNULL "webkit_web_resource_get_mime_type" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
foreign import ccall "webkit_web_resource_get_uri" webkit_web_resource_get_uri ::
Ptr WebResource ->
IO CString
webResourceGetUri ::
(MonadIO m, WebResourceK a) =>
a ->
m T.Text
webResourceGetUri _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- webkit_web_resource_get_uri _obj'
checkUnexpectedReturnNULL "webkit_web_resource_get_uri" result
result' <- cstringToText result
touchManagedPtr _obj
return result'