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-gobject.cabal b/bindings-gobject.cabal new file mode 100644 --- /dev/null +++ b/bindings-gobject.cabal @@ -0,0 +1,39 @@ +cabal-version: >= 1.2.3 +name: bindings-gobject +homepage: http://bitbucket.org/mauricio/bindings-gobject +synopsis: + Low level bindings to GObject. +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-gobject/issues +library + hs-source-dirs: src + extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-DSL >= 1.0 && < 1.1, + bindings-glib >= 0.1 && < 0.2 + include-dirs: src + install-includes: + bindings-gobject.dsl.h + bindings-gobject.cmacros.h + exposed-modules: + Bindings.GObject + Bindings.GObject.BaseObjectType + Bindings.GObject.BoxedTypes + Bindings.GObject.EnumerationAndFlagTypes + Bindings.GObject.GenericValues + Bindings.GObject.GParamSpec + Bindings.GObject.GTypeModule + Bindings.GObject.GTypePlugin + Bindings.GObject.TypeInformation + Bindings.GObject.ValueArrays + Bindings.GObject.Varargs + c-sources: src/inlines.c + pkgconfig-depends: gobject-2.0 >= 2.22.2 diff --git a/src/Bindings/GObject.hs b/src/Bindings/GObject.hs new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject.hs @@ -0,0 +1,1 @@ +module Bindings.GObject (module Bindings.GObject.BaseObjectType,module Bindings.GObject.BoxedTypes,module Bindings.GObject.EnumerationAndFlagTypes,module Bindings.GObject.GenericValues,module Bindings.GObject.GParamSpec,module Bindings.GObject.GTypeModule,module Bindings.GObject.GTypePlugin,module Bindings.GObject.TypeInformation,module Bindings.GObject.ValueArrays,module Bindings.GObject.Varargs) where {import Bindings.GObject.BaseObjectType;import Bindings.GObject.BoxedTypes;import Bindings.GObject.EnumerationAndFlagTypes;import Bindings.GObject.GenericValues;import Bindings.GObject.GParamSpec;import Bindings.GObject.GTypeModule;import Bindings.GObject.GTypePlugin;import Bindings.GObject.TypeInformation;import Bindings.GObject.ValueArrays;import Bindings.GObject.Varargs} diff --git a/src/Bindings/GObject/BaseObjectType.hsc b/src/Bindings/GObject/BaseObjectType.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/BaseObjectType.hsc @@ -0,0 +1,104 @@ +#include +#include + +-- | + +module Bindings.GObject.BaseObjectType where +#strict_import +import Bindings.GLib +import Bindings.GObject.TypeInformation +import Bindings.GObject.GParamSpec + +#starttype GObject +#stoptype + +#starttype GObjectClass +#field g_type_class , +#field constructor , FunPtr (, , Ptr -> IO (Ptr )) +#field set_property , FunPtr (Ptr , , Ptr , Ptr -> IO ()) +#field get_property , FunPtr (Ptr , , Ptr , Ptr -> IO ()) +#field dispose , FunPtr (Ptr -> IO ()) +#field finalize , FunPtr (Ptr -> IO ()) +#field dispatch_properties_changed , FunPtr (Ptr , , Ptr (Ptr ) -> IO ()) +#field notify , FunPtr (Ptr , Ptr -> IO ()) +#field constructed , FunPtr (Ptr -> IO ()) +#stoptype + +#starttype GObjectConstructParam +#field pspec , Ptr +#field value , Ptr +#stoptype + +#callback GObjectGetPropertyFunc , Ptr -> -> Ptr -> Ptr -> IO () +#callback GObjectSetPropertyFunc , Ptr -> -> Ptr -> Ptr -> IO () +#callback GObjectFinalizeFunc , Ptr -> IO () + +#cinline G_TYPE_IS_OBJECT , -> IO +#cinline G_OBJECT , Ptr -> IO (Ptr ) +#cinline G_IS_OBJECT , Ptr -> IO +#cinline G_OBJECT_CLASS , Ptr -> IO +#cinline G_IS_OBJECT_CLASS , Ptr -> IO +#cinline G_OBJECT_GET_CLASS , Ptr -> IO (Ptr ) +#cinline G_OBJECT_TYPE , Ptr -> IO +#cinline G_OBJECT_TYPE_NAME , Ptr -> IO (Ptr ) +#cinline G_OBJECT_CLASS_TYPE , Ptr -> IO +#cinline G_OBJECT_CLASS_NAME , Ptr -> IO (Ptr ) + +#ccall g_object_class_install_property , Ptr -> -> Ptr -> IO () +#ccall g_object_class_find_property , Ptr -> Ptr -> IO (Ptr ) +#ccall g_object_class_list_properties , Ptr -> Ptr -> IO (Ptr (Ptr )) +#ccall g_object_class_override_property , Ptr -> -> Ptr -> IO () +#ccall g_object_interface_install_property , -> Ptr -> IO () +#ccall g_object_interface_find_property , -> Ptr -> IO (Ptr ) +#ccall g_object_interface_list_properties , -> Ptr -> IO (Ptr (Ptr )) +#ccall g_object_newv , -> -> Ptr -> IO + +#starttype GParameter +#field name , Ptr +#field value , +#stoptype + +#ccall g_object_ref , -> IO +#ccall g_object_unref , -> IO () +#ccall g_object_ref_sink , -> IO + +#starttype GInitiallyUnowned +#stoptype + +#starttype GInitiallyUnownedClass +#stoptype + +#cinline G_TYPE_INITIALLY_UNOWNED , IO + +#ccall g_object_is_floating , -> IO +#ccall g_object_force_floating , Ptr -> IO () + +#callback GWeakNotify , -> Ptr -> IO () + +#ccall g_object_weak_ref , Ptr -> -> -> IO () +#ccall g_object_weak_unref , Ptr -> -> -> IO () +#ccall g_object_add_weak_pointer , Ptr -> Ptr -> IO () +#ccall g_object_remove_weak_pointer , Ptr -> Ptr -> IO () + +#callback GToggleNotify , -> Ptr -> -> IO () + +#ccall g_object_add_toggle_ref , Ptr -> -> -> IO () +#ccall g_object_remove_toggle_ref , Ptr -> -> -> IO () +#ccall g_object_notify , Ptr -> Ptr -> IO () +#ccall g_object_freeze_notify , Ptr -> IO () +#ccall g_object_thaw_notify , Ptr -> IO () +#ccall g_object_get_data , Ptr -> Ptr -> IO +#ccall g_object_set_data , Ptr -> Ptr -> -> IO () +#ccall g_object_set_data_full , Ptr -> Ptr -> -> -> IO () +#ccall g_object_steal_data , Ptr -> Ptr -> IO +#ccall g_object_get_qdata , Ptr -> -> IO +#ccall g_object_set_qdata , Ptr -> -> -> IO () +#ccall g_object_set_qdata_full , Ptr -> -> -> -> IO () +#ccall g_object_steal_qdata , Ptr -> -> IO +#ccall g_object_set_property , Ptr -> Ptr -> Ptr -> IO () +#ccall g_object_get_property , Ptr -> Ptr -> Ptr -> IO () +#ccall g_object_watch_closure , Ptr -> Ptr -> IO () +#ccall g_object_run_dispose , Ptr -> IO () + +#cinline G_OBJECT_WARN_INVALID_PROPERTY_ID , Ptr -> -> Ptr -> IO () + diff --git a/src/Bindings/GObject/BoxedTypes.hsc b/src/Bindings/GObject/BoxedTypes.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/BoxedTypes.hsc @@ -0,0 +1,29 @@ +#include +#include + +-- | + +module Bindings.GObject.BoxedTypes where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GObject.TypeInformation + +#callback GBoxedCopyFunc , -> IO +#callback GBoxedFreeFunc , -> IO () + +#ccall g_boxed_copy , -> -> IO +#ccall g_boxed_free , -> -> IO () +#ccall g_boxed_type_register_static , Ptr -> -> -> IO +#ccall g_pointer_type_register_static , Ptr -> IO + +#cinline G_TYPE_HASH_TABLE , IO +#cinline G_TYPE_DATE , IO +#cinline G_TYPE_GSTRING , IO +#cinline G_TYPE_STRV , IO +#cinline G_TYPE_REGEX , IO +#cinline G_TYPE_ARRAY , IO +#cinline G_TYPE_BYTE_ARRAY , IO +#cinline G_TYPE_PTR_ARRAY , IO + +#synonym_t GStrv , Ptr (Ptr ) + diff --git a/src/Bindings/GObject/EnumerationAndFlagTypes.hsc b/src/Bindings/GObject/EnumerationAndFlagTypes.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/EnumerationAndFlagTypes.hsc @@ -0,0 +1,59 @@ +#include +#include + +-- | + +module Bindings.GObject.EnumerationAndFlagTypes where +#strict_import +import Bindings.GLib +import Bindings.GObject.TypeInformation + +#starttype GEnumClass +#field g_type_class , +#field minimum , +#field maximum , +#field n_values , +#field values , Ptr +#stoptype + +#starttype GFlagsClass +#field g_type_class , +#field mask , +#field n_values , +#field values , Ptr +#stoptype + +#cinline G_ENUM_CLASS_TYPE , Ptr -> IO +#cinline G_ENUM_CLASS_TYPE_NAME , Ptr -> IO (Ptr ) +#cinline G_TYPE_IS_ENUM , -> IO +#cinline G_ENUM_CLASS , Ptr -> IO (Ptr ) +#cinline G_IS_ENUM_CLASS , Ptr -> IO +#cinline G_TYPE_IS_FLAGS , -> IO +#cinline G_FLAGS_CLASS , Ptr -> IO (Ptr ) +#cinline G_IS_FLAGS_CLASS , Ptr -> IO +#cinline G_FLAGS_CLASS_TYPE , Ptr -> IO +#cinline G_FLAGS_CLASS_TYPE_NAME , Ptr -> IO (Ptr ) + +#starttype GEnumValue +#field value , +#field value_name , Ptr +#field value_nick , Ptr +#stoptype + +#starttype GFlagsValue +#field value , +#field value_name , Ptr +#field value_nick , Ptr +#stoptype + +#ccall g_enum_get_value , Ptr -> -> IO (Ptr ) +#ccall g_enum_get_value_by_name , Ptr -> Ptr -> IO (Ptr ) +#ccall g_enum_get_value_by_nick , Ptr -> Ptr -> IO (Ptr ) +#ccall g_flags_get_first_value , Ptr -> -> IO (Ptr ) +#ccall g_flags_get_value_by_name , Ptr -> Ptr -> IO (Ptr ) +#ccall g_flags_get_value_by_nick , Ptr -> Ptr -> IO (Ptr ) +#ccall g_enum_register_static , Ptr -> Ptr -> IO +#ccall g_flags_register_static , Ptr -> Ptr -> IO +#ccall g_enum_complete_type_info , -> Ptr -> Ptr -> IO () +#ccall g_flags_complete_type_info , -> Ptr -> Ptr -> IO () + diff --git a/src/Bindings/GObject/GParamSpec.hsc b/src/Bindings/GObject/GParamSpec.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/GParamSpec.hsc @@ -0,0 +1,93 @@ +#include +#include + +-- | + +module Bindings.GObject.GParamSpec where +#strict_import +import Bindings.GLib +import Bindings.GObject.TypeInformation + +#cinline G_TYPE_IS_PARAM , -> IO +#cinline G_PARAM_SPEC , Ptr -> IO (Ptr ) +#cinline G_IS_PARAM_SPEC , Ptr -> IO +#cinline G_PARAM_SPEC_CLASS , Ptr -> IO (Ptr ) +#cinline G_IS_PARAM_SPEC_CLASS , Ptr -> IO +#cinline G_PARAM_SPEC_GET_CLASS , Ptr -> IO (Ptr ) +#cinline G_PARAM_SPEC_TYPE , Ptr -> IO +#cinline G_PARAM_SPEC_TYPE_NAME , Ptr -> IO (Ptr ) +#cinline G_PARAM_SPEC_VALUE_TYPE , Ptr -> IO + +#starttype GParamSpec +#field g_type_instance , +#field name , Ptr +#field flags , +#field value_type , +#field owner_type , +#stoptype + +#starttype GParamSpecClass +#field g_type_class , +#field value_type , +#field finalize , FunPtr (Ptr -> IO ()) +#field value_set_default , FunPtr (Ptr -> Ptr -> IO ()) +#field value_validate , FunPtr (Ptr -> Ptr -> IO ) +#field values_cmp , FunPtr (Ptr -> Ptr -> Ptr -> IO ) +#stoptype + +#integral_t GParamFlags + +#num G_PARAM_READABLE +#num G_PARAM_WRITABLE +#num G_PARAM_CONSTRUCT +#num G_PARAM_CONSTRUCT_ONLY +#num G_PARAM_LAX_VALIDATION +#num G_PARAM_STATIC_NAME +#num G_PARAM_STATIC_NICK +#num G_PARAM_STATIC_BLURB + +#num G_PARAM_READWRITE +#num G_PARAM_STATIC_STRINGS +#num G_PARAM_MASK +#num G_PARAM_USER_SHIFT + +#ccall g_param_spec_ref , Ptr -> IO (Ptr ) +#ccall g_param_spec_unref , Ptr -> IO () +#ccall g_param_spec_sink , Ptr -> IO () +#ccall g_param_spec_ref_sink , Ptr -> IO (Ptr ) +#ccall g_param_value_set_default , Ptr -> Ptr -> IO () +#ccall g_param_value_defaults , Ptr -> Ptr -> IO +#ccall g_param_value_validate , Ptr -> Ptr -> IO +#ccall g_param_value_convert , Ptr -> Ptr -> Ptr -> -> IO +#ccall g_param_values_cmp , Ptr -> Ptr -> Ptr -> IO +#ccall g_param_spec_get_name , Ptr -> IO (Ptr ) +#ccall g_param_spec_get_nick , Ptr -> IO (Ptr ) +#ccall g_param_spec_get_blurb , Ptr -> IO (Ptr ) +#ccall g_param_spec_get_qdata , Ptr -> -> IO +#ccall g_param_spec_set_qdata , Ptr -> -> -> IO () +#ccall g_param_spec_set_qdata_full , Ptr -> -> -> -> IO () +#ccall g_param_spec_steal_qdata , Ptr -> -> IO +#ccall g_param_spec_get_redirect_target , Ptr -> IO (Ptr ) +#ccall g_param_spec_internal , -> Ptr -> Ptr -> Ptr -> -> IO + +#starttype GParamSpecTypeInfo +#field instance_size , +#field n_preallocs , +#field instance_init , FunPtr (Ptr -> IO ()) +#field value_type , +#field finalize , FunPtr (Ptr -> IO ()) +#field value_set_default , FunPtr (Ptr -> Ptr -> IO ()) +#field value_validate , FunPtr (Ptr -> Ptr -> IO ) +#field values_cmp , FunPtr (Ptr -> Ptr -> Ptr -> IO ) +#stoptype + +#ccall g_param_type_register_static , Ptr -> Ptr -> IO + +#opaque_t GParamSpecPool + +#ccall g_param_spec_pool_insert , Ptr -> Ptr -> -> IO () +#ccall g_param_spec_pool_remove , Ptr -> Ptr -> IO () +#ccall g_param_spec_pool_lookup , Ptr -> Ptr -> -> -> IO (Ptr ) +#ccall g_param_spec_pool_list , Ptr -> -> Ptr -> IO (Ptr (Ptr )) +#ccall g_param_spec_pool_list_owned , Ptr -> -> IO (Ptr ) + diff --git a/src/Bindings/GObject/GTypeModule.hsc b/src/Bindings/GObject/GTypeModule.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/GTypeModule.hsc @@ -0,0 +1,29 @@ +#include +#include + +-- | + +module Bindings.GObject.GTypeModule where +#strict_import +import Bindings.GLib.Fundamentals +import Bindings.GObject.BaseObjectType + +#starttype GTypeModule +#field name , Ptr +#stoptype + +#starttype GTypeModuleClass +#field parent_class , +#field load , Ptr -> IO +#field unload , Ptr -> IO () +#stoptype + +#ccall g_type_module_use , Ptr -> IO +#ccall g_type_module_unuse , Ptr -> IO () +#ccall g_type_module_set_name , Ptr -> Ptr -> IO () +#ccall g_type_module_register_type , Ptr -> -> Ptr -> Ptr -> -> IO +#ccall g_type_module_add_interface , Ptr -> -> -> Ptr -> IO () +#ccall g_type_module_register_enum , Ptr -> Ptr -> Ptr -> IO +#ccall g_type_module_register_flags , Ptr -> Ptr -> Ptr -> IO + + diff --git a/src/Bindings/GObject/GTypePlugin.hsc b/src/Bindings/GObject/GTypePlugin.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/GTypePlugin.hsc @@ -0,0 +1,23 @@ +#include +#include + +-- | + +module Bindings.GObject.GTypePlugin where +#strict_import +import Bindings.GObject.TypeInformation + +#starttype GTypePluginClass +#field use_plugin , +#field unuse_plugin , +#field complete_type_info , +#field complete_interface_info , +#stoptype + +#callback GTypePluginUse , Ptr -> IO () +#callback GTypePluginUnuse , Ptr -> IO () +#callback GTypePluginCompleteTypeInfo , Ptr -> \ + -> Ptr -> Ptr -> IO () +#callback GTypePluginCompleteInterfaceInfo , Ptr -> \ + -> -> Ptr -> IO () + diff --git a/src/Bindings/GObject/GenericValues.hsc b/src/Bindings/GObject/GenericValues.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/GenericValues.hsc @@ -0,0 +1,31 @@ +#include +#include + +-- | + +module Bindings.GObject.GenericValues where +#strict_import +import Bindings.GLib +import Bindings.GObject.TypeInformation + +#cinline G_VALUE_HOLDS , Ptr -> -> IO +#cinline G_VALUE_TYPE , Ptr -> IO +#cinline G_VALUE_TYPE_NAME , Ptr -> IO (Ptr ) +#cinline G_TYPE_IS_VALUE , -> IO +#cinline G_TYPE_IS_VALUE_ABSTRACT , -> IO +#cinline G_IS_VALUE , Ptr -> IO + +#ccall g_value_init , Ptr -> -> IO (Ptr ) +#ccall g_value_copy , Ptr -> Ptr -> IO () +#ccall g_value_reset , Ptr -> IO (Ptr ) +#ccall g_value_unset , Ptr -> IO () +#ccall g_value_set_instance , Ptr -> -> IO () +#ccall g_value_type_compatible , -> -> IO +#ccall g_value_type_transformable , -> -> IO +#ccall g_value_transform , Ptr -> Ptr -> IO + +#callback GValueTransform , Ptr -> Ptr -> IO () + +#ccall g_value_register_transform_func , -> -> -> IO () +#ccall g_strdup_value_contents , Ptr -> IO (Ptr ) + diff --git a/src/Bindings/GObject/TypeInformation.hsc b/src/Bindings/GObject/TypeInformation.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/TypeInformation.hsc @@ -0,0 +1,181 @@ +#include +#include + +-- | + +module Bindings.GObject.TypeInformation where +#strict_import +import Bindings.GLib +import Bindings.GObject.Varargs + +#integral_t GType +#opaque_t GTypePlugin +#opaque_t GValue + +#cinline G_TYPE_FUNDAMENTAL , -> + +#num G_TYPE_FUNDAMENTAL_MAX + +#cinline G_TYPE_MAKE_FUNDAMENTAL , -> +#cinline G_TYPE_IS_ABSTRACT , -> +#cinline G_TYPE_IS_DERIVED , -> +#cinline G_TYPE_IS_FUNDAMENTAL , -> +#cinline G_TYPE_IS_VALUE_TYPE , -> +#cinline G_TYPE_HAS_VALUE_TABLE , -> +#cinline G_TYPE_IS_CLASSED , -> +#cinline G_TYPE_IS_INSTANTIATABLE , -> +#cinline G_TYPE_IS_DERIVABLE , -> +#cinline G_TYPE_IS_DEEP_DERIVABLE , -> +#cinline G_TYPE_IS_INTERFACE , -> + +#starttype GTypeInterface +#stoptype + +#starttype GTypeInstance +#stoptype + +#starttype GTypeClass +#stoptype + +#starttype GTypeInfo +#field class_size , +#field base_init , +#field base_finalize , +#field class_init , +#field class_finalize , +#field class_data , +#field instance_size , +#field instance_init , +#field value_table , Ptr +#stoptype + +#starttype GTypeFundamentalInfo +#field type_flags , +#stoptype + +#starttype GInterfaceInfo +#field interface_init , +#field interface_finalize , +#field interface_data , +#stoptype + +#starttype GTypeValueTable +#field value_init , FunPtr (Ptr -> IO ()) +#field value_free , FunPtr (Ptr -> IO ()) +#field value_copy , FunPtr (Ptr -> Ptr -> IO ()) +#field value_peek_pointer , FunPtr (Ptr -> IO ) +#field collect_format , Ptr +#field collect_value , FunPtr (Ptr -> -> Ptr -> -> IO (Ptr )) +#field lcopy_format , Ptr +#field lcopy_value , FunPtr (Ptr -> -> Ptr -> -> IO (Ptr )) +#stoptype + +#num G_TYPE_FLAG_RESERVED_ID_BIT +#ccall g_type_init , IO () +#integral_t GTypeDebugFlags + +#num G_TYPE_DEBUG_NONE +#num G_TYPE_DEBUG_OBJECTS +#num G_TYPE_DEBUG_SIGNALS +#num G_TYPE_DEBUG_MASK + +#ccall g_type_init_with_debug_flags , -> IO () +#ccall g_type_name , -> IO (Ptr ) +#ccall g_type_qname , -> IO +#ccall g_type_from_name , Ptr -> IO +#ccall g_type_parent , -> IO +#ccall g_type_depth , -> IO +#ccall g_type_next_base , -> -> IO +#ccall g_type_is_a , -> -> IO +#ccall g_type_class_ref , -> IO +#ccall g_type_class_peek , -> IO +#ccall g_type_class_peek_static , -> IO +#ccall g_type_class_unref , -> IO () +#ccall g_type_class_peek_parent , -> IO +#ccall g_type_class_add_private , -> -> IO () +#ccall g_type_interface_peek , -> -> IO +#ccall g_type_interface_peek_parent , -> IO +#ccall g_type_default_interface_ref , -> IO +#ccall g_type_default_interface_peek , -> IO +#ccall g_type_default_interface_unref , -> IO () +#ccall g_type_children , -> Ptr -> IO (Ptr ) +#ccall g_type_interfaces , -> Ptr -> IO (Ptr ) +#ccall g_type_interface_prerequisites , -> Ptr -> IO (Ptr ) +#ccall g_type_set_qdata , -> -> -> IO () +#ccall g_type_get_qdata , -> -> IO +#ccall g_type_query , -> Ptr -> IO () + +#starttype GTypeQuery +#field type , +#field type_name , Ptr +#field class_size , +#field instance_size , +#stoptype + +#callback GBaseInitFunc , -> IO () +#callback GBaseFinalizeFunc , -> IO () +#callback GClassInitFunc , -> -> IO () +#callback GClassFinalizeFunc , -> -> IO () +#callback GInstanceInitFunc , Ptr -> -> IO () +#callback GInterfaceInitFunc , -> -> IO () +#callback GInterfaceFinalizeFunc , -> -> IO () +#callback GTypeClassCacheFunc , -> Ptr -> IO + +#integral_t GTypeFlags + +#num G_TYPE_FLAG_ABSTRACT +#num G_TYPE_FLAG_VALUE_ABSTRACT + +#integral_t GTypeFundamentalFlags + +#num G_TYPE_FLAG_CLASSED +#num G_TYPE_FLAG_INSTANTIATABLE +#num G_TYPE_FLAG_DERIVABLE +#num G_TYPE_FLAG_DEEP_DERIVABLE + +#ccall g_type_register_static , -> Ptr -> Ptr -> -> IO () +#ccall g_type_register_static_simple , -> Ptr -> -> -> -> -> -> IO () +#ccall g_type_register_dynamic , -> Ptr -> Ptr -> -> IO () +#ccall g_type_register_fundamental , -> Ptr -> Ptr -> Ptr -> -> IO () +#ccall g_type_add_interface_static , -> -> Ptr -> IO () +#ccall g_type_add_interface_dynamic , -> -> Ptr -> IO () +#ccall g_type_interface_add_prerequisite , -> -> IO () +#ccall g_type_get_plugin , -> IO (Ptr ) +#ccall g_type_interface_get_plugin , -> -> IO (Ptr ) +#ccall g_type_fundamental_next , IO () +#ccall g_type_add_class_cache_func , -> -> IO () +#ccall g_type_remove_class_cache_func , -> -> IO () +#ccall g_type_class_unref_uncached , -> IO () +#ccall g_type_add_interface_check , -> -> IO () +#ccall g_type_remove_interface_check , -> -> IO () + +#callback GTypeInterfaceCheckFunc , -> -> IO () + +#num G_TYPE_INVALID +#num G_TYPE_NONE +#num G_TYPE_INTERFACE +#num G_TYPE_CHAR +#num G_TYPE_UCHAR +#num G_TYPE_BOOLEAN +#num G_TYPE_INT +#num G_TYPE_UINT +#num G_TYPE_LONG +#num G_TYPE_ULONG +#num G_TYPE_INT64 +#num G_TYPE_UINT64 +#num G_TYPE_ENUM +#num G_TYPE_FLAGS +#num G_TYPE_FLOAT +#num G_TYPE_DOUBLE +#num G_TYPE_STRING +#num G_TYPE_POINTER +#num G_TYPE_BOXED +#num G_TYPE_PARAM +#num G_TYPE_OBJECT +-- G_TYPE_GTYPE +#num G_TYPE_RESERVED_GLIB_FIRST +#num G_TYPE_RESERVED_GLIB_LAST +#num G_TYPE_RESERVED_BSE_FIRST +#num G_TYPE_RESERVED_BSE_LAST +#num G_TYPE_RESERVED_USER_FIRST + diff --git a/src/Bindings/GObject/ValueArrays.hsc b/src/Bindings/GObject/ValueArrays.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/ValueArrays.hsc @@ -0,0 +1,26 @@ +#include +#include + +-- | + +module Bindings.GObject.ValueArrays where +#strict_import +import Bindings.GLib +import Bindings.GObject.TypeInformation + +#starttype GValueArray +#field n_values , +#field values , Ptr +#stoptype + +#ccall g_value_array_get_nth , Ptr -> -> IO (Ptr ) +#ccall g_value_array_new , -> IO (Ptr ) +#ccall g_value_array_copy , Ptr -> IO (Ptr ) +#ccall g_value_array_free , Ptr -> IO () +#ccall g_value_array_append , Ptr -> Ptr -> IO (Ptr ) +#ccall g_value_array_prepend , Ptr -> Ptr -> IO (Ptr ) +#ccall g_value_array_insert , Ptr -> -> Ptr -> IO (Ptr ) +#ccall g_value_array_remove , Ptr -> -> IO (Ptr ) +#ccall g_value_array_sort , Ptr -> -> IO (Ptr ) +#ccall g_value_array_sort_with_data , Ptr -> -> -> IO (Ptr ) + diff --git a/src/Bindings/GObject/Varargs.hsc b/src/Bindings/GObject/Varargs.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/GObject/Varargs.hsc @@ -0,0 +1,19 @@ +#include +#include + +-- | + +module Bindings.GObject.Varargs where +#strict_import +import Bindings.GLib + +#starttype GTypeCValue +#field v_int , +#field v_long , +#field v_int64 , +#field v_double , +#field v_pointer , +#stoptype + +#num G_VALUE_COLLECT_FORMAT_MAX_LENGTH + diff --git a/src/bindings-gobject.cmacros.h b/src/bindings-gobject.cmacros.h new file mode 100644 --- /dev/null +++ b/src/bindings-gobject.cmacros.h @@ -0,0 +1,18 @@ +#ifndef __BINDINGS_GOBJECT_CMACROS_H__ +#define __BINDINGS_GOBJECT_CMACROS_H__ + +#include + +#define BC_STANDARD_MACROS_NONCLASSED(prefix,object,CamelCase) \ + BC_INLINE_(prefix##_TYPE_##object,GType) \ + BC_INLINE1(prefix##_##object,GTypeInstance*,CamelCase*) \ + BC_INLINE1(prefix##_IS_##object,GTypeInstance*,gboolean) \ + +#define BC_STANDARD_MACROS(prefix,object,CamelCase) \ + BC_STANDARD_MACROS_NONCLASSED(prefix,object,CamelCase) \ + BC_INLINE1(prefix##_##object##_CLASS,GTypeClass*,CamelCase##Class*) \ + BC_INLINE1(prefix##_IS_##object##_CLASS,GTypeClass*,gboolean) \ + BC_INLINE1(prefix##_##object##_GET_CLASS,GTypeInstance*,CamelCase##Class*) \ + +#endif /* __BINDINGS_GOBJECT_CMACROS_H__ */ + diff --git a/src/bindings-gobject.dsl.h b/src/bindings-gobject.dsl.h new file mode 100644 --- /dev/null +++ b/src/bindings-gobject.dsl.h @@ -0,0 +1,20 @@ +#ifndef __BINDINGS_GOBJECT_DSL_H__ +#define __BINDINGS_GOBJECT_DSL_H__ + +#include + +#define hsc_standard_macros_nonclassed(prefix,object,CamelCase) \ + hsc_opaque_t(CamelCase) \ + hsc_cinline(prefix##_TYPE_##object,IO ) \ + hsc_cinline(prefix##_##object,Ptr -> IO (Ptr )) \ + hsc_cinline(prefix##_IS_##object,Ptr -> IO ) \ + +#define hsc_standard_macros(prefix,object,CamelCase) \ + hsc_opaque_t(CamelCase##Class) \ + hsc_standard_macros_nonclassed(prefix,object,CamelCase) \ + hsc_cinline(prefix##_##object##_CLASS,Ptr -> IO (Ptr )) \ + hsc_cinline(prefix##_IS_##object##_CLASS,Ptr -> IO ) \ + hsc_cinline(prefix##_##object##_GET_CLASS,Ptr -> IO (Ptr )) \ + +#endif /* __BINDINGS_GOBJECT_DSL_H__ */ + diff --git a/src/inlines.c b/src/inlines.c new file mode 100644 --- /dev/null +++ b/src/inlines.c @@ -0,0 +1,26 @@ +#include +#include + +BC_INLINE4(g_signal_connect,gpointer,gchar*,GCallback,gpointer,gulong) +BC_INLINE1(G_TYPE_FUNDAMENTAL,GType,GType) +BC_INLINE1(G_TYPE_MAKE_FUNDAMENTAL,GType,GType) +BC_INLINE1(G_TYPE_IS_ABSTRACT,GType,gboolean) +BC_INLINE1(G_TYPE_IS_DERIVED,GType,gboolean) +BC_INLINE1(G_TYPE_IS_FUNDAMENTAL,GType,gboolean) +BC_INLINE1(G_TYPE_IS_VALUE_TYPE,GType,gboolean) +BC_INLINE1(G_TYPE_HAS_VALUE_TABLE,GType,gboolean) +BC_INLINE1(G_TYPE_IS_CLASSED,GType,gboolean) +BC_INLINE1(G_TYPE_IS_INSTANTIATABLE,GType,gboolean) +BC_INLINE1(G_TYPE_IS_DERIVABLE,GType,gboolean) +BC_INLINE1(G_TYPE_IS_DEEP_DERIVABLE,GType,gboolean) +BC_INLINE1(G_TYPE_IS_INTERFACE,GType,gboolean) +BC_INLINE2(G_VALUE_HOLDS,GValue*,GType,gboolean) +BC_INLINE1(G_VALUE_TYPE,GValue*,GType) +BC_INLINE1(G_VALUE_TYPE_NAME,GValue*,const gchar*) +BC_INLINE1(G_TYPE_IS_VALUE,GType,gboolean) +BC_INLINE1(G_TYPE_IS_VALUE_ABSTRACT,GType,gboolean) +BC_INLINE1(G_IS_VALUE,GValue*,gboolean) +BC_INLINE1(G_CALLBACK,void*,GCallback) + +BC_INLINE1(G_OBJECT,void*,GObject*) +