/* GObject - GLib Type, Object, Parameter and Signal Library
- * Copyright (C) 1997, 1998, 1999, 2000 Tim Janik and Red Hat, Inc.
+ * Copyright (C) 1997-1999, 2000-2001 Tim Janik and Red Hat, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307, USA.
*/
+
+/*
+ * MT safe
+ */
+
#include "gparam.h"
/* --- defines --- */
-#define G_PARAM_SPEC_CLASS(class) (G_TYPE_CHECK_CLASS_CAST ((class), G_TYPE_PARAM, GParamSpecClass))
-#define PSPEC_APPLIES_TO_VALUE(pspec, value) (G_TYPE_CHECK_VALUE_TYPE ((value), G_PARAM_SPEC_VALUE_TYPE (pspec)))
+#define G_PARAM_USER_MASK (~0 << G_PARAM_USER_SHIFT)
+#define PSPEC_APPLIES_TO_VALUE(pspec, value) (G_TYPE_CHECK_VALUE_TYPE ((value), G_PARAM_SPEC_VALUE_TYPE (pspec)))
+#define G_SLOCK(mutex) g_static_mutex_lock (mutex)
+#define G_SUNLOCK(mutex) g_static_mutex_unlock (mutex)
/* --- prototypes --- */
static void value_param_free_value (GValue *value);
static void value_param_copy_value (const GValue *src_value,
GValue *dest_value);
+static void value_param_transform_value (const GValue *src_value,
+ GValue *dest_value);
static gpointer value_param_peek_pointer (const GValue *value);
static gchar* value_param_collect_value (GValue *value,
- guint nth_value,
- GType *collect_type,
- GTypeCValue *collect_value);
+ guint n_collect_values,
+ GTypeCValue *collect_values,
+ guint collect_flags);
static gchar* value_param_lcopy_value (const GValue *value,
- guint nth_value,
- GType *collect_type,
- GTypeCValue *collect_value);
+ guint n_collect_values,
+ GTypeCValue *collect_values,
+ guint collect_flags);
/* --- variables --- */
static GQuark quark_floating = 0;
+G_LOCK_DEFINE_STATIC (pspec_ref_count);
/* --- functions --- */
value_param_free_value, /* value_free */
value_param_copy_value, /* value_copy */
value_param_peek_pointer, /* value_peek_pointer */
- G_VALUE_COLLECT_POINTER, /* collect_type */
+ "p", /* collect_format */
value_param_collect_value, /* collect_value */
- G_VALUE_COLLECT_POINTER, /* lcopy_type */
+ "p", /* lcopy_format */
value_param_lcopy_value, /* lcopy_value */
};
static const GTypeInfo param_spec_info = {
type = g_type_register_fundamental (G_TYPE_PARAM, "GParam", ¶m_spec_info, &finfo, G_TYPE_FLAG_ABSTRACT);
g_assert (type == G_TYPE_PARAM);
+ g_value_register_transform_func (G_TYPE_PARAM, G_TYPE_PARAM, value_param_transform_value);
}
static void
GParamSpecClass *class)
{
pspec->name = NULL;
- pspec->nick = NULL;
- pspec->blurb = NULL;
+ pspec->_nick = NULL;
+ pspec->_blurb = NULL;
pspec->flags = 0;
pspec->value_type = class->value_type;
pspec->owner_type = 0;
pspec->qdata = NULL;
pspec->ref_count = 1;
+ pspec->param_id = 0;
g_datalist_id_set_data (&pspec->qdata, quark_floating, GUINT_TO_POINTER (TRUE));
}
g_datalist_clear (&pspec->qdata);
g_free (pspec->name);
- g_free (pspec->nick);
- g_free (pspec->blurb);
+ g_free (pspec->_nick);
+ g_free (pspec->_blurb);
g_type_free_instance ((GTypeInstance*) pspec);
}
g_param_spec_ref (GParamSpec *pspec)
{
g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);
- g_return_val_if_fail (pspec->ref_count > 0, NULL);
-
- pspec->ref_count += 1;
+ G_LOCK (pspec_ref_count);
+ if (pspec->ref_count > 0)
+ {
+ pspec->ref_count += 1;
+ G_UNLOCK (pspec_ref_count);
+ }
+ else
+ {
+ G_UNLOCK (pspec_ref_count);
+ g_return_val_if_fail (pspec->ref_count > 0, NULL);
+ }
+
return pspec;
}
g_param_spec_unref (GParamSpec *pspec)
{
g_return_if_fail (G_IS_PARAM_SPEC (pspec));
- g_return_if_fail (pspec->ref_count > 0);
- /* sync with _sink */
- pspec->ref_count -= 1;
- if (pspec->ref_count == 0)
- G_PARAM_SPEC_GET_CLASS (pspec)->finalize (pspec);
+ G_LOCK (pspec_ref_count);
+ if (pspec->ref_count > 0)
+ {
+ gboolean need_finalize;
+
+ /* sync with _sink */
+ pspec->ref_count -= 1;
+ need_finalize = pspec->ref_count == 0;
+ G_UNLOCK (pspec_ref_count);
+ if (need_finalize)
+ G_PARAM_SPEC_GET_CLASS (pspec)->finalize (pspec);
+ }
+ else
+ {
+ G_UNLOCK (pspec_ref_count);
+ g_return_if_fail (pspec->ref_count > 0);
+ }
}
void
g_param_spec_sink (GParamSpec *pspec)
{
g_return_if_fail (G_IS_PARAM_SPEC (pspec));
- g_return_if_fail (pspec->ref_count > 0);
- if (g_datalist_id_remove_no_notify (&pspec->qdata, quark_floating))
+ G_LOCK (pspec_ref_count);
+ if (pspec->ref_count > 0)
{
- /* sync with _unref */
- if (pspec->ref_count > 1)
- pspec->ref_count -= 1;
- else
- g_param_spec_unref (pspec);
+ if (g_datalist_id_remove_no_notify (&pspec->qdata, quark_floating))
+ {
+ /* sync with _unref */
+ if (pspec->ref_count > 1)
+ pspec->ref_count -= 1;
+ else
+ {
+ G_UNLOCK (pspec_ref_count);
+ g_param_spec_unref (pspec);
+
+ return;
+ }
+ }
+ G_UNLOCK (pspec_ref_count);
+ }
+ else
+ {
+ G_UNLOCK (pspec_ref_count);
+ g_return_if_fail (pspec->ref_count > 0);
+ }
+}
+
+G_CONST_RETURN gchar*
+g_param_spec_get_name (GParamSpec *pspec)
+{
+ g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);
+
+ return pspec->name;
+}
+
+G_CONST_RETURN gchar*
+g_param_spec_get_nick (GParamSpec *pspec)
+{
+ g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);
+
+ return pspec->_nick ? pspec->_nick : pspec->name;
+}
+
+G_CONST_RETURN gchar*
+g_param_spec_get_blurb (GParamSpec *pspec)
+{
+ g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);
+
+ return pspec->_blurb;
+}
+
+static void
+canonalize_key (gchar *key)
+{
+ gchar *p;
+
+ for (p = key; *p != 0; p++)
+ {
+ gchar c = *p;
+
+ if (c != '-' &&
+ (c < '0' || c > '9') &&
+ (c < 'A' || c > 'Z') &&
+ (c < 'a' || c > 'z'))
+ *p = '-';
}
}
GParamFlags flags)
{
GParamSpec *pspec;
-
+
g_return_val_if_fail (G_TYPE_IS_PARAM (param_type) && param_type != G_TYPE_PARAM, NULL);
g_return_val_if_fail (name != NULL, NULL);
-
+ g_return_val_if_fail ((name[0] >= 'A' && name[0] <= 'Z') || (name[0] >= 'a' && name[0] <= 'z'), NULL);
+
pspec = (gpointer) g_type_create_instance (param_type);
pspec->name = g_strdup (name);
- g_strcanon (pspec->name, G_CSET_A_2_Z G_CSET_a_2_z G_CSET_DIGITS "-", '-');
- pspec->nick = g_strdup (nick ? nick : pspec->name);
- pspec->blurb = g_strdup (blurb);
+ canonalize_key (pspec->name);
+ pspec->_nick = g_strdup (nick);
+ pspec->_blurb = g_strdup (blurb);
pspec->flags = (flags & G_PARAM_USER_MASK) | (flags & G_PARAM_MASK);
-
+
return pspec;
}
return FALSE;
}
+gboolean
+g_param_value_convert (GParamSpec *pspec,
+ const GValue *src_value,
+ GValue *dest_value,
+ gboolean strict_validation)
+{
+ GValue tmp_value = { 0, };
+
+ g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);
+ g_return_val_if_fail (G_IS_VALUE (src_value), FALSE);
+ g_return_val_if_fail (G_IS_VALUE (dest_value), FALSE);
+ g_return_val_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, dest_value), FALSE);
+
+ /* better leave dest_value untouched when returning FALSE */
+
+ g_value_init (&tmp_value, G_VALUE_TYPE (dest_value));
+ if (g_value_transform (src_value, &tmp_value) &&
+ (!g_param_value_validate (pspec, &tmp_value) || !strict_validation))
+ {
+ g_value_unset (dest_value);
+
+ /* values are relocatable */
+ memcpy (dest_value, &tmp_value, sizeof (tmp_value));
+
+ return TRUE;
+ }
+ else
+ {
+ g_value_unset (&tmp_value);
+
+ return FALSE;
+ }
+}
+
gint
g_param_values_cmp (GParamSpec *pspec,
const GValue *value1,
value_param_copy_value (const GValue *src_value,
GValue *dest_value)
{
- dest_value->data[0].v_pointer = (src_value->data[0].v_pointer
- ? g_param_spec_ref (src_value->data[0].v_pointer)
- : NULL);
+ if (src_value->data[0].v_pointer)
+ dest_value->data[0].v_pointer = g_param_spec_ref (src_value->data[0].v_pointer);
+ else
+ dest_value->data[0].v_pointer = NULL;
+}
+
+static void
+value_param_transform_value (const GValue *src_value,
+ GValue *dest_value)
+{
+ if (src_value->data[0].v_pointer &&
+ g_type_is_a (G_PARAM_SPEC_TYPE (dest_value->data[0].v_pointer), G_VALUE_TYPE (dest_value)))
+ dest_value->data[0].v_pointer = g_param_spec_ref (src_value->data[0].v_pointer);
+ else
+ dest_value->data[0].v_pointer = NULL;
}
static gpointer
static gchar*
value_param_collect_value (GValue *value,
- guint nth_value,
- GType *collect_type,
- GTypeCValue *collect_value)
+ guint n_collect_values,
+ GTypeCValue *collect_values,
+ guint collect_flags)
{
- if (collect_value->v_pointer)
+ if (collect_values[0].v_pointer)
{
- GParamSpec *param = collect_value->v_pointer;
+ GParamSpec *param = collect_values[0].v_pointer;
if (param->g_type_instance.g_class == NULL)
return g_strconcat ("invalid unclassed param spec pointer for value type `",
G_VALUE_TYPE_NAME (value),
"'",
NULL);
- else if (!g_type_is_a (G_PARAM_SPEC_TYPE (param), G_VALUE_TYPE (value)))
+ else if (!g_value_type_compatible (G_PARAM_SPEC_TYPE (param), G_VALUE_TYPE (value)))
return g_strconcat ("invalid param spec type `",
G_PARAM_SPEC_TYPE_NAME (param),
"' for value type `",
else
value->data[0].v_pointer = NULL;
- *collect_type = 0;
return NULL;
}
static gchar*
value_param_lcopy_value (const GValue *value,
- guint nth_value,
- GType *collect_type,
- GTypeCValue *collect_value)
+ guint n_collect_values,
+ GTypeCValue *collect_values,
+ guint collect_flags)
{
- GParamSpec **param_p = collect_value->v_pointer;
+ GParamSpec **param_p = collect_values[0].v_pointer;
if (!param_p)
return g_strdup_printf ("value location for `%s' passed as NULL", G_VALUE_TYPE_NAME (value));
- *param_p = value->data[0].v_pointer ? g_param_spec_ref (value->data[0].v_pointer) : NULL;
+ if (!value->data[0].v_pointer)
+ *param_p = NULL;
+ else if (collect_flags & G_VALUE_NOCOPY_CONTENTS)
+ *param_p = value->data[0].v_pointer;
+ else
+ *param_p = g_param_spec_ref (value->data[0].v_pointer);
- *collect_type = 0;
return NULL;
}
/* --- param spec pool --- */
struct _GParamSpecPool
{
- gboolean type_prefixing;
- GHashTable *hash_table;
+ GStaticMutex smutex;
+ gboolean type_prefixing;
+ GHashTable *hash_table;
};
static guint
GParamSpecPool*
g_param_spec_pool_new (gboolean type_prefixing)
{
+ static GStaticMutex init_smutex = G_STATIC_MUTEX_INIT;
GParamSpecPool *pool = g_new (GParamSpecPool, 1);
+ memcpy (&pool->smutex, &init_smutex, sizeof (init_smutex));
pool->type_prefixing = type_prefixing != FALSE;
pool->hash_table = g_hash_table_new (param_spec_pool_hash, param_spec_pool_equals);
GType owner_type)
{
gchar *p;
-
- g_return_if_fail (pool != NULL);
- g_return_if_fail (pspec);
- g_return_if_fail (owner_type > 0);
- g_return_if_fail (pspec->owner_type == 0);
-
- for (p = pspec->name; *p; p++)
+
+ if (pool && pspec && owner_type > 0 && pspec->owner_type == 0)
{
- if (!strchr (G_CSET_A_2_Z G_CSET_a_2_z G_CSET_DIGITS "-_", *p))
+ G_SLOCK (&pool->smutex);
+ for (p = pspec->name; *p; p++)
{
- g_warning (G_STRLOC ": pspec name \"%s\" contains invalid characters", pspec->name);
- return;
+ if (!strchr (G_CSET_A_2_Z G_CSET_a_2_z G_CSET_DIGITS "-_", *p))
+ {
+ g_warning (G_STRLOC ": pspec name \"%s\" contains invalid characters", pspec->name);
+ G_SUNLOCK (&pool->smutex);
+ return;
+ }
}
+
+ pspec->owner_type = owner_type;
+ g_param_spec_ref (pspec);
+ g_hash_table_insert (pool->hash_table, pspec, pspec);
+ G_SUNLOCK (&pool->smutex);
+ }
+ else
+ {
+ g_return_if_fail (pool != NULL);
+ g_return_if_fail (pspec);
+ g_return_if_fail (owner_type > 0);
+ g_return_if_fail (pspec->owner_type == 0);
}
-
- pspec->owner_type = owner_type;
- g_param_spec_ref (pspec);
- g_hash_table_insert (pool->hash_table, pspec, pspec);
}
void
g_param_spec_pool_remove (GParamSpecPool *pool,
GParamSpec *pspec)
{
- g_return_if_fail (pool != NULL);
- g_return_if_fail (pspec);
-
- if (g_hash_table_remove (pool->hash_table, pspec))
- g_param_spec_unref (pspec);
+ if (pool && pspec)
+ {
+ G_SLOCK (&pool->smutex);
+ if (g_hash_table_remove (pool->hash_table, pspec))
+ g_param_spec_unref (pspec);
+ else
+ g_warning (G_STRLOC ": attempt to remove unknown pspec `%s' from pool", pspec->name);
+ G_SUNLOCK (&pool->smutex);
+ }
else
- g_warning (G_STRLOC ": attempt to remove unknown pspec `%s' from pool", pspec->name);
+ {
+ g_return_if_fail (pool != NULL);
+ g_return_if_fail (pspec);
+ }
}
static inline GParamSpec*
if (!pspec)
{
- /* sigh, try canonicalization */
+ /* try canonicalized form */
key.name = g_strdup (param_name);
key.owner_type = owner_type;
- g_strcanon (key.name, G_CSET_A_2_Z G_CSET_a_2_z G_CSET_DIGITS "-", '-');
+ canonalize_key (key.name);
if (walk_ancestors)
do
{
g_param_spec_pool_lookup (GParamSpecPool *pool,
const gchar *param_name,
GType owner_type,
- gboolean walk_ancestors,
- const gchar **trailer_p)
+ gboolean walk_ancestors)
{
GParamSpec *pspec;
gchar *delim;
- g_return_val_if_fail (pool != NULL, NULL);
- g_return_val_if_fail (param_name, NULL);
+ if (!pool || !param_name)
+ {
+ g_return_val_if_fail (pool != NULL, NULL);
+ g_return_val_if_fail (param_name != NULL, NULL);
+ }
- delim = strchr (param_name, ':');
+ G_SLOCK (&pool->smutex);
- /* try quick and away, i.e. no prefix, no trailer */
+ delim = pool->type_prefixing ? strchr (param_name, ':') : NULL;
+
+ /* try quick and away, i.e. without prefix */
if (!delim)
{
- if (trailer_p)
- *trailer_p = NULL;
- return param_spec_ht_lookup (pool->hash_table, param_name, owner_type, walk_ancestors);
+ pspec = param_spec_ht_lookup (pool->hash_table, param_name, owner_type, walk_ancestors);
+ G_SUNLOCK (&pool->smutex);
+
+ return pspec;
}
/* strip type prefix */
/* sanity check, these cases don't make a whole lot of sense */
if ((!walk_ancestors && type != owner_type) || !g_type_is_a (owner_type, type))
{
- if (trailer_p)
- *trailer_p = NULL;
+ G_SUNLOCK (&pool->smutex);
+
return NULL;
}
owner_type = type;
param_name += l + 2;
- delim = strchr (param_name, ':');
- if (!delim) /* good, can still forget about trailer */
- {
- if (trailer_p)
- *trailer_p = NULL;
- return param_spec_ht_lookup (pool->hash_table, param_name, owner_type, walk_ancestors);
- }
+ pspec = param_spec_ht_lookup (pool->hash_table, param_name, owner_type, walk_ancestors);
+ G_SUNLOCK (&pool->smutex);
+
+ return pspec;
}
}
+ /* malformed param_name */
+
+ G_SUNLOCK (&pool->smutex);
+
+ return NULL;
+}
- /* ok, no prefix, handle trailer */
- if (delim[1] == ':')
+static void
+pool_list (gpointer key,
+ gpointer value,
+ gpointer user_data)
+{
+ GParamSpec *pspec = value;
+ gpointer *data = user_data;
+ GType owner_type = (GType) data[1];
+
+ if (owner_type == pspec->owner_type)
+ data[0] = g_list_prepend (data[0], pspec);
+}
+
+GList*
+g_param_spec_pool_list_owned (GParamSpecPool *pool,
+ GType owner_type)
+{
+ gpointer data[2];
+
+ g_return_val_if_fail (pool != NULL, NULL);
+ g_return_val_if_fail (owner_type > 0, NULL);
+
+ G_SLOCK (&pool->smutex);
+ data[0] = NULL;
+ data[1] = (gpointer) owner_type;
+ g_hash_table_foreach (pool->hash_table, pool_list, &data);
+ G_SUNLOCK (&pool->smutex);
+
+ return data[0];
+}
+
+static gint
+pspec_compare_id (gconstpointer a,
+ gconstpointer b)
+{
+ const GParamSpec *pspec1 = a, *pspec2 = b;
+
+ return pspec1->param_id < pspec2->param_id ? -1 : pspec1->param_id > pspec2->param_id;
+}
+
+static inline GSList*
+pspec_list_remove_overridden (GSList *plist,
+ GHashTable *ht,
+ GType owner_type,
+ guint *n_p)
+{
+ GSList *rlist = NULL;
+
+ while (plist)
{
- guint l = delim - param_name;
- gchar stack_buffer[32], *buffer = l < 32 ? stack_buffer : g_new (gchar, l + 1);
-
- strncpy (buffer, param_name, delim - param_name);
- buffer[l] = 0;
- pspec = param_spec_ht_lookup (pool->hash_table, buffer, owner_type, walk_ancestors);
- if (l >= 32)
- g_free (buffer);
- if (trailer_p)
- *trailer_p = pspec ? delim + 2 : NULL;
- return pspec;
+ GSList *tmp = plist->next;
+ GParamSpec *pspec = plist->data;
+
+ if (param_spec_ht_lookup (ht, pspec->name, owner_type, TRUE) != pspec)
+ g_slist_free_1 (plist);
+ else
+ {
+ plist->next = rlist;
+ rlist = plist;
+ *n_p += 1;
+ }
+ plist = tmp;
}
+ return rlist;
+}
- /* malformed param_name */
- if (trailer_p)
- *trailer_p = NULL;
- return NULL;
+static void
+pool_depth_list (gpointer key,
+ gpointer value,
+ gpointer user_data)
+{
+ GParamSpec *pspec = value;
+ gpointer *data = user_data;
+ GSList **slists = data[0];
+ GType owner_type = (GType) data[1];
+
+ if (g_type_is_a (owner_type, pspec->owner_type))
+ {
+ guint d = g_type_depth (pspec->owner_type);
+
+ slists[d - 1] = g_slist_prepend (slists[d - 1], pspec);
+ }
+}
+
+GParamSpec** /* free result */
+g_param_spec_pool_list (GParamSpecPool *pool,
+ GType owner_type,
+ guint *n_pspecs_p)
+{
+ GParamSpec **pspecs, **p;
+ GSList **slists, *node;
+ gpointer data[2];
+ guint d, i;
+
+ g_return_val_if_fail (pool != NULL, NULL);
+ g_return_val_if_fail (owner_type > 0, NULL);
+ g_return_val_if_fail (n_pspecs_p != NULL, NULL);
+
+ G_SLOCK (&pool->smutex);
+ *n_pspecs_p = 0;
+ d = g_type_depth (owner_type);
+ slists = g_new0 (GSList*, d);
+ data[0] = slists;
+ data[1] = (gpointer) owner_type;
+ g_hash_table_foreach (pool->hash_table, pool_depth_list, &data);
+ for (i = 0; i < d - 1; i++)
+ slists[i] = pspec_list_remove_overridden (slists[i], pool->hash_table, owner_type, n_pspecs_p);
+ *n_pspecs_p += g_slist_length (slists[i]);
+ pspecs = g_new (GParamSpec*, *n_pspecs_p + 1);
+ p = pspecs;
+ for (i = 0; i < d; i++)
+ {
+ slists[i] = g_slist_sort (slists[i], pspec_compare_id);
+ for (node = slists[i]; node; node = node->next)
+ *p++ = node->data;
+ g_slist_free (slists[i]);
+ }
+ *p++ = NULL;
+ g_free (slists);
+ G_SUNLOCK (&pool->smutex);
+
+ return pspecs;
}
g_value_set_param (GValue *value,
GParamSpec *param)
{
- g_return_if_fail (G_IS_VALUE_PARAM (value));
+ g_return_if_fail (G_VALUE_HOLDS_PARAM (value));
if (param)
g_return_if_fail (G_IS_PARAM_SPEC (param));
g_param_spec_ref (value->data[0].v_pointer);
}
+void
+g_value_set_param_take_ownership (GValue *value,
+ GParamSpec *param)
+{
+ g_return_if_fail (G_VALUE_HOLDS_PARAM (value));
+ if (param)
+ g_return_if_fail (G_IS_PARAM_SPEC (param));
+
+ if (value->data[0].v_pointer)
+ g_param_spec_unref (value->data[0].v_pointer);
+ value->data[0].v_pointer = param; /* we take over the reference count */
+}
+
GParamSpec*
g_value_get_param (const GValue *value)
{
- g_return_val_if_fail (G_IS_VALUE_PARAM (value), NULL);
+ g_return_val_if_fail (G_VALUE_HOLDS_PARAM (value), NULL);
return value->data[0].v_pointer;
}
GParamSpec*
g_value_dup_param (const GValue *value)
{
- g_return_val_if_fail (G_IS_VALUE_PARAM (value), NULL);
+ g_return_val_if_fail (G_VALUE_HOLDS_PARAM (value), NULL);
return value->data[0].v_pointer ? g_param_spec_ref (value->data[0].v_pointer) : NULL;
}
projects / platform / upstream / glib.git / blobdiff