{-# LINE 2 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}
-- -*-haskell-*-
-- GIMP Toolkit (GTK) Widget SourceView
--
-- Author : Peter Gavin, Andy Stewart
-- derived from sourceview bindings by Axel Simon and Duncan Coutts
--
-- Created: 18 December 2008
--
-- Copyright (C) 2004-2008 Peter Gavin, Duncan Coutts, Axel Simon
-- Copyright (C) 2010 Andy Stewart
--
-- This library is free software; you can redistribute it and/or
-- modify it under the terms of the GNU Lesser General Public
-- License as published by the Free Software Foundation; either
-- version 2.1 of the License, or (at your option) any later version.
--
-- This library is distributed in the hope that it will be useful,
-- but WITHOUT ANY WARRANTY; without even the implied warranty of
-- MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-- Lesser General Public License for more details.
--
-- |
-- Maintainer : gtk2hs-users@lists.sourceforge.net
-- Stability : provisional
-- Portability : portable (depends on GHC)
--
module Graphics.UI.Gtk.SourceView.SourceLanguageManager (
-- * Description
-- | 'SourceLanguageManager' is an object which processes language description files and creates and
-- stores 'SourceLanguage' objects, and provides API to access them. Use
-- 'sourceLanguageManagerGetDefault' to retrieve the default instance of
-- 'SourceLanguageManager', and 'sourceLanguageManagerGuessLanguage' to get a
-- 'SourceLanguage' for given file name and content type.

-- * Types
  SourceLanguageManager,
  SourceLanguageManagerClass,

-- * Methods
  castToSourceLanguageManager,
  gTypeSourceLanguageManager,
  toSourceLanguageManager,
  sourceLanguageManagerNew,
  sourceLanguageManagerGetDefault,
  sourceLanguageManagerSetSearchPath,
  sourceLanguageManagerGetSearchPath,
  sourceLanguageManagerGetLanguageIds,
  sourceLanguageManagerGetLanguage,
  sourceLanguageManagerGuessLanguage,

-- * Attributes
  sourceLanguageManagerLanguageIds,
  sourceLanguageManagerSearchPath,
  ) where

import Control.Monad (liftM)
import Data.Maybe (fromMaybe)

import System.Glib.Attributes
import System.Glib.FFI
import System.Glib.GObject (wrapNewGObject, makeNewGObject)
import System.Glib.Properties
import System.Glib.UTFString

import Graphics.UI.Gtk.SourceView.Types
{-# LINE 67 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}


{-# LINE 69 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}

-- | Creates a new language manager. If you do not need more than one language manager or a private
-- language manager instance then use 'sourceLanguageManagerGetDefault' instead.
--
sourceLanguageManagerNew :: IO SourceLanguageManager
sourceLanguageManagerNew = wrapNewGObject mkSourceLanguageManager $ liftM castPtr
  gtk_source_language_manager_new
{-# LINE 76 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}

-- | Returns the default 'SourceLanguageManager' instance.
--
sourceLanguageManagerGetDefault :: IO SourceLanguageManager
sourceLanguageManagerGetDefault = wrapNewGObject mkSourceLanguageManager $ liftM castPtr
  gtk_source_language_manager_get_default
{-# LINE 82 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}

-- | Sets the list of directories where the lm looks for language files. If dirs is 'Nothing', the search path
-- is reset to default.
--
-- Note
--
-- At the moment this function can be called only before the language files are loaded for the first
-- time. In practice to set a custom search path for a 'SourceLanguageManager', you have to call this
-- function right after creating it.
--
sourceLanguageManagerSetSearchPath :: (SourceLanguageManagerClass slm, GlibFilePath fp) => slm -> Maybe [fp] -> IO ()
sourceLanguageManagerSetSearchPath slm dirs =
  maybeWith withUTFFilePathArray0 dirs $ \dirsPtr -> do
    (\(SourceLanguageManager arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_language_manager_set_search_path argPtr1 arg2) (toSourceLanguageManager slm) dirsPtr

-- | Gets the list directories where lm looks for language files.
--
sourceLanguageManagerGetSearchPath :: (SourceLanguageManagerClass slm, GlibFilePath fp) => slm -> IO [fp]
sourceLanguageManagerGetSearchPath slm = do
  dirsPtr <- (\(SourceLanguageManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_language_manager_get_search_path argPtr1) (toSourceLanguageManager slm)
  liftM (fromMaybe []) $ maybePeek peekUTFFilePathArray0 dirsPtr

-- | Returns the ids of the available languages.
--
sourceLanguageManagerGetLanguageIds :: (SourceLanguageManagerClass slm, GlibString string) => slm -> IO [string]
sourceLanguageManagerGetLanguageIds slm = do
  idsPtr <- (\(SourceLanguageManager arg1) -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_language_manager_get_language_ids argPtr1) (toSourceLanguageManager slm)
  liftM (fromMaybe []) $ maybePeek peekUTFStringArray0 idsPtr

-- | Gets the 'SourceLanguage' identified by the given id in the language manager.
--
sourceLanguageManagerGetLanguage :: (SourceLanguageManagerClass slm, GlibString string) => slm
                                 -> string -- ^ @id@ a language id.
                                 -> IO (Maybe SourceLanguage) -- ^ returns a 'SourceLanguage', or 'Nothing' if there is no language identified by the given id.
sourceLanguageManagerGetLanguage slm id = do
  slPtr <- liftM castPtr $
    withUTFString id ((\(SourceLanguageManager arg1) arg2 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_language_manager_get_language argPtr1 arg2) (toSourceLanguageManager slm))
  if slPtr /= nullPtr
    then liftM Just $ makeNewGObject mkSourceLanguage $ return slPtr
    else return Nothing

-- | Picks a 'SourceLanguage' for given file name and content type, according to the information in lang
-- files. Either filename or @contentType@ may be 'Nothing'.
--
sourceLanguageManagerGuessLanguage :: (SourceLanguageManagerClass slm, GlibFilePath fp, GlibString string) => slm
                                   -> Maybe fp -- ^ @filename@ a filename in Glib filename encoding, or 'Nothing'.
                                   -> Maybe string -- ^ @contentType@ a content type (as in GIO API), or 'Nothing'.
                                   -> IO (Maybe SourceLanguage) -- ^ returns a 'SourceLanguage', or 'Nothing' if there is no suitable language for given filename and/or @contentType@.
sourceLanguageManagerGuessLanguage slm filename contentType =
  maybeWith withUTFFilePath filename $ \cFilename ->
  maybeWith withUTFString contentType $ \cContentType -> do
    slPtr <- liftM castPtr $
      (\(SourceLanguageManager arg1) arg2 arg3 -> withForeignPtr arg1 $ \argPtr1 ->gtk_source_language_manager_guess_language argPtr1 arg2 arg3) (toSourceLanguageManager slm) cFilename cContentType
    if slPtr /= nullPtr
      then liftM Just $ makeNewGObject mkSourceLanguage $ return slPtr
      else return Nothing

-- | List of the ids of the available languages.
--
sourceLanguageManagerLanguageIds :: (SourceLanguageManagerClass slm, GlibString string) => ReadAttr slm [string]
sourceLanguageManagerLanguageIds =
  readAttrFromBoxedOpaqueProperty (liftM (fromMaybe []) . maybePeek peekUTFStringArray0 . castPtr)
                                  "language-ids" g_strv_get_type
{-# LINE 145 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}

-- | List of directories where the language specification files (.lang) are located.
--
sourceLanguageManagerSearchPath :: (SourceLanguageManagerClass slm, GlibString string) => ReadWriteAttr slm [string] (Maybe [string])
sourceLanguageManagerSearchPath =
  newAttr (objectGetPropertyBoxedOpaque (peekUTFStringArray0 . castPtr) gtype "search-path")
          (objectSetPropertyBoxedOpaque (\dirs f -> maybeWith withUTFStringArray0 dirs (f . castPtr)) gtype "search-path")
  where gtype = g_strv_get_type
{-# LINE 153 "./Graphics/UI/Gtk/SourceView/SourceLanguageManager.chs" #-}

foreign import ccall unsafe "gtk_source_language_manager_new"
  gtk_source_language_manager_new :: (IO (Ptr SourceLanguageManager))

foreign import ccall unsafe "gtk_source_language_manager_get_default"
  gtk_source_language_manager_get_default :: (IO (Ptr SourceLanguageManager))

foreign import ccall unsafe "gtk_source_language_manager_set_search_path"
  gtk_source_language_manager_set_search_path :: ((Ptr SourceLanguageManager) -> ((Ptr (Ptr CChar)) -> (IO ())))

foreign import ccall unsafe "gtk_source_language_manager_get_search_path"
  gtk_source_language_manager_get_search_path :: ((Ptr SourceLanguageManager) -> (IO (Ptr (Ptr CChar))))

foreign import ccall unsafe "gtk_source_language_manager_get_language_ids"
  gtk_source_language_manager_get_language_ids :: ((Ptr SourceLanguageManager) -> (IO (Ptr (Ptr CChar))))

foreign import ccall unsafe "gtk_source_language_manager_get_language"
  gtk_source_language_manager_get_language :: ((Ptr SourceLanguageManager) -> ((Ptr CChar) -> (IO (Ptr SourceLanguage))))

foreign import ccall unsafe "gtk_source_language_manager_guess_language"
  gtk_source_language_manager_guess_language :: ((Ptr SourceLanguageManager) -> ((Ptr CChar) -> ((Ptr CChar) -> (IO (Ptr SourceLanguage)))))

foreign import ccall safe "g_strv_get_type"
  g_strv_get_type :: CULong