module GI.WebKit2WebExtension.Structs.ConsoleMessage
(
ConsoleMessage(..) ,
noConsoleMessage ,
ConsoleMessageCopyMethodInfo ,
consoleMessageCopy ,
ConsoleMessageFreeMethodInfo ,
consoleMessageFree ,
ConsoleMessageGetLevelMethodInfo ,
consoleMessageGetLevel ,
ConsoleMessageGetLineMethodInfo ,
consoleMessageGetLine ,
ConsoleMessageGetSourceMethodInfo ,
consoleMessageGetSource ,
ConsoleMessageGetSourceIdMethodInfo ,
consoleMessageGetSourceId ,
ConsoleMessageGetTextMethodInfo ,
consoleMessageGetText ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GI.WebKit2WebExtension.Enums as WebKit2WebExtension.Enums
newtype ConsoleMessage = ConsoleMessage (ManagedPtr ConsoleMessage)
foreign import ccall "webkit_console_message_get_type" c_webkit_console_message_get_type ::
IO GType
instance BoxedObject ConsoleMessage where
boxedType _ = c_webkit_console_message_get_type
noConsoleMessage :: Maybe ConsoleMessage
noConsoleMessage = Nothing
instance O.HasAttributeList ConsoleMessage
type instance O.AttributeList ConsoleMessage = ConsoleMessageAttributeList
type ConsoleMessageAttributeList = ('[ ] :: [(Symbol, *)])
foreign import ccall "webkit_console_message_copy" webkit_console_message_copy ::
Ptr ConsoleMessage ->
IO (Ptr ConsoleMessage)
consoleMessageCopy ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m ConsoleMessage
consoleMessageCopy consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_copy consoleMessage'
checkUnexpectedReturnNULL "consoleMessageCopy" result
result' <- (wrapBoxed ConsoleMessage) result
touchManagedPtr consoleMessage
return result'
data ConsoleMessageCopyMethodInfo
instance (signature ~ (m ConsoleMessage), MonadIO m) => O.MethodInfo ConsoleMessageCopyMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageCopy
foreign import ccall "webkit_console_message_free" webkit_console_message_free ::
Ptr ConsoleMessage ->
IO ()
consoleMessageFree ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m ()
consoleMessageFree consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
webkit_console_message_free consoleMessage'
touchManagedPtr consoleMessage
return ()
data ConsoleMessageFreeMethodInfo
instance (signature ~ (m ()), MonadIO m) => O.MethodInfo ConsoleMessageFreeMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageFree
foreign import ccall "webkit_console_message_get_level" webkit_console_message_get_level ::
Ptr ConsoleMessage ->
IO CUInt
consoleMessageGetLevel ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m WebKit2WebExtension.Enums.ConsoleMessageLevel
consoleMessageGetLevel consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_level consoleMessage'
let result' = (toEnum . fromIntegral) result
touchManagedPtr consoleMessage
return result'
data ConsoleMessageGetLevelMethodInfo
instance (signature ~ (m WebKit2WebExtension.Enums.ConsoleMessageLevel), MonadIO m) => O.MethodInfo ConsoleMessageGetLevelMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetLevel
foreign import ccall "webkit_console_message_get_line" webkit_console_message_get_line ::
Ptr ConsoleMessage ->
IO Word32
consoleMessageGetLine ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m Word32
consoleMessageGetLine consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_line consoleMessage'
touchManagedPtr consoleMessage
return result
data ConsoleMessageGetLineMethodInfo
instance (signature ~ (m Word32), MonadIO m) => O.MethodInfo ConsoleMessageGetLineMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetLine
foreign import ccall "webkit_console_message_get_source" webkit_console_message_get_source ::
Ptr ConsoleMessage ->
IO CUInt
consoleMessageGetSource ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m WebKit2WebExtension.Enums.ConsoleMessageSource
consoleMessageGetSource consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_source consoleMessage'
let result' = (toEnum . fromIntegral) result
touchManagedPtr consoleMessage
return result'
data ConsoleMessageGetSourceMethodInfo
instance (signature ~ (m WebKit2WebExtension.Enums.ConsoleMessageSource), MonadIO m) => O.MethodInfo ConsoleMessageGetSourceMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetSource
foreign import ccall "webkit_console_message_get_source_id" webkit_console_message_get_source_id ::
Ptr ConsoleMessage ->
IO CString
consoleMessageGetSourceId ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m T.Text
consoleMessageGetSourceId consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_source_id consoleMessage'
checkUnexpectedReturnNULL "consoleMessageGetSourceId" result
result' <- cstringToText result
touchManagedPtr consoleMessage
return result'
data ConsoleMessageGetSourceIdMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ConsoleMessageGetSourceIdMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetSourceId
foreign import ccall "webkit_console_message_get_text" webkit_console_message_get_text ::
Ptr ConsoleMessage ->
IO CString
consoleMessageGetText ::
(B.CallStack.HasCallStack, MonadIO m) =>
ConsoleMessage
-> m T.Text
consoleMessageGetText consoleMessage = liftIO $ do
consoleMessage' <- unsafeManagedPtrGetPtr consoleMessage
result <- webkit_console_message_get_text consoleMessage'
checkUnexpectedReturnNULL "consoleMessageGetText" result
result' <- cstringToText result
touchManagedPtr consoleMessage
return result'
data ConsoleMessageGetTextMethodInfo
instance (signature ~ (m T.Text), MonadIO m) => O.MethodInfo ConsoleMessageGetTextMethodInfo ConsoleMessage signature where
overloadedMethod _ = consoleMessageGetText
type family ResolveConsoleMessageMethod (t :: Symbol) (o :: *) :: * where
ResolveConsoleMessageMethod "copy" o = ConsoleMessageCopyMethodInfo
ResolveConsoleMessageMethod "free" o = ConsoleMessageFreeMethodInfo
ResolveConsoleMessageMethod "getLevel" o = ConsoleMessageGetLevelMethodInfo
ResolveConsoleMessageMethod "getLine" o = ConsoleMessageGetLineMethodInfo
ResolveConsoleMessageMethod "getSource" o = ConsoleMessageGetSourceMethodInfo
ResolveConsoleMessageMethod "getSourceId" o = ConsoleMessageGetSourceIdMethodInfo
ResolveConsoleMessageMethod "getText" o = ConsoleMessageGetTextMethodInfo
ResolveConsoleMessageMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, O.MethodInfo info ConsoleMessage p) => O.IsLabelProxy t (ConsoleMessage -> p) where
fromLabelProxy _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveConsoleMessageMethod t ConsoleMessage, O.MethodInfo info ConsoleMessage p) => O.IsLabel t (ConsoleMessage -> p) where
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif