/* GObject - GLib Type, Object, Parameter and Signal Library

 * Copyright (C) 1997-1999, 2000-2001 Tim Janik and Red Hat, Inc.

 * Portions copyright (c) 2006-2009 Nokia Corporation.  All rights reserved.

 *

 * This library is free software; you can redistribute it and/or

 * modify it under the terms of the GNU Lesser General Public

 * License as published by the Free Software Foundation; either

 * version 2 of the License, or (at your option) any later version.

 *

 * 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

 * Lesser General Public License for more details.

 *

 * You should have received a copy of the GNU Lesser General

 * Public License along with this library; if not, write to the

 * Free Software Foundation, Inc., 59 Temple Place, Suite 330,

 * Boston, MA 02111-1307, USA.

 */

/*

 * MT safe

 */

#include "config.h"

#include <string.h>

#include "gparam.h"

#include "gparamspecs.h"

#include "gvaluecollector.h"

#include "gobjectalias.h"

#ifdef __SYMBIAN32__

#include <glib_global.h>

#include "gobject_wsd.h"

#include <gobject_global.h>

#endif /* __SYMBIAN32__ */

/**

 * SECTION:gparamspec

 * @short_description: Metadata for parameter specifications

 * @see_also: g_object_class_install_property(), g_object_set(),

 *     g_object_get(), g_object_set_property(), g_object_get_property(),

 *     g_value_register_transform_func()

 * @title: GParamSpec

 *

 * #GParamSpec is an object structure that encapsulates the metadata

 * required to specify parameters, such as e.g. #GObject properties.

 *

 * <para id="canonical-parameter-name">

 * Parameter names need to start with a letter (a-z or A-Z). Subsequent

 * characters can be letters, numbers or a '-'.

 * All other characters are replaced by a '-' during construction.

 * The result of this replacement is called the canonical name of the

 * parameter.

 * </para>

 */

/* --- defines --- */

#define PARAM_FLOATING_FLAG                     0x2

#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	g_param_spec_class_base_init	 (GParamSpecClass	*class);

static void	g_param_spec_class_base_finalize (GParamSpecClass	*class);

static void	g_param_spec_class_init		 (GParamSpecClass	*class,

						  gpointer               class_data);

static void	g_param_spec_init		 (GParamSpec		*pspec,

						  GParamSpecClass	*class);

static void	g_param_spec_finalize		 (GParamSpec		*pspec);

static void	value_param_init		(GValue		*value);

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           n_collect_values,

						 GTypeCValue    *collect_values,

						 guint           collect_flags);

static gchar*	value_param_lcopy_value		(const GValue	*value,

						 guint           n_collect_values,

						 GTypeCValue    *collect_values,

						 guint           collect_flags);

/* --- functions --- */

void

g_param_type_init (void)

