gi-gio-0.2.44.12: GI/Gio/Objects/FileInfo.hs
{- |
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.Gio.Objects.FileInfo
(
-- * Exported types
FileInfo(..) ,
FileInfoK ,
toFileInfo ,
noFileInfo ,
-- * Methods
-- ** fileInfoClearStatus
fileInfoClearStatus ,
-- ** fileInfoCopyInto
fileInfoCopyInto ,
-- ** fileInfoDup
fileInfoDup ,
-- ** fileInfoGetAttributeAsString
fileInfoGetAttributeAsString ,
-- ** fileInfoGetAttributeBoolean
fileInfoGetAttributeBoolean ,
-- ** fileInfoGetAttributeByteString
fileInfoGetAttributeByteString ,
-- ** fileInfoGetAttributeData
fileInfoGetAttributeData ,
-- ** fileInfoGetAttributeInt32
fileInfoGetAttributeInt32 ,
-- ** fileInfoGetAttributeInt64
fileInfoGetAttributeInt64 ,
-- ** fileInfoGetAttributeObject
fileInfoGetAttributeObject ,
-- ** fileInfoGetAttributeStatus
fileInfoGetAttributeStatus ,
-- ** fileInfoGetAttributeString
fileInfoGetAttributeString ,
-- ** fileInfoGetAttributeStringv
fileInfoGetAttributeStringv ,
-- ** fileInfoGetAttributeType
fileInfoGetAttributeType ,
-- ** fileInfoGetAttributeUint32
fileInfoGetAttributeUint32 ,
-- ** fileInfoGetAttributeUint64
fileInfoGetAttributeUint64 ,
-- ** fileInfoGetContentType
fileInfoGetContentType ,
-- ** fileInfoGetDeletionDate
fileInfoGetDeletionDate ,
-- ** fileInfoGetDisplayName
fileInfoGetDisplayName ,
-- ** fileInfoGetEditName
fileInfoGetEditName ,
-- ** fileInfoGetEtag
fileInfoGetEtag ,
-- ** fileInfoGetFileType
fileInfoGetFileType ,
-- ** fileInfoGetIcon
fileInfoGetIcon ,
-- ** fileInfoGetIsBackup
fileInfoGetIsBackup ,
-- ** fileInfoGetIsHidden
fileInfoGetIsHidden ,
-- ** fileInfoGetIsSymlink
fileInfoGetIsSymlink ,
-- ** fileInfoGetModificationTime
fileInfoGetModificationTime ,
-- ** fileInfoGetName
fileInfoGetName ,
-- ** fileInfoGetSize
fileInfoGetSize ,
-- ** fileInfoGetSortOrder
fileInfoGetSortOrder ,
-- ** fileInfoGetSymbolicIcon
fileInfoGetSymbolicIcon ,
-- ** fileInfoGetSymlinkTarget
fileInfoGetSymlinkTarget ,
-- ** fileInfoHasAttribute
fileInfoHasAttribute ,
-- ** fileInfoHasNamespace
fileInfoHasNamespace ,
-- ** fileInfoListAttributes
fileInfoListAttributes ,
-- ** fileInfoNew
fileInfoNew ,
-- ** fileInfoRemoveAttribute
fileInfoRemoveAttribute ,
-- ** fileInfoSetAttribute
fileInfoSetAttribute ,
-- ** fileInfoSetAttributeBoolean
fileInfoSetAttributeBoolean ,
-- ** fileInfoSetAttributeByteString
fileInfoSetAttributeByteString ,
-- ** fileInfoSetAttributeInt32
fileInfoSetAttributeInt32 ,
-- ** fileInfoSetAttributeInt64
fileInfoSetAttributeInt64 ,
-- ** fileInfoSetAttributeMask
fileInfoSetAttributeMask ,
-- ** fileInfoSetAttributeObject
fileInfoSetAttributeObject ,
-- ** fileInfoSetAttributeStatus
fileInfoSetAttributeStatus ,
-- ** fileInfoSetAttributeString
fileInfoSetAttributeString ,
-- ** fileInfoSetAttributeStringv
fileInfoSetAttributeStringv ,
-- ** fileInfoSetAttributeUint32
fileInfoSetAttributeUint32 ,
-- ** fileInfoSetAttributeUint64
fileInfoSetAttributeUint64 ,
-- ** fileInfoSetContentType
fileInfoSetContentType ,
-- ** fileInfoSetDisplayName
fileInfoSetDisplayName ,
-- ** fileInfoSetEditName
fileInfoSetEditName ,
-- ** fileInfoSetFileType
fileInfoSetFileType ,
-- ** fileInfoSetIcon
fileInfoSetIcon ,
-- ** fileInfoSetIsHidden
fileInfoSetIsHidden ,
-- ** fileInfoSetIsSymlink
fileInfoSetIsSymlink ,
-- ** fileInfoSetModificationTime
fileInfoSetModificationTime ,
-- ** fileInfoSetName
fileInfoSetName ,
-- ** fileInfoSetSize
fileInfoSetSize ,
-- ** fileInfoSetSortOrder
fileInfoSetSortOrder ,
-- ** fileInfoSetSymbolicIcon
fileInfoSetSymbolicIcon ,
-- ** fileInfoSetSymlinkTarget
fileInfoSetSymlinkTarget ,
-- ** fileInfoUnsetAttributeMask
fileInfoUnsetAttributeMask ,
) 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.Gio.Types
import GI.Gio.Callbacks
import qualified GI.GLib as GLib
import qualified GI.GObject as GObject
newtype FileInfo = FileInfo (ForeignPtr FileInfo)
foreign import ccall "g_file_info_get_type"
c_g_file_info_get_type :: IO GType
type instance ParentTypes FileInfo = FileInfoParentTypes
type FileInfoParentTypes = '[GObject.Object]
instance GObject FileInfo where
gobjectIsInitiallyUnowned _ = False
gobjectType _ = c_g_file_info_get_type
class GObject o => FileInfoK o
instance (GObject o, IsDescendantOf FileInfo o) => FileInfoK o
toFileInfo :: FileInfoK o => o -> IO FileInfo
toFileInfo = unsafeCastTo FileInfo
noFileInfo :: Maybe FileInfo
noFileInfo = Nothing
type instance AttributeList FileInfo = FileInfoAttributeList
type FileInfoAttributeList = ('[ ] :: [(Symbol, *)])
type instance SignalList FileInfo = FileInfoSignalList
type FileInfoSignalList = ('[ '("notify", GObject.ObjectNotifySignalInfo), '("notify::[property]", GObjectNotifySignalInfo)] :: [(Symbol, *)])
-- method FileInfo::new
-- method type : Constructor
-- Args : []
-- Lengths : []
-- hInArgs : []
-- returnType : TInterface "Gio" "FileInfo"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_new" g_file_info_new ::
IO (Ptr FileInfo)
fileInfoNew ::
(MonadIO m) =>
m FileInfo
fileInfoNew = liftIO $ do
result <- g_file_info_new
checkUnexpectedReturnNULL "g_file_info_new" result
result' <- (wrapObject FileInfo) result
return result'
-- method FileInfo::clear_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_clear_status" g_file_info_clear_status ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO ()
fileInfoClearStatus ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m ()
fileInfoClearStatus _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_file_info_clear_status _obj'
touchManagedPtr _obj
return ()
-- method FileInfo::copy_into
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "dest_info", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_copy_into" g_file_info_copy_into ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr FileInfo -> -- dest_info : TInterface "Gio" "FileInfo"
IO ()
fileInfoCopyInto ::
(MonadIO m, FileInfoK a, FileInfoK b) =>
a -> -- _obj
b -> -- dest_info
m ()
fileInfoCopyInto _obj dest_info = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let dest_info' = unsafeManagedPtrCastPtr dest_info
g_file_info_copy_into _obj' dest_info'
touchManagedPtr _obj
touchManagedPtr dest_info
return ()
-- method FileInfo::dup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "FileInfo"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_dup" g_file_info_dup ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO (Ptr FileInfo)
fileInfoDup ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m FileInfo
fileInfoDup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_dup _obj'
checkUnexpectedReturnNULL "g_file_info_dup" result
result' <- (wrapObject FileInfo) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_attribute_as_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_as_string" g_file_info_get_attribute_as_string ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CString
fileInfoGetAttributeAsString ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m T.Text
fileInfoGetAttributeAsString _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_as_string _obj' attribute'
checkUnexpectedReturnNULL "g_file_info_get_attribute_as_string" result
result' <- cstringToText result
freeMem result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_boolean
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_boolean" g_file_info_get_attribute_boolean ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CInt
fileInfoGetAttributeBoolean ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Bool
fileInfoGetAttributeBoolean _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_boolean _obj' attribute'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_byte_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_byte_string" g_file_info_get_attribute_byte_string ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CString
fileInfoGetAttributeByteString ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m T.Text
fileInfoGetAttributeByteString _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_byte_string _obj' attribute'
checkUnexpectedReturnNULL "g_file_info_get_attribute_byte_string" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_data
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "value_pp", argType = TBasicType TVoid, direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferEverything}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_data" g_file_info_get_attribute_data ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Ptr CUInt -> -- type : TInterface "Gio" "FileAttributeType"
Ptr (Ptr ()) -> -- value_pp : TBasicType TVoid
Ptr CUInt -> -- status : TInterface "Gio" "FileAttributeStatus"
IO CInt
fileInfoGetAttributeData ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m (Bool,FileAttributeType,(Ptr ()),FileAttributeStatus)
fileInfoGetAttributeData _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
type_ <- allocMem :: IO (Ptr CUInt)
value_pp <- allocMem :: IO (Ptr (Ptr ()))
status <- allocMem :: IO (Ptr CUInt)
result <- g_file_info_get_attribute_data _obj' attribute' type_ value_pp status
let result' = (/= 0) result
type_' <- peek type_
let type_'' = (toEnum . fromIntegral) type_'
value_pp' <- peek value_pp
status' <- peek status
let status'' = (toEnum . fromIntegral) status'
touchManagedPtr _obj
freeMem attribute'
freeMem type_
freeMem value_pp
freeMem status
return (result', type_'', value_pp', status'')
-- method FileInfo::get_attribute_int32
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_int32" g_file_info_get_attribute_int32 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO Int32
fileInfoGetAttributeInt32 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Int32
fileInfoGetAttributeInt32 _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_int32 _obj' attribute'
touchManagedPtr _obj
freeMem attribute'
return result
-- method FileInfo::get_attribute_int64
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_int64" g_file_info_get_attribute_int64 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO Int64
fileInfoGetAttributeInt64 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Int64
fileInfoGetAttributeInt64 _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_int64 _obj' attribute'
touchManagedPtr _obj
freeMem attribute'
return result
-- method FileInfo::get_attribute_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GObject" "Object"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_object" g_file_info_get_attribute_object ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO (Ptr GObject.Object)
fileInfoGetAttributeObject ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m GObject.Object
fileInfoGetAttributeObject _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_object _obj' attribute'
checkUnexpectedReturnNULL "g_file_info_get_attribute_object" result
result' <- (newObject GObject.Object) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "FileAttributeStatus"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_status" g_file_info_get_attribute_status ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CUInt
fileInfoGetAttributeStatus ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m FileAttributeStatus
fileInfoGetAttributeStatus _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_status _obj' attribute'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_string" g_file_info_get_attribute_string ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CString
fileInfoGetAttributeString ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m T.Text
fileInfoGetAttributeString _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_string _obj' attribute'
checkUnexpectedReturnNULL "g_file_info_get_attribute_string" result
result' <- cstringToText result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_stringv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_stringv" g_file_info_get_attribute_stringv ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO (Ptr CString)
fileInfoGetAttributeStringv ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m [T.Text]
fileInfoGetAttributeStringv _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_stringv _obj' attribute'
checkUnexpectedReturnNULL "g_file_info_get_attribute_stringv" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "FileAttributeType"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_type" g_file_info_get_attribute_type ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CUInt
fileInfoGetAttributeType ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m FileAttributeType
fileInfoGetAttributeType _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_type _obj' attribute'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::get_attribute_uint32
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_uint32" g_file_info_get_attribute_uint32 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO Word32
fileInfoGetAttributeUint32 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Word32
fileInfoGetAttributeUint32 _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_uint32 _obj' attribute'
touchManagedPtr _obj
freeMem attribute'
return result
-- method FileInfo::get_attribute_uint64
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUInt64
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_attribute_uint64" g_file_info_get_attribute_uint64 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO Word64
fileInfoGetAttributeUint64 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Word64
fileInfoGetAttributeUint64 _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_get_attribute_uint64 _obj' attribute'
touchManagedPtr _obj
freeMem attribute'
return result
-- method FileInfo::get_content_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_content_type" g_file_info_get_content_type ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetContentType ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetContentType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_content_type _obj'
checkUnexpectedReturnNULL "g_file_info_get_content_type" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::get_deletion_date
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "GLib" "DateTime"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_deletion_date" g_file_info_get_deletion_date ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO (Ptr GLib.DateTime)
fileInfoGetDeletionDate ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m GLib.DateTime
fileInfoGetDeletionDate _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_deletion_date _obj'
checkUnexpectedReturnNULL "g_file_info_get_deletion_date" result
result' <- (wrapBoxed GLib.DateTime) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_display_name" g_file_info_get_display_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetDisplayName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetDisplayName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_display_name _obj'
checkUnexpectedReturnNULL "g_file_info_get_display_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::get_edit_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_edit_name" g_file_info_get_edit_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetEditName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetEditName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_edit_name _obj'
checkUnexpectedReturnNULL "g_file_info_get_edit_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::get_etag
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_etag" g_file_info_get_etag ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetEtag ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetEtag _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_etag _obj'
checkUnexpectedReturnNULL "g_file_info_get_etag" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::get_file_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "FileType"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_file_type" g_file_info_get_file_type ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CUInt
fileInfoGetFileType ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m FileType
fileInfoGetFileType _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_file_type _obj'
let result' = (toEnum . fromIntegral) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_icon" g_file_info_get_icon ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO (Ptr Icon)
fileInfoGetIcon ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Icon
fileInfoGetIcon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_icon _obj'
checkUnexpectedReturnNULL "g_file_info_get_icon" result
result' <- (newObject Icon) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_is_backup
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_is_backup" g_file_info_get_is_backup ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CInt
fileInfoGetIsBackup ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Bool
fileInfoGetIsBackup _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_is_backup _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_is_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_is_hidden" g_file_info_get_is_hidden ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CInt
fileInfoGetIsHidden ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Bool
fileInfoGetIsHidden _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_is_hidden _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_is_symlink
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_is_symlink" g_file_info_get_is_symlink ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CInt
fileInfoGetIsSymlink ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Bool
fileInfoGetIsSymlink _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_is_symlink _obj'
let result' = (/= 0) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_modification_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "result", argType = TInterface "GLib" "TimeVal", direction = DirectionOut, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_modification_time" g_file_info_get_modification_time ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr GLib.TimeVal -> -- result : TInterface "GLib" "TimeVal"
IO ()
fileInfoGetModificationTime ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m (GLib.TimeVal)
fileInfoGetModificationTime _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result_ <- callocBytes 16 :: IO (Ptr GLib.TimeVal)
g_file_info_get_modification_time _obj' result_
result_' <- (wrapPtr GLib.TimeVal) result_
touchManagedPtr _obj
return result_'
-- method FileInfo::get_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_name" g_file_info_get_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetName _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_name _obj'
checkUnexpectedReturnNULL "g_file_info_get_name" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::get_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt64
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_size" g_file_info_get_size ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO Int64
fileInfoGetSize ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Int64
fileInfoGetSize _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_size _obj'
touchManagedPtr _obj
return result
-- method FileInfo::get_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TInt32
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_sort_order" g_file_info_get_sort_order ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO Int32
fileInfoGetSortOrder ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Int32
fileInfoGetSortOrder _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_sort_order _obj'
touchManagedPtr _obj
return result
-- method FileInfo::get_symbolic_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TInterface "Gio" "Icon"
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_symbolic_icon" g_file_info_get_symbolic_icon ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO (Ptr Icon)
fileInfoGetSymbolicIcon ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m Icon
fileInfoGetSymbolicIcon _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_symbolic_icon _obj'
checkUnexpectedReturnNULL "g_file_info_get_symbolic_icon" result
result' <- (newObject Icon) result
touchManagedPtr _obj
return result'
-- method FileInfo::get_symlink_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TUTF8
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_get_symlink_target" g_file_info_get_symlink_target ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO CString
fileInfoGetSymlinkTarget ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m T.Text
fileInfoGetSymlinkTarget _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
result <- g_file_info_get_symlink_target _obj'
checkUnexpectedReturnNULL "g_file_info_get_symlink_target" result
result' <- cstringToText result
touchManagedPtr _obj
return result'
-- method FileInfo::has_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_has_attribute" g_file_info_has_attribute ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO CInt
fileInfoHasAttribute ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m Bool
fileInfoHasAttribute _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
result <- g_file_info_has_attribute _obj' attribute'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::has_namespace
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_has_namespace" g_file_info_has_namespace ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- name_space : TBasicType TUTF8
IO CInt
fileInfoHasNamespace ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- name_space
m Bool
fileInfoHasNamespace _obj name_space = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name_space' <- textToCString name_space
result <- g_file_info_has_namespace _obj' name_space'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem name_space'
return result'
-- method FileInfo::list_attributes
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name_space", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TCArray True (-1) (-1) (TBasicType TUTF8)
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_list_attributes" g_file_info_list_attributes ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- name_space : TBasicType TUTF8
IO (Ptr CString)
fileInfoListAttributes ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- name_space
m [T.Text]
fileInfoListAttributes _obj name_space = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name_space' <- textToCString name_space
result <- g_file_info_list_attributes _obj' name_space'
checkUnexpectedReturnNULL "g_file_info_list_attributes" result
result' <- unpackZeroTerminatedUTF8CArray result
mapZeroTerminatedCArray freeMem result
freeMem result
touchManagedPtr _obj
freeMem name_space'
return result'
-- method FileInfo::remove_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_remove_attribute" g_file_info_remove_attribute ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
IO ()
fileInfoRemoveAttribute ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
m ()
fileInfoRemoveAttribute _obj attribute = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_remove_attribute _obj' attribute'
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileAttributeType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "value_p", argType = TBasicType TVoid, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute" g_file_info_set_attribute ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
CUInt -> -- type : TInterface "Gio" "FileAttributeType"
Ptr () -> -- value_p : TBasicType TVoid
IO ()
fileInfoSetAttribute ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
FileAttributeType -> -- type
Ptr () -> -- value_p
m ()
fileInfoSetAttribute _obj attribute type_ value_p = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
let type_' = (fromIntegral . fromEnum) type_
g_file_info_set_attribute _obj' attribute' type_' value_p
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_boolean
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_boolean" g_file_info_set_attribute_boolean ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
CInt -> -- attr_value : TBasicType TBoolean
IO ()
fileInfoSetAttributeBoolean ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Bool -> -- attr_value
m ()
fileInfoSetAttributeBoolean _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
let attr_value' = (fromIntegral . fromEnum) attr_value
g_file_info_set_attribute_boolean _obj' attribute' attr_value'
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_byte_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_byte_string" g_file_info_set_attribute_byte_string ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
CString -> -- attr_value : TBasicType TUTF8
IO ()
fileInfoSetAttributeByteString ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
T.Text -> -- attr_value
m ()
fileInfoSetAttributeByteString _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
attr_value' <- textToCString attr_value
g_file_info_set_attribute_byte_string _obj' attribute' attr_value'
touchManagedPtr _obj
freeMem attribute'
freeMem attr_value'
return ()
-- method FileInfo::set_attribute_int32
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_int32" g_file_info_set_attribute_int32 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Int32 -> -- attr_value : TBasicType TInt32
IO ()
fileInfoSetAttributeInt32 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Int32 -> -- attr_value
m ()
fileInfoSetAttributeInt32 _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_set_attribute_int32 _obj' attribute' attr_value
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_int64
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_int64" g_file_info_set_attribute_int64 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Int64 -> -- attr_value : TBasicType TInt64
IO ()
fileInfoSetAttributeInt64 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Int64 -> -- attr_value
m ()
fileInfoSetAttributeInt64 _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_set_attribute_int64 _obj' attribute' attr_value
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_mask
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mask", argType = TInterface "Gio" "FileAttributeMatcher", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_mask" g_file_info_set_attribute_mask ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr FileAttributeMatcher -> -- mask : TInterface "Gio" "FileAttributeMatcher"
IO ()
fileInfoSetAttributeMask ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
FileAttributeMatcher -> -- mask
m ()
fileInfoSetAttributeMask _obj mask = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mask' = unsafeManagedPtrGetPtr mask
g_file_info_set_attribute_mask _obj' mask'
touchManagedPtr _obj
touchManagedPtr mask
return ()
-- method FileInfo::set_attribute_object
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TInterface "GObject" "Object", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_object" g_file_info_set_attribute_object ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Ptr GObject.Object -> -- attr_value : TInterface "GObject" "Object"
IO ()
fileInfoSetAttributeObject ::
(MonadIO m, FileInfoK a, GObject.ObjectK b) =>
a -> -- _obj
T.Text -> -- attribute
b -> -- attr_value
m ()
fileInfoSetAttributeObject _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
let attr_value' = unsafeManagedPtrCastPtr attr_value
g_file_info_set_attribute_object _obj' attribute' attr_value'
touchManagedPtr _obj
touchManagedPtr attr_value
freeMem attribute'
return ()
-- method FileInfo::set_attribute_status
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "status", argType = TInterface "Gio" "FileAttributeStatus", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TBoolean
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_status" g_file_info_set_attribute_status ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
CUInt -> -- status : TInterface "Gio" "FileAttributeStatus"
IO CInt
fileInfoSetAttributeStatus ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
FileAttributeStatus -> -- status
m Bool
fileInfoSetAttributeStatus _obj attribute status = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
let status' = (fromIntegral . fromEnum) status
result <- g_file_info_set_attribute_status _obj' attribute' status'
let result' = (/= 0) result
touchManagedPtr _obj
freeMem attribute'
return result'
-- method FileInfo::set_attribute_string
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_string" g_file_info_set_attribute_string ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
CString -> -- attr_value : TBasicType TUTF8
IO ()
fileInfoSetAttributeString ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
T.Text -> -- attr_value
m ()
fileInfoSetAttributeString _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
attr_value' <- textToCString attr_value
g_file_info_set_attribute_string _obj' attribute' attr_value'
touchManagedPtr _obj
freeMem attribute'
freeMem attr_value'
return ()
-- method FileInfo::set_attribute_stringv
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TCArray False (-1) (-1) (TBasicType TUTF8), direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_stringv" g_file_info_set_attribute_stringv ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Ptr CString -> -- attr_value : TCArray False (-1) (-1) (TBasicType TUTF8)
IO ()
fileInfoSetAttributeStringv ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Ptr CString -> -- attr_value
m ()
fileInfoSetAttributeStringv _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_set_attribute_stringv _obj' attribute' attr_value
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_uint32
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_uint32" g_file_info_set_attribute_uint32 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Word32 -> -- attr_value : TBasicType TUInt32
IO ()
fileInfoSetAttributeUint32 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Word32 -> -- attr_value
m ()
fileInfoSetAttributeUint32 _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_set_attribute_uint32 _obj' attribute' attr_value
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_attribute_uint64
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attribute", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "attr_value", argType = TBasicType TUInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_attribute_uint64" g_file_info_set_attribute_uint64 ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- attribute : TBasicType TUTF8
Word64 -> -- attr_value : TBasicType TUInt64
IO ()
fileInfoSetAttributeUint64 ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- attribute
Word64 -> -- attr_value
m ()
fileInfoSetAttributeUint64 _obj attribute attr_value = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
attribute' <- textToCString attribute
g_file_info_set_attribute_uint64 _obj' attribute' attr_value
touchManagedPtr _obj
freeMem attribute'
return ()
-- method FileInfo::set_content_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "content_type", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_content_type" g_file_info_set_content_type ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- content_type : TBasicType TUTF8
IO ()
fileInfoSetContentType ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- content_type
m ()
fileInfoSetContentType _obj content_type = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
content_type' <- textToCString content_type
g_file_info_set_content_type _obj' content_type'
touchManagedPtr _obj
freeMem content_type'
return ()
-- method FileInfo::set_display_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "display_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_display_name" g_file_info_set_display_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- display_name : TBasicType TUTF8
IO ()
fileInfoSetDisplayName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- display_name
m ()
fileInfoSetDisplayName _obj display_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
display_name' <- textToCString display_name
g_file_info_set_display_name _obj' display_name'
touchManagedPtr _obj
freeMem display_name'
return ()
-- method FileInfo::set_edit_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "edit_name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_edit_name" g_file_info_set_edit_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- edit_name : TBasicType TUTF8
IO ()
fileInfoSetEditName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- edit_name
m ()
fileInfoSetEditName _obj edit_name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
edit_name' <- textToCString edit_name
g_file_info_set_edit_name _obj' edit_name'
touchManagedPtr _obj
freeMem edit_name'
return ()
-- method FileInfo::set_file_type
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "type", argType = TInterface "Gio" "FileType", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_file_type" g_file_info_set_file_type ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CUInt -> -- type : TInterface "Gio" "FileType"
IO ()
fileInfoSetFileType ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
FileType -> -- type
m ()
fileInfoSetFileType _obj type_ = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let type_' = (fromIntegral . fromEnum) type_
g_file_info_set_file_type _obj' type_'
touchManagedPtr _obj
return ()
-- method FileInfo::set_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_icon" g_file_info_set_icon ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
fileInfoSetIcon ::
(MonadIO m, FileInfoK a, IconK b) =>
a -> -- _obj
b -> -- icon
m ()
fileInfoSetIcon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
g_file_info_set_icon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method FileInfo::set_is_hidden
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_hidden", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_is_hidden" g_file_info_set_is_hidden ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CInt -> -- is_hidden : TBasicType TBoolean
IO ()
fileInfoSetIsHidden ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
Bool -> -- is_hidden
m ()
fileInfoSetIsHidden _obj is_hidden = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_hidden' = (fromIntegral . fromEnum) is_hidden
g_file_info_set_is_hidden _obj' is_hidden'
touchManagedPtr _obj
return ()
-- method FileInfo::set_is_symlink
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "is_symlink", argType = TBasicType TBoolean, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_is_symlink" g_file_info_set_is_symlink ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CInt -> -- is_symlink : TBasicType TBoolean
IO ()
fileInfoSetIsSymlink ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
Bool -> -- is_symlink
m ()
fileInfoSetIsSymlink _obj is_symlink = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let is_symlink' = (fromIntegral . fromEnum) is_symlink
g_file_info_set_is_symlink _obj' is_symlink'
touchManagedPtr _obj
return ()
-- method FileInfo::set_modification_time
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "mtime", argType = TInterface "GLib" "TimeVal", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_modification_time" g_file_info_set_modification_time ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr GLib.TimeVal -> -- mtime : TInterface "GLib" "TimeVal"
IO ()
fileInfoSetModificationTime ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
GLib.TimeVal -> -- mtime
m ()
fileInfoSetModificationTime _obj mtime = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let mtime' = unsafeManagedPtrGetPtr mtime
g_file_info_set_modification_time _obj' mtime'
touchManagedPtr _obj
touchManagedPtr mtime
return ()
-- method FileInfo::set_name
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "name", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_name" g_file_info_set_name ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- name : TBasicType TUTF8
IO ()
fileInfoSetName ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- name
m ()
fileInfoSetName _obj name = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
name' <- textToCString name
g_file_info_set_name _obj' name'
touchManagedPtr _obj
freeMem name'
return ()
-- method FileInfo::set_size
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "size", argType = TBasicType TInt64, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_size" g_file_info_set_size ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Int64 -> -- size : TBasicType TInt64
IO ()
fileInfoSetSize ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
Int64 -> -- size
m ()
fileInfoSetSize _obj size = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_file_info_set_size _obj' size
touchManagedPtr _obj
return ()
-- method FileInfo::set_sort_order
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "sort_order", argType = TBasicType TInt32, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_sort_order" g_file_info_set_sort_order ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Int32 -> -- sort_order : TBasicType TInt32
IO ()
fileInfoSetSortOrder ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
Int32 -> -- sort_order
m ()
fileInfoSetSortOrder _obj sort_order = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_file_info_set_sort_order _obj' sort_order
touchManagedPtr _obj
return ()
-- method FileInfo::set_symbolic_icon
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "icon", argType = TInterface "Gio" "Icon", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_symbolic_icon" g_file_info_set_symbolic_icon ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
Ptr Icon -> -- icon : TInterface "Gio" "Icon"
IO ()
fileInfoSetSymbolicIcon ::
(MonadIO m, FileInfoK a, IconK b) =>
a -> -- _obj
b -> -- icon
m ()
fileInfoSetSymbolicIcon _obj icon = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
let icon' = unsafeManagedPtrCastPtr icon
g_file_info_set_symbolic_icon _obj' icon'
touchManagedPtr _obj
touchManagedPtr icon
return ()
-- method FileInfo::set_symlink_target
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing},Arg {argName = "symlink_target", argType = TBasicType TUTF8, direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_set_symlink_target" g_file_info_set_symlink_target ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
CString -> -- symlink_target : TBasicType TUTF8
IO ()
fileInfoSetSymlinkTarget ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
T.Text -> -- symlink_target
m ()
fileInfoSetSymlinkTarget _obj symlink_target = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
symlink_target' <- textToCString symlink_target
g_file_info_set_symlink_target _obj' symlink_target'
touchManagedPtr _obj
freeMem symlink_target'
return ()
-- method FileInfo::unset_attribute_mask
-- method type : OrdinaryMethod
-- Args : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- Lengths : []
-- hInArgs : [Arg {argName = "_obj", argType = TInterface "Gio" "FileInfo", direction = DirectionIn, mayBeNull = False, argScope = ScopeTypeInvalid, argClosure = -1, argDestroy = -1, transfer = TransferNothing}]
-- returnType : TBasicType TVoid
-- throws : False
-- Skip return : False
foreign import ccall "g_file_info_unset_attribute_mask" g_file_info_unset_attribute_mask ::
Ptr FileInfo -> -- _obj : TInterface "Gio" "FileInfo"
IO ()
fileInfoUnsetAttributeMask ::
(MonadIO m, FileInfoK a) =>
a -> -- _obj
m ()
fileInfoUnsetAttributeMask _obj = liftIO $ do
let _obj' = unsafeManagedPtrCastPtr _obj
g_file_info_unset_attribute_mask _obj'
touchManagedPtr _obj
return ()