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,54 @@ +cabal-version: >= 1.2.3 +name: bindings-glib +homepage: http://bitbucket.org/mauricio/bindings-glib +synopsis: + Low level bindings to GLib. +version: 0.1 +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-glib/issues +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-DSL >= 1.0 && < 1.1 + exposed-modules: + Bindings.GLib + 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.DataTypes + Bindings.GLib.DataTypes.Datasets + Bindings.GLib.DataTypes.DoublyLinkedLists + Bindings.GLib.DataTypes.MemorySlices + Bindings.GLib.DataTypes.Quarks + Bindings.GLib.DataTypes.StringChunks + Bindings.GLib.DataTypes.TrashStacks + 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.Utilities + Bindings.GLib.Utilities.CommandlineOptionParser + Bindings.GLib.Utilities.DateAndTimeFunctions + Bindings.GLib.Utilities.HostnameUtilities + c-sources: src/inlines.c + pkgconfig-depends: glib-2.0 >= 2.22.2 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,1 @@ +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 +#strict_import +import Bindings.GLib.Fundamentals + +#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 () +#ccall 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 + +#ccall 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 () +#ccall g_thread_yield , IO () +#ccall g_thread_exit , -> IO () +#ccall g_thread_foreach , -> -> IO () + +#opaque_t GMutex + +#ccall g_mutex_new , IO (Ptr ) +#ccall g_mutex_lock , Ptr -> IO () +#ccall g_mutex_trylock , Ptr -> IO +#ccall g_mutex_unlock , Ptr -> IO () +#ccall 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 + +#ccall g_cond_new , IO (Ptr ) +#ccall g_cond_signal , Ptr -> () +#ccall g_cond_broadcast , Ptr -> () +#ccall g_cond_wait , Ptr -> Ptr -> IO () +#ccall g_cond_timed_wait , Ptr -> Ptr -> Ptr -> IO +#ccall g_cond_free , Ptr -> IO () + +#opaque_t GPrivate + +#ccall g_private_new , -> IO (Ptr ) +#ccall g_private_get , Ptr -> IO +#ccall 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,1 @@ +module Bindings.GLib.DataTypes (module Bindings.GLib.DataTypes.Datasets,module Bindings.GLib.DataTypes.DoublyLinkedLists,module Bindings.GLib.DataTypes.MemorySlices,module Bindings.GLib.DataTypes.Quarks,module Bindings.GLib.DataTypes.StringChunks,module Bindings.GLib.DataTypes.TrashStacks) where {import Bindings.GLib.DataTypes.Datasets;import Bindings.GLib.DataTypes.DoublyLinkedLists;import Bindings.GLib.DataTypes.MemorySlices;import Bindings.GLib.DataTypes.Quarks;import Bindings.GLib.DataTypes.StringChunks;import Bindings.GLib.DataTypes.TrashStacks} 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 +#ccall 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/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/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/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/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,1 @@ +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,1 @@ +module Bindings.GLib.Utilities (module Bindings.GLib.Utilities.CommandlineOptionParser,module Bindings.GLib.Utilities.DateAndTimeFunctions,module Bindings.GLib.Utilities.HostnameUtilities) where {import Bindings.GLib.Utilities.CommandlineOptionParser;import Bindings.GLib.Utilities.DateAndTimeFunctions;import Bindings.GLib.Utilities.HostnameUtilities} 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/inlines.c b/src/inlines.c new file mode 100644 --- /dev/null +++ b/src/inlines.c @@ -0,0 +1,73 @@ +#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) +