{

  static const GTypeFundamentalInfo finfo = {

    (G_TYPE_FLAG_CLASSED |

     G_TYPE_FLAG_INSTANTIATABLE |

     G_TYPE_FLAG_DERIVABLE |

     G_TYPE_FLAG_DEEP_DERIVABLE),

  };

  static const GTypeValueTable param_value_table = {

    value_param_init,           /* value_init */

    value_param_free_value,     /* value_free */

    value_param_copy_value,     /* value_copy */

    value_param_peek_pointer,   /* value_peek_pointer */

    "p",			/* collect_format */

    value_param_collect_value,  /* collect_value */

    "p",			/* lcopy_format */

    value_param_lcopy_value,    /* lcopy_value */

  };

  static const GTypeInfo param_spec_info = {

    sizeof (GParamSpecClass),

    (GBaseInitFunc) g_param_spec_class_base_init,

    (GBaseFinalizeFunc) g_param_spec_class_base_finalize,

    (GClassInitFunc) g_param_spec_class_init,

    (GClassFinalizeFunc) NULL,

    NULL,	/* class_data */

    sizeof (GParamSpec),

    0,		/* n_preallocs */

    (GInstanceInitFunc) g_param_spec_init,

    &param_value_table,

  };

  GType type;

  /* This should be registred as GParamSpec instead of GParam, for

   * consistency sake, so that type name can be mapped to struct name,

   * However, some language bindings, most noticable the python ones

   * depends on the "GParam" identifier, see #548689

   */

  type = g_type_register_fundamental (G_TYPE_PARAM, g_intern_static_string ("GParam"), &param_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

g_param_spec_class_base_init (GParamSpecClass *class)

{

}

static void

g_param_spec_class_base_finalize (GParamSpecClass *class)

{

}

static void

g_param_spec_class_init (GParamSpecClass *class,

			 gpointer         class_data)

{

  class->value_type = G_TYPE_NONE;

  class->finalize = g_param_spec_finalize;

  class->value_set_default = NULL;

  class->value_validate = NULL;

  class->values_cmp = NULL;

}

static void

g_param_spec_init (GParamSpec      *pspec,

		   GParamSpecClass *class)

{

  pspec->name = NULL;

  pspec->_nick = NULL;

  pspec->_blurb = NULL;

  pspec->flags = 0;

  pspec->value_type = class->value_type;

  pspec->owner_type = 0;

  pspec->qdata = NULL;

  g_datalist_init (&pspec->qdata);

  g_datalist_set_flags (&pspec->qdata, PARAM_FLOATING_FLAG);

  pspec->ref_count = 1;

  pspec->param_id = 0;

}

static void

g_param_spec_finalize (GParamSpec *pspec)

{

  g_datalist_clear (&pspec->qdata);

  if (!(pspec->flags & G_PARAM_STATIC_NAME))

    g_free (pspec->name);

  if (!(pspec->flags & G_PARAM_STATIC_NICK))

    g_free (pspec->_nick);

  if (!(pspec->flags & G_PARAM_STATIC_BLURB))

    g_free (pspec->_blurb);

  g_type_free_instance ((GTypeInstance*) pspec);

}

/**

 * g_param_spec_ref:

 * @pspec: a valid #GParamSpec

 *

 * Increments the reference count of @pspec.

 *

 * Returns: the #GParamSpec that was passed into this function

 */

EXPORT_C GParamSpec*

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);

  g_atomic_int_inc ((int *)&pspec->ref_count);

  return pspec;

}

/**

 * g_param_spec_unref:

 * @pspec: a valid #GParamSpec

 *

 * Decrements the reference count of a @pspec.

 */

EXPORT_C void

g_param_spec_unref (GParamSpec *pspec)

{

  gboolean is_zero;

  g_return_if_fail (G_IS_PARAM_SPEC (pspec));

  g_return_if_fail (pspec->ref_count > 0);

  is_zero = g_atomic_int_dec_and_test ((int *)&pspec->ref_count);

  if (G_UNLIKELY (is_zero))

    {

      G_PARAM_SPEC_GET_CLASS (pspec)->finalize (pspec);

    }

}

/**

 * g_param_spec_sink:

 * @pspec: a valid #GParamSpec

 *

 * The initial reference count of a newly created #GParamSpec is 1,

 * even though no one has explicitly called g_param_spec_ref() on it

 * yet. So the initial reference count is flagged as "floating", until

 * someone calls <literal>g_param_spec_ref (pspec); g_param_spec_sink

 * (pspec);</literal> in sequence on it, taking over the initial

 * reference count (thus ending up with a @pspec that has a reference

 * count of 1 still, but is not flagged "floating" anymore).

 */

EXPORT_C void

g_param_spec_sink (GParamSpec *pspec)

{

  gpointer oldvalue;

  g_return_if_fail (G_IS_PARAM_SPEC (pspec));

  g_return_if_fail (pspec->ref_count > 0);

  do

    oldvalue = g_atomic_pointer_get (&pspec->qdata);

  while (!g_atomic_pointer_compare_and_exchange ((void**) &pspec->qdata, oldvalue,

                                                 (gpointer) ((gsize) oldvalue & ~(gsize) PARAM_FLOATING_FLAG)));

  if ((gsize) oldvalue & PARAM_FLOATING_FLAG)

    g_param_spec_unref (pspec);

}

/**

 * g_param_spec_ref_sink:

 * @pspec: a valid #GParamSpec

 *

 * Convenience function to ref and sink a #GParamSpec.

 *

 * Since: 2.10

 * Returns: the #GParamSpec that was passed into this function

 */

EXPORT_C GParamSpec*

g_param_spec_ref_sink (GParamSpec *pspec)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  g_return_val_if_fail (pspec->ref_count > 0, NULL);

  g_param_spec_ref (pspec);

  g_param_spec_sink (pspec);

  return pspec;

}

