gtype.zc

实现树形结构

import "glib/glib/gtypes"

public [name="c"]

struct GValue
	dummy: int
end

import func g_value_init (GValue,GType): GValue
import func g_value_copy (GValue,GValue): void
import func g_value_reset (GValue): GValue
import func g_value_unset (GValue): void
import func g_value_set_instance (GValue,gpointer): void

import func g_value_set_string (GValue,[] gchar): void

struct GTypeValueTable
	dummy: int
end

typedef GType = gulong

private import func g_type_fundamental (GType): GType
private import func g_type_test_flags (GType,guint): gboolean
private import func g_type_check_is_value_type (GType): gboolean
private import func g_type_check_value (GValue): gboolean
private import func g_type_value_table_peek (GType): GTypeValueTable

import func g_type_init: void
import func g_type_name (GType): [] gchar
import func g_type_from_name ([] gchar): GType
import func g_type_parent (GType): GType
import func g_type_depth (GType): guint
import func g_type_next_base (GType,GType): GType
import func g_type_is_a (GType,GType): gboolean
import func g_type_class_ref (GType): gpointer
import func g_type_class_peek (GType): gpointer
import func g_type_class_peek_static (GType): gpointer
import func g_type_class_unref (gpointer): void
import func g_type_class_peek_parent (gpointer): gpointer
import func g_type_interface_peek (gpointer,GType): gpointer
import func g_type_interface_peek_parent (gpointer): gpointer

import func g_type_default_interface_ref (GType): gpointer
import func g_type_default_interface_peek (GType): gpointer
import func g_type_default_interface_unref (gpointer): void

import func g_type_children (GType,[] guint): GType
import func g_type_interfaces (GType,[] guint): GType
import func g_type_query (GType,GTypeQuery): void

equ G_TYPE_FUNDAMENTAL_SHIFT = 2
equ G_TYPE_MAKE_FUNDAMENTAL (x: GType) = x << G_TYPE_FUNDAMENTAL_SHIFT
equ G_TYPE_RESERVED_GLIB_FIRST = 21
equ G_TYPE_RESERVED_GLIB_LAST = 31
equ G_TYPE_RESERVED_BSE_FIRST = 32
equ G_TYPE_RESERVED_BSE_LAST = 48
equ G_TYPE_RESERVED_USER_FIRST = 49

equ G_TYPE_FUNDAMENTAL(type: GType) = g_type_fundamental (type)
equ G_TYPE_FUNDAMENTAL_MAX = (255 << G_TYPE_FUNDAMENTAL_SHIFT):GType

equ G_TYPE_INVALID = G_TYPE_MAKE_FUNDAMENTAL (0:GType)
equ G_TYPE_NONE = G_TYPE_MAKE_FUNDAMENTAL (1:GType)
equ G_TYPE_INTERFACE = G_TYPE_MAKE_FUNDAMENTAL (2:GType)
equ G_TYPE_CHAR = G_TYPE_MAKE_FUNDAMENTAL (3:GType)
equ G_TYPE_UCHAR = G_TYPE_MAKE_FUNDAMENTAL (4:GType)
equ G_TYPE_BOOLEAN = G_TYPE_MAKE_FUNDAMENTAL (5:GType)
equ G_TYPE_INT = G_TYPE_MAKE_FUNDAMENTAL (6:GType)
equ G_TYPE_UINT = G_TYPE_MAKE_FUNDAMENTAL (7:GType)
equ G_TYPE_LONG = G_TYPE_MAKE_FUNDAMENTAL (8:GType)
equ G_TYPE_ULONG = G_TYPE_MAKE_FUNDAMENTAL (9:GType)
equ G_TYPE_INT64 = G_TYPE_MAKE_FUNDAMENTAL (10:GType)
equ G_TYPE_UINT64 = G_TYPE_MAKE_FUNDAMENTAL (11:GType)
equ G_TYPE_ENUM = G_TYPE_MAKE_FUNDAMENTAL (12:GType)
equ G_TYPE_FLAGS = G_TYPE_MAKE_FUNDAMENTAL (13:GType)
equ G_TYPE_FLOAT = G_TYPE_MAKE_FUNDAMENTAL (14:GType)
equ G_TYPE_DOUBLE = G_TYPE_MAKE_FUNDAMENTAL (15:GType)
equ G_TYPE_STRING = G_TYPE_MAKE_FUNDAMENTAL (16:GType)
equ G_TYPE_POINTER = G_TYPE_MAKE_FUNDAMENTAL (17:GType)
equ G_TYPE_BOXED = G_TYPE_MAKE_FUNDAMENTAL (18:GType)
equ G_TYPE_PARAM = G_TYPE_MAKE_FUNDAMENTAL (19:GType)
equ G_TYPE_OBJECT = G_TYPE_MAKE_FUNDAMENTAL (20:GType)

