*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Library General Public License for more details.
*
* You should have received a copy of the GNU Library General Public
* Free Software Foundation, Inc., 59 Temple Place - Suite 330,
* Boston, MA 02111-1307, USA.
*/
-#include <string.h>
-#include "gtkobject.h"
-#include "gtktypeutils.h"
-
-
-#define TYPE_NODES_BLOCK_SIZE (200)
-
-typedef struct _GtkTypeNode GtkTypeNode;
-
-struct _GtkTypeNode
-{
- GtkType type;
- GtkTypeInfo type_info;
- guint n_supers;
- GtkType *supers;
- GtkType parent_type;
- gpointer klass;
- GList *children_types;
-};
-
-
-#define LOOKUP_TYPE_NODE(node_var, type) { \
- if (type > 0) \
- { \
- register GtkType sqn = GTK_TYPE_SEQNO (type); \
- if (sqn < n_type_nodes) \
- node_var = type_nodes + sqn; \
- else \
- node_var = NULL; \
- } \
- else \
- node_var = NULL; \
-}
-
-static void gtk_type_class_init (GtkTypeNode *node);
-static guint gtk_type_name_hash (const char *key);
-static gint gtk_type_name_compare (const char *a,
- const char *b);
-static void gtk_type_init_builtin_types (void);
-
-static GtkTypeNode *type_nodes = NULL;
-static guint n_type_nodes = 0;
-static GHashTable *type_name_2_type_ht = NULL;
-
-
-static GtkTypeNode*
-gtk_type_node_next_and_invalidate (void)
-{
- static guint n_free_type_nodes = 0;
- register GtkTypeNode *node;
- register GtkType new_type;
-
- /* don't keep *any* GtkTypeNode pointers across invokation of this function!!!
- */
-
- if (n_free_type_nodes == 0)
- {
- register guint i;
- register guint size;
-
- /* nearest pow
- */
- size = n_type_nodes + TYPE_NODES_BLOCK_SIZE;
- size *= sizeof (GtkTypeNode);
- i = 1;
- while (i < size)
- i <<= 1;
- size = i;
-
- type_nodes = g_realloc (type_nodes, size);
-
- n_free_type_nodes = size / sizeof (GtkTypeNode) - n_type_nodes;
-
- memset (type_nodes + n_type_nodes, 0, n_free_type_nodes * sizeof (GtkTypeNode));
- }
-
- new_type = n_type_nodes++;
- n_free_type_nodes--;
-
- LOOKUP_TYPE_NODE (node, new_type);
- if (node)
- node->type = new_type;
-
- return node;
-}
-
-void
-gtk_type_init (void)
-{
- if (n_type_nodes == 0)
- {
- GtkTypeNode *zero;
-
- g_assert (sizeof (GtkType) >= 4);
-
- zero = gtk_type_node_next_and_invalidate ();
- g_assert (zero == NULL);
-
- type_name_2_type_ht = g_hash_table_new ((GHashFunc) gtk_type_name_hash,
- (GCompareFunc) gtk_type_name_compare);
-
- gtk_type_init_builtin_types ();
- }
-}
-
-GtkType
-gtk_type_unique (GtkType parent_type,
- GtkTypeInfo *type_info)
-{
- GtkTypeNode *new_node;
- GtkTypeNode *parent;
- guint i;
-
- g_return_val_if_fail (type_info != NULL, 0);
-
- if (n_type_nodes == 0)
- gtk_type_init ();
-
- if (g_hash_table_lookup (type_name_2_type_ht, type_info->type_name))
- {
- g_warning ("gtk_type_unique(): type `%s' already exists.", type_info->type_name);
- return 0;
- }
- if (parent_type)
- {
- GtkTypeNode *tmp_node;
-
- LOOKUP_TYPE_NODE (tmp_node, parent_type);
- if (!tmp_node)
- {
- g_warning ("gtk_type_unique(): unknown parent type `%u'.", parent_type);
- return 0;
- }
- }
-
- /* relookup pointer afterwards.
- */
- new_node = gtk_type_node_next_and_invalidate ();
-
- if (parent_type)
- {
- new_node->type = GTK_TYPE_MAKE (parent_type, new_node->type);
- LOOKUP_TYPE_NODE (parent, parent_type);
- }
- else
- {
- g_assert (new_node->type <= 0xff);
- parent = NULL;
- }
-
- new_node->type_info = *type_info;
- new_node->type_info.type_name = g_strdup (type_info->type_name);
- new_node->n_supers = parent ? parent->n_supers + 1 : 0;
- new_node->supers = g_new0 (GtkType, new_node->n_supers + 1);
- new_node->parent_type = parent_type;
- new_node->klass = NULL;
- new_node->children_types = NULL;
-
- if (parent)
- parent->children_types = g_list_append (parent->children_types, (gpointer) new_node->type);
-
- parent = new_node;
- for (i = 0; i < new_node->n_supers + 1; i++)
- {
- new_node->supers[i] = parent->type;
- LOOKUP_TYPE_NODE (parent, parent->parent_type);
- }
-
- g_hash_table_insert (type_name_2_type_ht, new_node->type_info.type_name, (gpointer) new_node->type);
-
- return new_node->type;
-}
-
-gchar*
-gtk_type_name (GtkType type)
-{
- GtkTypeNode *node;
- LOOKUP_TYPE_NODE (node, type);
+/*
+ * Modified by the GTK+ Team and others 1997-2000. See the AUTHORS
+ * file for a list of people on the GTK+ Team. See the ChangeLog
+ * files for a list of changes. These files are distributed with
+ * GTK+ at ftp://ftp.gtk.org/pub/gtk/.
+ */
- if (node)
- return node->type_info.type_name;
+#include "gtktypeutils.h"
+#include "gtkobject.h"
- return NULL;
-}
+/* --- functions --- */
GtkType
-gtk_type_from_name (const gchar *name)
+gtk_type_unique (GtkType parent_type,
+ const GtkTypeInfo *gtkinfo)
{
- if (type_name_2_type_ht)
- {
- GtkType type;
-
- type = (GtkType) g_hash_table_lookup (type_name_2_type_ht, (gpointer) name);
-
- return type;
- }
-
- return 0;
-}
+ GTypeInfo tinfo = { 0, };
-GtkType
-gtk_type_parent (GtkType type)
-{
- GtkTypeNode *node;
+ g_return_val_if_fail (GTK_TYPE_IS_OBJECT (parent_type), 0);
+ g_return_val_if_fail (gtkinfo != NULL, 0);
+ g_return_val_if_fail (gtkinfo->type_name != NULL, 0);
+ g_return_val_if_fail (g_type_from_name (gtkinfo->type_name) == 0, 0);
- LOOKUP_TYPE_NODE (node, type);
- if (node)
- return node->parent_type;
+ tinfo.class_size = gtkinfo->class_size;
+ tinfo.base_init = gtkinfo->base_class_init_func;
+ tinfo.base_finalize = NULL;
+ tinfo.class_init = (GClassInitFunc) gtkinfo->class_init_func;
+ tinfo.class_finalize = NULL;
+ tinfo.class_data = NULL;
+ tinfo.instance_size = gtkinfo->object_size;
+ tinfo.n_preallocs = 0;
+ tinfo.instance_init = gtkinfo->object_init_func;
- return 0;
+ return g_type_register_static (parent_type, gtkinfo->type_name, &tinfo);
}
gpointer
-gtk_type_parent_class (GtkType type)
+gtk_type_class (GtkType type)
{
- GtkTypeNode *node;
-
- LOOKUP_TYPE_NODE (node, type);
- g_return_val_if_fail (node != NULL, NULL);
+ static GQuark quark_static_class = 0;
+ gpointer class;
+
+ if (!G_TYPE_IS_ENUM (type) && !G_TYPE_IS_FLAGS (type))
+ g_return_val_if_fail (GTK_TYPE_IS_OBJECT (type), NULL);
+
+ /* ok, this is a bit ugly, GLib reference counts classes,
+ * and gtk_type_class() used to always return static classes.
+ * while we coud be faster with just peeking the glib class
+ * for the normal code path, we can't be sure that that
+ * class stays around (someone else might be holding the
+ * reference count and is going to drop it later). so to
+ * ensure that Gtk actually holds a static reference count
+ * on the class, we use GType qdata to store referenced
+ * classes, and only return those.
+ */
- if (node)
+ class = g_type_get_qdata (type, quark_static_class);
+ if (!class)
{
- LOOKUP_TYPE_NODE (node, node->parent_type);
+ if (!quark_static_class)
+ quark_static_class = g_quark_from_static_string ("GtkStaticTypeClass");
- if (node)
- {
- if (!node->klass)
- gtk_type_class_init (node);
-
- return node->klass;
- }
+ class = g_type_class_ref (type);
+ g_assert (class != NULL);
+ g_type_set_qdata (type, quark_static_class, class);
}
- return NULL;
-}
-
-gpointer
-gtk_type_class (GtkType type)
-{
- GtkTypeNode *node;
-
- LOOKUP_TYPE_NODE (node, type);
- g_return_val_if_fail (node != NULL, NULL);
-
- if (!node->klass)
- gtk_type_class_init (node);
-
- return node->klass;
+ return class;
}
gpointer
gtk_type_new (GtkType type)
{
- GtkTypeNode *node;
- GtkObject *object;
- gpointer klass;
- guint i;
+ gpointer object;
- LOOKUP_TYPE_NODE (node, type);
- g_return_val_if_fail (node != NULL, NULL);
+ g_return_val_if_fail (GTK_TYPE_IS_OBJECT (type), NULL);
- klass = gtk_type_class (type);
- object = g_malloc0 (node->type_info.object_size);
- object->klass = klass;
-
- for (i = node->n_supers; i > 0; i--)
- {
- GtkTypeNode *pnode;
-
- LOOKUP_TYPE_NODE (pnode, node->supers[i]);
- if (pnode->type_info.object_init_func)
- (* pnode->type_info.object_init_func) (object);
- }
- if (node->type_info.object_init_func)
- (* node->type_info.object_init_func) (object);
+ object = g_type_create_instance (type);
return object;
}
-void
-gtk_type_describe_heritage (GtkType type)
-{
- GtkTypeNode *node;
- gint first;
-
- LOOKUP_TYPE_NODE (node, type);
- first = TRUE;
-
- while (node)
- {
- if (first)
- {
- first = FALSE;
- g_print ("is a ");
- }
-
- if (node->type_info.type_name)
- g_print ("%s\n", node->type_info.type_name);
- else
- g_print ("<unnamed type>\n");
+/* includes for various places
+ * with enum definitions
+ */
+#include "makeenums.h"
+/* type variable declarations
+ */
+#include "gtktypebuiltins_vars.c"
+GType GTK_TYPE_IDENTIFIER = 0;
+#include "gtktypebuiltins_evals.c" /* enum value definition arrays */
- LOOKUP_TYPE_NODE (node, node->parent_type);
- }
-}
+/* Hack to communicate with GLib object debugging for now
+ */
+extern gboolean glib_debug_objects;
void
-gtk_type_describe_tree (GtkType type,
- gint show_size)
+gtk_type_init (void)
{
- GtkTypeNode *node;
-
- LOOKUP_TYPE_NODE (node, type);
+ static gboolean initialized = FALSE;
- if (node)
- {
- static gint indent = 0;
- GList *list;
- guint old_indent;
+ if (!initialized)
+ {
+ static const struct {
+ GtkType type_id;
+ gchar *name;
+ } fundamental_info[] = {
+ { GTK_TYPE_POINTER, "gpointer" },
+ { GTK_TYPE_SIGNAL, "GtkSignal" },
+ };
+ static struct {
+ gchar *type_name;
+ GtkType *type_id;
+ GtkType parent;
+ const GtkEnumValue *values;
+ } builtin_info[GTK_TYPE_N_BUILTINS + 1] = {
+#include "gtktypebuiltins_ids.c" /* type entries */
+ { NULL }
+ };
+ GTypeFundamentalInfo finfo = { 0, };
+ GTypeInfo tinfo = { 0, };
+ GtkType type_id;
guint i;
+
+ initialized = TRUE;
+
+ glib_debug_objects = gtk_debug_flags & GTK_DEBUG_OBJECTS != 0;
- for (i = 0; i < indent; i++)
- g_print (" ");
-
- if (node->type_info.type_name)
- g_print ("%s", node->type_info.type_name);
- else
- g_print ("(no-name)");
-
- if (show_size)
- g_print (" ( %d bytes )\n", node->type_info.object_size);
- else
- g_print ("\n");
-
- old_indent = indent;
- indent += 4;
-
- for (list = node->children_types; list; list = list->next)
- gtk_type_describe_tree ((GtkType) list->data, show_size);
+ /* initialize GLib type system
+ */
+ g_type_init ();
- indent = old_indent;
- }
-}
-
-gint
-gtk_type_is_a (GtkType type,
- GtkType is_a_type)
-{
- if (type == is_a_type)
- return TRUE;
- else
- {
- register GtkTypeNode *node;
+ /* GTK_TYPE_OBJECT
+ */
+ gtk_object_get_type ();
- LOOKUP_TYPE_NODE (node, type);
- if (node)
+ /* compatibility fundamentals
+ */
+ for (i = 0; i < sizeof (fundamental_info) / sizeof (fundamental_info[0]); i++)
{
- register GtkTypeNode *a_node;
-
- LOOKUP_TYPE_NODE (a_node, is_a_type);
- if (a_node)
- {
- if (a_node->n_supers <= node->n_supers)
- return node->supers[node->n_supers - a_node->n_supers] == is_a_type;
- }
+ type_id = g_type_register_fundamental (fundamental_info[i].type_id,
+ fundamental_info[i].name,
+ &tinfo,
+ &finfo);
+ g_assert (type_id == fundamental_info[i].type_id);
}
- }
-
- return FALSE;
-}
-
-void
-gtk_type_get_arg (GtkObject *object,
- GtkType type,
- GtkArg *arg,
- guint arg_id)
-{
- GtkTypeNode *node;
-
- g_return_if_fail (object != NULL);
- g_return_if_fail (arg != NULL);
-
- LOOKUP_TYPE_NODE (node, type);
- if (node && node->type_info.arg_get_func)
- (* node->type_info.arg_get_func) (object, arg, arg_id);
- else
- arg->type = GTK_TYPE_INVALID;
-}
-
-void
-gtk_type_set_arg (GtkObject *object,
- GtkType type,
- GtkArg *arg,
- guint arg_id)
-{
- GtkTypeNode *node;
-
- g_return_if_fail (object != NULL);
- g_return_if_fail (arg != NULL);
+ /* GTK_TYPE_IDENTIFIER
+ */
+ GTK_TYPE_IDENTIFIER = g_type_register_static (G_TYPE_STRING, "GtkIdentifier", &tinfo);
- LOOKUP_TYPE_NODE (node, type);
+ /* GTK_TYPE_BOXED
+ */
+ finfo.type_flags = G_TYPE_FLAG_DERIVABLE;
+ type_id = g_type_register_fundamental (GTK_TYPE_BOXED, "GtkBoxed", &tinfo, &finfo);
+ g_assert (type_id == GTK_TYPE_BOXED);
- if (node && node->type_info.arg_set_func)
- (* node->type_info.arg_set_func) (object, arg, arg_id);
+ /* enums and flags
+ */
+ for (i = 0; i < GTK_TYPE_N_BUILTINS; i++)
+ {
+ GtkType type_id = 0;
+
+ if (builtin_info[i].parent == G_TYPE_ENUM)
+ type_id = g_enum_register_static (builtin_info[i].type_name, builtin_info[i].values);
+ else if (builtin_info[i].parent == G_TYPE_FLAGS)
+ type_id = g_flags_register_static (builtin_info[i].type_name, builtin_info[i].values);
+ else if (builtin_info[i].parent == GTK_TYPE_BOXED)
+ type_id = g_type_register_static (GTK_TYPE_BOXED, builtin_info[i].type_name, &tinfo);
+ else
+ g_assert_not_reached ();
+
+ *builtin_info[i].type_id = type_id;
+ }
+ }
}
-GtkArg*
-gtk_arg_copy (GtkArg *src_arg,
- GtkArg *dest_arg)
+GtkEnumValue*
+gtk_type_enum_get_values (GtkType enum_type)
{
- g_return_val_if_fail (src_arg != NULL, NULL);
-
- if (!dest_arg)
- {
- dest_arg = g_new0 (GtkArg, 1);
- dest_arg->name = src_arg->name;
- }
+ GEnumClass *class;
- dest_arg->type = src_arg->type;
- dest_arg->d = src_arg->d;
-
- if (src_arg->type == GTK_TYPE_STRING)
- dest_arg->d.string_data = g_strdup (src_arg->d.string_data);
-
- return dest_arg;
+ g_return_val_if_fail (G_TYPE_IS_ENUM (enum_type), NULL);
+
+ class = gtk_type_class (enum_type);
+
+ return class->values;
}
-static void
-gtk_type_class_init (GtkTypeNode *node)
+GtkFlagValue*
+gtk_type_flags_get_values (GtkType flags_type)
{
- if (!node->klass && node->type_info.class_size)
- {
- node->klass = g_new0 (guchar, node->type_info.class_size);
+ GFlagsClass *class;
- if (node->parent_type)
- {
- GtkTypeNode *parent;
-
- LOOKUP_TYPE_NODE (parent, node->parent_type);
- if (!parent->klass)
- gtk_type_class_init (parent);
+ g_return_val_if_fail (G_TYPE_IS_FLAGS (flags_type), NULL);
- if (parent->klass)
- memcpy (node->klass, parent->klass, parent->type_info.class_size);
- }
+ class = gtk_type_class (flags_type);
- if (gtk_type_is_a (node->type, GTK_TYPE_OBJECT))
- {
- GtkObjectClass *object_class;
-
- /* FIXME: this initialization needs to be done through
- * a function pointer someday.
- */
- g_assert (node->type_info.class_size >= sizeof (GtkObjectClass));
-
- object_class = node->klass;
- object_class->type = node->type;
- object_class->signals = NULL;
- object_class->nsignals = 0;
- object_class->n_args = 0;
- }
-
- if (node->type_info.class_init_func)
- (* node->type_info.class_init_func) (node->klass);
- }
+ return class->values;
}
-static guint
-gtk_type_name_hash (const char *key)
+GtkEnumValue*
+gtk_type_enum_find_value (GtkType enum_type,
+ const gchar *value_name)
{
- guint result;
+ GtkEnumValue *value;
+ GEnumClass *class;
- result = 0;
- while (*key)
- result += (result << 3) + *key++;
+ g_return_val_if_fail (G_TYPE_IS_ENUM (enum_type), NULL);
+ g_return_val_if_fail (value_name != NULL, NULL);
- return result;
-}
+ class = gtk_type_class (enum_type);
+ value = g_enum_get_value_by_name (class, value_name);
+ if (!value)
+ value = g_enum_get_value_by_nick (class, value_name);
-static gint
-gtk_type_name_compare (const char *a,
- const char *b)
-{
- return (strcmp (a, b) == 0);
+ return value;
}
-static GtkType
-gtk_type_register_builtin (char *name,
- GtkType parent)
+GtkFlagValue*
+gtk_type_flags_find_value (GtkType flags_type,
+ const gchar *value_name)
{
- GtkTypeInfo info;
-
- info.type_name = name;
- info.object_size = info.class_size = 0;
- info.class_init_func = NULL;
- info.object_init_func = NULL;
- info.arg_set_func = NULL;
- info.arg_get_func = NULL;
-
- return gtk_type_unique (parent, &info);
-}
+ GtkFlagValue *value;
+ GFlagsClass *class;
-extern void gtk_object_init_type (void);
+ g_return_val_if_fail (G_TYPE_IS_FLAGS (flags_type), NULL);
+ g_return_val_if_fail (value_name != NULL, NULL);
-GtkType gtk_type_builtins[GTK_TYPE_NUM_BUILTINS];
+ class = gtk_type_class (flags_type);
+ value = g_flags_get_value_by_name (class, value_name);
+ if (!value)
+ value = g_flags_get_value_by_nick (class, value_name);
-static void
-gtk_type_init_builtin_types (void)
-{
- /* GTK_TYPE_INVALID has typeid 0. The first type id returned by
- gtk_type_unique is 1, which is GTK_TYPE_NONE. And so on. */
-
- static struct {
- GtkType enum_id;
- gchar *name;
- } fundamental_info[] = {
- { GTK_TYPE_NONE, "void" },
- { GTK_TYPE_CHAR, "char" },
- { GTK_TYPE_BOOL, "bool" },
- { GTK_TYPE_INT, "int" },
- { GTK_TYPE_UINT, "uint" },
- { GTK_TYPE_LONG, "long" },
- { GTK_TYPE_ULONG, "ulong" },
- { GTK_TYPE_FLOAT, "float" },
- { GTK_TYPE_DOUBLE, "double" },
- { GTK_TYPE_STRING, "string" },
- { GTK_TYPE_ENUM, "enum" },
- { GTK_TYPE_FLAGS, "flags" },
- { GTK_TYPE_BOXED, "boxed" },
- { GTK_TYPE_FOREIGN, "foreign" },
- { GTK_TYPE_CALLBACK, "callback" },
- { GTK_TYPE_ARGS, "args" },
-
- { GTK_TYPE_POINTER, "pointer" },
- { GTK_TYPE_SIGNAL, "signal" },
- { GTK_TYPE_C_CALLBACK, "c_callback" }
- };
-
- static struct {
- char *name;
- GtkType parent;
- } builtin_info[] = {
-#include "gtktypebuiltins.c"
- { NULL }
- };
-
- int i;
-
- for (i = 0; i < sizeof (fundamental_info) / sizeof (fundamental_info[0]); i++)
- {
- GtkType id;
- id = gtk_type_register_builtin (fundamental_info[i].name,
- GTK_TYPE_INVALID);
- g_assert (id == fundamental_info[i].enum_id);
- }
-
- gtk_object_init_type ();
-
- for (i = 0; builtin_info[i].name; i++)
- {
- gtk_type_builtins[i] =
- gtk_type_register_builtin (builtin_info[i].name,
- builtin_info[i].parent);
- }
+ return value;
}
projects / ~andy / gtk / blobdiff