/**

 * g_param_spec_get_name:

 * @pspec: a valid #GParamSpec

 *

 * Get the name of a #GParamSpec.

 *

 * Returns: the name of @pspec.

 */

EXPORT_C 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_param_spec_get_nick:

 * @pspec: a valid #GParamSpec

 *

 * Get the nickname of a #GParamSpec.

 *

 * Returns: the nickname of @pspec.

 */

EXPORT_C G_CONST_RETURN gchar*

g_param_spec_get_nick (GParamSpec *pspec)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  if (pspec->_nick)

    return pspec->_nick;

  else

    {

      GParamSpec *redirect_target;

      redirect_target = g_param_spec_get_redirect_target (pspec);

      if (redirect_target && redirect_target->_nick)

	return redirect_target->_nick;

    }

  return pspec->name;

}

/**

 * g_param_spec_get_blurb:

 * @pspec: a valid #GParamSpec

 *

 * Get the short description of a #GParamSpec.

 *

 * Returns: the short description of @pspec.

 */

EXPORT_C G_CONST_RETURN gchar*

g_param_spec_get_blurb (GParamSpec *pspec)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  if (pspec->_blurb)

    return pspec->_blurb;

  else

    {

      GParamSpec *redirect_target;

      redirect_target = g_param_spec_get_redirect_target (pspec);

      if (redirect_target && redirect_target->_blurb)

	return redirect_target->_blurb;

    }

  return NULL;

}

static void

canonicalize_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 = '-';

    }

}

static gboolean

is_canonical (const gchar *key)

{

  const 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'))

	return FALSE;

    }

  return TRUE;

}

/**

 * g_param_spec_internal:

 * @param_type: the #GType for the property; must be derived from #G_TYPE_PARAM

 * @name: the canonical name of the property

 * @nick: the nickname of the property

 * @blurb: a short description of the property

 * @flags: a combination of #GParamFlags

 *

 * Creates a new #GParamSpec instance.

 *

 * A property name consists of segments consisting of ASCII letters and

 * digits, separated by either the '-' or '_' character. The first

 * character of a property name must be a letter. Names which violate these

 * rules lead to undefined behaviour.

 *

 * When creating and looking up a #GParamSpec, either separator can be

 * used, but they cannot be mixed. Using '-' is considerably more

 * efficient and in fact required when using property names as detail

 * strings for signals.

 *

 * Beyond the name, #GParamSpec<!-- -->s have two more descriptive

 * strings associated with them, the @nick, which should be suitable

 * for use as a label for the property in a property editor, and the

 * @blurb, which should be a somewhat longer description, suitable for

 * e.g. a tooltip. The @nick and @blurb should ideally be localized.

 *

 * Returns: a newly allocated #GParamSpec instance

 */

EXPORT_C gpointer

g_param_spec_internal (GType        param_type,

		       const gchar *name,

		       const gchar *nick,

		       const gchar *blurb,

		       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);

  g_return_val_if_fail (!(flags & G_PARAM_STATIC_NAME) || is_canonical (name), NULL);

  pspec = (gpointer) g_type_create_instance (param_type);

  if (flags & G_PARAM_STATIC_NAME)

    {

      pspec->name = g_intern_static_string (name);

      if (!is_canonical (pspec->name))

        g_warning ("G_PARAM_STATIC_NAME used with non-canonical pspec name: %s", pspec->name);

    }

  else

    {

      pspec->name = g_strdup (name);

      canonicalize_key (pspec->name);

      g_intern_string (pspec->name);

    }

  if (flags & G_PARAM_STATIC_NICK)

    pspec->_nick = (gchar*) nick;

  else

    pspec->_nick = g_strdup (nick);

  if (flags & G_PARAM_STATIC_BLURB)

    pspec->_blurb = (gchar*) blurb;

  else

    pspec->_blurb = g_strdup (blurb);

  pspec->flags = (flags & G_PARAM_USER_MASK) | (flags & G_PARAM_MASK);

  return pspec;

}

/**

 * g_param_spec_get_qdata:

 * @pspec: a valid #GParamSpec

 * @quark: a #GQuark, naming the user data pointer

 *

 * Gets back user data pointers stored via g_param_spec_set_qdata().

 *

 * Returns: the user data pointer set, or %NULL

 */

EXPORT_C gpointer

g_param_spec_get_qdata (GParamSpec *pspec,

			GQuark      quark)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  return quark ? g_datalist_id_get_data (&pspec->qdata, quark) : NULL;

}

