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

module GI.WebKit.Objects.DOMFile
    ( 

-- * Exported types
    DOMFile(..)                             ,
    IsDOMFile                               ,
    toDOMFile                               ,
    noDOMFile                               ,


 -- * Methods
-- ** getName #method:getName#
    DOMFileGetNameMethodInfo                ,
    dOMFileGetName                          ,


-- ** getWebkitRelativePath #method:getWebkitRelativePath#
    DOMFileGetWebkitRelativePathMethodInfo  ,
    dOMFileGetWebkitRelativePath            ,




 -- * Properties
-- ** name #attr:name#
    DOMFileNamePropertyInfo                 ,
    dOMFileName                             ,
    getDOMFileName                          ,


-- ** webkitRelativePath #attr:webkitRelativePath#
    DOMFileWebkitRelativePathPropertyInfo   ,
    dOMFileWebkitRelativePath               ,
    getDOMFileWebkitRelativePath            ,




    ) 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.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.WebKit.Objects.DOMBlob as WebKit.DOMBlob
import {-# SOURCE #-} qualified GI.WebKit.Objects.DOMObject as WebKit.DOMObject

newtype DOMFile = DOMFile (ManagedPtr DOMFile)
foreign import ccall "webkit_dom_file_get_type"
    c_webkit_dom_file_get_type :: IO GType

instance GObject DOMFile where
    gobjectType _ = c_webkit_dom_file_get_type
    

class GObject o => IsDOMFile o
#if MIN_VERSION_base(4,9,0)
instance {-# OVERLAPPABLE #-} (GObject a, O.UnknownAncestorError DOMFile a) =>
    IsDOMFile a
#endif
instance IsDOMFile DOMFile
instance WebKit.DOMBlob.IsDOMBlob DOMFile
instance WebKit.DOMObject.IsDOMObject DOMFile
instance GObject.Object.IsObject DOMFile

toDOMFile :: IsDOMFile o => o -> IO DOMFile
toDOMFile = unsafeCastTo DOMFile

noDOMFile :: Maybe DOMFile
noDOMFile = Nothing

type family ResolveDOMFileMethod (t :: Symbol) (o :: *) :: * where
    ResolveDOMFileMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
    ResolveDOMFileMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
    ResolveDOMFileMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
    ResolveDOMFileMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
    ResolveDOMFileMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
    ResolveDOMFileMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
    ResolveDOMFileMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
    ResolveDOMFileMethod "ref" o = GObject.Object.ObjectRefMethodInfo
    ResolveDOMFileMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
    ResolveDOMFileMethod "replaceData" o = GObject.Object.ObjectReplaceDataMethodInfo
    ResolveDOMFileMethod "replaceQdata" o = GObject.Object.ObjectReplaceQdataMethodInfo
    ResolveDOMFileMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
    ResolveDOMFileMethod "slice" o = WebKit.DOMBlob.DOMBlobSliceMethodInfo
    ResolveDOMFileMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
    ResolveDOMFileMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
    ResolveDOMFileMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
    ResolveDOMFileMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
    ResolveDOMFileMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
    ResolveDOMFileMethod "webkitSlice" o = WebKit.DOMBlob.DOMBlobWebkitSliceMethodInfo
    ResolveDOMFileMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
    ResolveDOMFileMethod "getName" o = DOMFileGetNameMethodInfo
    ResolveDOMFileMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
    ResolveDOMFileMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
    ResolveDOMFileMethod "getSize" o = WebKit.DOMBlob.DOMBlobGetSizeMethodInfo
    ResolveDOMFileMethod "getWebkitRelativePath" o = DOMFileGetWebkitRelativePathMethodInfo
    ResolveDOMFileMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
    ResolveDOMFileMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
    ResolveDOMFileMethod l o = O.MethodResolutionFailed l o

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

#if MIN_VERSION_base(4,9,0)
instance (info ~ ResolveDOMFileMethod t DOMFile, O.MethodInfo info DOMFile p) => O.IsLabel t (DOMFile -> p) where
    fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif

-- VVV Prop "name"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable]
   -- Nullable: (Nothing,Nothing)

getDOMFileName :: (MonadIO m, IsDOMFile o) => o -> m (Maybe T.Text)
getDOMFileName obj = liftIO $ getObjectPropertyString obj "name"

data DOMFileNamePropertyInfo
instance AttrInfo DOMFileNamePropertyInfo where
    type AttrAllowedOps DOMFileNamePropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint DOMFileNamePropertyInfo = (~) ()
    type AttrBaseTypeConstraint DOMFileNamePropertyInfo = IsDOMFile
    type AttrGetType DOMFileNamePropertyInfo = (Maybe T.Text)
    type AttrLabel DOMFileNamePropertyInfo = "name"
    type AttrOrigin DOMFileNamePropertyInfo = DOMFile
    attrGet _ = getDOMFileName
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

-- VVV Prop "webkit-relative-path"
   -- Type: TBasicType TUTF8
   -- Flags: [PropertyReadable]
   -- Nullable: (Nothing,Nothing)

getDOMFileWebkitRelativePath :: (MonadIO m, IsDOMFile o) => o -> m (Maybe T.Text)
getDOMFileWebkitRelativePath obj = liftIO $ getObjectPropertyString obj "webkit-relative-path"

data DOMFileWebkitRelativePathPropertyInfo
instance AttrInfo DOMFileWebkitRelativePathPropertyInfo where
    type AttrAllowedOps DOMFileWebkitRelativePathPropertyInfo = '[ 'AttrGet, 'AttrClear]
    type AttrSetTypeConstraint DOMFileWebkitRelativePathPropertyInfo = (~) ()
    type AttrBaseTypeConstraint DOMFileWebkitRelativePathPropertyInfo = IsDOMFile
    type AttrGetType DOMFileWebkitRelativePathPropertyInfo = (Maybe T.Text)
    type AttrLabel DOMFileWebkitRelativePathPropertyInfo = "webkit-relative-path"
    type AttrOrigin DOMFileWebkitRelativePathPropertyInfo = DOMFile
    attrGet _ = getDOMFileWebkitRelativePath
    attrSet _ = undefined
    attrConstruct _ = undefined
    attrClear _ = undefined

instance O.HasAttributeList DOMFile
type instance O.AttributeList DOMFile = DOMFileAttributeList
type DOMFileAttributeList = ('[ '("coreObject", WebKit.DOMObject.DOMObjectCoreObjectPropertyInfo), '("name", DOMFileNamePropertyInfo), '("size", WebKit.DOMBlob.DOMBlobSizePropertyInfo), '("type", WebKit.DOMBlob.DOMBlobTypePropertyInfo), '("webkitRelativePath", DOMFileWebkitRelativePathPropertyInfo)] :: [(Symbol, *)])

