diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,29 @@ +Copyright (c) <2009>, +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + * Neither the name of the author nor the names of contributors + may be used to endorse or promote products derived from this + software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED +TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/bindings-glib.cabal b/bindings-glib.cabal new file mode 100644 --- /dev/null +++ b/bindings-glib.cabal @@ -0,0 +1,67 @@ +cabal-version: >= 1.4 +name: bindings-glib +synopsis: + Low level bindings to GLib. +version: 0.1.5 +license: BSD3 +license-file: LICENSE +maintainer: Maurício C. Antunes +author: Maurício C. Antunes +build-type: Simple +category: FFI +bug-reports: http://bitbucket.org/mauricio/bindings-dsl/issues +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-DSL >= 1.0.7 && < 1.1 + pkgconfig-depends: glib-2.0 >= 2.22.2, gthread-2.0 >= 2.22.2 + exposed-modules: + Bindings.GLib + Bindings.GLib.Fundamentals + Bindings.GLib.Fundamentals.AtomicOperations + Bindings.GLib.Fundamentals.BasicTypes + Bindings.GLib.Fundamentals.ByteOrderMacros + Bindings.GLib.Fundamentals.LimitsOfBasicTypes + Bindings.GLib.Fundamentals.MiscellaneousMacros + Bindings.GLib.Fundamentals.NumericalDefinitions + Bindings.GLib.Fundamentals.StandardMacros + Bindings.GLib.Fundamentals.TypeConversionMacros + Bindings.GLib.Fundamentals.VersionInformation + Bindings.GLib.CoreApplicationSupport + Bindings.GLib.CoreApplicationSupport.AsynchronousQueues + Bindings.GLib.CoreApplicationSupport.ErrorReporting + Bindings.GLib.CoreApplicationSupport.MainEventLoop + Bindings.GLib.CoreApplicationSupport.MemoryAllocation + Bindings.GLib.CoreApplicationSupport.MessageLogging + Bindings.GLib.CoreApplicationSupport.MessageOutputAndDebuggingFunctions + Bindings.GLib.CoreApplicationSupport.ThreadPools + Bindings.GLib.CoreApplicationSupport.Threads + Bindings.GLib.Utilities + Bindings.GLib.Utilities.CommandlineOptionParser + Bindings.GLib.Utilities.DateAndTimeFunctions + Bindings.GLib.Utilities.HostnameUtilities + Bindings.GLib.Utilities.SimpleXmlSubsetParser + Bindings.GLib.Utilities.UnicodeManipulation + Bindings.GLib.DataTypes + Bindings.GLib.DataTypes.Arrays + Bindings.GLib.DataTypes.BalancedBinaryTrees + Bindings.GLib.DataTypes.Datasets + Bindings.GLib.DataTypes.DoublyLinkedLists + Bindings.GLib.DataTypes.HashTables + Bindings.GLib.DataTypes.MemorySlices + Bindings.GLib.DataTypes.NAryTrees + Bindings.GLib.DataTypes.PointerArrays + Bindings.GLib.DataTypes.Quarks + Bindings.GLib.DataTypes.SinglyLinkedLists + Bindings.GLib.DataTypes.StringChunks + Bindings.GLib.DataTypes.Strings + Bindings.GLib.DataTypes.TrashStacks + c-sources: + src/datatypes.narytrees.c + src/datatypes.pointerarrays.c + src/datatypes.singlylinkedlists.c + src/inlines.c + src/utilities.unicodemanipulation.c diff --git a/gen_cabal.sh b/gen_cabal.sh new file mode 100644 --- /dev/null +++ b/gen_cabal.sh @@ -0,0 +1,59 @@ +#!/bin/sh + +cat <<-"(head-end)" + cabal-version: >= 1.4 + name: bindings-glib + synopsis: + Low level bindings to GLib. + version: 0.1.5 + license: BSD3 + license-file: LICENSE + maintainer: Maurício C. Antunes + author: Maurício C. Antunes + build-type: Simple + category: FFI + bug-reports: http://bitbucket.org/mauricio/bindings-dsl/issues + library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-DSL >= 1.0.7 && < 1.1 + pkgconfig-depends: glib-2.0 >= 2.22.2, gthread-2.0 >= 2.22.2 +(head-end) + +printf " exposed-modules:\n Bindings.GLib\n" + +base="\ + Fundamentals:library.gnome.org/devel/glib/stable/glib-fundamentals.html \ + CoreApplicationSupport:library.gnome.org/devel/glib/stable/glib-core.html \ + Utilities:library.gnome.org/devel/glib/stable/glib-utilities.html \ + DataTypes:library.gnome.org/devel/glib/stable/glib-data-types.html" + +imports=$(mktemp) + +for b in $base ; do + module=$(printf "%s" $b | cut -d ':' -f 1) + printf " Bindings.GLib.%s\n" $module + dir=src/Bindings/GLib/$module + doc=$(printf "%s" $b | cut -d ':' -f 2) + printf -- "-- | \nmodule Bindings.GLib.%s (\n" $doc $module > $dir.hs + printf " ) where\n" > $imports + sub=$(ls -1 $dir | grep '.hsc$' | sed 's/\.hsc$//') + for s in $sub ; do + printf " Bindings.GLib.%s.%s\n" $module $s + printf " module Bindings.GLib.%s.%s,\n" $module $s >> $dir.hs + printf "import Bindings.GLib.%s.%s\n" $module $s >> $imports + done + cat $imports >> $dir.hs +done + +rm $imports + +printf " c-sources:\n" + +for f in $(ls -1 src/*.c) ; do + printf " %s\n" $f +done + diff --git a/src/Bindings/GLib.hs b/src/Bindings/GLib.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib.hs @@ -0,0 +1,1 @@ +module Bindings.GLib (module Bindings.GLib.CoreApplicationSupport,module Bindings.GLib.DataTypes,module Bindings.GLib.Fundamentals,module Bindings.GLib.Utilities) where {import Bindings.GLib.CoreApplicationSupport;import Bindings.GLib.DataTypes;import Bindings.GLib.Fundamentals;import Bindings.GLib.Utilities} diff --git a/src/Bindings/GLib/CoreApplicationSupport.hs b/src/Bindings/GLib/CoreApplicationSupport.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport.hs @@ -0,0 +1,19 @@ +-- | +module Bindings.GLib.CoreApplicationSupport ( + module Bindings.GLib.CoreApplicationSupport.AsynchronousQueues, + module Bindings.GLib.CoreApplicationSupport.ErrorReporting, + module Bindings.GLib.CoreApplicationSupport.MainEventLoop, + module Bindings.GLib.CoreApplicationSupport.MemoryAllocation, + module Bindings.GLib.CoreApplicationSupport.MessageLogging, + module Bindings.GLib.CoreApplicationSupport.MessageOutputAndDebuggingFunctions, + module Bindings.GLib.CoreApplicationSupport.ThreadPools, + module Bindings.GLib.CoreApplicationSupport.Threads, + ) where +import Bindings.GLib.CoreApplicationSupport.AsynchronousQueues +import Bindings.GLib.CoreApplicationSupport.ErrorReporting +import Bindings.GLib.CoreApplicationSupport.MainEventLoop +import Bindings.GLib.CoreApplicationSupport.MemoryAllocation +import Bindings.GLib.CoreApplicationSupport.MessageLogging +import Bindings.GLib.CoreApplicationSupport.MessageOutputAndDebuggingFunctions +import Bindings.GLib.CoreApplicationSupport.ThreadPools +import Bindings.GLib.CoreApplicationSupport.Threads diff --git a/src/Bindings/GLib/CoreApplicationSupport/AsynchronousQueues.hsc b/src/Bindings/GLib/CoreApplicationSupport/AsynchronousQueues.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/AsynchronousQueues.hsc @@ -0,0 +1,36 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.AsynchronousQueues where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.Utilities.DateAndTimeFunctions +import Bindings.GLib.DataTypes.DoublyLinkedLists +import Bindings.GLib.DataTypes.Datasets + +#opaque_t GAsyncQueue + +#ccall g_async_queue_new , IO (Ptr ) +#ccall g_async_queue_new_full , -> IO (Ptr ) +#ccall g_async_queue_ref , Ptr -> IO (Ptr ) +#ccall g_async_queue_unref , Ptr -> IO () +#ccall g_async_queue_push , Ptr -> -> IO () +#ccall g_async_queue_push_sorted , Ptr -> -> -> -> IO () +#ccall g_async_queue_pop , Ptr -> IO +#ccall g_async_queue_try_pop , Ptr -> IO +#ccall g_async_queue_timed_pop , Ptr -> Ptr -> IO +#ccall g_async_queue_length , Ptr -> IO +#ccall g_async_queue_sort , Ptr -> -> -> IO () + +#ccall g_async_queue_lock , Ptr -> IO () +#ccall g_async_queue_unlock , Ptr -> IO () +#ccall g_async_queue_push_unlocked , Ptr -> -> IO () +#ccall g_async_queue_push_sorted_unlocked , Ptr -> -> -> -> IO () +#ccall g_async_queue_pop_unlocked , Ptr -> IO +#ccall g_async_queue_try_pop_unlocked , Ptr -> IO +#ccall g_async_queue_timed_pop_unlocked , Ptr -> Ptr -> IO +#ccall g_async_queue_length_unlocked , Ptr -> IO +#ccall g_async_queue_sort_unlocked , Ptr -> -> -> IO () + diff --git a/src/Bindings/GLib/CoreApplicationSupport/ErrorReporting.hsc b/src/Bindings/GLib/CoreApplicationSupport/ErrorReporting.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/ErrorReporting.hsc @@ -0,0 +1,24 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.ErrorReporting where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.Quarks + +#starttype GError +#field domain , +#field code , +#field message , Ptr +#stoptype + +#ccall g_error_new_literal , -> -> Ptr -> IO (Ptr ) +#ccall g_error_free , Ptr -> IO () +#ccall g_error_copy , Ptr -> IO (Ptr ) +#ccall g_error_matches , Ptr -> -> -> IO +#ccall g_set_error_literal , Ptr (Ptr ) -> -> -> Ptr -> IO () +#ccall g_propagate_error , Ptr (Ptr ) -> Ptr -> IO () +#ccall g_clear_error , Ptr (Ptr ) -> IO () + diff --git a/src/Bindings/GLib/CoreApplicationSupport/MainEventLoop.hsc b/src/Bindings/GLib/CoreApplicationSupport/MainEventLoop.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/MainEventLoop.hsc @@ -0,0 +1,132 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.MainEventLoop where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.Utilities.DateAndTimeFunctions +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.CoreApplicationSupport.Threads + +#opaque_t GMainLoop + +#ccall g_main_loop_new , Ptr -> -> IO (Ptr ) +#ccall g_main_loop_ref , Ptr -> IO (Ptr ) +#ccall g_main_loop_unref , Ptr -> IO () +#ccall g_main_loop_run , Ptr -> IO () +#ccall g_main_loop_quit , Ptr -> IO () +#ccall g_main_loop_is_running , Ptr -> IO +#ccall g_main_loop_get_context , Ptr -> IO (Ptr ) + +#num G_PRIORITY_HIGH +#num G_PRIORITY_DEFAULT +#num G_PRIORITY_HIGH_IDLE +#num G_PRIORITY_DEFAULT_IDLE +#num G_PRIORITY_LOW + +#opaque_t GMainContext + +#ccall g_main_context_new , IO (Ptr ) +#ccall g_main_context_ref , Ptr -> IO (Ptr ) +#ccall g_main_context_unref , Ptr -> IO () +#ccall g_main_context_default , IO (Ptr ) +#ccall g_main_context_iteration , Ptr -> -> IO +#ccall g_main_context_pending , Ptr -> IO +#ccall g_main_context_find_source_by_id , Ptr -> -> IO (Ptr ) +#ccall g_main_context_find_source_by_user_data , Ptr -> -> IO (Ptr ) +#ccall g_main_context_find_source_by_funcs_user_data , Ptr -> Ptr -> -> IO (Ptr ) +#ccall g_main_context_wakeup , Ptr -> IO () +#ccall g_main_context_acquire , Ptr -> IO +#ccall g_main_context_release , Ptr -> IO () +#ccall g_main_context_is_owner , Ptr -> IO +#ccall g_main_context_wait , Ptr -> Ptr -> Ptr -> IO +#ccall g_main_context_prepare , Ptr -> Ptr -> IO +#ccall g_main_context_query , Ptr -> -> Ptr -> Ptr -> -> IO +#ccall g_main_context_check , Ptr -> -> Ptr -> -> IO +#ccall g_main_context_dispatch , Ptr -> IO () +#ccall g_main_context_set_poll_func , Ptr -> -> IO () +#ccall g_main_context_get_poll_func , Ptr -> IO + +#callback GPollFunc , Ptr -> -> -> IO + +#ccall g_main_context_add_poll , Ptr -> Ptr -> -> IO () +#ccall g_main_context_remove_poll , Ptr -> Ptr -> IO () +#ccall g_main_depth , IO +#ccall g_main_current_source , IO (Ptr ) + +#ccall g_main_context_get_thread_default , IO (Ptr ) +#ccall g_main_context_push_thread_default , Ptr -> IO () +#ccall g_main_context_pop_thread_default , Ptr -> IO () + +#ccall g_timeout_source_new , -> IO (Ptr ) +#ccall g_timeout_source_new_seconds , -> IO (Ptr ) +#ccall g_timeout_add , -> -> -> IO +#ccall g_timeout_add_full , -> -> -> -> -> IO +#ccall g_timeout_add_seconds , -> -> -> IO +#ccall g_timeout_add_seconds_full , -> -> -> -> -> IO + +#ccall g_idle_source_new , IO (Ptr ) +#ccall g_idle_add , -> -> IO +#ccall g_idle_add_full , -> -> -> -> IO +#ccall g_idle_remove_by_data , -> IO + +#integral_t GPid + +#callback GChildWatchFunc , -> -> -> IO () + +#ccall g_child_watch_source_new , -> IO (Ptr ) +#ccall g_child_watch_add , -> -> -> IO +#ccall g_child_watch_add_full , -> -> -> -> -> IO + +#starttype GPollFD +#field events , +#field revents , +#stoptype + +#ccall g_poll , Ptr -> -> -> IO + +#opaque_t GSource + +#callback GSourceDummyMarshal , IO () + +#starttype GSourceFuncs +#field prepare , FunPtr (Ptr -> Ptr -> IO ) +#field check , FunPtr (Ptr -> IO ) +#field dispatch , FunPtr (Ptr -> -> -> IO ) +#field finalize , FunPtr (Ptr -> IO ()) +#field closure_callback , +#field closure_marshal , +#stoptype + +#starttype GSourceCallbackFuncs +#field ref , FunPtr ( -> IO ()) +#field unref , FunPtr ( -> IO ()) +#field get , FunPtr ( -> Ptr -> Ptr -> Ptr -> IO ()) +#stoptype + +#ccall g_source_new , Ptr -> -> IO (Ptr ) +#ccall g_source_ref , Ptr -> IO (Ptr ) +#ccall g_source_unref , Ptr -> IO () +#ccall g_source_set_funcs , Ptr -> Ptr -> IO () +#ccall g_source_attach , Ptr -> Ptr -> IO +#ccall g_source_destroy , Ptr -> IO () +#ccall g_source_is_destroyed , Ptr -> IO +#ccall g_source_set_priority , Ptr -> -> IO () +#ccall g_source_get_priority , Ptr -> IO +#ccall g_source_set_can_recurse , Ptr -> -> IO () +#ccall g_source_get_can_recurse , Ptr -> IO +#ccall g_source_get_id , Ptr -> IO +#ccall g_source_get_context , Ptr -> IO (Ptr ) +#ccall g_source_set_callback , Ptr -> -> -> -> IO () + +#callback GSourceFunc , -> IO + +#ccall g_source_set_callback_indirect , Ptr -> -> Ptr -> IO () +#ccall g_source_add_poll , Ptr -> Ptr -> IO () +#ccall g_source_remove_poll , Ptr -> Ptr -> IO () +#ccall g_source_get_current_time , Ptr -> Ptr -> IO () +#ccall g_source_remove , -> IO +#ccall g_source_remove_by_funcs_user_data , Ptr -> -> IO +#ccall g_source_remove_by_user_data , -> IO diff --git a/src/Bindings/GLib/CoreApplicationSupport/MemoryAllocation.hsc b/src/Bindings/GLib/CoreApplicationSupport/MemoryAllocation.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/MemoryAllocation.hsc @@ -0,0 +1,35 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.MemoryAllocation where +import Bindings.GLib.Fundamentals.BasicTypes +#strict_import + +#ccall g_malloc , -> IO +#ccall g_malloc0 , -> IO +#ccall g_realloc , -> -> IO +#ccall g_try_malloc , -> IO +#ccall g_try_malloc0 , -> IO +#ccall g_try_realloc , -> -> IO +#ccall g_free , -> IO () +#globalvar g_mem_gc_friendly , + +#ccall g_memdup , -> -> IO + +#starttype GMemVTable +#field malloc , FunPtr ( -> IO ) +#field realloc , FunPtr ( -> -> IO ) +#field free , FunPtr ( -> IO ()) +#field calloc , FunPtr ( -> -> IO ) +#field try_malloc , FunPtr ( -> IO ) +#field try_realloc , FunPtr ( -> -> IO ) +#stoptype + +#ccall g_mem_set_vtable , Ptr -> IO () +#ccall g_mem_is_system_malloc , IO + +#globalvar glib_mem_profiler_table , Ptr +#ccall g_mem_profile , IO () + diff --git a/src/Bindings/GLib/CoreApplicationSupport/MessageLogging.hsc b/src/Bindings/GLib/CoreApplicationSupport/MessageLogging.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/MessageLogging.hsc @@ -0,0 +1,34 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.MessageLogging where +#strict_import +import Bindings.GLib.Fundamentals + +#pointer G_LOG_DOMAIN +#num G_LOG_FATAL_MASK +#num G_LOG_LEVEL_USER_SHIFT + +#callback GLogFunc , Ptr -> -> Ptr -> -> IO () + +#integral_t GLogLevelFlags + +#num G_LOG_FLAG_RECURSION +#num G_LOG_FLAG_FATAL +#num G_LOG_LEVEL_ERROR +#num G_LOG_LEVEL_CRITICAL +#num G_LOG_LEVEL_WARNING +#num G_LOG_LEVEL_MESSAGE +#num G_LOG_LEVEL_INFO +#num G_LOG_LEVEL_DEBUG +#num G_LOG_LEVEL_MASK + +#ccall g_log_set_handler , Ptr -> -> -> -> IO +#ccall g_log_remove_handler , Ptr -> -> IO () +#ccall g_log_set_always_fatal , -> IO +#ccall g_log_set_fatal_mask , Ptr -> -> IO +#ccall g_log_default_handler , Ptr -> -> Ptr -> -> IO () +#ccall g_log_set_default_handler , -> -> IO + diff --git a/src/Bindings/GLib/CoreApplicationSupport/MessageOutputAndDebuggingFunctions.hsc b/src/Bindings/GLib/CoreApplicationSupport/MessageOutputAndDebuggingFunctions.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/MessageOutputAndDebuggingFunctions.hsc @@ -0,0 +1,18 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.MessageOutputAndDebuggingFunctions where +#strict_import +import Bindings.GLib.Fundamentals + +#ccall g_set_print_handler , Ptr -> IO + +#callback GPrintFunc , Ptr -> IO () + +#ccall g_set_printerr_handler , -> IO + +#ccall g_on_error_query , Ptr -> IO () +#ccall g_on_error_stack_trace , Ptr -> IO () + diff --git a/src/Bindings/GLib/CoreApplicationSupport/ThreadPools.hsc b/src/Bindings/GLib/CoreApplicationSupport/ThreadPools.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/ThreadPools.hsc @@ -0,0 +1,32 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.ThreadPools where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.CoreApplicationSupport.ErrorReporting +import Bindings.GLib.DataTypes.DoublyLinkedLists + +#starttype GThreadPool +#field func , +#field user_data , +#field exclusive , +#stoptype + +#ccall g_thread_pool_new , -> -> -> -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_thread_pool_push , Ptr -> -> Ptr (Ptr ) -> IO () +#ccall g_thread_pool_set_max_threads , Ptr -> -> Ptr (Ptr ) -> IO () +#ccall g_thread_pool_get_max_threads , Ptr -> IO +#ccall g_thread_pool_get_num_threads , Ptr -> IO +#ccall g_thread_pool_unprocessed , Ptr -> IO +#ccall g_thread_pool_free , Ptr -> -> -> IO () +#ccall g_thread_pool_set_max_unused_threads , -> IO () +#ccall g_thread_pool_get_max_unused_threads , IO +#ccall g_thread_pool_get_num_unused_threads , IO +#ccall g_thread_pool_stop_unused_threads , IO () +#ccall g_thread_pool_set_sort_function , Ptr -> -> -> IO () +#ccall g_thread_pool_set_max_idle_time , -> IO () +#ccall g_thread_pool_get_max_idle_time , IO + diff --git a/src/Bindings/GLib/CoreApplicationSupport/Threads.hsc b/src/Bindings/GLib/CoreApplicationSupport/Threads.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/CoreApplicationSupport/Threads.hsc @@ -0,0 +1,145 @@ +#include +#include + +-- | + +module Bindings.GLib.CoreApplicationSupport.Threads where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.Utilities.DateAndTimeFunctions +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.DataTypes.DoublyLinkedLists +import Bindings.GLib.CoreApplicationSupport.ErrorReporting + +#num G_THREAD_ERROR + +#integral_t GThreadError + +#num G_THREAD_ERROR_AGAIN + +#starttype GThreadFunctions +#field mutex_new , FunPtr (IO (Ptr )) +#field mutex_lock , FunPtr (Ptr -> IO ()) +#field mutex_trylock , FunPtr (Ptr -> IO ) +#field mutex_unlock , FunPtr (Ptr -> IO ()) +#field mutex_free , FunPtr (Ptr -> IO ()) +#field cond_new , FunPtr (IO (Ptr )) +#field cond_signal , FunPtr (Ptr -> IO ()) +#field cond_broadcast , FunPtr (Ptr -> IO ()) +#field cond_wait , FunPtr (Ptr -> Ptr -> IO ()) +#field cond_timed_wait , FunPtr (Ptr -> Ptr -> Ptr -> IO ) +#field cond_free , FunPtr (Ptr -> IO ()) +#field private_new , FunPtr ( -> IO (Ptr )) +#field private_get , FunPtr (Ptr -> IO ) +#field private_set , FunPtr (Ptr -> -> IO ()) +#field thread_create , FunPtr ( -> -> -> -> -> -> -> Ptr (Ptr ) -> IO ()) +#field thread_yield , FunPtr (IO ()) +#field thread_join , FunPtr ( -> IO ()) +#field thread_exit , FunPtr (IO ()) +#field thread_set_priority , FunPtr ( -> -> IO ()) +#field thread_self , FunPtr ( -> IO ()) +#field thread_equal , FunPtr ( -> -> IO ) +#stoptype + +#ccall g_thread_init , Ptr -> IO () +#cinline g_thread_supported , IO +#ccall g_thread_get_initialized , IO + +#callback GThreadFunc , -> IO + +#integral_t GThreadPriority + +#num G_THREAD_PRIORITY_LOW +#num G_THREAD_PRIORITY_NORMAL +#num G_THREAD_PRIORITY_HIGH +#num G_THREAD_PRIORITY_URGENT + +#opaque_t GThread + +#cinline g_thread_create , -> -> -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_thread_create_full , -> -> -> -> -> -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_thread_self , IO (Ptr ) +#ccall g_thread_join , Ptr -> IO +#ccall g_thread_set_priority , Ptr -> -> IO () +#cinline g_thread_yield , IO () +#ccall g_thread_exit , -> IO () +#ccall g_thread_foreach , -> -> IO () + +#opaque_t GMutex + +#cinline g_mutex_new , IO (Ptr ) +#cinline g_mutex_lock , Ptr -> IO () +#cinline g_mutex_trylock , Ptr -> IO +#cinline g_mutex_unlock , Ptr -> IO () +#cinline g_mutex_free , Ptr -> IO () + +#starttype GStaticMutex +#stoptype + +#cinline g_static_mutex_init , Ptr -> IO () +#cinline g_static_mutex_lock , Ptr -> IO () +#cinline g_static_mutex_trylock , Ptr -> IO +#cinline g_static_mutex_unlock , Ptr -> IO () +#cinline g_static_mutex_get_mutex , Ptr -> IO (Ptr ) +#cinline g_static_mutex_free , Ptr -> IO () + +#starttype GStaticRecMutex +#stoptype + +#ccall g_static_rec_mutex_init , Ptr -> IO () +#ccall g_static_rec_mutex_lock , Ptr -> IO () +#ccall g_static_rec_mutex_trylock , Ptr -> IO +#ccall g_static_rec_mutex_unlock , Ptr -> IO () +#ccall g_static_rec_mutex_lock_full , Ptr -> -> IO () +#ccall g_static_rec_mutex_unlock_full , Ptr -> IO +#ccall g_static_rec_mutex_free , Ptr -> IO () + +#starttype GStaticRWLock +#stoptype + +#ccall g_static_rw_lock_init , Ptr -> IO () +#ccall g_static_rw_lock_reader_lock , Ptr -> IO () +#ccall g_static_rw_lock_reader_trylock , Ptr -> IO +#ccall g_static_rw_lock_reader_unlock , Ptr -> IO () +#ccall g_static_rw_lock_writer_lock , Ptr -> IO () +#ccall g_static_rw_lock_writer_trylock , Ptr -> IO +#ccall g_static_rw_lock_writer_unlock , Ptr -> IO () +#ccall g_static_rw_lock_free , Ptr -> IO () + +#opaque_t GCond + +#cinline g_cond_new , IO (Ptr ) +#cinline g_cond_signal , Ptr -> IO () +#cinline g_cond_broadcast , Ptr -> IO () +#cinline g_cond_wait , Ptr -> Ptr -> IO () +#cinline g_cond_timed_wait , Ptr -> Ptr -> Ptr -> IO +#cinline g_cond_free , Ptr -> IO () + +#opaque_t GPrivate + +#cinline g_private_new , -> IO (Ptr ) +#cinline g_private_get , Ptr -> IO +#cinline g_private_set , Ptr -> -> IO () + +#starttype GStaticPrivate +#stoptype + +#ccall g_static_private_init , Ptr -> IO () +#ccall g_static_private_get , Ptr -> IO +#ccall g_static_private_set , Ptr -> -> -> IO () +#ccall g_static_private_free , Ptr -> IO () + +#starttype GOnce +#field status , +#field retval , +#stoptype + +#integral_t GOnceStatus + +#num G_ONCE_STATUS_NOTCALLED +#num G_ONCE_STATUS_PROGRESS +#num G_ONCE_STATUS_READY + +#ccall g_once_init_enter , Ptr -> IO +#ccall g_once_init_leave , Ptr -> -> IO () + diff --git a/src/Bindings/GLib/DataTypes.hs b/src/Bindings/GLib/DataTypes.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes.hs @@ -0,0 +1,29 @@ +-- | +module Bindings.GLib.DataTypes ( + module Bindings.GLib.DataTypes.Arrays, + module Bindings.GLib.DataTypes.BalancedBinaryTrees, + module Bindings.GLib.DataTypes.Datasets, + module Bindings.GLib.DataTypes.DoublyLinkedLists, + module Bindings.GLib.DataTypes.HashTables, + module Bindings.GLib.DataTypes.MemorySlices, + module Bindings.GLib.DataTypes.NAryTrees, + module Bindings.GLib.DataTypes.PointerArrays, + module Bindings.GLib.DataTypes.Quarks, + module Bindings.GLib.DataTypes.SinglyLinkedLists, + module Bindings.GLib.DataTypes.StringChunks, + module Bindings.GLib.DataTypes.Strings, + module Bindings.GLib.DataTypes.TrashStacks, + ) where +import Bindings.GLib.DataTypes.Arrays +import Bindings.GLib.DataTypes.BalancedBinaryTrees +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.DataTypes.DoublyLinkedLists +import Bindings.GLib.DataTypes.HashTables +import Bindings.GLib.DataTypes.MemorySlices +import Bindings.GLib.DataTypes.NAryTrees +import Bindings.GLib.DataTypes.PointerArrays +import Bindings.GLib.DataTypes.Quarks +import Bindings.GLib.DataTypes.SinglyLinkedLists +import Bindings.GLib.DataTypes.StringChunks +import Bindings.GLib.DataTypes.Strings +import Bindings.GLib.DataTypes.TrashStacks diff --git a/src/Bindings/GLib/DataTypes/Arrays.hsc b/src/Bindings/GLib/DataTypes/Arrays.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/Arrays.hsc @@ -0,0 +1,35 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.Arrays where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.DoublyLinkedLists + +#starttype GArray +#field data , Ptr +#field len , +#stoptype + +#ccall g_array_new , -> -> -> IO (Ptr ) +#ccall g_array_sized_new , -> -> -> -> IO (Ptr ) +#ccall g_array_ref , Ptr -> IO (Ptr ) +#ccall g_array_unref , Ptr -> IO () +#ccall g_array_get_element_size , Ptr -> IO + +#ccall g_array_append_vals , Ptr -> -> -> IO (Ptr ) + +#ccall g_array_prepend_vals , Ptr -> -> -> IO (Ptr ) + +#ccall g_array_insert_vals , Ptr -> -> -> -> IO (Ptr ) +#ccall g_array_remove_index , Ptr -> -> IO (Ptr ) +#ccall g_array_remove_index_fast , Ptr -> -> IO (Ptr ) +#ccall g_array_remove_range , Ptr -> -> -> IO (Ptr ) +#ccall g_array_sort , Ptr -> -> IO () +#ccall g_array_sort_with_data , Ptr -> -> -> IO () + +#ccall g_array_set_size , Ptr -> -> IO (Ptr ) +#ccall g_array_free , Ptr -> -> IO (Ptr ) + diff --git a/src/Bindings/GLib/DataTypes/BalancedBinaryTrees.hsc b/src/Bindings/GLib/DataTypes/BalancedBinaryTrees.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/BalancedBinaryTrees.hsc @@ -0,0 +1,39 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.BalancedBinaryTrees where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.DataTypes.DoublyLinkedLists + +#opaque_t GTree + +#ccall g_tree_new , -> IO (Ptr ) +#ccall g_tree_ref , Ptr -> IO (Ptr ) +#ccall g_tree_unref , Ptr -> IO () +#ccall g_tree_new_with_data , -> -> IO (Ptr ) +#ccall g_tree_new_full , -> -> -> -> IO (Ptr ) +#ccall g_tree_insert , Ptr -> -> -> IO () +#ccall g_tree_replace , Ptr -> -> -> IO () +#ccall g_tree_nnodes , Ptr -> IO +#ccall g_tree_height , Ptr -> IO +#ccall g_tree_lookup , Ptr -> -> IO +#ccall g_tree_lookup_extended , Ptr -> -> Ptr -> Ptr -> IO +#ccall g_tree_foreach , Ptr -> -> -> IO () +#ccall g_tree_traverse , Ptr -> -> -> -> IO () + +#callback GTraverseFunc , -> -> -> IO + +#integral_t GTraverseType +#num G_IN_ORDER +#num G_PRE_ORDER +#num G_POST_ORDER +#num G_LEVEL_ORDER + +#ccall g_tree_search , Ptr -> -> -> IO +#ccall g_tree_remove , Ptr -> -> IO +#ccall g_tree_steal , Ptr -> -> IO +#ccall g_tree_destroy , Ptr -> IO () diff --git a/src/Bindings/GLib/DataTypes/Datasets.hsc b/src/Bindings/GLib/DataTypes/Datasets.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/Datasets.hsc @@ -0,0 +1,31 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.Datasets where +#strict_import +import Bindings.GLib.Fundamentals.BasicTypes +import Bindings.GLib.DataTypes.Quarks + +#cinline g_dataset_id_set_data , -> -> -> IO () +#ccall g_dataset_id_set_data_full , -> -> -> -> IO () + +#callback GDestroyNotify , -> IO () + +#ccall g_dataset_id_get_data , -> -> IO +#cinline g_dataset_id_remove_data , -> -> IO () +#ccall g_dataset_id_remove_no_notify , -> -> IO + +#cinline g_dataset_set_data , -> Ptr -> -> IO () +#cinline g_dataset_set_data_full , -> Ptr -> -> -> IO () +#cinline g_dataset_get_data , -> Ptr -> IO +#cinline g_dataset_remove_data , -> Ptr -> IO +#cinline g_dataset_remove_no_notify , -> Ptr -> IO + +#ccall g_dataset_foreach , -> -> -> IO () + +#callback GDataForeachFunc , -> -> -> IO () + +#ccall g_dataset_destroy , -> IO () + diff --git a/src/Bindings/GLib/DataTypes/DoublyLinkedLists.hsc b/src/Bindings/GLib/DataTypes/DoublyLinkedLists.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/DoublyLinkedLists.hsc @@ -0,0 +1,60 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.DoublyLinkedLists where +#strict_import +import Bindings.GLib.Fundamentals + +#starttype GList +#field data , +#field next , Ptr +#field prev , Ptr +#stoptype + +#ccall g_list_append , Ptr -> -> IO (Ptr ) +#ccall g_list_prepend , Ptr -> -> IO (Ptr ) +#ccall g_list_insert , Ptr -> -> -> IO (Ptr ) +#ccall g_list_insert_before , Ptr -> Ptr -> -> IO (Ptr ) +#ccall g_list_insert_sorted , Ptr -> -> -> IO (Ptr ) +#ccall g_list_remove , Ptr -> -> IO (Ptr ) +#ccall g_list_remove_link , Ptr -> Ptr -> IO (Ptr ) +#ccall g_list_delete_link , Ptr -> Ptr -> IO (Ptr ) +#ccall g_list_remove_all , Ptr -> -> IO (Ptr ) +#ccall g_list_free , Ptr -> IO () + +#ccall g_list_alloc , IO (Ptr ) +#ccall g_list_free_1 , Ptr -> IO () +#cinline g_list_free1 , Ptr -> IO () + +#ccall g_list_length , Ptr -> IO +#ccall g_list_copy , Ptr -> IO (Ptr ) +#ccall g_list_reverse , Ptr -> IO (Ptr ) +#ccall g_list_sort , Ptr -> -> IO (Ptr ) + +#callback GCompareFunc , -> -> IO + +#ccall g_list_insert_sorted_with_data , Ptr -> -> -> -> IO (Ptr ) +#ccall g_list_sort_with_data , Ptr -> -> -> IO (Ptr ) + +#callback GCompareDataFunc , -> -> -> IO + +#ccall g_list_concat , Ptr -> Ptr -> IO (Ptr ) +#ccall g_list_foreach , Ptr -> -> -> IO () + +#callback GFunc , -> -> IO () + +#ccall g_list_first , Ptr -> IO (Ptr ) +#ccall g_list_last , Ptr -> IO (Ptr ) +#cinline g_list_previous , Ptr -> IO (Ptr ) +#cinline g_list_next , Ptr -> IO (Ptr ) +#ccall g_list_nth , Ptr -> -> IO (Ptr ) +#ccall g_list_nth_data , Ptr -> -> IO +#ccall g_list_nth_prev , Ptr -> -> IO (Ptr ) + +#ccall g_list_find , Ptr -> -> IO (Ptr ) +#ccall g_list_find_custom , Ptr -> -> -> IO (Ptr ) +#ccall g_list_position , Ptr -> Ptr -> IO +#ccall g_list_index , Ptr -> -> IO + diff --git a/src/Bindings/GLib/DataTypes/HashTables.hsc b/src/Bindings/GLib/DataTypes/HashTables.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/HashTables.hsc @@ -0,0 +1,63 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.HashTables where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.DataTypes.DoublyLinkedLists + +#opaque_t GHashTable + +#ccall g_hash_table_new , -> -> IO (Ptr ) +#ccall g_hash_table_new_full , -> -> -> -> IO (Ptr ) + +#callback GHashFunc , -> IO +#callback GEqualFunc , -> -> IO + +#ccall g_hash_table_insert , Ptr -> -> -> IO () +#ccall g_hash_table_replace , Ptr -> -> -> IO () +#ccall g_hash_table_size , Ptr -> IO +#ccall g_hash_table_lookup , Ptr -> -> IO +#ccall g_hash_table_lookup_extended , Ptr -> -> -> -> IO +#ccall g_hash_table_foreach , Ptr -> -> -> IO () +#ccall g_hash_table_find , Ptr -> -> -> IO + +#callback GHFunc , -> -> -> IO () + +#ccall g_hash_table_remove , Ptr -> -> IO +#ccall g_hash_table_steal , Ptr -> -> IO +#ccall g_hash_table_foreach_remove , Ptr -> -> -> IO +#ccall g_hash_table_foreach_steal , Ptr -> -> -> IO +#ccall g_hash_table_remove_all , Ptr -> IO () +#ccall g_hash_table_steal_all , Ptr -> IO () +#ccall g_hash_table_get_keys , Ptr -> IO (Ptr ) +#ccall g_hash_table_get_values , Ptr -> IO (Ptr ) + +#callback GHRFunc , -> -> -> IO + +#ccall g_hash_table_destroy , Ptr -> IO () +#ccall g_hash_table_ref , Ptr -> IO (Ptr ) +#ccall g_hash_table_unref , Ptr -> IO () + +#starttype GHashTableIter +#stoptype + +#ccall g_hash_table_iter_init , Ptr -> Ptr -> IO () +#ccall g_hash_table_iter_next , Ptr -> -> -> IO +#ccall g_hash_table_iter_get_hash_table , Ptr -> IO (Ptr ) +#ccall g_hash_table_iter_remove , Ptr -> IO () +#ccall g_hash_table_iter_steal , Ptr -> IO () + +#ccall g_direct_equal , -> -> IO +#ccall g_direct_hash , -> IO +#ccall g_int_equal , -> -> IO +#ccall g_int_hash , -> IO +#ccall g_int64_equal , -> -> IO +#ccall g_int64_hash , -> IO +#ccall g_double_equal , -> -> IO +#ccall g_double_hash , -> IO +#ccall g_str_equal , -> -> IO +#ccall g_str_hash , -> IO diff --git a/src/Bindings/GLib/DataTypes/MemorySlices.hsc b/src/Bindings/GLib/DataTypes/MemorySlices.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/MemorySlices.hsc @@ -0,0 +1,15 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.MemorySlices where +#strict_import +import Bindings.GLib.Fundamentals + +#ccall g_slice_alloc , -> IO +#ccall g_slice_alloc0 , -> IO +#ccall g_slice_copy , -> -> IO +#ccall g_slice_free1 , -> -> IO () +#ccall g_slice_free_chain_with_offset , -> -> -> IO () + diff --git a/src/Bindings/GLib/DataTypes/NAryTrees.hsc b/src/Bindings/GLib/DataTypes/NAryTrees.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/NAryTrees.hsc @@ -0,0 +1,83 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.NAryTrees where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.BalancedBinaryTrees + +#starttype GNode +#field data , +#field next , Ptr +#field prev , Ptr +#field parent , Ptr +#field children , Ptr +#stoptype + +#ccall g_node_new , -> IO (Ptr ) +#ccall g_node_copy , Ptr -> IO (Ptr ) + +#callback GCopyFunc , -> -> IO + +#ccall g_node_copy_deep , Ptr -> -> -> IO (Ptr ) + +#ccall g_node_insert , Ptr -> -> Ptr -> IO (Ptr ) +#ccall g_node_insert_before , Ptr -> Ptr -> Ptr -> IO (Ptr ) +#ccall g_node_insert_after , Ptr -> Ptr -> Ptr -> IO (Ptr ) + +#cinline g_node_append , Ptr -> Ptr -> IO (Ptr ) + +#ccall g_node_prepend , Ptr -> Ptr -> IO (Ptr ) + +#cinline g_node_insert_data , Ptr -> -> -> IO (Ptr ) +#cinline g_node_insert_data_before , Ptr -> Ptr -> -> IO (Ptr ) +#cinline g_node_append_data , Ptr -> -> IO (Ptr ) +#cinline g_node_prepend_data , Ptr -> -> IO (Ptr ) + +#ccall g_node_reverse_children , Ptr -> IO () +#ccall g_node_traverse , Ptr -> -> -> -> -> -> IO () + +#integral_t GTraverseFlags +#num G_TRAVERSE_LEAVES +#num G_TRAVERSE_NON_LEAVES +#num G_TRAVERSE_ALL +#num G_TRAVERSE_MASK +#num G_TRAVERSE_LEAFS +#num G_TRAVERSE_NON_LEAFS + +#callback GNodeTraverseFunc , Ptr -> -> IO + +#ccall g_node_children_foreach , Ptr -> -> -> -> IO () + +#callback GNodeForeachFunc , Ptr -> -> IO () + +#ccall g_node_get_root , Ptr -> IO (Ptr ) +#ccall g_node_find , Ptr -> -> -> -> IO (Ptr ) +#ccall g_node_find_child , Ptr -> -> -> IO (Ptr ) +#ccall g_node_child_index , Ptr -> -> IO +#ccall g_node_child_position , Ptr -> Ptr -> IO + +#cinline g_node_first_child , Ptr -> IO (Ptr ) + +#ccall g_node_last_child , Ptr -> IO (Ptr ) +#ccall g_node_nth_child , Ptr -> -> IO (Ptr ) +#ccall g_node_first_sibling , Ptr -> IO (Ptr ) + +#cinline g_node_next_sibling , Ptr -> IO (Ptr ) +#cinline g_node_prev_sibling , Ptr -> IO (Ptr ) + +#ccall g_node_last_sibling , Ptr -> IO (Ptr ) + +#cinline G_NODE_IS_LEAF , Ptr -> IO +#cinline G_NODE_IS_ROOT , Ptr -> IO + +#ccall g_node_depth , Ptr -> IO +#ccall g_node_n_nodes , Ptr -> -> IO +#ccall g_node_n_children , Ptr -> IO +#ccall g_node_is_ancestor , Ptr -> Ptr -> IO +#ccall g_node_max_height , Ptr -> IO + +#ccall g_node_unlink , Ptr -> IO () +#ccall g_node_destroy , Ptr -> IO () diff --git a/src/Bindings/GLib/DataTypes/PointerArrays.hsc b/src/Bindings/GLib/DataTypes/PointerArrays.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/PointerArrays.hsc @@ -0,0 +1,37 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.PointerArrays where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.DataTypes.Datasets +import Bindings.GLib.DataTypes.DoublyLinkedLists + +#starttype GPtrArray +#field pdata , Ptr +#field len , +#stoptype + +#ccall g_ptr_array_new , IO (Ptr ) +#ccall g_ptr_array_sized_new , -> IO (Ptr ) +#ccall g_ptr_array_new_with_free_func , -> IO (Ptr ) +#ccall g_ptr_array_set_free_func , Ptr -> -> IO () +#ccall g_ptr_array_ref , Ptr -> IO (Ptr ) +#ccall g_ptr_array_unref , Ptr -> IO () +#ccall g_ptr_array_add , Ptr -> -> IO () +#ccall g_ptr_array_remove , Ptr -> -> IO +#ccall g_ptr_array_remove_index , Ptr -> -> IO +#ccall g_ptr_array_remove_fast , Ptr -> -> IO +#ccall g_ptr_array_remove_index_fast , Ptr -> -> IO +#ccall g_ptr_array_remove_range , Ptr -> -> -> IO () +#ccall g_ptr_array_sort , Ptr -> -> IO () +#ccall g_ptr_array_sort_with_data , Ptr -> -> -> IO () +#ccall g_ptr_array_set_size , Ptr -> -> IO () + +#cinline g_ptr_array_index , Ptr -> -> IO + +#ccall g_ptr_array_free , Ptr -> -> IO (Ptr ) +#ccall g_ptr_array_foreach , Ptr -> -> -> IO () + diff --git a/src/Bindings/GLib/DataTypes/Quarks.hsc b/src/Bindings/GLib/DataTypes/Quarks.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/Quarks.hsc @@ -0,0 +1,18 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.Quarks where +#strict_import +import Bindings.GLib.Fundamentals + +#integral_t GQuark + +#ccall g_quark_from_string , Ptr -> IO +#ccall g_quark_from_static_string , Ptr -> IO +#ccall g_quark_to_string , -> IO (Ptr ) +#ccall g_quark_try_string , Ptr -> IO +#ccall g_intern_string , Ptr -> IO (Ptr ) +#ccall g_intern_static_string , Ptr -> IO (Ptr ) + diff --git a/src/Bindings/GLib/DataTypes/SinglyLinkedLists.hsc b/src/Bindings/GLib/DataTypes/SinglyLinkedLists.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/SinglyLinkedLists.hsc @@ -0,0 +1,50 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.SinglyLinkedLists where +import Bindings.GLib.DataTypes.DoublyLinkedLists +#strict_import +import Bindings.GLib.Fundamentals + +#starttype GSList +#field data , +#field next , Ptr +#stoptype + +#ccall g_slist_alloc , IO (Ptr ) +#ccall g_slist_append , Ptr -> -> IO (Ptr ) +#ccall g_slist_prepend , Ptr -> -> IO (Ptr ) +#ccall g_slist_insert , Ptr -> -> -> IO (Ptr ) +#ccall g_slist_insert_before , Ptr -> Ptr -> -> IO (Ptr ) +#ccall g_slist_insert_sorted , Ptr -> -> -> IO (Ptr ) +#ccall g_slist_remove , Ptr -> -> IO (Ptr ) +#ccall g_slist_remove_link , Ptr -> Ptr -> IO (Ptr ) +#ccall g_slist_delete_link , Ptr -> Ptr -> IO (Ptr ) +#ccall g_slist_remove_all , Ptr -> -> IO (Ptr ) +#ccall g_slist_free , Ptr -> IO () +#ccall g_slist_free_1 , Ptr -> IO () + +#cinline g_slist_free1 , Ptr -> IO () + +#ccall g_slist_length , Ptr -> IO +#ccall g_slist_copy , Ptr -> IO (Ptr ) +#ccall g_slist_reverse , Ptr -> IO (Ptr ) +#ccall g_slist_insert_sorted_with_data , Ptr -> -> -> -> IO (Ptr ) +#ccall g_slist_sort , Ptr -> -> IO (Ptr ) +#ccall g_slist_sort_with_data , Ptr -> -> -> IO (Ptr ) +#ccall g_slist_concat , Ptr -> Ptr -> IO (Ptr ) +#ccall g_slist_foreach , Ptr -> -> -> IO () +#ccall g_slist_last , Ptr -> IO (Ptr ) + +#cinline g_slist_next , Ptr -> IO (Ptr ) + +#ccall g_slist_nth , Ptr -> -> IO (Ptr ) +#ccall g_slist_nth_data , Ptr -> -> IO +#ccall g_slist_find , Ptr -> -> IO (Ptr ) +#ccall g_slist_find_custom , Ptr -> -> -> IO (Ptr ) +#ccall g_slist_position , Ptr -> Ptr -> IO +#ccall g_slist_index , Ptr -> -> IO +#ccall g_slist_push_allocator , -> IO () +#ccall g_slist_pop_allocator , IO () diff --git a/src/Bindings/GLib/DataTypes/StringChunks.hsc b/src/Bindings/GLib/DataTypes/StringChunks.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/StringChunks.hsc @@ -0,0 +1,18 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.StringChunks where +#strict_import +import Bindings.GLib.Fundamentals + +#opaque_t GStringChunk + +#ccall g_string_chunk_new , -> IO (Ptr ) +#ccall g_string_chunk_insert , Ptr -> Ptr -> IO (Ptr ) +#ccall g_string_chunk_insert_const , Ptr -> Ptr -> IO (Ptr ) +#ccall g_string_chunk_insert_len , Ptr -> Ptr -> -> IO (Ptr ) +#ccall g_string_chunk_clear , Ptr -> IO () +#ccall g_string_chunk_free , Ptr -> IO () + diff --git a/src/Bindings/GLib/DataTypes/Strings.hsc b/src/Bindings/GLib/DataTypes/Strings.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/Strings.hsc @@ -0,0 +1,53 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.Strings where +import Bindings.GLib.Fundamentals.BasicTypes +import Bindings.GLib.Utilities.UnicodeManipulation +#strict_import + +#starttype GString +#field str , Ptr +#field len , +#field allocated_len , +#stoptype + +#ccall g_string_new , Ptr -> IO (Ptr ) +#ccall g_string_new_len , Ptr -> -> IO (Ptr ) +#ccall g_string_sized_new , -> IO (Ptr ) +#ccall g_string_assign , Ptr -> Ptr -> IO (Ptr ) +#ccall g_string_append , Ptr -> Ptr -> IO (Ptr ) +#ccall g_string_append_c , Ptr -> -> IO (Ptr ) +#ccall g_string_append_unichar , Ptr -> \ + -> IO (Ptr ) +#ccall g_string_append_len , Ptr -> Ptr -> \ + -> IO (Ptr ) +#ccall g_string_append_uri_escaped , Ptr -> CString -> \ + CString -> -> IO (Ptr ) +#ccall g_string_prepend , Ptr -> Ptr -> IO (Ptr ) +#ccall g_string_prepend_c , Ptr -> -> IO (Ptr ) +#ccall g_string_prepend_unichar , Ptr -> \ + -> IO (Ptr ) +#ccall g_string_prepend_len , Ptr -> Ptr -> \ + -> IO (Ptr ) +#ccall g_string_insert , Ptr -> -> \ + Ptr -> IO (Ptr ) +#ccall g_string_insert_c , Ptr -> -> \ + -> IO (Ptr ) +#ccall g_string_insert_unichar , Ptr -> -> \ + -> IO (Ptr ) +#ccall g_string_insert_len , Ptr -> -> \ + Ptr -> -> IO (Ptr ) +#ccall g_string_overwrite , Ptr -> -> \ + Ptr -> IO (Ptr ) +#ccall g_string_overwrite_len , Ptr -> -> \ + Ptr -> -> IO (Ptr ) +#ccall g_string_erase , Ptr -> -> \ + -> IO (Ptr ) +#ccall g_string_truncate , Ptr -> -> IO (Ptr ) +#ccall g_string_set_size , Ptr -> -> IO (Ptr ) +#ccall g_string_free , Ptr -> -> IO (Ptr ) +#ccall g_string_hash , Ptr -> IO +#ccall g_string_equal , Ptr -> Ptr -> IO diff --git a/src/Bindings/GLib/DataTypes/TrashStacks.hsc b/src/Bindings/GLib/DataTypes/TrashStacks.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/DataTypes/TrashStacks.hsc @@ -0,0 +1,18 @@ +#include +#include + +-- | + +module Bindings.GLib.DataTypes.TrashStacks where +#strict_import +import Bindings.GLib.Fundamentals + +#starttype GTrashStack +#field next , Ptr +#stoptype + +#ccall g_trash_stack_push , Ptr (Ptr ) -> -> IO () +#ccall g_trash_stack_pop , Ptr (Ptr ) -> IO +#ccall g_trash_stack_peek , Ptr (Ptr ) -> IO +#ccall g_trash_stack_height , Ptr (Ptr ) -> IO + diff --git a/src/Bindings/GLib/Fundamentals.hs b/src/Bindings/GLib/Fundamentals.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals.hs @@ -0,0 +1,21 @@ +-- | +module Bindings.GLib.Fundamentals ( + module Bindings.GLib.Fundamentals.AtomicOperations, + module Bindings.GLib.Fundamentals.BasicTypes, + module Bindings.GLib.Fundamentals.ByteOrderMacros, + module Bindings.GLib.Fundamentals.LimitsOfBasicTypes, + module Bindings.GLib.Fundamentals.MiscellaneousMacros, + module Bindings.GLib.Fundamentals.NumericalDefinitions, + module Bindings.GLib.Fundamentals.StandardMacros, + module Bindings.GLib.Fundamentals.TypeConversionMacros, + module Bindings.GLib.Fundamentals.VersionInformation, + ) where +import Bindings.GLib.Fundamentals.AtomicOperations +import Bindings.GLib.Fundamentals.BasicTypes +import Bindings.GLib.Fundamentals.ByteOrderMacros +import Bindings.GLib.Fundamentals.LimitsOfBasicTypes +import Bindings.GLib.Fundamentals.MiscellaneousMacros +import Bindings.GLib.Fundamentals.NumericalDefinitions +import Bindings.GLib.Fundamentals.StandardMacros +import Bindings.GLib.Fundamentals.TypeConversionMacros +import Bindings.GLib.Fundamentals.VersionInformation diff --git a/src/Bindings/GLib/Fundamentals/AtomicOperations.hsc b/src/Bindings/GLib/Fundamentals/AtomicOperations.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/AtomicOperations.hsc @@ -0,0 +1,20 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.AtomicOperations where +#strict_import +import Bindings.GLib.Fundamentals.BasicTypes + +#cinline g_atomic_int_get , Ptr -> IO +#cinline g_atomic_int_set , Ptr -> -> IO () +#cinline g_atomic_int_add , Ptr -> -> IO () +#cinline g_atomic_int_exchange_and_add , Ptr -> -> IO +#cinline g_atomic_int_compare_and_exchange , Ptr -> -> -> IO +#cinline g_atomic_pointer_get , Ptr -> IO +#cinline g_atomic_pointer_set , Ptr -> -> IO () +#cinline g_atomic_pointer_compare_and_exchange , Ptr -> -> -> IO +#cinline g_atomic_int_inc , Ptr -> IO () +#cinline g_atomic_int_dec_and_test , Ptr -> IO + diff --git a/src/Bindings/GLib/Fundamentals/BasicTypes.hsc b/src/Bindings/GLib/Fundamentals/BasicTypes.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/BasicTypes.hsc @@ -0,0 +1,37 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.BasicTypes where +#strict_import + +#integral_t gboolean +#synonym_t gpointer , Ptr () +#synonym_t gconstpointer , Ptr () +#integral_t gchar +#integral_t guchar +#integral_t gint +#integral_t guint +#integral_t gshort +#integral_t gushort +#integral_t glong +#integral_t gulong +#integral_t gint8 +#integral_t guint8 +#integral_t gint16 +#integral_t guint16 +#integral_t gint32 +#integral_t guint32 +#integral_t gint64 +#integral_t guint64 + +#synonym_t gfloat , CFloat +#synonym_t gdouble , CDouble + +#integral_t gsize +#integral_t gssize +#integral_t goffset +#integral_t gintptr +#integral_t guintptr + diff --git a/src/Bindings/GLib/Fundamentals/ByteOrderMacros.hsc b/src/Bindings/GLib/Fundamentals/ByteOrderMacros.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/ByteOrderMacros.hsc @@ -0,0 +1,61 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.ByteOrderMacros where +#strict_import +import Bindings.GLib.Fundamentals.BasicTypes + +#cinline g_htonl , -> +#cinline g_htons , -> +#cinline g_ntohl , -> +#cinline g_ntohs , -> +#cinline GINT_FROM_BE , -> +#cinline GINT_FROM_LE , -> +#cinline GINT_TO_BE , -> +#cinline GINT_TO_LE , -> +#cinline GUINT_FROM_BE , -> +#cinline GUINT_FROM_LE , -> +#cinline GUINT_TO_BE , -> +#cinline GUINT_TO_LE , -> +#cinline GLONG_FROM_BE , -> +#cinline GLONG_FROM_LE , -> +#cinline GLONG_TO_BE , -> +#cinline GLONG_TO_LE , -> +#cinline GULONG_FROM_BE , -> +#cinline GULONG_FROM_LE , -> +#cinline GULONG_TO_BE , -> +#cinline GULONG_TO_LE , -> +#cinline GINT16_FROM_BE , -> +#cinline GINT16_FROM_LE , -> +#cinline GINT16_TO_BE , -> +#cinline GINT16_TO_LE , -> +#cinline GUINT16_FROM_BE , -> +#cinline GUINT16_FROM_LE , -> +#cinline GUINT16_TO_BE , -> +#cinline GUINT16_TO_LE , -> +#cinline GINT32_FROM_BE , -> +#cinline GINT32_FROM_LE , -> +#cinline GINT32_TO_BE , -> +#cinline GINT32_TO_LE , -> +#cinline GUINT32_FROM_BE , -> +#cinline GUINT32_FROM_LE , -> +#cinline GUINT32_TO_BE , -> +#cinline GUINT32_TO_LE , -> +#cinline GINT64_FROM_BE , -> +#cinline GINT64_FROM_LE , -> +#cinline GINT64_TO_BE , -> +#cinline GINT64_TO_LE , -> +#cinline GUINT64_FROM_BE , -> +#cinline GUINT64_FROM_LE , -> +#cinline GUINT64_TO_BE , -> +#cinline GUINT64_TO_LE , -> +#cinline GUINT16_SWAP_BE_PDP , -> +#cinline GUINT16_SWAP_LE_BE , -> +#cinline GUINT16_SWAP_LE_PDP , -> +#cinline GUINT32_SWAP_BE_PDP , -> +#cinline GUINT32_SWAP_LE_BE , -> +#cinline GUINT32_SWAP_LE_PDP , -> +#cinline GUINT64_SWAP_LE_BE , -> + diff --git a/src/Bindings/GLib/Fundamentals/LimitsOfBasicTypes.hsc b/src/Bindings/GLib/Fundamentals/LimitsOfBasicTypes.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/LimitsOfBasicTypes.hsc @@ -0,0 +1,39 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.LimitsOfBasicTypes where +#strict_import + +#num G_MININT +#num G_MAXINT +#num G_MAXUINT +#num G_MINSHORT +#num G_MAXSHORT +#num G_MAXUSHORT +#num G_MINLONG +#num G_MAXLONG +#num G_MAXULONG +#num G_MININT8 +#num G_MAXINT8 +#num G_MAXUINT8 +#num G_MININT16 +#num G_MAXINT16 +#num G_MAXUINT16 +#num G_MININT32 +#num G_MAXINT32 +#num G_MAXUINT32 +#num G_MININT64 +#num G_MAXINT64 +#num G_MAXUINT64 +#num G_MAXSIZE +#num G_MINSSIZE +#num G_MAXSSIZE +#num G_MINOFFSET +#num G_MAXOFFSET +#num G_MINFLOAT +#num G_MAXFLOAT +#num G_MINDOUBLE +#num G_MAXDOUBLE + diff --git a/src/Bindings/GLib/Fundamentals/MiscellaneousMacros.hsc b/src/Bindings/GLib/Fundamentals/MiscellaneousMacros.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/MiscellaneousMacros.hsc @@ -0,0 +1,26 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.MiscellaneousMacros where +#strict_import + +#pointer G_GINT16_MODIFIER +#pointer G_GINT16_FORMAT +#pointer G_GUINT16_FORMAT +#pointer G_GINT32_MODIFIER +#pointer G_GINT32_FORMAT +#pointer G_GUINT32_FORMAT +#pointer G_GINT64_MODIFIER +#pointer G_GINT64_FORMAT +#pointer G_GUINT64_FORMAT +#pointer G_GSIZE_MODIFIER +#pointer G_GSIZE_FORMAT +#pointer G_GSSIZE_FORMAT +#pointer G_GOFFSET_MODIFIER +#pointer G_GOFFSET_FORMAT +#pointer G_GINTPTR_MODIFIER +#pointer G_GINTPTR_FORMAT +#pointer G_GUINTPTR_FORMAT + diff --git a/src/Bindings/GLib/Fundamentals/NumericalDefinitions.hsc b/src/Bindings/GLib/Fundamentals/NumericalDefinitions.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/NumericalDefinitions.hsc @@ -0,0 +1,19 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.NumericalDefinitions where +#strict_import + +#num G_IEEE754_FLOAT_BIAS +#num G_IEEE754_DOUBLE_BIAS +#fractional G_E +#fractional G_LN2 +#fractional G_LN10 +#fractional G_PI +#fractional G_PI_2 +#fractional G_PI_4 +#fractional G_SQRT2 +#fractional G_LOG_2_BASE_10 + diff --git a/src/Bindings/GLib/Fundamentals/StandardMacros.hsc b/src/Bindings/GLib/Fundamentals/StandardMacros.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/StandardMacros.hsc @@ -0,0 +1,18 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.StandardMacros where +#strict_import + +#num G_DIR_SEPARATOR +#pointer G_DIR_SEPARATOR_S +#cinline G_IS_DIR_SEPARATOR , CChar -> CInt +#num G_SEARCHPATH_SEPARATOR +#pointer G_SEARCHPATH_SEPARATOR_S +#num TRUE +#num FALSE +#pointer NULL +#num G_MEM_ALIGN + diff --git a/src/Bindings/GLib/Fundamentals/TypeConversionMacros.hsc b/src/Bindings/GLib/Fundamentals/TypeConversionMacros.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/TypeConversionMacros.hsc @@ -0,0 +1,16 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.TypeConversionMacros where +#strict_import +import Bindings.GLib.Fundamentals.BasicTypes + +#cinline GINT_TO_POINTER , -> +#cinline GPOINTER_TO_INT , -> +#cinline GUINT_TO_POINTER , -> +#cinline GPOINTER_TO_UINT , -> +#cinline GSIZE_TO_POINTER , -> +#cinline GPOINTER_TO_SIZE , -> + diff --git a/src/Bindings/GLib/Fundamentals/VersionInformation.hsc b/src/Bindings/GLib/Fundamentals/VersionInformation.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Fundamentals/VersionInformation.hsc @@ -0,0 +1,19 @@ +#include +#include + +-- | + +module Bindings.GLib.Fundamentals.VersionInformation where +#strict_import +import Bindings.GLib.Fundamentals.BasicTypes + +#globalvar glib_major_version , +#globalvar glib_minor_version , +#globalvar glib_micro_version , +#globalvar glib_binary_age , +#globalvar glib_interface_age , +#ccall glib_check_version , -> -> -> IO (Ptr ) + +#num GLIB_MAJOR_VERSION +#num GLIB_MINOR_VERSION +#num GLIB_MICRO_VERSION diff --git a/src/Bindings/GLib/Utilities.hs b/src/Bindings/GLib/Utilities.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities.hs @@ -0,0 +1,13 @@ +-- | +module Bindings.GLib.Utilities ( + module Bindings.GLib.Utilities.CommandlineOptionParser, + module Bindings.GLib.Utilities.DateAndTimeFunctions, + module Bindings.GLib.Utilities.HostnameUtilities, + module Bindings.GLib.Utilities.SimpleXmlSubsetParser, + module Bindings.GLib.Utilities.UnicodeManipulation, + ) where +import Bindings.GLib.Utilities.CommandlineOptionParser +import Bindings.GLib.Utilities.DateAndTimeFunctions +import Bindings.GLib.Utilities.HostnameUtilities +import Bindings.GLib.Utilities.SimpleXmlSubsetParser +import Bindings.GLib.Utilities.UnicodeManipulation diff --git a/src/Bindings/GLib/Utilities/CommandlineOptionParser.hsc b/src/Bindings/GLib/Utilities/CommandlineOptionParser.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities/CommandlineOptionParser.hsc @@ -0,0 +1,99 @@ +#include +#include + +-- | + +module Bindings.GLib.Utilities.CommandlineOptionParser where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.CoreApplicationSupport.ErrorReporting +import Bindings.GLib.DataTypes.Datasets + +#integral_t GOptionError + +#num G_OPTION_ERROR_UNKNOWN_OPTION +#num G_OPTION_ERROR_BAD_VALUE +#num G_OPTION_ERROR_FAILED + +#num G_OPTION_ERROR + +#callback GOptionArgFunc , Ptr -> Ptr -> -> Ptr (Ptr ) -> IO + +#opaque_t GOptionContext + +#ccall g_option_context_new , Ptr -> IO (Ptr ) +#ccall g_option_context_set_summary , Ptr -> Ptr -> IO () +#ccall g_option_context_get_summary , Ptr -> IO (Ptr ) +#ccall g_option_context_set_description , Ptr -> Ptr -> IO () +#ccall g_option_context_get_description , Ptr -> IO (Ptr ) + + +#callback GTranslateFunc , Ptr -> -> IO (Ptr ) + +#ccall g_option_context_set_translate_func , Ptr -> -> -> -> IO () +#ccall g_option_context_set_translation_domain , Ptr -> Ptr -> IO () +#ccall g_option_context_free , Ptr -> IO () +#ccall g_option_context_parse , Ptr -> Ptr -> Ptr (Ptr (Ptr )) -> Ptr (Ptr ) -> IO +#ccall g_option_context_set_help_enabled , Ptr -> -> IO () +#ccall g_option_context_get_help_enabled , Ptr -> IO +#ccall g_option_context_set_ignore_unknown_options , Ptr -> -> IO () +#ccall g_option_context_get_ignore_unknown_options , Ptr -> IO +#ccall g_option_context_get_help , Ptr -> -> Ptr -> IO (Ptr ) + + +#integral_t GOptionArg + +#num G_OPTION_ARG_NONE +#num G_OPTION_ARG_STRING +#num G_OPTION_ARG_INT +#num G_OPTION_ARG_CALLBACK +#num G_OPTION_ARG_FILENAME +#num G_OPTION_ARG_STRING_ARRAY +#num G_OPTION_ARG_FILENAME_ARRAY +#num G_OPTION_ARG_DOUBLE +#num G_OPTION_ARG_INT64 + +#integral_t GOptionFlags + +#num G_OPTION_FLAG_HIDDEN +#num G_OPTION_FLAG_IN_MAIN +#num G_OPTION_FLAG_REVERSE +#num G_OPTION_FLAG_NO_ARG +#num G_OPTION_FLAG_FILENAME +#num G_OPTION_FLAG_OPTIONAL_ARG +#num G_OPTION_FLAG_NOALIAS + +#pointer G_OPTION_REMAINING + +#starttype GOptionEntry +#field long_name , Ptr +#field short_name , +#field flags , +#field arg , +#field arg_data , +#field description , Ptr +#field arg_description , Ptr +#stoptype + +#ccall g_option_context_add_main_entries , Ptr -> Ptr -> Ptr -> IO () + +#opaque_t GOptionGroup + +#ccall g_option_context_add_group , Ptr -> Ptr -> IO () +#ccall g_option_context_set_main_group , Ptr -> Ptr -> IO () +#ccall g_option_context_get_main_group , Ptr -> IO (Ptr ) +#ccall g_option_group_new , Ptr -> Ptr -> Ptr -> -> -> IO (Ptr ) +#ccall g_option_group_free , Ptr -> IO () +#ccall g_option_group_add_entries , Ptr -> Ptr -> IO () + +#callback GOptionParseFunc , Ptr -> Ptr -> -> Ptr (Ptr ) -> IO + +#ccall g_option_group_set_parse_hooks , Ptr -> -> -> IO () + +#callback GOptionErrorFunc , Ptr -> Ptr -> -> Ptr (Ptr ) -> IO () + +#ccall g_option_group_set_error_hook , Ptr -> -> IO () +#ccall g_option_group_set_translate_func , Ptr -> -> -> -> IO () +#ccall g_option_group_set_translation_domain , Ptr -> Ptr -> IO () + + diff --git a/src/Bindings/GLib/Utilities/DateAndTimeFunctions.hsc b/src/Bindings/GLib/Utilities/DateAndTimeFunctions.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities/DateAndTimeFunctions.hsc @@ -0,0 +1,127 @@ +#include +#include + +-- | + +module Bindings.GLib.Utilities.DateAndTimeFunctions where +#strict_import +import Bindings.GLib.Fundamentals + +#num G_USEC_PER_SEC + +#starttype GTimeVal +#field tv_sec , +#field tv_usec , +#stoptype + +#ccall g_get_current_time , Ptr -> IO () +#ccall g_usleep , -> IO () +#ccall g_time_val_add , Ptr -> -> IO () +#ccall g_time_val_from_iso8601 , Ptr -> Ptr -> IO +#ccall g_time_val_to_iso8601 , Ptr -> IO (Ptr ) + +#starttype GDate +#stoptype + + +#integral_t GDateDMY + +#num G_DATE_DAY +#num G_DATE_MONTH +#num G_DATE_YEAR + + +#integral_t GDateDay + + +#integral_t GDateMonth + +#num G_DATE_BAD_MONTH +#num G_DATE_JANUARY +#num G_DATE_FEBRUARY +#num G_DATE_MARCH +#num G_DATE_APRIL +#num G_DATE_MAY +#num G_DATE_JUNE +#num G_DATE_JULY +#num G_DATE_AUGUST +#num G_DATE_SEPTEMBER +#num G_DATE_OCTOBER +#num G_DATE_NOVEMBER +#num G_DATE_DECEMBER + + +#integral_t GDateYear + + +#integral_t GDateWeekday + +#num G_DATE_BAD_WEEKDAY +#num G_DATE_MONDAY +#num G_DATE_TUESDAY +#num G_DATE_WEDNESDAY +#num G_DATE_THURSDAY +#num G_DATE_FRIDAY +#num G_DATE_SATURDAY +#num G_DATE_SUNDAY + + +#num G_DATE_BAD_DAY +#num G_DATE_BAD_JULIAN +#num G_DATE_BAD_YEAR + +#ccall g_date_new , IO (Ptr ) +#ccall g_date_new_dmy , -> -> -> IO (Ptr ) +#ccall g_date_new_julian , -> IO (Ptr ) +#ccall g_date_clear , Ptr -> -> IO () +#ccall g_date_free , Ptr -> IO () + +#ccall g_date_set_day , Ptr -> -> IO () +#ccall g_date_set_month , Ptr -> -> IO () +#ccall g_date_set_year , Ptr -> -> IO () +#ccall g_date_set_dmy , Ptr -> -> -> -> IO () +#ccall g_date_set_julian , Ptr -> -> IO () +#ccall g_date_set_time_t , Ptr -> CTime -> IO () +#ccall g_date_set_time_val , Ptr -> Ptr -> IO () +#ccall g_date_set_parse , Ptr -> Ptr -> IO () + +#ccall g_date_add_days , Ptr -> -> IO () +#ccall g_date_subtract_days , Ptr -> -> IO () +#ccall g_date_add_months , Ptr -> -> IO () +#ccall g_date_subtract_months , Ptr -> -> IO () +#ccall g_date_add_years , Ptr -> -> IO () +#ccall g_date_subtract_years , Ptr -> -> IO () +#ccall g_date_days_between , Ptr -> Ptr -> IO +#ccall g_date_compare , Ptr -> Ptr -> IO +#ccall g_date_clamp , Ptr -> Ptr -> Ptr -> IO () +#ccall g_date_order , Ptr -> Ptr -> IO () + +#ccall g_date_get_day , Ptr -> IO +#ccall g_date_get_month , Ptr -> IO +#ccall g_date_get_year , Ptr -> IO +#ccall g_date_get_julian , Ptr -> IO +#ccall g_date_get_weekday , Ptr -> IO +#ccall g_date_get_day_of_year , Ptr -> IO + +#ccall g_date_get_days_in_month , -> -> IO +#ccall g_date_is_first_of_month , Ptr -> IO +#ccall g_date_is_last_of_month , Ptr -> IO +#ccall g_date_is_leap_year , -> IO +#ccall g_date_get_monday_week_of_year , Ptr -> IO +#ccall g_date_get_monday_weeks_in_year , -> IO +#ccall g_date_get_sunday_week_of_year , Ptr -> IO +#ccall g_date_get_sunday_weeks_in_year , -> IO +#ccall g_date_get_iso8601_week_of_year , Ptr -> IO + +#ccall g_date_strftime , Ptr -> -> Ptr -> Ptr -> IO +#opaque_t struct tm +#ccall g_date_to_struct_tm , Ptr -> Ptr -> IO () + +#ccall g_date_valid , Ptr -> IO +#ccall g_date_valid_day , -> IO +#ccall g_date_valid_month , -> IO +#ccall g_date_valid_year , -> IO +#ccall g_date_valid_dmy , -> -> -> IO +#ccall g_date_valid_julian , -> IO +#ccall g_date_valid_weekday , -> IO + diff --git a/src/Bindings/GLib/Utilities/HostnameUtilities.hsc b/src/Bindings/GLib/Utilities/HostnameUtilities.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities/HostnameUtilities.hsc @@ -0,0 +1,15 @@ +#include +#include + +-- | + +module Bindings.GLib.Utilities.HostnameUtilities where +#strict_import +import Bindings.GLib.Fundamentals + +#ccall g_hostname_to_ascii , Ptr -> IO (Ptr ) +#ccall g_hostname_to_unicode , Ptr -> IO (Ptr ) +#ccall g_hostname_is_non_ascii , Ptr -> IO +#ccall g_hostname_is_ascii_encoded , Ptr -> IO +#ccall g_hostname_is_ip_address , Ptr -> IO + diff --git a/src/Bindings/GLib/Utilities/SimpleXmlSubsetParser.hsc b/src/Bindings/GLib/Utilities/SimpleXmlSubsetParser.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities/SimpleXmlSubsetParser.hsc @@ -0,0 +1,13 @@ +#include +#include + +-- | + +module Bindings.GLib.Utilities.SimpleXmlSubsetParser where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GLib.CoreApplicationSupport.ErrorReporting +import Bindings.GLib.DataTypes.Datasets + +#ccall g_markup_escape_text , Ptr -> -> IO (Ptr ) + diff --git a/src/Bindings/GLib/Utilities/UnicodeManipulation.hsc b/src/Bindings/GLib/Utilities/UnicodeManipulation.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GLib/Utilities/UnicodeManipulation.hsc @@ -0,0 +1,251 @@ +#include +#include + +-- | + +module Bindings.GLib.Utilities.UnicodeManipulation where +import Bindings.GLib.Fundamentals.BasicTypes +import Bindings.GLib.CoreApplicationSupport.ErrorReporting +#strict_import + +#integral_t gunichar +#integral_t gunichar2 + +#ccall g_unichar_validate , -> IO +#ccall g_unichar_isalnum , -> IO +#ccall g_unichar_isalpha , -> IO +#ccall g_unichar_iscntrl , -> IO +#ccall g_unichar_isdefined , -> IO +#ccall g_unichar_isdigit , -> IO +#ccall g_unichar_isgraph , -> IO +#ccall g_unichar_islower , -> IO +#ccall g_unichar_ismark , -> IO +#ccall g_unichar_isprint , -> IO +#ccall g_unichar_ispunct , -> IO +#ccall g_unichar_isspace , -> IO +#ccall g_unichar_istitle , -> IO +#ccall g_unichar_isupper , -> IO +#ccall g_unichar_isxdigit , -> IO +#ccall g_unichar_iswide , -> IO +#ccall g_unichar_iswide_cjk , -> IO +#ccall g_unichar_iszerowidth , -> IO +#ccall g_unichar_toupper , -> IO +#ccall g_unichar_tolower , -> IO +#ccall g_unichar_totitle , -> IO +#ccall g_unichar_digit_value , -> IO +#ccall g_unichar_xdigit_value , -> IO + +#integral_t GUnicodeType + +#num G_UNICODE_FORMAT +#num G_UNICODE_UNASSIGNED +#num G_UNICODE_PRIVATE_USE +#num G_UNICODE_SURROGATE +#num G_UNICODE_LOWERCASE_LETTER +#num G_UNICODE_MODIFIER_LETTER +#num G_UNICODE_OTHER_LETTER +#num G_UNICODE_TITLECASE_LETTER +#num G_UNICODE_UPPERCASE_LETTER +#num G_UNICODE_COMBINING_MARK +#num G_UNICODE_ENCLOSING_MARK +#num G_UNICODE_NON_SPACING_MARK +#num G_UNICODE_DECIMAL_NUMBER +#num G_UNICODE_LETTER_NUMBER +#num G_UNICODE_OTHER_NUMBER +#num G_UNICODE_CONNECT_PUNCTUATION +#num G_UNICODE_DASH_PUNCTUATION +#num G_UNICODE_CLOSE_PUNCTUATION +#num G_UNICODE_FINAL_PUNCTUATION +#num G_UNICODE_INITIAL_PUNCTUATION +#num G_UNICODE_OTHER_PUNCTUATION +#num G_UNICODE_OPEN_PUNCTUATION +#num G_UNICODE_CURRENCY_SYMBOL +#num G_UNICODE_MODIFIER_SYMBOL +#num G_UNICODE_MATH_SYMBOL +#num G_UNICODE_OTHER_SYMBOL +#num G_UNICODE_LINE_SEPARATOR +#num G_UNICODE_PARAGRAPH_SEPARATOR +#num G_UNICODE_SPACE_SEPARATOR + +#ccall g_unichar_type , -> IO + +#integral_t GUnicodeBreakType + +#num G_UNICODE_BREAK_MANDATORY +#num G_UNICODE_BREAK_CARRIAGE_RETURN +#num G_UNICODE_BREAK_LINE_FEED +#num G_UNICODE_BREAK_COMBINING_MARK +#num G_UNICODE_BREAK_SURROGATE +#num G_UNICODE_BREAK_ZERO_WIDTH_SPACE +#num G_UNICODE_BREAK_INSEPARABLE +#num G_UNICODE_BREAK_NON_BREAKING_GLUE +#num G_UNICODE_BREAK_CONTINGENT +#num G_UNICODE_BREAK_SPACE +#num G_UNICODE_BREAK_AFTER +#num G_UNICODE_BREAK_BEFORE +#num G_UNICODE_BREAK_BEFORE_AND_AFTER +#num G_UNICODE_BREAK_HYPHEN +#num G_UNICODE_BREAK_NON_STARTER +#num G_UNICODE_BREAK_OPEN_PUNCTUATION +#num G_UNICODE_BREAK_CLOSE_PUNCTUATION +#num G_UNICODE_BREAK_QUOTATION +#num G_UNICODE_BREAK_EXCLAMATION +#num G_UNICODE_BREAK_IDEOGRAPHIC +#num G_UNICODE_BREAK_NUMERIC +#num G_UNICODE_BREAK_INFIX_SEPARATOR +#num G_UNICODE_BREAK_SYMBOL +#num G_UNICODE_BREAK_ALPHABETIC +#num G_UNICODE_BREAK_PREFIX +#num G_UNICODE_BREAK_POSTFIX +#num G_UNICODE_BREAK_COMPLEX_CONTEXT +#num G_UNICODE_BREAK_AMBIGUOUS +#num G_UNICODE_BREAK_UNKNOWN +#num G_UNICODE_BREAK_NEXT_LINE +#num G_UNICODE_BREAK_WORD_JOINER +#num G_UNICODE_BREAK_HANGUL_L_JAMO +#num G_UNICODE_BREAK_HANGUL_V_JAMO +#num G_UNICODE_BREAK_HANGUL_T_JAMO +#num G_UNICODE_BREAK_HANGUL_LV_SYLLABLE +#num G_UNICODE_BREAK_HANGUL_LVT_SYLLABLE + +#ccall g_unichar_break_type , -> IO +#ccall g_unichar_combining_class , -> IO +#ccall g_unicode_canonical_ordering , Ptr -> -> IO () +#ccall g_unicode_canonical_decomposition , -> Ptr -> IO (Ptr ) +#ccall g_unichar_get_mirror_char , -> Ptr -> IO -> IO +#cinline g_utf8_next_char , Ptr -> IO (Ptr ) + +#ccall g_utf8_get_char , Ptr -> IO +#ccall g_utf8_get_char_validated , Ptr -> -> IO +#ccall g_utf8_offset_to_pointer , Ptr -> -> IO (Ptr ) +#ccall g_utf8_pointer_to_offset , Ptr -> Ptr -> IO +#ccall g_utf8_prev_char , Ptr -> IO (Ptr ) +#ccall g_utf8_find_next_char , Ptr -> Ptr -> IO (Ptr ) +#ccall g_utf8_find_prev_char , Ptr -> Ptr -> IO (Ptr ) +#ccall g_utf8_strlen , Ptr -> -> IO +#ccall g_utf8_strncpy , Ptr -> Ptr -> -> IO (Ptr ) +#ccall g_utf8_strchr , Ptr -> -> -> IO (Ptr ) +#ccall g_utf8_strrchr , Ptr -> -> -> IO (Ptr ) +#ccall g_utf8_strreverse , Ptr -> -> IO (Ptr ) +#ccall g_utf8_validate , Ptr -> -> Ptr (Ptr ) -> IO +#ccall g_utf8_strup , Ptr -> -> IO (Ptr ) +#ccall g_utf8_strdown , Ptr -> -> IO (Ptr ) +#ccall g_utf8_casefold , Ptr -> -> IO (Ptr ) +#ccall g_utf8_normalize , Ptr -> -> -> IO (Ptr ) + +#integral_t GNormalizeMode + +#num G_NORMALIZE_DEFAULT +#num G_NORMALIZE_NFD +#num G_NORMALIZE_DEFAULT_COMPOSE +#num G_NORMALIZE_NFC +#num G_NORMALIZE_ALL +#num G_NORMALIZE_NFKD +#num G_NORMALIZE_ALL_COMPOSE +#num G_NORMALIZE_NFKC + +#ccall g_utf8_collate , Ptr -> Ptr -> IO +#ccall g_utf8_collate_key , Ptr -> -> IO (Ptr ) +#ccall g_utf8_collate_key_for_filename , Ptr -> \ + -> IO (Ptr ) +#ccall g_utf8_to_utf16 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_utf8_to_ucs4 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_utf8_to_ucs4_fast , Ptr -> -> \ + Ptr -> IO (Ptr ) +#ccall g_utf16_to_ucs4 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_utf16_to_utf8 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_ucs4_to_utf16 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_ucs4_to_utf8 , Ptr -> -> Ptr -> \ + Ptr -> Ptr (Ptr ) -> IO (Ptr ) +#ccall g_unichar_to_utf8 , -> Ptr -> IO + + diff --git a/src/datatypes.narytrees.c b/src/datatypes.narytrees.c new file mode 100644 --- /dev/null +++ b/src/datatypes.narytrees.c @@ -0,0 +1,13 @@ +#include +#include + +BC_INLINE2 ( g_node_append , GNode* , GNode* , GNode*) +BC_INLINE3 ( g_node_insert_data , GNode* , gint , gpointer , GNode*) +BC_INLINE3 ( g_node_insert_data_before , GNode* , GNode* , gpointer , GNode*) +BC_INLINE2 ( g_node_append_data , GNode* , gpointer , GNode*) +BC_INLINE2 ( g_node_prepend_data , GNode* , gpointer , GNode*) +BC_INLINE1 ( g_node_first_child , GNode* , GNode*) +BC_INLINE1 ( g_node_next_sibling , GNode* , GNode*) +BC_INLINE1 ( g_node_prev_sibling , GNode* , GNode*) +BC_INLINE1 (G_NODE_IS_LEAF , GNode* , gboolean) +BC_INLINE1 (G_NODE_IS_ROOT , GNode* , gboolean) diff --git a/src/datatypes.pointerarrays.c b/src/datatypes.pointerarrays.c new file mode 100644 --- /dev/null +++ b/src/datatypes.pointerarrays.c @@ -0,0 +1,5 @@ +#include +#include + +BC_INLINE2(g_ptr_array_index,GPtrArray*,guint,gpointer) + diff --git a/src/datatypes.singlylinkedlists.c b/src/datatypes.singlylinkedlists.c new file mode 100644 --- /dev/null +++ b/src/datatypes.singlylinkedlists.c @@ -0,0 +1,6 @@ +#include +#include + +BC_INLINE1VOID(g_slist_free1,GSList*) +BC_INLINE1(g_slist_next,GSList*,GSList*) + diff --git a/src/inlines.c b/src/inlines.c new file mode 100644 --- /dev/null +++ b/src/inlines.c @@ -0,0 +1,109 @@ +#include +#include + +BC_INLINE1(GINT_TO_POINTER,gint,gpointer) +BC_INLINE1(GPOINTER_TO_INT,gpointer,gint) +BC_INLINE1(GUINT_TO_POINTER,guint,gpointer) +BC_INLINE1(GPOINTER_TO_UINT,gpointer,guint) +BC_INLINE1(GSIZE_TO_POINTER,gsize,gpointer) +BC_INLINE1(GPOINTER_TO_SIZE,gpointer,gsize) +BC_INLINE1(G_IS_DIR_SEPARATOR,char,int) +BC_INLINE1(g_htonl,gint32,gint32) +BC_INLINE1(g_htons,gint16,gint16) +BC_INLINE1(g_ntohl,gint32,gint32) +BC_INLINE1(g_ntohs,gint16,gint16) +BC_INLINE1(GINT_FROM_BE,gint,gint) +BC_INLINE1(GINT_FROM_LE,gint,gint) +BC_INLINE1(GINT_TO_BE,gint,gint) +BC_INLINE1(GINT_TO_LE,gint,gint) +BC_INLINE1(GUINT_FROM_BE,guint,guint) +BC_INLINE1(GUINT_FROM_LE,guint,guint) +BC_INLINE1(GUINT_TO_BE,guint,guint) +BC_INLINE1(GUINT_TO_LE,guint,guint) +BC_INLINE1(GLONG_FROM_BE,glong,glong) +BC_INLINE1(GLONG_FROM_LE,glong,glong) +BC_INLINE1(GLONG_TO_BE,glong,glong) +BC_INLINE1(GLONG_TO_LE,glong,glong) +BC_INLINE1(GULONG_FROM_BE,gulong,gulong) +BC_INLINE1(GULONG_FROM_LE,gulong,gulong) +BC_INLINE1(GULONG_TO_BE,gulong,gulong) +BC_INLINE1(GULONG_TO_LE,gulong,gulong) +BC_INLINE1(GINT16_FROM_BE,gint16,gint16) +BC_INLINE1(GINT16_FROM_LE,gint16,gint16) +BC_INLINE1(GINT16_TO_BE,gint16,gint16) +BC_INLINE1(GINT16_TO_LE,gint16,gint16) +BC_INLINE1(GUINT16_FROM_BE,guint16,guint16) +BC_INLINE1(GUINT16_FROM_LE,guint16,guint16) +BC_INLINE1(GUINT16_TO_BE,guint16,guint16) +BC_INLINE1(GUINT16_TO_LE,guint16,guint16) +BC_INLINE1(GINT32_FROM_BE,gint32,gint32) +BC_INLINE1(GINT32_FROM_LE,gint32,gint32) +BC_INLINE1(GINT32_TO_BE,gint32,gint32) +BC_INLINE1(GINT32_TO_LE,gint32,gint32) +BC_INLINE1(GUINT32_FROM_BE,guint32,guint32) +BC_INLINE1(GUINT32_FROM_LE,guint32,guint32) +BC_INLINE1(GUINT32_TO_BE,guint32,guint32) +BC_INLINE1(GUINT32_TO_LE,guint32,guint32) +BC_INLINE1(GINT64_FROM_BE,gint64,gint64) +BC_INLINE1(GINT64_FROM_LE,gint64,gint64) +BC_INLINE1(GINT64_TO_BE,gint64,gint64) +BC_INLINE1(GINT64_TO_LE,gint64,gint64) +BC_INLINE1(GUINT64_FROM_BE,guint64,guint64) +BC_INLINE1(GUINT64_FROM_LE,guint64,guint64) +BC_INLINE1(GUINT64_TO_BE,guint64,guint64) +BC_INLINE1(GUINT64_TO_LE,guint64,guint64) +BC_INLINE1(GUINT16_SWAP_BE_PDP,guint16,guint16) +BC_INLINE1(GUINT16_SWAP_LE_BE,guint16,guint16) +BC_INLINE1(GUINT16_SWAP_LE_PDP,guint16,guint16) +BC_INLINE1(GUINT32_SWAP_BE_PDP,guint32,guint32) +BC_INLINE1(GUINT32_SWAP_LE_BE,guint32,guint32) +BC_INLINE1(GUINT32_SWAP_LE_PDP,guint32,guint32) +BC_INLINE1(GUINT64_SWAP_LE_BE,guint64,guint64) + +BC_INLINE1(g_atomic_int_get,gint*,gint) +BC_INLINE2VOID(g_atomic_int_set,gint*,gint) +BC_INLINE2VOID(g_atomic_int_add,gint*,gint) +BC_INLINE2(g_atomic_int_exchange_and_add,gint*,gint,gint) +BC_INLINE3(g_atomic_int_compare_and_exchange,gint*,gint,gint,gboolean) +BC_INLINE1(g_atomic_pointer_get,gpointer*,gpointer) +BC_INLINE2VOID(g_atomic_pointer_set,gpointer*,gpointer) +BC_INLINE3(g_atomic_pointer_compare_and_exchange,gpointer*,gpointer,gpointer,gboolean) +BC_INLINE1VOID(g_atomic_int_inc,gint*) +BC_INLINE1(g_atomic_int_dec_and_test,gint*,gboolean) + +BC_INLINE0(g_thread_supported,gboolean) +BC_INLINE4(g_thread_create,GThreadFunc,gpointer,gboolean,GError**,GThread*) +BC_INLINE0VOID(g_thread_yield) +BC_INLINE0(g_mutex_new,GMutex*) +BC_INLINE1VOID(g_mutex_lock,GMutex*) +BC_INLINE1(g_mutex_trylock,GMutex*,gboolean) +BC_INLINE1VOID(g_mutex_unlock,GMutex*) +BC_INLINE1VOID(g_mutex_free,GMutex*) +BC_INLINE1VOID(g_static_mutex_init,GStaticMutex*) +BC_INLINE1VOID(g_static_mutex_lock,GStaticMutex*) +BC_INLINE1(g_static_mutex_trylock,GStaticMutex*,gboolean) +BC_INLINE1VOID(g_static_mutex_unlock,GStaticMutex*) +BC_INLINE1(g_static_mutex_get_mutex,GStaticMutex*,GMutex*) +BC_INLINE1VOID(g_static_mutex_free,GStaticMutex*) +BC_INLINE0(g_cond_new,GCond*) +BC_INLINE1VOID(g_cond_signal,GCond*) +BC_INLINE1VOID(g_cond_broadcast,GCond*) +BC_INLINE2VOID(g_cond_wait,GCond*,GMutex*) +BC_INLINE3(g_cond_timed_wait,GCond*,GMutex*,GTimeVal*,gboolean) +BC_INLINE1VOID(g_cond_free,GCond*) +BC_INLINE1(g_private_new,GDestroyNotify,GPrivate*) +BC_INLINE1(g_private_get,GPrivate*,gpointer) +BC_INLINE2VOID(g_private_set,GPrivate*,gpointer) + +BC_INLINE3VOID(g_dataset_id_set_data,gconstpointer,GQuark,gpointer) +BC_INLINE3VOID(g_dataset_set_data,gconstpointer,gchar*,gpointer) +BC_INLINE4VOID(g_dataset_set_data_full,gconstpointer,gchar*,gpointer,GDestroyNotify) +BC_INLINE2(g_dataset_get_data,gconstpointer,gchar*,gpointer) +BC_INLINE2VOID(g_dataset_remove_data,gconstpointer,gchar*) +BC_INLINE2(g_dataset_remove_no_notify,gconstpointer,gchar*,gpointer) +BC_INLINE2VOID(g_dataset_id_remove_data,gconstpointer,GQuark) + +BC_INLINE1VOID(g_list_free1,GList*) +BC_INLINE1(g_list_previous,GList*,GList*) +BC_INLINE1(g_list_next,GList*,GList*) + diff --git a/src/utilities.unicodemanipulation.c b/src/utilities.unicodemanipulation.c new file mode 100644 --- /dev/null +++ b/src/utilities.unicodemanipulation.c @@ -0,0 +1,4 @@ +#include +#include + +BC_INLINE1(g_utf8_next_char,gchar*,gchar*)