/**

 * g_param_spec_set_qdata:

 * @pspec: the #GParamSpec to set store a user data pointer

 * @quark: a #GQuark, naming the user data pointer

 * @data: an opaque user data pointer

 *

 * Sets an opaque, named pointer on a #GParamSpec. The name is

 * specified through a #GQuark (retrieved e.g. via

 * g_quark_from_static_string()), and the pointer can be gotten back

 * from the @pspec with g_param_spec_get_qdata().  Setting a

 * previously set user data pointer, overrides (frees) the old pointer

 * set, using %NULL as pointer essentially removes the data stored.

 */

EXPORT_C void

g_param_spec_set_qdata (GParamSpec *pspec,

			GQuark      quark,

			gpointer    data)

{

  g_return_if_fail (G_IS_PARAM_SPEC (pspec));

  g_return_if_fail (quark > 0);

  g_datalist_id_set_data (&pspec->qdata, quark, data);

}

/**

 * g_param_spec_set_qdata_full:

 * @pspec: the #GParamSpec to set store a user data pointer

 * @quark: a #GQuark, naming the user data pointer

 * @data: an opaque user data pointer

 * @destroy: function to invoke with @data as argument, when @data needs to

 *  be freed

 *

 * This function works like g_param_spec_set_qdata(), but in addition,

 * a <literal>void (*destroy) (gpointer)</literal> function may be

 * specified which is called with @data as argument when the @pspec is

 * finalized, or the data is being overwritten by a call to

 * g_param_spec_set_qdata() with the same @quark.

 */

EXPORT_C void

g_param_spec_set_qdata_full (GParamSpec    *pspec,

			     GQuark         quark,

			     gpointer       data,

			     GDestroyNotify destroy)

{

  g_return_if_fail (G_IS_PARAM_SPEC (pspec));

  g_return_if_fail (quark > 0);

  g_datalist_id_set_data_full (&pspec->qdata, quark, data, data ? destroy : (GDestroyNotify) NULL);

}

/**

 * g_param_spec_steal_qdata:

 * @pspec: the #GParamSpec to get a stored user data pointer from

 * @quark: a #GQuark, naming the user data pointer

 *

 * Gets back user data pointers stored via g_param_spec_set_qdata()

 * and removes the @data from @pspec without invoking its destroy()

 * function (if any was set).  Usually, calling this function is only

 * required to update user data pointers with a destroy notifier.

 *

 * Returns: the user data pointer set, or %NULL

 */

EXPORT_C gpointer

g_param_spec_steal_qdata (GParamSpec *pspec,

			  GQuark      quark)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  g_return_val_if_fail (quark > 0, NULL);

  return g_datalist_id_remove_no_notify (&pspec->qdata, quark);

}

/**

 * g_param_spec_get_redirect_target:

 * @pspec: a #GParamSpec

 *

 * If the paramspec redirects operations to another paramspec,

 * returns that paramspec. Redirect is used typically for

 * providing a new implementation of a property in a derived

 * type while preserving all the properties from the parent

 * type. Redirection is established by creating a property

 * of type #GParamSpecOverride. See g_object_class_override_property()

 * for an example of the use of this capability.

 *

 * Since: 2.4

 *

 * Returns: paramspec to which requests on this paramspec should

 *          be redirected, or %NULL if none.

 */

EXPORT_C GParamSpec*

g_param_spec_get_redirect_target (GParamSpec *pspec)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), NULL);

  if (G_IS_PARAM_SPEC_OVERRIDE (pspec))

    {

      GParamSpecOverride *ospec = G_PARAM_SPEC_OVERRIDE (pspec);

      return ospec->overridden;

    }

  else

    return NULL;

}

/**

 * g_param_value_set_default:

 * @pspec: a valid #GParamSpec

 * @value: a #GValue of correct type for @pspec

 *

 * Sets @value to its default value as specified in @pspec.

 */

EXPORT_C void

g_param_value_set_default (GParamSpec *pspec,

			   GValue     *value)

{

  g_return_if_fail (G_IS_PARAM_SPEC (pspec));

  g_return_if_fail (G_IS_VALUE (value));

  g_return_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, value));

  g_value_reset (value);

  G_PARAM_SPEC_GET_CLASS (pspec)->value_set_default (pspec, value);

}

