#define ENABLE_OVERLOADING (MIN_VERSION_haskell_gi_overloading(1,0,0) \
&& !defined(__HADDOCK_VERSION__))
module GI.GtkSource.Objects.LanguageManager
(
LanguageManager(..) ,
IsLanguageManager ,
toLanguageManager ,
noLanguageManager ,
languageManagerGetDefault ,
#if ENABLE_OVERLOADING
LanguageManagerGetLanguageMethodInfo ,
#endif
languageManagerGetLanguage ,
#if ENABLE_OVERLOADING
LanguageManagerGetLanguageIdsMethodInfo ,
#endif
languageManagerGetLanguageIds ,
#if ENABLE_OVERLOADING
LanguageManagerGetSearchPathMethodInfo ,
#endif
languageManagerGetSearchPath ,
#if ENABLE_OVERLOADING
LanguageManagerGuessLanguageMethodInfo ,
#endif
languageManagerGuessLanguage ,
languageManagerNew ,
#if ENABLE_OVERLOADING
LanguageManagerSetSearchPathMethodInfo ,
#endif
languageManagerSetSearchPath ,
#if ENABLE_OVERLOADING
LanguageManagerLanguageIdsPropertyInfo ,
#endif
getLanguageManagerLanguageIds ,
#if ENABLE_OVERLOADING
languageManagerLanguageIds ,
#endif
#if ENABLE_OVERLOADING
LanguageManagerSearchPathPropertyInfo ,
#endif
clearLanguageManagerSearchPath ,
constructLanguageManagerSearchPath ,
getLanguageManagerSearchPath ,
#if ENABLE_OVERLOADING
languageManagerSearchPath ,
#endif
setLanguageManagerSearchPath ,
) where
import Data.GI.Base.ShortPrelude
import qualified Data.GI.Base.ShortPrelude as SP
import qualified Data.GI.Base.Overloading as O
import qualified Prelude as P
import qualified Data.GI.Base.Attributes as GI.Attributes
import qualified Data.GI.Base.ManagedPtr as B.ManagedPtr
import qualified Data.GI.Base.GClosure as B.GClosure
import qualified Data.GI.Base.GError as B.GError
import qualified Data.GI.Base.GVariant as B.GVariant
import qualified Data.GI.Base.GValue as B.GValue
import qualified Data.GI.Base.GParamSpec as B.GParamSpec
import qualified Data.GI.Base.CallStack as B.CallStack
import qualified Data.GI.Base.Properties as B.Properties
import qualified Data.Text as T
import qualified Data.ByteString.Char8 as B
import qualified Data.Map as Map
import qualified Foreign.Ptr as FP
import qualified GHC.OverloadedLabels as OL
import qualified GI.GObject.Objects.Object as GObject.Object
import {-# SOURCE #-} qualified GI.GtkSource.Objects.Language as GtkSource.Language
newtype LanguageManager = LanguageManager (ManagedPtr LanguageManager)
foreign import ccall "gtk_source_language_manager_get_type"
c_gtk_source_language_manager_get_type :: IO GType
instance GObject LanguageManager where
gobjectType = c_gtk_source_language_manager_get_type
class (GObject o, O.IsDescendantOf LanguageManager o) => IsLanguageManager o
instance (GObject o, O.IsDescendantOf LanguageManager o) => IsLanguageManager o
instance O.HasParentTypes LanguageManager
type instance O.ParentTypes LanguageManager = '[GObject.Object.Object]
toLanguageManager :: (MonadIO m, IsLanguageManager o) => o -> m LanguageManager
toLanguageManager = liftIO . unsafeCastTo LanguageManager
noLanguageManager :: Maybe LanguageManager
noLanguageManager = Nothing
#if ENABLE_OVERLOADING
type family ResolveLanguageManagerMethod (t :: Symbol) (o :: *) :: * where
ResolveLanguageManagerMethod "bindProperty" o = GObject.Object.ObjectBindPropertyMethodInfo
ResolveLanguageManagerMethod "bindPropertyFull" o = GObject.Object.ObjectBindPropertyFullMethodInfo
ResolveLanguageManagerMethod "forceFloating" o = GObject.Object.ObjectForceFloatingMethodInfo
ResolveLanguageManagerMethod "freezeNotify" o = GObject.Object.ObjectFreezeNotifyMethodInfo
ResolveLanguageManagerMethod "getv" o = GObject.Object.ObjectGetvMethodInfo
ResolveLanguageManagerMethod "guessLanguage" o = LanguageManagerGuessLanguageMethodInfo
ResolveLanguageManagerMethod "isFloating" o = GObject.Object.ObjectIsFloatingMethodInfo
ResolveLanguageManagerMethod "notify" o = GObject.Object.ObjectNotifyMethodInfo
ResolveLanguageManagerMethod "notifyByPspec" o = GObject.Object.ObjectNotifyByPspecMethodInfo
ResolveLanguageManagerMethod "ref" o = GObject.Object.ObjectRefMethodInfo
ResolveLanguageManagerMethod "refSink" o = GObject.Object.ObjectRefSinkMethodInfo
ResolveLanguageManagerMethod "runDispose" o = GObject.Object.ObjectRunDisposeMethodInfo
ResolveLanguageManagerMethod "stealData" o = GObject.Object.ObjectStealDataMethodInfo
ResolveLanguageManagerMethod "stealQdata" o = GObject.Object.ObjectStealQdataMethodInfo
ResolveLanguageManagerMethod "thawNotify" o = GObject.Object.ObjectThawNotifyMethodInfo
ResolveLanguageManagerMethod "unref" o = GObject.Object.ObjectUnrefMethodInfo
ResolveLanguageManagerMethod "watchClosure" o = GObject.Object.ObjectWatchClosureMethodInfo
ResolveLanguageManagerMethod "getData" o = GObject.Object.ObjectGetDataMethodInfo
ResolveLanguageManagerMethod "getLanguage" o = LanguageManagerGetLanguageMethodInfo
ResolveLanguageManagerMethod "getLanguageIds" o = LanguageManagerGetLanguageIdsMethodInfo
ResolveLanguageManagerMethod "getProperty" o = GObject.Object.ObjectGetPropertyMethodInfo
ResolveLanguageManagerMethod "getQdata" o = GObject.Object.ObjectGetQdataMethodInfo
ResolveLanguageManagerMethod "getSearchPath" o = LanguageManagerGetSearchPathMethodInfo
ResolveLanguageManagerMethod "setData" o = GObject.Object.ObjectSetDataMethodInfo
ResolveLanguageManagerMethod "setProperty" o = GObject.Object.ObjectSetPropertyMethodInfo
ResolveLanguageManagerMethod "setSearchPath" o = LanguageManagerSetSearchPathMethodInfo
ResolveLanguageManagerMethod l o = O.MethodResolutionFailed l o
instance (info ~ ResolveLanguageManagerMethod t LanguageManager, O.MethodInfo info LanguageManager p) => OL.IsLabel t (LanguageManager -> p) where
#if MIN_VERSION_base(4,10,0)
fromLabel = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#else
fromLabel _ = O.overloadedMethod (O.MethodProxy :: O.MethodProxy info)
#endif
#endif
getLanguageManagerLanguageIds :: (MonadIO m, IsLanguageManager o) => o -> m (Maybe [T.Text])
getLanguageManagerLanguageIds obj = liftIO $ B.Properties.getObjectPropertyStringArray obj "language-ids"
#if ENABLE_OVERLOADING
data LanguageManagerLanguageIdsPropertyInfo
instance AttrInfo LanguageManagerLanguageIdsPropertyInfo where
type AttrAllowedOps LanguageManagerLanguageIdsPropertyInfo = '[ 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint LanguageManagerLanguageIdsPropertyInfo = (~) ()
type AttrBaseTypeConstraint LanguageManagerLanguageIdsPropertyInfo = IsLanguageManager
type AttrGetType LanguageManagerLanguageIdsPropertyInfo = (Maybe [T.Text])
type AttrLabel LanguageManagerLanguageIdsPropertyInfo = "language-ids"
type AttrOrigin LanguageManagerLanguageIdsPropertyInfo = LanguageManager
attrGet _ = getLanguageManagerLanguageIds
attrSet _ = undefined
attrConstruct _ = undefined
attrClear _ = undefined
#endif
getLanguageManagerSearchPath :: (MonadIO m, IsLanguageManager o) => o -> m [T.Text]
getLanguageManagerSearchPath obj = liftIO $ checkUnexpectedNothing "getLanguageManagerSearchPath" $ B.Properties.getObjectPropertyStringArray obj "search-path"
setLanguageManagerSearchPath :: (MonadIO m, IsLanguageManager o) => o -> [T.Text] -> m ()
setLanguageManagerSearchPath obj val = liftIO $ B.Properties.setObjectPropertyStringArray obj "search-path" (Just val)
constructLanguageManagerSearchPath :: (IsLanguageManager o) => [T.Text] -> IO (GValueConstruct o)
constructLanguageManagerSearchPath val = B.Properties.constructObjectPropertyStringArray "search-path" (Just val)
clearLanguageManagerSearchPath :: (MonadIO m, IsLanguageManager o) => o -> m ()
clearLanguageManagerSearchPath obj = liftIO $ B.Properties.setObjectPropertyStringArray obj "search-path" (Nothing :: Maybe [T.Text])
#if ENABLE_OVERLOADING
data LanguageManagerSearchPathPropertyInfo
instance AttrInfo LanguageManagerSearchPathPropertyInfo where
type AttrAllowedOps LanguageManagerSearchPathPropertyInfo = '[ 'AttrSet, 'AttrConstruct, 'AttrGet, 'AttrClear]
type AttrSetTypeConstraint LanguageManagerSearchPathPropertyInfo = (~) [T.Text]
type AttrBaseTypeConstraint LanguageManagerSearchPathPropertyInfo = IsLanguageManager
type AttrGetType LanguageManagerSearchPathPropertyInfo = [T.Text]
type AttrLabel LanguageManagerSearchPathPropertyInfo = "search-path"
type AttrOrigin LanguageManagerSearchPathPropertyInfo = LanguageManager
attrGet _ = getLanguageManagerSearchPath
attrSet _ = setLanguageManagerSearchPath
attrConstruct _ = constructLanguageManagerSearchPath
attrClear _ = clearLanguageManagerSearchPath
#endif
#if ENABLE_OVERLOADING
instance O.HasAttributeList LanguageManager
type instance O.AttributeList LanguageManager = LanguageManagerAttributeList
type LanguageManagerAttributeList = ('[ '("languageIds", LanguageManagerLanguageIdsPropertyInfo), '("searchPath", LanguageManagerSearchPathPropertyInfo)] :: [(Symbol, *)])
#endif
#if ENABLE_OVERLOADING
languageManagerLanguageIds :: AttrLabelProxy "languageIds"
languageManagerLanguageIds = AttrLabelProxy
languageManagerSearchPath :: AttrLabelProxy "searchPath"
languageManagerSearchPath = AttrLabelProxy
#endif
#if ENABLE_OVERLOADING
type instance O.SignalList LanguageManager = LanguageManagerSignalList
type LanguageManagerSignalList = ('[ '("notify", GObject.Object.ObjectNotifySignalInfo)] :: [(Symbol, *)])
#endif
foreign import ccall "gtk_source_language_manager_new" gtk_source_language_manager_new ::
IO (Ptr LanguageManager)
languageManagerNew ::
(B.CallStack.HasCallStack, MonadIO m) =>
m LanguageManager
languageManagerNew = liftIO $ do
result <- gtk_source_language_manager_new
checkUnexpectedReturnNULL "languageManagerNew" result
result' <- (wrapObject LanguageManager) result
return result'
#if ENABLE_OVERLOADING
#endif
foreign import ccall "gtk_source_language_manager_get_language" gtk_source_language_manager_get_language ::
Ptr LanguageManager ->
CString ->
IO (Ptr GtkSource.Language.Language)
languageManagerGetLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsLanguageManager a) =>
a
-> T.Text
-> m (Maybe GtkSource.Language.Language)
languageManagerGetLanguage lm id = liftIO $ do
lm' <- unsafeManagedPtrCastPtr lm
id' <- textToCString id
result <- gtk_source_language_manager_get_language lm' id'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.Language.Language) result'
return result''
touchManagedPtr lm
freeMem id'
return maybeResult
#if ENABLE_OVERLOADING
data LanguageManagerGetLanguageMethodInfo
instance (signature ~ (T.Text -> m (Maybe GtkSource.Language.Language)), MonadIO m, IsLanguageManager a) => O.MethodInfo LanguageManagerGetLanguageMethodInfo a signature where
overloadedMethod _ = languageManagerGetLanguage
#endif
foreign import ccall "gtk_source_language_manager_get_language_ids" gtk_source_language_manager_get_language_ids ::
Ptr LanguageManager ->
IO (Ptr CString)
languageManagerGetLanguageIds ::
(B.CallStack.HasCallStack, MonadIO m, IsLanguageManager a) =>
a
-> m (Maybe [T.Text])
languageManagerGetLanguageIds lm = liftIO $ do
lm' <- unsafeManagedPtrCastPtr lm
result <- gtk_source_language_manager_get_language_ids lm'
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- unpackZeroTerminatedUTF8CArray result'
return result''
touchManagedPtr lm
return maybeResult
#if ENABLE_OVERLOADING
data LanguageManagerGetLanguageIdsMethodInfo
instance (signature ~ (m (Maybe [T.Text])), MonadIO m, IsLanguageManager a) => O.MethodInfo LanguageManagerGetLanguageIdsMethodInfo a signature where
overloadedMethod _ = languageManagerGetLanguageIds
#endif
foreign import ccall "gtk_source_language_manager_get_search_path" gtk_source_language_manager_get_search_path ::
Ptr LanguageManager ->
IO (Ptr CString)
languageManagerGetSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsLanguageManager a) =>
a
-> m [T.Text]
languageManagerGetSearchPath lm = liftIO $ do
lm' <- unsafeManagedPtrCastPtr lm
result <- gtk_source_language_manager_get_search_path lm'
checkUnexpectedReturnNULL "languageManagerGetSearchPath" result
result' <- unpackZeroTerminatedUTF8CArray result
touchManagedPtr lm
return result'
#if ENABLE_OVERLOADING
data LanguageManagerGetSearchPathMethodInfo
instance (signature ~ (m [T.Text]), MonadIO m, IsLanguageManager a) => O.MethodInfo LanguageManagerGetSearchPathMethodInfo a signature where
overloadedMethod _ = languageManagerGetSearchPath
#endif
foreign import ccall "gtk_source_language_manager_guess_language" gtk_source_language_manager_guess_language ::
Ptr LanguageManager ->
CString ->
CString ->
IO (Ptr GtkSource.Language.Language)
languageManagerGuessLanguage ::
(B.CallStack.HasCallStack, MonadIO m, IsLanguageManager a) =>
a
-> Maybe (T.Text)
-> Maybe (T.Text)
-> m (Maybe GtkSource.Language.Language)
languageManagerGuessLanguage lm filename contentType = liftIO $ do
lm' <- unsafeManagedPtrCastPtr lm
maybeFilename <- case filename of
Nothing -> return nullPtr
Just jFilename -> do
jFilename' <- textToCString jFilename
return jFilename'
maybeContentType <- case contentType of
Nothing -> return nullPtr
Just jContentType -> do
jContentType' <- textToCString jContentType
return jContentType'
result <- gtk_source_language_manager_guess_language lm' maybeFilename maybeContentType
maybeResult <- convertIfNonNull result $ \result' -> do
result'' <- (newObject GtkSource.Language.Language) result'
return result''
touchManagedPtr lm
freeMem maybeFilename
freeMem maybeContentType
return maybeResult
#if ENABLE_OVERLOADING
data LanguageManagerGuessLanguageMethodInfo
instance (signature ~ (Maybe (T.Text) -> Maybe (T.Text) -> m (Maybe GtkSource.Language.Language)), MonadIO m, IsLanguageManager a) => O.MethodInfo LanguageManagerGuessLanguageMethodInfo a signature where
overloadedMethod _ = languageManagerGuessLanguage
#endif
foreign import ccall "gtk_source_language_manager_set_search_path" gtk_source_language_manager_set_search_path ::
Ptr LanguageManager ->
Ptr CString ->
IO ()
languageManagerSetSearchPath ::
(B.CallStack.HasCallStack, MonadIO m, IsLanguageManager a) =>
a
-> Maybe ([T.Text])
-> m ()
languageManagerSetSearchPath lm dirs = liftIO $ do
lm' <- unsafeManagedPtrCastPtr lm
maybeDirs <- case dirs of
Nothing -> return nullPtr
Just jDirs -> do
jDirs' <- packZeroTerminatedUTF8CArray jDirs
return jDirs'
gtk_source_language_manager_set_search_path lm' maybeDirs
touchManagedPtr lm
mapZeroTerminatedCArray freeMem maybeDirs
freeMem maybeDirs
return ()
#if ENABLE_OVERLOADING
data LanguageManagerSetSearchPathMethodInfo
instance (signature ~ (Maybe ([T.Text]) -> m ()), MonadIO m, IsLanguageManager a) => O.MethodInfo LanguageManagerSetSearchPathMethodInfo a signature where
overloadedMethod _ = languageManagerSetSearchPath
#endif
foreign import ccall "gtk_source_language_manager_get_default" gtk_source_language_manager_get_default ::
IO (Ptr LanguageManager)
languageManagerGetDefault ::
(B.CallStack.HasCallStack, MonadIO m) =>
m LanguageManager
languageManagerGetDefault = liftIO $ do
result <- gtk_source_language_manager_get_default
checkUnexpectedReturnNULL "languageManagerGetDefault" result
result' <- (newObject LanguageManager) result
return result'
#if ENABLE_OVERLOADING
#endif