enum GTypeFundamentalFlags
	G_TYPE_FLAG_CLASSED           = 1 << 0
	G_TYPE_FLAG_INSTANTIATABLE    = 1 << 1
	G_TYPE_FLAG_DERIVABLE         = 1 << 2
	G_TYPE_FLAG_DEEP_DERIVABLE    = 1 << 3
end
enum GTypeFlags
	G_TYPE_FLAG_ABSTRACT		= 1 << 4
	G_TYPE_FLAG_VALUE_ABSTRACT	= 1 << 5
end

equ G_TYPE_IS_FUNDAMENTAL(type: GType) = type <= G_TYPE_FUNDAMENTAL_MAX
equ G_TYPE_IS_DERIVED(type: GType) = type > G_TYPE_FUNDAMENTAL_MAX
equ G_TYPE_IS_INTERFACE(type: GType) = G_TYPE_FUNDAMENTAL (type) == G_TYPE_INTERFACE
equ G_TYPE_IS_CLASSED(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_CLASSED: guint)
equ G_TYPE_IS_INSTANTIATABLE(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_INSTANTIATABLE: guint)
equ G_TYPE_IS_DERIVABLE(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_DERIVABLE: guint)
equ G_TYPE_IS_DEEP_DERIVABLE(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_DEEP_DERIVABLE: guint)
equ G_TYPE_IS_ABSTRACT(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_ABSTRACT: guint)
equ G_TYPE_IS_VALUE_ABSTRACT(type: GType) = g_type_test_flags (type, G_TYPE_FLAG_VALUE_ABSTRACT: guint)
equ G_TYPE_IS_VALUE_TYPE(type: GType) = g_type_check_is_value_type (type)
equ G_TYPE_HAS_VALUE_TABLE(type: GType) = not nil (g_type_value_table_peek (type))

struct GTypeClass
	private g_type: GType
end
struct GTypeInstance
	private g_class: GTypeClass
end
struct GTypeInterface
	private g_type: GType
	private g_instance_type: GType
end
struct GTypeQuery
	type: GType 
    type_name: []gchar
	class_size: guint
	instance_size: guint
end

typedef GBaseInitFunc = {gpointer} void
typedef GBaseFinalizeFunc = {gpointer} void
typedef GClassInitFunc = {gpointer, gpointer} void
typedef GClassFinalizeFunc = {gpointer, gpointer} void
typedef GInstanceInitFunc = {GTypeInstance, gpointer} void
typedef GInterfaceInitFunc = {gpointer, gpointer} void
typedef GInterfaceFinalizeFunc = {gpointer, gpointer} void
typedef GTypeClassCacheFunc = {gpointer, GTypeClass} gboolean
typedef GTypeInterfaceCheckFunc = {gpointer, gpointer} void

struct GTypeInfo
	class_size: guint16
	base_init: GBaseInitFunc
	base_finalize: GBaseFinalizeFunc
	class_init: GClassInitFunc
	class_finalize: GClassFinalizeFunc
	class_data: gconstpointer
	instance_size: guint16
	n_preallocs: guint16
	instance_init: GInstanceInitFunc
	value_table: GTypeValueTable
end

struct GInterfaceInfo
	interface_init: GInterfaceInitFunc
	interface_finalize: GInterfaceFinalizeFunc
	interface_data: gpointer
end

import func g_type_check_instance_cast (GTypeInstance, GType): GTypeInstance
import func g_type_check_instance_is_a (GTypeInstance, GType): gboolean
import func g_type_register_static(GType, []gchar, GTypeInfo, GTypeFlags): GType 
import func g_type_add_interface_static	(GType, GType, GInterfaceInfo): void

end