/**

 * g_param_value_defaults:

 * @pspec: a valid #GParamSpec

 * @value: a #GValue of correct type for @pspec

 *

 * Checks whether @value contains the default value as specified in @pspec.

 *

 * Returns: whether @value contains the canonical default for this @pspec

 */

EXPORT_C gboolean

g_param_value_defaults (GParamSpec *pspec,

			GValue     *value)

{

  GValue dflt_value = { 0, };

  gboolean defaults;

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);

  g_return_val_if_fail (G_IS_VALUE (value), FALSE);

  g_return_val_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, value), FALSE);

  g_value_init (&dflt_value, G_PARAM_SPEC_VALUE_TYPE (pspec));

  G_PARAM_SPEC_GET_CLASS (pspec)->value_set_default (pspec, &dflt_value);

  defaults = G_PARAM_SPEC_GET_CLASS (pspec)->values_cmp (pspec, value, &dflt_value) == 0;

  g_value_unset (&dflt_value);

  return defaults;

}

/**

 * g_param_value_validate:

 * @pspec: a valid #GParamSpec

 * @value: a #GValue of correct type for @pspec

 *

 * Ensures that the contents of @value comply with the specifications

 * set out by @pspec. For example, a #GParamSpecInt might require

 * that integers stored in @value may not be smaller than -42 and not be

 * greater than +42. If @value contains an integer outside of this range,

 * it is modified accordingly, so the resulting value will fit into the

 * range -42 .. +42.

 *

 * Returns: whether modifying @value was necessary to ensure validity

 */

EXPORT_C gboolean

g_param_value_validate (GParamSpec *pspec,

			GValue     *value)

{

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), FALSE);

  g_return_val_if_fail (G_IS_VALUE (value), FALSE);

  g_return_val_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, value), FALSE);

  if (G_PARAM_SPEC_GET_CLASS (pspec)->value_validate)

    {

      GValue oval = *value;

      if (G_PARAM_SPEC_GET_CLASS (pspec)->value_validate (pspec, value) ||

	  memcmp (&oval.data, &value->data, sizeof (oval.data)))

	return TRUE;

    }

  return FALSE;

}

/**

 * g_param_value_convert:

 * @pspec: a valid #GParamSpec

 * @src_value: souce #GValue

 * @dest_value: destination #GValue of correct type for @pspec

 * @strict_validation: %TRUE requires @dest_value to conform to @pspec

 * without modifications

 *

 * Transforms @src_value into @dest_value if possible, and then

 * validates @dest_value, in order for it to conform to @pspec.  If

 * @strict_validation is %TRUE this function will only succeed if the

 * transformed @dest_value complied to @pspec without modifications.

 *

 * See also g_value_type_transformable(), g_value_transform() and

 * g_param_value_validate().

 *

 * Returns: %TRUE if transformation and validation were successful,

 *  %FALSE otherwise and @dest_value is left untouched.

 */

EXPORT_C 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;

    }

}

/**

 * g_param_values_cmp:

 * @pspec: a valid #GParamSpec

 * @value1: a #GValue of correct type for @pspec

 * @value2: a #GValue of correct type for @pspec

 *

 * Compares @value1 with @value2 according to @pspec, and return -1, 0 or +1,

 * if @value1 is found to be less than, equal to or greater than @value2,

 * respectively.

 *

 * Returns: -1, 0 or +1, for a less than, equal to or greater than result

 */

EXPORT_C gint

g_param_values_cmp (GParamSpec   *pspec,

		    const GValue *value1,

		    const GValue *value2)

{

  gint cmp;

  /* param_values_cmp() effectively does: value1 - value2

   * so the return values are:

   * -1)  value1 < value2

   *  0)  value1 == value2

   *  1)  value1 > value2

   */

  g_return_val_if_fail (G_IS_PARAM_SPEC (pspec), 0);

  g_return_val_if_fail (G_IS_VALUE (value1), 0);

  g_return_val_if_fail (G_IS_VALUE (value2), 0);

  g_return_val_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, value1), 0);

  g_return_val_if_fail (PSPEC_APPLIES_TO_VALUE (pspec, value2), 0);

  cmp = G_PARAM_SPEC_GET_CLASS (pspec)->values_cmp (pspec, value1, value2);

  return CLAMP (cmp, -1, 1);

}

static void

value_param_init (GValue *value)

{

  value->data[0].v_pointer = NULL;

}

static void

value_param_free_value (GValue *value)