dOMFileName :: AttrLabelProxy "name"
dOMFileName = AttrLabelProxy

dOMFileWebkitRelativePath :: AttrLabelProxy "webkitRelativePath"
dOMFileWebkitRelativePath = AttrLabelProxy

type instance O.SignalList DOMFile = DOMFileSignalList
type DOMFileSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])

-- method DOMFile::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "WebKit", name = "DOMFile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitDOMFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "webkit_dom_file_get_name" webkit_dom_file_get_name :: 
    Ptr DOMFile ->                          -- self : TInterface (Name {namespace = "WebKit", name = "DOMFile"})
    IO CString

{- |
/No description available in the introspection data./
-}
dOMFileGetName ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMFile a) =>
    a
    {- ^ /@self@/: A 'GI.WebKit.Objects.DOMFile.DOMFile' -}
    -> m T.Text
    {- ^ __Returns:__ A @/gchar/@ -}
dOMFileGetName self = liftIO $ do
    self' <- unsafeManagedPtrCastPtr self
    result <- webkit_dom_file_get_name self'
    checkUnexpectedReturnNULL "dOMFileGetName" result
    result' <- cstringToText result
    freeMem result
    touchManagedPtr self
    return result'

data DOMFileGetNameMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMFile a) => O.MethodInfo DOMFileGetNameMethodInfo a signature where
    overloadedMethod _ = dOMFileGetName

-- method DOMFile::get_webkit_relative_path
-- method type : OrdinaryMethod
-- Args : [Arg {argCName = "self", argType = TInterface (Name {namespace = "WebKit", name = "DOMFile"}), direction = DirectionIn, mayBeNull = False, argDoc = Documentation {rawDocText = Just "A #WebKitDOMFile", sinceVersion = Nothing}, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, argCallerAllocates = False, transfer = TransferNothing}]
-- Lengths : []
-- returnType : Just (TBasicType TUTF8)
-- throws : False
-- Skip return : False

foreign import ccall "webkit_dom_file_get_webkit_relative_path" webkit_dom_file_get_webkit_relative_path :: 
    Ptr DOMFile ->                          -- self : TInterface (Name {namespace = "WebKit", name = "DOMFile"})
    IO CString

{- |
/No description available in the introspection data./
-}
dOMFileGetWebkitRelativePath ::
    (B.CallStack.HasCallStack, MonadIO m, IsDOMFile a) =>
    a
    {- ^ /@self@/: A 'GI.WebKit.Objects.DOMFile.DOMFile' -}
    -> m T.Text
    {- ^ __Returns:__ A @/gchar/@ -}
dOMFileGetWebkitRelativePath self = liftIO $ do
    self' <- unsafeManagedPtrCastPtr self
    result <- webkit_dom_file_get_webkit_relative_path self'
    checkUnexpectedReturnNULL "dOMFileGetWebkitRelativePath" result
    result' <- cstringToText result
    freeMem result
    touchManagedPtr self
    return result'

data DOMFileGetWebkitRelativePathMethodInfo
instance (signature ~ (m T.Text), MonadIO m, IsDOMFile a) => O.MethodInfo DOMFileGetWebkitRelativePathMethodInfo a signature where
    overloadedMethod _ = dOMFileGetWebkitRelativePath