{

  if (value->data[0].v_pointer)

    g_param_spec_unref (value->data[0].v_pointer);

}

static void

value_param_copy_value (const GValue *src_value,

			GValue       *dest_value)

{

  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

value_param_peek_pointer (const GValue *value)

{

  return value->data[0].v_pointer;

}

static gchar*

value_param_collect_value (GValue      *value,

			   guint        n_collect_values,

			   GTypeCValue *collect_values,

			   guint        collect_flags)

{

  if (collect_values[0].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_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 `",

			    G_VALUE_TYPE_NAME (value),

			    "'",

			    NULL);

      value->data[0].v_pointer = g_param_spec_ref (param);

    }

  else

    value->data[0].v_pointer = NULL;

  return NULL;

}

static gchar*

value_param_lcopy_value (const GValue *value,

			 guint         n_collect_values,

			 GTypeCValue  *collect_values,

			 guint         collect_flags)

{

  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));

  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);

  return NULL;

}

/* --- param spec pool --- */

/**

 * GParamSpecPool:

 *

 * A #GParamSpecPool maintains a collection of #GParamSpec<!-- -->s which can be

 * quickly accessed by owner and name. The implementation of the #GObject property

 * system uses such a pool to store the #GParamSpecs of the properties all object

 * types.

 */

struct _GParamSpecPool

{

  GStaticMutex smutex;

  gboolean     type_prefixing;

  GHashTable  *hash_table;

};

static guint

param_spec_pool_hash (gconstpointer key_spec)

{

  const GParamSpec *key = key_spec;

  const gchar *p;

  guint h = key->owner_type;

  for (p = key->name; *p; p++)

    h = (h << 5) - h + *p;

  return h;

}

static gboolean

param_spec_pool_equals (gconstpointer key_spec_1,

			gconstpointer key_spec_2)

{

  const GParamSpec *key1 = key_spec_1;

  const GParamSpec *key2 = key_spec_2;

  return (key1->owner_type == key2->owner_type &&

	  strcmp (key1->name, key2->name) == 0);

}

#if EMULATOR

PLS(init_smutex,g_param_spec_pool_new ,GStaticMutex)

#define init_smutex (*FUNCTION_NAME(init_smutex,g_param_spec_pool_new )())

#endif /* EMULATOR */

/**

 * g_param_spec_pool_new:

 * @type_prefixing: Whether the pool will support type-prefixed property names.

 *

 * Creates a new #GParamSpecPool.

 *

 * If @type_prefixing is %TRUE, lookups in the newly created pool will

 * allow to specify the owner as a colon-separated prefix of the

 * property name, like "GtkContainer:border-width". This feature is

 * deprecated, so you should always set @type_prefixing to %FALSE.

 *

 * Returns: a newly allocated #GParamSpecPool.

 */

EXPORT_C GParamSpecPool*

g_param_spec_pool_new (gboolean type_prefixing)

{

  #if !(EMULATOR)

  static GStaticMutex init_smutex = G_STATIC_MUTEX_INIT;

  #endif /* EMULATOR */

  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);

  return pool;

}

#if EMULATOR

#undef init_smutex 

#endif /* EMULATOR */

/**

 * g_param_spec_pool_insert:

 * @pool: a #GParamSpecPool.

 * @pspec: the #GParamSpec to insert

 * @owner_type: a #GType identifying the owner of @pspec

 *

 * Inserts a #GParamSpec in the pool.

 */

EXPORT_C void

g_param_spec_pool_insert (GParamSpecPool *pool,

			  GParamSpec     *pspec,

			  GType           owner_type)

{

  gchar *p;

  if (pool && pspec && owner_type > 0 && pspec->owner_type == 0)

    {

      G_SLOCK (&pool->smutex);

      for (p = pspec->name; *p; p++)

	{

	  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);

    }

}

/**

 * g_param_spec_pool_remove:

 * @pool: a #GParamSpecPool

 * @pspec: the #GParamSpec to remove

 *

 * Removes a #GParamSpec from the pool.

 */

EXPORT_C void

g_param_spec_pool_remove (GParamSpecPool *pool,

			  GParamSpec     *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_return_if_fail (pool != NULL);

      g_return_if_fail (pspec);

    }

}

static inline GParamSpec*

param_spec_ht_lookup (GHashTable  *hash_table,

		      const gchar *param_name,

		      GType        owner_type,