gst/gstvalue.c

   1 /* GStreamer
   2  * Copyright (C) <2003> David A. Schleef <ds@schleef.org>
   3  *
   4  * This library is free software; you can redistribute it and/or
   5  * modify it under the terms of the GNU Library General Public
   6  * License as published by the Free Software Foundation; either
   7  * version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  * Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  * License along with this library; if not, write to the
  16  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  17  * Boston, MA 02110-1301, USA.
  18  */
  19
  20 /**
  21  * SECTION:gstvalue
  22  * @short_description: GValue implementations specific
  23  * to GStreamer
  24  *
  25  * GValue implementations specific to GStreamer.
  26  *
  27  * Note that operations on the same #GValue from multiple threads may lead to
  28  * undefined behaviour.
  29  */
  30
  31 #ifdef HAVE_CONFIG_H
  32 #include "config.h"
  33 #endif
  34 #include <math.h>
  35 #include <stdio.h>
  36 #include <stdlib.h>
  37 #include <string.h>
  38 #include <ctype.h>
  39
  40 #include "gst_private.h"
  41 #include "glib-compat-private.h"
  42 #include <gst/gst.h>
  43 #include <gobject/gvaluecollector.h>
  44 #include "gstutils.h"
  45
  46 /* GstValueUnionFunc:
  47  * @dest: a #GValue for the result
  48  * @value1: a #GValue operand
  49  * @value2: a #GValue operand
  50  *
  51  * Used by gst_value_union() to perform unification for a specific #GValue
  52  * type. Register a new implementation with gst_value_register_union_func().
  53  *
  54  * Returns: %TRUE if a union was successful
  55  */
  56 typedef gboolean (*GstValueUnionFunc) (GValue * dest,
  57     const GValue * value1, const GValue * value2);
  58
  59 /* GstValueIntersectFunc:
  60  * @dest: (out caller-allocates): a #GValue for the result
  61  * @value1: a #GValue operand
  62  * @value2: a #GValue operand
  63  *
  64  * Used by gst_value_intersect() to perform intersection for a specific #GValue
  65  * type. If the intersection is non-empty, the result is
  66  * placed in @dest and %TRUE is returned.  If the intersection is
  67  * empty, @dest is unmodified and %FALSE is returned.
  68  * Register a new implementation with gst_value_register_intersect_func().
  69  *
  70  * Returns: %TRUE if the values can intersect
  71  */
  72 typedef gboolean (*GstValueIntersectFunc) (GValue * dest,
  73     const GValue * value1, const GValue * value2);
  74
  75 /* GstValueSubtractFunc:
  76  * @dest: (out caller-allocates): a #GValue for the result
  77  * @minuend: a #GValue operand
  78  * @subtrahend: a #GValue operand
  79  *
  80  * Used by gst_value_subtract() to perform subtraction for a specific #GValue
  81  * type. Register a new implementation with gst_value_register_subtract_func().
  82  *
  83  * Returns: %TRUE if the subtraction is not empty
  84  */
  85 typedef gboolean (*GstValueSubtractFunc) (GValue * dest,
  86     const GValue * minuend, const GValue * subtrahend);
  87
  88 static void gst_value_register_union_func (GType type1,
  89     GType type2, GstValueUnionFunc func);
  90 static void gst_value_register_intersect_func (GType type1,
  91     GType type2, GstValueIntersectFunc func);
  92 static void gst_value_register_subtract_func (GType minuend_type,
  93     GType subtrahend_type, GstValueSubtractFunc func);
  94
  95 typedef struct _GstValueUnionInfo GstValueUnionInfo;
  96 struct _GstValueUnionInfo
  97 {
  98   GType type1;
  99   GType type2;
 100   GstValueUnionFunc func;
 101 };
 102
 103 typedef struct _GstValueIntersectInfo GstValueIntersectInfo;
 104 struct _GstValueIntersectInfo
 105 {
 106   GType type1;
 107   GType type2;
 108   GstValueIntersectFunc func;
 109 };
 110
 111 typedef struct _GstValueSubtractInfo GstValueSubtractInfo;
 112 struct _GstValueSubtractInfo
 113 {
 114   GType minuend;
 115   GType subtrahend;
 116   GstValueSubtractFunc func;
 117 };
 118
 119 struct _GstFlagSetClass
 120 {
 121   GTypeClass parent;
 122   GType flags_type;             /* Type of the GFlags this flagset carries (can be 0) */
 123 };
 124
 125 typedef struct _GstFlagSetClass GstFlagSetClass;
 126
 127 #define FUNDAMENTAL_TYPE_ID_MAX \
 128     (G_TYPE_FUNDAMENTAL_MAX >> G_TYPE_FUNDAMENTAL_SHIFT)
 129 #define FUNDAMENTAL_TYPE_ID(type) \
 130     ((type) >> G_TYPE_FUNDAMENTAL_SHIFT)
 131
 132 #define VALUE_LIST_ARRAY(v) ((GArray *) (v)->data[0].v_pointer)
 133 #define VALUE_LIST_SIZE(v) (VALUE_LIST_ARRAY(v)->len)
 134 #define VALUE_LIST_GET_VALUE(v, index) ((const GValue *) &g_array_index (VALUE_LIST_ARRAY(v), GValue, (index)))
 135
 136 static GArray *gst_value_table;
 137 static GHashTable *gst_value_hash;
 138 static GstValueTable *gst_value_tables_fundamental[FUNDAMENTAL_TYPE_ID_MAX + 1];
 139 static GArray *gst_value_union_funcs;
 140 static GArray *gst_value_intersect_funcs;
 141 static GArray *gst_value_subtract_funcs;
 142
 143 /* Forward declarations */
 144 static gchar *gst_value_serialize_fraction (const GValue * value);
 145
 146 static GstValueCompareFunc gst_value_get_compare_func (const GValue * value1);
 147 static gint gst_value_compare_with_func (const GValue * value1,
 148     const GValue * value2, GstValueCompareFunc compare);
 149
 150 static gchar *gst_string_wrap (const gchar * s);
 151 static gchar *gst_string_unwrap (const gchar * s);
 152
 153 static void gst_value_move (GValue * dest, GValue * src);
 154 static void _gst_value_list_append_and_take_value (GValue * value,
 155     GValue * append_value);
 156 static void _gst_value_array_append_and_take_value (GValue * value,
 157     GValue * append_value);
 158
 159 static inline GstValueTable *
 160 gst_value_hash_lookup_type (GType type)
 161 {
 162   if (G_LIKELY (G_TYPE_IS_FUNDAMENTAL (type)))
 163     return gst_value_tables_fundamental[FUNDAMENTAL_TYPE_ID (type)];
 164   else
 165     return g_hash_table_lookup (gst_value_hash, (gpointer) type);
 166 }
 167
 168 static void
 169 gst_value_hash_add_type (GType type, const GstValueTable * table)
 170 {
 171   if (G_TYPE_IS_FUNDAMENTAL (type))
 172     gst_value_tables_fundamental[FUNDAMENTAL_TYPE_ID (type)] = (gpointer) table;
 173
 174   g_hash_table_insert (gst_value_hash, (gpointer) type, (gpointer) table);
 175 }
 176
 177 /********
 178  * list *
 179  ********/
 180
 181 /* two helper functions to serialize/stringify any type of list
 182  * regular lists are done with { }, arrays with < >
 183  */
 184 static gchar *
 185 gst_value_serialize_any_list (const GValue * value, const gchar * begin,
 186     const gchar * end)
 187 {
 188   guint i;
 189   GArray *array = value->data[0].v_pointer;
 190   GString *s;
 191   GValue *v;
 192   gchar *s_val;
 193   guint alen = array->len;
 194
 195   /* estimate minimum string length to minimise re-allocs in GString */
 196   s = g_string_sized_new (2 + (6 * alen) + 2);
 197   g_string_append (s, begin);
 198   for (i = 0; i < alen; i++) {
 199     v = &g_array_index (array, GValue, i);
 200     s_val = gst_value_serialize (v);
 201     if (s_val != NULL) {
 202       g_string_append (s, s_val);
 203       g_free (s_val);
 204       if (i < alen - 1) {
 205         g_string_append_len (s, ", ", 2);
 206       }
 207     } else {
 208       GST_WARNING ("Could not serialize list/array value of type '%s'",
 209           G_VALUE_TYPE_NAME (v));
 210     }
 211   }
 212   g_string_append (s, end);
 213   return g_string_free (s, FALSE);
 214 }
 215
 216 static void
 217 gst_value_transform_any_list_string (const GValue * src_value,
 218     GValue * dest_value, const gchar * begin, const gchar * end)
 219 {
 220   GValue *list_value;
 221   GArray *array;
 222   GString *s;
 223   guint i;
 224   gchar *list_s;
 225   guint alen;
 226
 227   array = src_value->data[0].v_pointer;
 228   alen = array->len;
 229
 230   /* estimate minimum string length to minimise re-allocs in GString */
 231   s = g_string_sized_new (2 + (10 * alen) + 2);
 232   g_string_append (s, begin);
 233   for (i = 0; i < alen; i++) {
 234     list_value = &g_array_index (array, GValue, i);
 235
 236     if (i != 0) {
 237       g_string_append_len (s, ", ", 2);
 238     }
 239     list_s = g_strdup_value_contents (list_value);
 240     g_string_append (s, list_s);
 241     g_free (list_s);
 242   }
 243   g_string_append (s, end);
 244
 245   dest_value->data[0].v_pointer = g_string_free (s, FALSE);
 246 }
 247
 248 /*
 249  * helper function to see if a type is fixed. Is used internally here and
 250  * there. Do not export, since it doesn't work for types where the content
 251  * decides the fixedness (e.g. GST_TYPE_ARRAY).
 252  */
 253 static gboolean
 254 gst_type_is_fixed (GType type)
 255 {
 256   /* the basic int, string, double types */
 257   if (type <= G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_GLIB_LAST)) {
 258     return TRUE;
 259   }
 260   /* our fundamental types that are certainly not fixed */
 261   if (type == GST_TYPE_INT_RANGE || type == GST_TYPE_DOUBLE_RANGE ||
 262       type == GST_TYPE_INT64_RANGE ||
 263       type == GST_TYPE_LIST || type == GST_TYPE_FRACTION_RANGE) {
 264     return FALSE;
 265   }
 266   /* other (boxed) types that are fixed */
 267   if (type == GST_TYPE_BUFFER) {
 268     return TRUE;
 269   }
 270   /* heavy checks */
 271   if (G_TYPE_IS_FUNDAMENTAL (type) || G_TYPE_FUNDAMENTAL (type) <=
 272       G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_GLIB_LAST)) {
 273     return TRUE;
 274   }
 275
 276   return FALSE;
 277 }
 278
 279 /* GValue functions usable for both regular lists and arrays */
 280 static void
 281 gst_value_init_list_or_array (GValue * value)
 282 {
 283   value->data[0].v_pointer = g_array_new (FALSE, TRUE, sizeof (GValue));
 284 }
 285
 286 static GArray *
 287 copy_garray_of_gstvalue (const GArray * src)
 288 {
 289   GArray *dest;
 290   guint i, len;
 291
 292   len = src->len;
 293   dest = g_array_sized_new (FALSE, TRUE, sizeof (GValue), len);
 294   g_array_set_size (dest, len);
 295   for (i = 0; i < len; i++) {
 296     gst_value_init_and_copy (&g_array_index (dest, GValue, i),
 297         &g_array_index (src, GValue, i));
 298   }
 299
 300   return dest;
 301 }
 302
 303 static void
 304 gst_value_copy_list_or_array (const GValue * src_value, GValue * dest_value)
 305 {
 306   dest_value->data[0].v_pointer =
 307       copy_garray_of_gstvalue ((GArray *) src_value->data[0].v_pointer);
 308 }
 309
 310 static void
 311 gst_value_free_list_or_array (GValue * value)
 312 {
 313   guint i, len;
 314   GArray *src = (GArray *) value->data[0].v_pointer;
 315   len = src->len;
 316
 317   if ((value->data[1].v_uint & G_VALUE_NOCOPY_CONTENTS) == 0) {
 318     for (i = 0; i < len; i++) {
 319       g_value_unset (&g_array_index (src, GValue, i));
 320     }
 321     g_array_free (src, TRUE);
 322   }
 323 }
 324
 325 static gpointer
 326 gst_value_list_or_array_peek_pointer (const GValue * value)
 327 {
 328   return value->data[0].v_pointer;
 329 }
 330
 331 static gchar *
 332 gst_value_collect_list_or_array (GValue * value, guint n_collect_values,
 333     GTypeCValue * collect_values, guint collect_flags)
 334 {
 335   if (collect_flags & G_VALUE_NOCOPY_CONTENTS) {
 336     value->data[0].v_pointer = collect_values[0].v_pointer;
 337     value->data[1].v_uint = G_VALUE_NOCOPY_CONTENTS;
 338   } else {
 339     value->data[0].v_pointer =
 340         copy_garray_of_gstvalue ((GArray *) collect_values[0].v_pointer);
 341   }
 342   return NULL;
 343 }
 344
 345 static gchar *
 346 gst_value_lcopy_list_or_array (const GValue * value, guint n_collect_values,
 347     GTypeCValue * collect_values, guint collect_flags)
 348 {
 349   GArray **dest = collect_values[0].v_pointer;
 350
 351   if (!dest)
 352     return g_strdup_printf ("value location for `%s' passed as NULL",
 353         G_VALUE_TYPE_NAME (value));
 354   if (!value->data[0].v_pointer)
 355     return g_strdup_printf ("invalid value given for `%s'",
 356         G_VALUE_TYPE_NAME (value));
 357   if (collect_flags & G_VALUE_NOCOPY_CONTENTS) {
 358     *dest = (GArray *) value->data[0].v_pointer;
 359   } else {
 360     *dest = copy_garray_of_gstvalue ((GArray *) value->data[0].v_pointer);
 361   }
 362   return NULL;
 363 }
 364
 365 static gboolean
 366 gst_value_list_or_array_get_basic_type (const GValue * value, GType * type)
 367 {
 368   if (G_UNLIKELY (value == NULL))
 369     return FALSE;
 370
 371   if (GST_VALUE_HOLDS_LIST (value)) {
 372     if (VALUE_LIST_SIZE (value) == 0)
 373       return FALSE;
 374     return gst_value_list_or_array_get_basic_type (VALUE_LIST_GET_VALUE (value,
 375             0), type);
 376   }
 377   if (GST_VALUE_HOLDS_ARRAY (value)) {
 378     const GArray *array = (const GArray *) value->data[0].v_pointer;
 379     if (array->len == 0)
 380       return FALSE;
 381     return gst_value_list_or_array_get_basic_type (&g_array_index (array,
 382             GValue, 0), type);
 383   }
 384
 385   *type = G_VALUE_TYPE (value);
 386
 387   return TRUE;
 388 }
 389
 390 #define IS_RANGE_COMPAT(type1,type2,t1,t2) \
 391   (((t1) == (type1) && (t2) == (type2)) || ((t2) == (type1) && (t1) == (type2)))
 392
 393 static gboolean
 394 gst_value_list_or_array_are_compatible (const GValue * value1,
 395     const GValue * value2)
 396 {
 397   GType basic_type1, basic_type2;
 398
 399   /* empty or same type is OK */
 400   if (!gst_value_list_or_array_get_basic_type (value1, &basic_type1) ||
 401       !gst_value_list_or_array_get_basic_type (value2, &basic_type2) ||
 402       basic_type1 == basic_type2)
 403     return TRUE;
 404
 405   /* ranges are distinct types for each bound type... */
 406   if (IS_RANGE_COMPAT (G_TYPE_INT, GST_TYPE_INT_RANGE, basic_type1,
 407           basic_type2))
 408     return TRUE;
 409   if (IS_RANGE_COMPAT (G_TYPE_INT64, GST_TYPE_INT64_RANGE, basic_type1,
 410           basic_type2))
 411     return TRUE;
 412   if (IS_RANGE_COMPAT (G_TYPE_DOUBLE, GST_TYPE_DOUBLE_RANGE, basic_type1,
 413           basic_type2))
 414     return TRUE;
 415   if (IS_RANGE_COMPAT (GST_TYPE_FRACTION, GST_TYPE_FRACTION_RANGE, basic_type1,
 416           basic_type2))
 417     return TRUE;
 418
 419   return FALSE;
 420 }
 421
 422 static inline void
 423 _gst_value_list_append_and_take_value (GValue * value, GValue * append_value)
 424 {
 425   g_array_append_vals ((GArray *) value->data[0].v_pointer, append_value, 1);
 426   memset (append_value, 0, sizeof (GValue));
 427 }
 428
 429 /**
 430  * gst_value_list_append_and_take_value:
 431  * @value: a #GValue of type #GST_TYPE_LIST
 432  * @append_value: (transfer full): the value to append
 433  *
 434  * Appends @append_value to the GstValueList in @value.
 435  *
 436  * Since: 1.2
 437  */
 438 void
 439 gst_value_list_append_and_take_value (GValue * value, GValue * append_value)
 440 {
 441   g_return_if_fail (GST_VALUE_HOLDS_LIST (value));
 442   g_return_if_fail (G_IS_VALUE (append_value));
 443   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 444           append_value));
 445
 446   _gst_value_list_append_and_take_value (value, append_value);
 447 }
 448
 449 /**
 450  * gst_value_list_append_value:
 451  * @value: a #GValue of type #GST_TYPE_LIST
 452  * @append_value: (transfer none): the value to append
 453  *
 454  * Appends @append_value to the GstValueList in @value.
 455  */
 456 void
 457 gst_value_list_append_value (GValue * value, const GValue * append_value)
 458 {
 459   GValue val = { 0, };
 460
 461   g_return_if_fail (GST_VALUE_HOLDS_LIST (value));
 462   g_return_if_fail (G_IS_VALUE (append_value));
 463   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 464           append_value));
 465
 466   gst_value_init_and_copy (&val, append_value);
 467   g_array_append_vals ((GArray *) value->data[0].v_pointer, &val, 1);
 468 }
 469
 470 /**
 471  * gst_value_list_prepend_value:
 472  * @value: a #GValue of type #GST_TYPE_LIST
 473  * @prepend_value: the value to prepend
 474  *
 475  * Prepends @prepend_value to the GstValueList in @value.
 476  */
 477 void
 478 gst_value_list_prepend_value (GValue * value, const GValue * prepend_value)
 479 {
 480   GValue val = { 0, };
 481
 482   g_return_if_fail (GST_VALUE_HOLDS_LIST (value));
 483   g_return_if_fail (G_IS_VALUE (prepend_value));
 484   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 485           prepend_value));
 486
 487   gst_value_init_and_copy (&val, prepend_value);
 488   g_array_prepend_vals ((GArray *) value->data[0].v_pointer, &val, 1);
 489 }
 490
 491 /**
 492  * gst_value_list_concat:
 493  * @dest: (out caller-allocates): an uninitialized #GValue to take the result
 494  * @value1: a #GValue
 495  * @value2: a #GValue
 496  *
 497  * Concatenates copies of @value1 and @value2 into a list.  Values that are not
 498  * of type #GST_TYPE_LIST are treated as if they were lists of length 1.
 499  * @dest will be initialized to the type #GST_TYPE_LIST.
 500  */
 501 void
 502 gst_value_list_concat (GValue * dest, const GValue * value1,
 503     const GValue * value2)
 504 {
 505   guint i, value1_length, value2_length;
 506   GArray *array;
 507
 508   g_return_if_fail (dest != NULL);
 509   g_return_if_fail (G_VALUE_TYPE (dest) == 0);
 510   g_return_if_fail (G_IS_VALUE (value1));
 511   g_return_if_fail (G_IS_VALUE (value2));
 512   g_return_if_fail (gst_value_list_or_array_are_compatible (value1, value2));
 513
 514   value1_length =
 515       (GST_VALUE_HOLDS_LIST (value1) ? VALUE_LIST_SIZE (value1) : 1);
 516   value2_length =
 517       (GST_VALUE_HOLDS_LIST (value2) ? VALUE_LIST_SIZE (value2) : 1);
 518   g_value_init (dest, GST_TYPE_LIST);
 519   array = (GArray *) dest->data[0].v_pointer;
 520   g_array_set_size (array, value1_length + value2_length);
 521
 522   if (GST_VALUE_HOLDS_LIST (value1)) {
 523     for (i = 0; i < value1_length; i++) {
 524       gst_value_init_and_copy (&g_array_index (array, GValue, i),
 525           VALUE_LIST_GET_VALUE (value1, i));
 526     }
 527   } else {
 528     gst_value_init_and_copy (&g_array_index (array, GValue, 0), value1);
 529   }
 530
 531   if (GST_VALUE_HOLDS_LIST (value2)) {
 532     for (i = 0; i < value2_length; i++) {
 533       gst_value_init_and_copy (&g_array_index (array, GValue,
 534               i + value1_length), VALUE_LIST_GET_VALUE (value2, i));
 535     }
 536   } else {
 537     gst_value_init_and_copy (&g_array_index (array, GValue, value1_length),
 538         value2);
 539   }
 540 }
 541
 542 /* same as gst_value_list_concat() but takes ownership of GValues */
 543 static void
 544 gst_value_list_concat_and_take_values (GValue * dest, GValue * val1,
 545     GValue * val2)
 546 {
 547   guint i, val1_length, val2_length;
 548   gboolean val1_is_list;
 549   gboolean val2_is_list;
 550   GArray *array;
 551
 552   g_assert (dest != NULL);
 553   g_assert (G_VALUE_TYPE (dest) == 0);
 554   g_assert (G_IS_VALUE (val1));
 555   g_assert (G_IS_VALUE (val2));
 556   g_assert (gst_value_list_or_array_are_compatible (val1, val2));
 557
 558   val1_is_list = GST_VALUE_HOLDS_LIST (val1);
 559   val1_length = (val1_is_list ? VALUE_LIST_SIZE (val1) : 1);
 560
 561   val2_is_list = GST_VALUE_HOLDS_LIST (val2);
 562   val2_length = (val2_is_list ? VALUE_LIST_SIZE (val2) : 1);
 563
 564   g_value_init (dest, GST_TYPE_LIST);
 565   array = (GArray *) dest->data[0].v_pointer;
 566   g_array_set_size (array, val1_length + val2_length);
 567
 568   if (val1_is_list) {
 569     for (i = 0; i < val1_length; i++) {
 570       g_array_index (array, GValue, i) = *VALUE_LIST_GET_VALUE (val1, i);
 571     }
 572     g_array_set_size (VALUE_LIST_ARRAY (val1), 0);
 573     g_value_unset (val1);
 574   } else {
 575     g_array_index (array, GValue, 0) = *val1;
 576     G_VALUE_TYPE (val1) = G_TYPE_INVALID;
 577   }
 578
 579   if (val2_is_list) {
 580     for (i = 0; i < val2_length; i++) {
 581       const GValue *v2 = VALUE_LIST_GET_VALUE (val2, i);
 582       g_array_index (array, GValue, i + val1_length) = *v2;
 583     }
 584     g_array_set_size (VALUE_LIST_ARRAY (val2), 0);
 585     g_value_unset (val2);
 586   } else {
 587     g_array_index (array, GValue, val1_length) = *val2;
 588     G_VALUE_TYPE (val2) = G_TYPE_INVALID;
 589   }
 590 }
 591
 592 /**
 593  * gst_value_list_merge:
 594  * @dest: (out caller-allocates): an uninitialized #GValue to take the result
 595  * @value1: a #GValue
 596  * @value2: a #GValue
 597  *
 598  * Merges copies of @value1 and @value2.  Values that are not
 599  * of type #GST_TYPE_LIST are treated as if they were lists of length 1.
 600  *
 601  * The result will be put into @dest and will either be a list that will not
 602  * contain any duplicates, or a non-list type (if @value1 and @value2
 603  * were equal).
 604  */
 605 void
 606 gst_value_list_merge (GValue * dest, const GValue * value1,
 607     const GValue * value2)
 608 {
 609   guint i, j, k, value1_length, value2_length, skipped;
 610   const GValue *src;
 611   gboolean skip;
 612   GArray *array;
 613
 614   g_return_if_fail (dest != NULL);
 615   g_return_if_fail (G_VALUE_TYPE (dest) == 0);
 616   g_return_if_fail (G_IS_VALUE (value1));
 617   g_return_if_fail (G_IS_VALUE (value2));
 618   g_return_if_fail (gst_value_list_or_array_are_compatible (value1, value2));
 619
 620   value1_length =
 621       (GST_VALUE_HOLDS_LIST (value1) ? VALUE_LIST_SIZE (value1) : 1);
 622   value2_length =
 623       (GST_VALUE_HOLDS_LIST (value2) ? VALUE_LIST_SIZE (value2) : 1);
 624   g_value_init (dest, GST_TYPE_LIST);
 625   array = (GArray *) dest->data[0].v_pointer;
 626   g_array_set_size (array, value1_length + value2_length);
 627
 628   if (GST_VALUE_HOLDS_LIST (value1)) {
 629     for (i = 0; i < value1_length; i++) {
 630       gst_value_init_and_copy (&g_array_index (array, GValue, i),
 631           VALUE_LIST_GET_VALUE (value1, i));
 632     }
 633   } else {
 634     gst_value_init_and_copy (&g_array_index (array, GValue, 0), value1);
 635   }
 636
 637   j = value1_length;
 638   skipped = 0;
 639   if (GST_VALUE_HOLDS_LIST (value2)) {
 640     for (i = 0; i < value2_length; i++) {
 641       skip = FALSE;
 642       src = VALUE_LIST_GET_VALUE (value2, i);
 643       for (k = 0; k < value1_length; k++) {
 644         if (gst_value_compare (&g_array_index (array, GValue, k),
 645                 src) == GST_VALUE_EQUAL) {
 646           skip = TRUE;
 647           skipped++;
 648           break;
 649         }
 650       }
 651       if (!skip) {
 652         gst_value_init_and_copy (&g_array_index (array, GValue, j), src);
 653         j++;
 654       }
 655     }
 656   } else {
 657     skip = FALSE;
 658     for (k = 0; k < value1_length; k++) {
 659       if (gst_value_compare (&g_array_index (array, GValue, k),
 660               value2) == GST_VALUE_EQUAL) {
 661         skip = TRUE;
 662         skipped++;
 663         break;
 664       }
 665     }
 666     if (!skip) {
 667       gst_value_init_and_copy (&g_array_index (array, GValue, j), value2);
 668     }
 669   }
 670   if (skipped) {
 671     guint new_size = value1_length + (value2_length - skipped);
 672
 673     if (new_size > 1) {
 674       /* shrink list */
 675       g_array_set_size (array, new_size);
 676     } else {
 677       GValue single_dest;
 678
 679       /* size is 1, take single value in list and make it new dest */
 680       single_dest = g_array_index (array, GValue, 0);
 681
 682       /* clean up old value allocations: must set array size to 0, because
 683        * allocated values are not inited meaning g_value_unset() will not
 684        * work on them */
 685       g_array_set_size (array, 0);
 686       g_value_unset (dest);
 687
 688       /* the single value is our new result */
 689       *dest = single_dest;
 690     }
 691   }
 692 }
 693
 694 /**
 695  * gst_value_list_get_size:
 696  * @value: a #GValue of type #GST_TYPE_LIST
 697  *
 698  * Gets the number of values contained in @value.
 699  *
 700  * Returns: the number of values
 701  */
 702 guint
 703 gst_value_list_get_size (const GValue * value)
 704 {
 705   g_return_val_if_fail (GST_VALUE_HOLDS_LIST (value), 0);
 706
 707   return ((GArray *) value->data[0].v_pointer)->len;
 708 }
 709
 710 /**
 711  * gst_value_list_get_value:
 712  * @value: a #GValue of type #GST_TYPE_LIST
 713  * @index: index of value to get from the list
 714  *
 715  * Gets the value that is a member of the list contained in @value and
 716  * has the index @index.
 717  *
 718  * Returns: (transfer none): the value at the given index
 719  */
 720 const GValue *
 721 gst_value_list_get_value (const GValue * value, guint index)
 722 {
 723   g_return_val_if_fail (GST_VALUE_HOLDS_LIST (value), NULL);
 724   g_return_val_if_fail (index < VALUE_LIST_SIZE (value), NULL);
 725
 726   return (const GValue *) &g_array_index ((GArray *) value->data[0].v_pointer,
 727       GValue, index);
 728 }
 729
 730 /**
 731  * gst_value_array_append_value:
 732  * @value: a #GValue of type #GST_TYPE_ARRAY
 733  * @append_value: the value to append
 734  *
 735  * Appends @append_value to the GstValueArray in @value.
 736  */
 737 void
 738 gst_value_array_append_value (GValue * value, const GValue * append_value)
 739 {
 740   GValue val = { 0, };
 741
 742   g_return_if_fail (GST_VALUE_HOLDS_ARRAY (value));
 743   g_return_if_fail (G_IS_VALUE (append_value));
 744   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 745           append_value));
 746
 747   gst_value_init_and_copy (&val, append_value);
 748   g_array_append_vals ((GArray *) value->data[0].v_pointer, &val, 1);
 749 }
 750
 751 static inline void
 752 _gst_value_array_append_and_take_value (GValue * value, GValue * append_value)
 753 {
 754   g_array_append_vals ((GArray *) value->data[0].v_pointer, append_value, 1);
 755   memset (append_value, 0, sizeof (GValue));
 756 }
 757
 758 /**
 759  * gst_value_array_append_and_take_value:
 760  * @value: a #GValue of type #GST_TYPE_ARRAY
 761  * @append_value: (transfer full): the value to append
 762  *
 763  * Appends @append_value to the GstValueArray in @value.
 764  *
 765  * Since: 1.2
 766  */
 767 void
 768 gst_value_array_append_and_take_value (GValue * value, GValue * append_value)
 769 {
 770   g_return_if_fail (GST_VALUE_HOLDS_ARRAY (value));
 771   g_return_if_fail (G_IS_VALUE (append_value));
 772   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 773           append_value));
 774
 775   _gst_value_array_append_and_take_value (value, append_value);
 776 }
 777
 778 /**
 779  * gst_value_array_prepend_value:
 780  * @value: a #GValue of type #GST_TYPE_ARRAY
 781  * @prepend_value: the value to prepend
 782  *
 783  * Prepends @prepend_value to the GstValueArray in @value.
 784  */
 785 void
 786 gst_value_array_prepend_value (GValue * value, const GValue * prepend_value)
 787 {
 788   GValue val = { 0, };
 789
 790   g_return_if_fail (GST_VALUE_HOLDS_ARRAY (value));
 791   g_return_if_fail (G_IS_VALUE (prepend_value));
 792   g_return_if_fail (gst_value_list_or_array_are_compatible (value,
 793           prepend_value));
 794
 795   gst_value_init_and_copy (&val, prepend_value);
 796   g_array_prepend_vals ((GArray *) value->data[0].v_pointer, &val, 1);
 797 }
 798
 799 /**
 800  * gst_value_array_get_size:
 801  * @value: a #GValue of type #GST_TYPE_ARRAY
 802  *
 803  * Gets the number of values contained in @value.
 804  *
 805  * Returns: the number of values
 806  */
 807 guint
 808 gst_value_array_get_size (const GValue * value)
 809 {
 810   g_return_val_if_fail (GST_VALUE_HOLDS_ARRAY (value), 0);
 811
 812   return ((GArray *) value->data[0].v_pointer)->len;
 813 }
 814
 815 /**
 816  * gst_value_array_get_value:
 817  * @value: a #GValue of type #GST_TYPE_ARRAY
 818  * @index: index of value to get from the array
 819  *
 820  * Gets the value that is a member of the array contained in @value and
 821  * has the index @index.
 822  *
 823  * Returns: (transfer none): the value at the given index
 824  */
 825 const GValue *
 826 gst_value_array_get_value (const GValue * value, guint index)
 827 {
 828   g_return_val_if_fail (GST_VALUE_HOLDS_ARRAY (value), NULL);
 829   g_return_val_if_fail (index < gst_value_array_get_size (value), NULL);
 830
 831   return (const GValue *) &g_array_index ((GArray *) value->data[0].v_pointer,
 832       GValue, index);
 833 }
 834
 835 static void
 836 gst_value_transform_list_string (const GValue * src_value, GValue * dest_value)
 837 {
 838   gst_value_transform_any_list_string (src_value, dest_value, "{ ", " }");
 839 }
 840
 841 static void
 842 gst_value_transform_array_string (const GValue * src_value, GValue * dest_value)
 843 {
 844   gst_value_transform_any_list_string (src_value, dest_value, "< ", " >");
 845 }
 846
 847 /* Do an unordered compare of the contents of a list */
 848 static gint
 849 gst_value_compare_value_list (const GValue * value1, const GValue * value2)
 850 {
 851   guint i, j;
 852   GArray *array1 = value1->data[0].v_pointer;
 853   GArray *array2 = value2->data[0].v_pointer;
 854   GValue *v1;
 855   GValue *v2;
 856   gint len, to_remove;
 857   guint8 *removed;
 858   GstValueCompareFunc compare;
 859
 860   /* get length and do initial length check. */
 861   len = array1->len;
 862   if (len != array2->len)
 863     return GST_VALUE_UNORDERED;
 864
 865   /* place to mark removed value indices of array2 */
 866   removed = g_newa (guint8, len);
 867   memset (removed, 0, len);
 868   to_remove = len;
 869
 870   /* loop over array1, all items should be in array2. When we find an
 871    * item in array2, remove it from array2 by marking it as removed */
 872   for (i = 0; i < len; i++) {
 873     v1 = &g_array_index (array1, GValue, i);
 874     if ((compare = gst_value_get_compare_func (v1))) {
 875       for (j = 0; j < len; j++) {
 876         /* item is removed, we can skip it */
 877         if (removed[j])
 878           continue;
 879         v2 = &g_array_index (array2, GValue, j);
 880         if (gst_value_compare_with_func (v1, v2, compare) == GST_VALUE_EQUAL) {
 881           /* mark item as removed now that we found it in array2 and
 882            * decrement the number of remaining items in array2. */
 883           removed[j] = 1;
 884           to_remove--;
 885           break;
 886         }
 887       }
 888       /* item in array1 and not in array2, UNORDERED */
 889       if (j == len)
 890         return GST_VALUE_UNORDERED;
 891     } else
 892       return GST_VALUE_UNORDERED;
 893   }
 894   /* if not all items were removed, array2 contained something not in array1 */
 895   if (to_remove != 0)
 896     return GST_VALUE_UNORDERED;
 897
 898   /* arrays are equal */
 899   return GST_VALUE_EQUAL;
 900 }
 901
 902 /* Perform an ordered comparison of the contents of an array */
 903 static gint
 904 gst_value_compare_value_array (const GValue * value1, const GValue * value2)
 905 {
 906   guint i;
 907   GArray *array1 = value1->data[0].v_pointer;
 908   GArray *array2 = value2->data[0].v_pointer;
 909   guint len = array1->len;
 910   GValue *v1;
 911   GValue *v2;
 912
 913   if (len != array2->len)
 914     return GST_VALUE_UNORDERED;
 915
 916   for (i = 0; i < len; i++) {
 917     v1 = &g_array_index (array1, GValue, i);
 918     v2 = &g_array_index (array2, GValue, i);
 919     if (gst_value_compare (v1, v2) != GST_VALUE_EQUAL)
 920       return GST_VALUE_UNORDERED;
 921   }
 922
 923   return GST_VALUE_EQUAL;
 924 }
 925
 926 static gchar *
 927 gst_value_serialize_value_list (const GValue * value)
 928 {
 929   return gst_value_serialize_any_list (value, "{ ", " }");
 930 }
 931
 932 static gboolean
 933 gst_value_deserialize_value_list (GValue * dest, const gchar * s)
 934 {
 935   g_warning ("gst_value_deserialize_list: unimplemented");
 936   return FALSE;
 937 }
 938
 939 static gchar *
 940 gst_value_serialize_value_array (const GValue * value)
 941 {
 942   return gst_value_serialize_any_list (value, "< ", " >");
 943 }
 944
 945 static gboolean
 946 gst_value_deserialize_value_array (GValue * dest, const gchar * s)
 947 {
 948   g_warning ("gst_value_deserialize_array: unimplemented");
 949   return FALSE;
 950 }
 951
 952 /*************
 953  * int range *
 954  *
 955  * Values in the range are defined as any value greater or equal
 956  * to min*step, AND lesser or equal to max*step.
 957  * For step == 1, this falls back to the traditional range semantics.
 958  *
 959  * data[0] = (min << 32) | (max)
 960  * data[1] = step
 961  *
 962  *************/
 963
 964 #define INT_RANGE_MIN(v) ((gint) (((v)->data[0].v_uint64) >> 32))
 965 #define INT_RANGE_MAX(v) ((gint) (((v)->data[0].v_uint64) & 0xffffffff))
 966 #define INT_RANGE_STEP(v) ((v)->data[1].v_int)
 967
 968 static void
 969 gst_value_init_int_range (GValue * value)
 970 {
 971   G_STATIC_ASSERT (sizeof (gint) <= 2 * sizeof (guint64));
 972
 973   value->data[0].v_uint64 = 0;
 974   value->data[1].v_int = 1;
 975 }
 976
 977 static void
 978 gst_value_copy_int_range (const GValue * src_value, GValue * dest_value)
 979 {
 980   dest_value->data[0].v_uint64 = src_value->data[0].v_uint64;
 981   dest_value->data[1].v_int = src_value->data[1].v_int;
 982 }
 983
 984 static gchar *
 985 gst_value_collect_int_range (GValue * value, guint n_collect_values,
 986     GTypeCValue * collect_values, guint collect_flags)
 987 {
 988   if (n_collect_values != 2)
 989     return g_strdup_printf ("not enough value locations for `%s' passed",
 990         G_VALUE_TYPE_NAME (value));
 991   if (collect_values[0].v_int >= collect_values[1].v_int)
 992     return g_strdup_printf ("range start is not smaller than end for `%s'",
 993         G_VALUE_TYPE_NAME (value));
 994
 995   gst_value_set_int_range_step (value, collect_values[0].v_int,
 996       collect_values[1].v_int, 1);
 997
 998   return NULL;
 999 }
1000
1001 static gchar *
1002 gst_value_lcopy_int_range (const GValue * value, guint n_collect_values,
1003     GTypeCValue * collect_values, guint collect_flags)
1004 {
1005   guint32 *int_range_start = collect_values[0].v_pointer;
1006   guint32 *int_range_end = collect_values[1].v_pointer;
1007
1008   if (!int_range_start)
1009     return g_strdup_printf ("start value location for `%s' passed as NULL",
1010         G_VALUE_TYPE_NAME (value));
1011   if (!int_range_end)
1012     return g_strdup_printf ("end value location for `%s' passed as NULL",
1013         G_VALUE_TYPE_NAME (value));
1014
1015   *int_range_start = INT_RANGE_MIN (value);
1016   *int_range_end = INT_RANGE_MAX (value);
1017
1018   return NULL;
1019 }
1020
1021 /**
1022  * gst_value_set_int_range_step:
1023  * @value: a GValue initialized to GST_TYPE_INT_RANGE
1024  * @start: the start of the range
1025  * @end: the end of the range
1026  * @step: the step of the range
1027  *
1028  * Sets @value to the range specified by @start, @end and @step.
1029  */
1030 void
1031 gst_value_set_int_range_step (GValue * value, gint start, gint end, gint step)
1032 {
1033   guint64 sstart, sstop;
1034
1035   g_return_if_fail (GST_VALUE_HOLDS_INT_RANGE (value));
1036   g_return_if_fail (start < end);
1037   g_return_if_fail (step > 0);
1038   g_return_if_fail (start % step == 0);
1039   g_return_if_fail (end % step == 0);
1040
1041   sstart = (guint) (start / step);
1042   sstop = (guint) (end / step);
1043   value->data[0].v_uint64 = (sstart << 32) | sstop;
1044   value->data[1].v_int = step;
1045 }
1046
1047 /**
1048  * gst_value_set_int_range:
1049  * @value: a GValue initialized to GST_TYPE_INT_RANGE
1050  * @start: the start of the range
1051  * @end: the end of the range
1052  *
1053  * Sets @value to the range specified by @start and @end.
1054  */
1055 void
1056 gst_value_set_int_range (GValue * value, gint start, gint end)
1057 {
1058   gst_value_set_int_range_step (value, start, end, 1);
1059 }
1060
1061 /**
1062  * gst_value_get_int_range_min:
1063  * @value: a GValue initialized to GST_TYPE_INT_RANGE
1064  *
1065  * Gets the minimum of the range specified by @value.
1066  *
1067  * Returns: the minimum of the range
1068  */
1069 gint
1070 gst_value_get_int_range_min (const GValue * value)
1071 {
1072   g_return_val_if_fail (GST_VALUE_HOLDS_INT_RANGE (value), 0);
1073
1074   return INT_RANGE_MIN (value) * INT_RANGE_STEP (value);
1075 }
1076
1077 /**
1078  * gst_value_get_int_range_max:
1079  * @value: a GValue initialized to GST_TYPE_INT_RANGE
1080  *
1081  * Gets the maximum of the range specified by @value.
1082  *
1083  * Returns: the maximum of the range
1084  */
1085 gint
1086 gst_value_get_int_range_max (const GValue * value)
1087 {
1088   g_return_val_if_fail (GST_VALUE_HOLDS_INT_RANGE (value), 0);
1089
1090   return INT_RANGE_MAX (value) * INT_RANGE_STEP (value);
1091 }
1092
1093 /**
1094  * gst_value_get_int_range_step:
1095  * @value: a GValue initialized to GST_TYPE_INT_RANGE
1096  *
1097  * Gets the step of the range specified by @value.
1098  *
1099  * Returns: the step of the range
1100  */
1101 gint
1102 gst_value_get_int_range_step (const GValue * value)
1103 {
1104   g_return_val_if_fail (GST_VALUE_HOLDS_INT_RANGE (value), 0);
1105
1106   return INT_RANGE_STEP (value);
1107 }
1108
1109 static void
1110 gst_value_transform_int_range_string (const GValue * src_value,
1111     GValue * dest_value)
1112 {
1113   if (INT_RANGE_STEP (src_value) == 1)
1114     dest_value->data[0].v_pointer = g_strdup_printf ("[%d,%d]",
1115         INT_RANGE_MIN (src_value), INT_RANGE_MAX (src_value));
1116   else
1117     dest_value->data[0].v_pointer = g_strdup_printf ("[%d,%d,%d]",
1118         INT_RANGE_MIN (src_value) * INT_RANGE_STEP (src_value),
1119         INT_RANGE_MAX (src_value) * INT_RANGE_STEP (src_value),
1120         INT_RANGE_STEP (src_value));
1121 }
1122
1123 static gint
1124 gst_value_compare_int_range (const GValue * value1, const GValue * value2)
1125 {
1126   /* calculate the number of values in each range */
1127   gint n1 = INT_RANGE_MAX (value1) - INT_RANGE_MIN (value1) + 1;
1128   gint n2 = INT_RANGE_MAX (value2) - INT_RANGE_MIN (value2) + 1;
1129
1130   /* they must be equal */
1131   if (n1 != n2)
1132     return GST_VALUE_UNORDERED;
1133
1134   /* if empty, equal */
1135   if (n1 == 0)
1136     return GST_VALUE_EQUAL;
1137
1138   /* if more than one value, then it is only equal if the step is equal
1139      and bounds lie on the same value */
1140   if (n1 > 1) {
1141     if (INT_RANGE_STEP (value1) == INT_RANGE_STEP (value2) &&
1142         INT_RANGE_MIN (value1) == INT_RANGE_MIN (value2) &&
1143         INT_RANGE_MAX (value1) == INT_RANGE_MAX (value2)) {
1144       return GST_VALUE_EQUAL;
1145     }
1146     return GST_VALUE_UNORDERED;
1147   } else {
1148     /* if just one, only if the value is equal */
1149     if (INT_RANGE_MIN (value1) == INT_RANGE_MIN (value2))
1150       return GST_VALUE_EQUAL;
1151     return GST_VALUE_UNORDERED;
1152   }
1153 }
1154
1155 static gchar *
1156 gst_value_serialize_int_range (const GValue * value)
1157 {
1158   if (INT_RANGE_STEP (value) == 1)
1159     return g_strdup_printf ("[ %d, %d ]", INT_RANGE_MIN (value),
1160         INT_RANGE_MAX (value));
1161   else
1162     return g_strdup_printf ("[ %d, %d, %d ]",
1163         INT_RANGE_MIN (value) * INT_RANGE_STEP (value),
1164         INT_RANGE_MAX (value) * INT_RANGE_STEP (value), INT_RANGE_STEP (value));
1165 }
1166
1167 static gboolean
1168 gst_value_deserialize_int_range (GValue * dest, const gchar * s)
1169 {
1170   g_warning ("unimplemented");
1171   return FALSE;
1172 }
1173
1174 /***************
1175  * int64 range *
1176  *
1177  * Values in the range are defined as any value greater or equal
1178  * to min*step, AND lesser or equal to max*step.
1179  * For step == 1, this falls back to the traditional range semantics.
1180  ***************/
1181
1182 #define INT64_RANGE_MIN(v) (((gint64 *)((v)->data[0].v_pointer))[0])
1183 #define INT64_RANGE_MAX(v) (((gint64 *)((v)->data[0].v_pointer))[1])
1184 #define INT64_RANGE_STEP(v) (((gint64 *)((v)->data[0].v_pointer))[2])
1185
1186 static void
1187 gst_value_init_int64_range (GValue * value)
1188 {
1189   gint64 *vals = g_slice_alloc0 (3 * sizeof (gint64));
1190   value->data[0].v_pointer = vals;
1191   INT64_RANGE_MIN (value) = 0;
1192   INT64_RANGE_MAX (value) = 0;
1193   INT64_RANGE_STEP (value) = 1;
1194 }
1195
1196 static void
1197 gst_value_free_int64_range (GValue * value)
1198 {
1199   g_return_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value));
1200   g_slice_free1 (3 * sizeof (gint64), value->data[0].v_pointer);
1201   value->data[0].v_pointer = NULL;
1202 }
1203
1204 static void
1205 gst_value_copy_int64_range (const GValue * src_value, GValue * dest_value)
1206 {
1207   gint64 *vals = (gint64 *) dest_value->data[0].v_pointer;
1208   gint64 *src_vals = (gint64 *) src_value->data[0].v_pointer;
1209
1210   if (vals == NULL) {
1211     gst_value_init_int64_range (dest_value);
1212   }
1213
1214   if (src_vals != NULL) {
1215     INT64_RANGE_MIN (dest_value) = INT64_RANGE_MIN (src_value);
1216     INT64_RANGE_MAX (dest_value) = INT64_RANGE_MAX (src_value);
1217     INT64_RANGE_STEP (dest_value) = INT64_RANGE_STEP (src_value);
1218   }
1219 }
1220
1221 static gchar *
1222 gst_value_collect_int64_range (GValue * value, guint n_collect_values,
1223     GTypeCValue * collect_values, guint collect_flags)
1224 {
1225   gint64 *vals = value->data[0].v_pointer;
1226
1227   if (n_collect_values != 2)
1228     return g_strdup_printf ("not enough value locations for `%s' passed",
1229         G_VALUE_TYPE_NAME (value));
1230   if (collect_values[0].v_int64 >= collect_values[1].v_int64)
1231     return g_strdup_printf ("range start is not smaller than end for `%s'",
1232         G_VALUE_TYPE_NAME (value));
1233
1234   if (vals == NULL) {
1235     gst_value_init_int64_range (value);
1236   }
1237
1238   gst_value_set_int64_range_step (value, collect_values[0].v_int64,
1239       collect_values[1].v_int64, 1);
1240
1241   return NULL;
1242 }
1243
1244 static gchar *
1245 gst_value_lcopy_int64_range (const GValue * value, guint n_collect_values,
1246     GTypeCValue * collect_values, guint collect_flags)
1247 {
1248   guint64 *int_range_start = collect_values[0].v_pointer;
1249   guint64 *int_range_end = collect_values[1].v_pointer;
1250   guint64 *int_range_step = collect_values[2].v_pointer;
1251   gint64 *vals = (gint64 *) value->data[0].v_pointer;
1252
1253   if (!int_range_start)
1254     return g_strdup_printf ("start value location for `%s' passed as NULL",
1255         G_VALUE_TYPE_NAME (value));
1256   if (!int_range_end)
1257     return g_strdup_printf ("end value location for `%s' passed as NULL",
1258         G_VALUE_TYPE_NAME (value));
1259   if (!int_range_step)
1260     return g_strdup_printf ("step value location for `%s' passed as NULL",
1261         G_VALUE_TYPE_NAME (value));
1262
1263   if (G_UNLIKELY (vals == NULL)) {
1264     return g_strdup_printf ("Uninitialised `%s' passed",
1265         G_VALUE_TYPE_NAME (value));
1266   }
1267
1268   *int_range_start = INT64_RANGE_MIN (value);
1269   *int_range_end = INT64_RANGE_MAX (value);
1270   *int_range_step = INT64_RANGE_STEP (value);
1271
1272   return NULL;
1273 }
1274
1275 /**
1276  * gst_value_set_int64_range_step:
1277  * @value: a GValue initialized to GST_TYPE_INT64_RANGE
1278  * @start: the start of the range
1279  * @end: the end of the range
1280  * @step: the step of the range
1281  *
1282  * Sets @value to the range specified by @start, @end and @step.
1283  */
1284 void
1285 gst_value_set_int64_range_step (GValue * value, gint64 start, gint64 end,
1286     gint64 step)
1287 {
1288   g_return_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value));
1289   g_return_if_fail (start < end);
1290   g_return_if_fail (step > 0);
1291   g_return_if_fail (start % step == 0);
1292   g_return_if_fail (end % step == 0);
1293
1294   INT64_RANGE_MIN (value) = start / step;
1295   INT64_RANGE_MAX (value) = end / step;
1296   INT64_RANGE_STEP (value) = step;
1297 }
1298
1299 /**
1300  * gst_value_set_int64_range:
1301  * @value: a GValue initialized to GST_TYPE_INT64_RANGE
1302  * @start: the start of the range
1303  * @end: the end of the range
1304  *
1305  * Sets @value to the range specified by @start and @end.
1306  */
1307 void
1308 gst_value_set_int64_range (GValue * value, gint64 start, gint64 end)
1309 {
1310   gst_value_set_int64_range_step (value, start, end, 1);
1311 }
1312
1313 /**
1314  * gst_value_get_int64_range_min:
1315  * @value: a GValue initialized to GST_TYPE_INT64_RANGE
1316  *
1317  * Gets the minimum of the range specified by @value.
1318  *
1319  * Returns: the minimum of the range
1320  */
1321 gint64
1322 gst_value_get_int64_range_min (const GValue * value)
1323 {
1324   g_return_val_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value), 0);
1325
1326   return INT64_RANGE_MIN (value) * INT64_RANGE_STEP (value);
1327 }
1328
1329 /**
1330  * gst_value_get_int64_range_max:
1331  * @value: a GValue initialized to GST_TYPE_INT64_RANGE
1332  *
1333  * Gets the maximum of the range specified by @value.
1334  *
1335  * Returns: the maximum of the range
1336  */
1337 gint64
1338 gst_value_get_int64_range_max (const GValue * value)
1339 {
1340   g_return_val_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value), 0);
1341
1342   return INT64_RANGE_MAX (value) * INT64_RANGE_STEP (value);
1343 }
1344
1345 /**
1346  * gst_value_get_int64_range_step:
1347  * @value: a GValue initialized to GST_TYPE_INT64_RANGE
1348  *
1349  * Gets the step of the range specified by @value.
1350  *
1351  * Returns: the step of the range
1352  */
1353 gint64
1354 gst_value_get_int64_range_step (const GValue * value)
1355 {
1356   g_return_val_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value), 0);
1357
1358   return INT64_RANGE_STEP (value);
1359 }
1360
1361 static void
1362 gst_value_transform_int64_range_string (const GValue * src_value,
1363     GValue * dest_value)
1364 {
1365   if (INT64_RANGE_STEP (src_value) == 1)
1366     dest_value->data[0].v_pointer =
1367         g_strdup_printf ("(gint64)[%" G_GINT64_FORMAT ",%" G_GINT64_FORMAT "]",
1368         INT64_RANGE_MIN (src_value), INT64_RANGE_MAX (src_value));
1369   else
1370     dest_value->data[0].v_pointer =
1371         g_strdup_printf ("(gint64)[%" G_GINT64_FORMAT ",%" G_GINT64_FORMAT
1372         ",%" G_GINT64_FORMAT "]",
1373         INT64_RANGE_MIN (src_value) * INT64_RANGE_STEP (src_value),
1374         INT64_RANGE_MAX (src_value) * INT64_RANGE_STEP (src_value),
1375         INT64_RANGE_STEP (src_value));
1376 }
1377
1378 static gint
1379 gst_value_compare_int64_range (const GValue * value1, const GValue * value2)
1380 {
1381   /* calculate the number of values in each range */
1382   gint64 n1 = INT64_RANGE_MAX (value1) - INT64_RANGE_MIN (value1) + 1;
1383   gint64 n2 = INT64_RANGE_MAX (value2) - INT64_RANGE_MIN (value2) + 1;
1384
1385   /* they must be equal */
1386   if (n1 != n2)
1387     return GST_VALUE_UNORDERED;
1388
1389   /* if empty, equal */
1390   if (n1 == 0)
1391     return GST_VALUE_EQUAL;
1392
1393   /* if more than one value, then it is only equal if the step is equal
1394      and bounds lie on the same value */
1395   if (n1 > 1) {
1396     if (INT64_RANGE_STEP (value1) == INT64_RANGE_STEP (value2) &&
1397         INT64_RANGE_MIN (value1) == INT64_RANGE_MIN (value2) &&
1398         INT64_RANGE_MAX (value1) == INT64_RANGE_MAX (value2)) {
1399       return GST_VALUE_EQUAL;
1400     }
1401     return GST_VALUE_UNORDERED;
1402   } else {
1403     /* if just one, only if the value is equal */
1404     if (INT64_RANGE_MIN (value1) == INT64_RANGE_MIN (value2))
1405       return GST_VALUE_EQUAL;
1406     return GST_VALUE_UNORDERED;
1407   }
1408 }
1409
1410 static gchar *
1411 gst_value_serialize_int64_range (const GValue * value)
1412 {
1413   if (INT64_RANGE_STEP (value) == 1)
1414     return g_strdup_printf ("[ %" G_GINT64_FORMAT ", %" G_GINT64_FORMAT " ]",
1415         INT64_RANGE_MIN (value), INT64_RANGE_MAX (value));
1416   else
1417     return g_strdup_printf ("[ %" G_GINT64_FORMAT ", %" G_GINT64_FORMAT ", %"
1418         G_GINT64_FORMAT " ]",
1419         INT64_RANGE_MIN (value) * INT64_RANGE_STEP (value),
1420         INT64_RANGE_MAX (value) * INT64_RANGE_STEP (value),
1421         INT64_RANGE_STEP (value));
1422 }
1423
1424 static gboolean
1425 gst_value_deserialize_int64_range (GValue * dest, const gchar * s)
1426 {
1427   g_warning ("unimplemented");
1428   return FALSE;
1429 }
1430
1431 /****************
1432  * double range *
1433  ****************/
1434
1435 static void
1436 gst_value_init_double_range (GValue * value)
1437 {
1438   value->data[0].v_double = 0;
1439   value->data[1].v_double = 0;
1440 }
1441
1442 static void
1443 gst_value_copy_double_range (const GValue * src_value, GValue * dest_value)
1444 {
1445   dest_value->data[0].v_double = src_value->data[0].v_double;
1446   dest_value->data[1].v_double = src_value->data[1].v_double;
1447 }
1448
1449 static gchar *
1450 gst_value_collect_double_range (GValue * value, guint n_collect_values,
1451     GTypeCValue * collect_values, guint collect_flags)
1452 {
1453   if (n_collect_values != 2)
1454     return g_strdup_printf ("not enough value locations for `%s' passed",
1455         G_VALUE_TYPE_NAME (value));
1456   if (collect_values[0].v_double >= collect_values[1].v_double)
1457     return g_strdup_printf ("range start is not smaller than end for `%s'",
1458         G_VALUE_TYPE_NAME (value));
1459
1460   value->data[0].v_double = collect_values[0].v_double;
1461   value->data[1].v_double = collect_values[1].v_double;
1462
1463   return NULL;
1464 }
1465
1466 static gchar *
1467 gst_value_lcopy_double_range (const GValue * value, guint n_collect_values,
1468     GTypeCValue * collect_values, guint collect_flags)
1469 {
1470   gdouble *double_range_start = collect_values[0].v_pointer;
1471   gdouble *double_range_end = collect_values[1].v_pointer;
1472
1473   if (!double_range_start)
1474     return g_strdup_printf ("start value location for `%s' passed as NULL",
1475         G_VALUE_TYPE_NAME (value));
1476   if (!double_range_end)
1477     return g_strdup_printf ("end value location for `%s' passed as NULL",
1478         G_VALUE_TYPE_NAME (value));
1479
1480   *double_range_start = value->data[0].v_double;
1481   *double_range_end = value->data[1].v_double;
1482
1483   return NULL;
1484 }
1485
1486 /**
1487  * gst_value_set_double_range:
1488  * @value: a GValue initialized to GST_TYPE_DOUBLE_RANGE
1489  * @start: the start of the range
1490  * @end: the end of the range
1491  *
1492  * Sets @value to the range specified by @start and @end.
1493  */
1494 void
1495 gst_value_set_double_range (GValue * value, gdouble start, gdouble end)
1496 {
1497   g_return_if_fail (GST_VALUE_HOLDS_DOUBLE_RANGE (value));
1498   g_return_if_fail (start < end);
1499
1500   value->data[0].v_double = start;
1501   value->data[1].v_double = end;
1502 }
1503
1504 /**
1505  * gst_value_get_double_range_min:
1506  * @value: a GValue initialized to GST_TYPE_DOUBLE_RANGE
1507  *
1508  * Gets the minimum of the range specified by @value.
1509  *
1510  * Returns: the minimum of the range
1511  */
1512 gdouble
1513 gst_value_get_double_range_min (const GValue * value)
1514 {
1515   g_return_val_if_fail (GST_VALUE_HOLDS_DOUBLE_RANGE (value), 0);
1516
1517   return value->data[0].v_double;
1518 }
1519
1520 /**
1521  * gst_value_get_double_range_max:
1522  * @value: a GValue initialized to GST_TYPE_DOUBLE_RANGE
1523  *
1524  * Gets the maximum of the range specified by @value.
1525  *
1526  * Returns: the maximum of the range
1527  */
1528 gdouble
1529 gst_value_get_double_range_max (const GValue * value)
1530 {
1531   g_return_val_if_fail (GST_VALUE_HOLDS_DOUBLE_RANGE (value), 0);
1532
1533   return value->data[1].v_double;
1534 }
1535
1536 static void
1537 gst_value_transform_double_range_string (const GValue * src_value,
1538     GValue * dest_value)
1539 {
1540   gchar s1[G_ASCII_DTOSTR_BUF_SIZE], s2[G_ASCII_DTOSTR_BUF_SIZE];
1541
1542   dest_value->data[0].v_pointer = g_strdup_printf ("[%s,%s]",
1543       g_ascii_dtostr (s1, G_ASCII_DTOSTR_BUF_SIZE,
1544           src_value->data[0].v_double),
1545       g_ascii_dtostr (s2, G_ASCII_DTOSTR_BUF_SIZE,
1546           src_value->data[1].v_double));
1547 }
1548
1549 static gint
1550 gst_value_compare_double_range (const GValue * value1, const GValue * value2)
1551 {
1552   if (value2->data[0].v_double == value1->data[0].v_double &&
1553       value2->data[1].v_double == value1->data[1].v_double)
1554     return GST_VALUE_EQUAL;
1555   return GST_VALUE_UNORDERED;
1556 }
1557
1558 static gchar *
1559 gst_value_serialize_double_range (const GValue * value)
1560 {
1561   gchar d1[G_ASCII_DTOSTR_BUF_SIZE];
1562   gchar d2[G_ASCII_DTOSTR_BUF_SIZE];
1563
1564   g_ascii_dtostr (d1, G_ASCII_DTOSTR_BUF_SIZE, value->data[0].v_double);
1565   g_ascii_dtostr (d2, G_ASCII_DTOSTR_BUF_SIZE, value->data[1].v_double);
1566   return g_strdup_printf ("[ %s, %s ]", d1, d2);
1567 }
1568
1569 static gboolean
1570 gst_value_deserialize_double_range (GValue * dest, const gchar * s)
1571 {
1572   g_warning ("unimplemented");
1573   return FALSE;
1574 }
1575
1576 /****************
1577  * fraction range *
1578  ****************/
1579
1580 static void
1581 gst_value_init_fraction_range (GValue * value)
1582 {
1583   GValue *vals;
1584   GType ftype;
1585
1586   ftype = GST_TYPE_FRACTION;
1587
1588   value->data[0].v_pointer = vals = g_slice_alloc0 (2 * sizeof (GValue));
1589   g_value_init (&vals[0], ftype);
1590   g_value_init (&vals[1], ftype);
1591 }
1592
1593 static void
1594 gst_value_free_fraction_range (GValue * value)
1595 {
1596   GValue *vals = (GValue *) value->data[0].v_pointer;
1597
1598   if (vals != NULL) {
1599     /* we know the two values contain fractions without internal allocs */
1600     /* g_value_unset (&vals[0]); */
1601     /* g_value_unset (&vals[1]); */
1602     g_slice_free1 (2 * sizeof (GValue), vals);
1603     value->data[0].v_pointer = NULL;
1604   }
1605 }
1606
1607 static void
1608 gst_value_copy_fraction_range (const GValue * src_value, GValue * dest_value)
1609 {
1610   GValue *vals = (GValue *) dest_value->data[0].v_pointer;
1611   GValue *src_vals = (GValue *) src_value->data[0].v_pointer;
1612
1613   if (vals == NULL) {
1614     gst_value_init_fraction_range (dest_value);
1615     vals = dest_value->data[0].v_pointer;
1616   }
1617   if (src_vals != NULL) {
1618     g_value_copy (&src_vals[0], &vals[0]);
1619     g_value_copy (&src_vals[1], &vals[1]);
1620   }
1621 }
1622
1623 static gchar *
1624 gst_value_collect_fraction_range (GValue * value, guint n_collect_values,
1625     GTypeCValue * collect_values, guint collect_flags)
1626 {
1627   GValue *vals = (GValue *) value->data[0].v_pointer;
1628
1629   if (n_collect_values != 4)
1630     return g_strdup_printf ("not enough value locations for `%s' passed",
1631         G_VALUE_TYPE_NAME (value));
1632   if (collect_values[1].v_int == 0)
1633     return g_strdup_printf ("passed '0' as first denominator for `%s'",
1634         G_VALUE_TYPE_NAME (value));
1635   if (collect_values[3].v_int == 0)
1636     return g_strdup_printf ("passed '0' as second denominator for `%s'",
1637         G_VALUE_TYPE_NAME (value));
1638   if (gst_util_fraction_compare (collect_values[0].v_int,
1639           collect_values[1].v_int, collect_values[2].v_int,
1640           collect_values[3].v_int) >= 0)
1641     return g_strdup_printf ("range start is not smaller than end for `%s'",
1642         G_VALUE_TYPE_NAME (value));
1643
1644   if (vals == NULL) {
1645     gst_value_init_fraction_range (value);
1646     vals = value->data[0].v_pointer;
1647   }
1648
1649   gst_value_set_fraction (&vals[0], collect_values[0].v_int,
1650       collect_values[1].v_int);
1651   gst_value_set_fraction (&vals[1], collect_values[2].v_int,
1652       collect_values[3].v_int);
1653
1654   return NULL;
1655 }
1656
1657 static gchar *
1658 gst_value_lcopy_fraction_range (const GValue * value, guint n_collect_values,
1659     GTypeCValue * collect_values, guint collect_flags)
1660 {
1661   gint i;
1662   gint *dest_values[4];
1663   GValue *vals = (GValue *) value->data[0].v_pointer;
1664
1665   if (G_UNLIKELY (n_collect_values != 4))
1666     return g_strdup_printf ("not enough value locations for `%s' passed",
1667         G_VALUE_TYPE_NAME (value));
1668
1669   for (i = 0; i < 4; i++) {
1670     if (G_UNLIKELY (collect_values[i].v_pointer == NULL)) {
1671       return g_strdup_printf ("value location for `%s' passed as NULL",
1672           G_VALUE_TYPE_NAME (value));
1673     }
1674     dest_values[i] = collect_values[i].v_pointer;
1675   }
1676
1677   if (G_UNLIKELY (vals == NULL)) {
1678     return g_strdup_printf ("Uninitialised `%s' passed",
1679         G_VALUE_TYPE_NAME (value));
1680   }
1681
1682   dest_values[0][0] = gst_value_get_fraction_numerator (&vals[0]);
1683   dest_values[1][0] = gst_value_get_fraction_denominator (&vals[0]);
1684   dest_values[2][0] = gst_value_get_fraction_numerator (&vals[1]);
1685   dest_values[3][0] = gst_value_get_fraction_denominator (&vals[1]);
1686   return NULL;
1687 }
1688
1689 /**
1690  * gst_value_set_fraction_range:
1691  * @value: a GValue initialized to GST_TYPE_FRACTION_RANGE
1692  * @start: the start of the range (a GST_TYPE_FRACTION GValue)
1693  * @end: the end of the range (a GST_TYPE_FRACTION GValue)
1694  *
1695  * Sets @value to the range specified by @start and @end.
1696  */
1697 void
1698 gst_value_set_fraction_range (GValue * value, const GValue * start,
1699     const GValue * end)
1700 {
1701   GValue *vals;
1702
1703   g_return_if_fail (GST_VALUE_HOLDS_FRACTION_RANGE (value));
1704   g_return_if_fail (GST_VALUE_HOLDS_FRACTION (start));
1705   g_return_if_fail (GST_VALUE_HOLDS_FRACTION (end));
1706   g_return_if_fail (gst_util_fraction_compare (start->data[0].v_int,
1707           start->data[1].v_int, end->data[0].v_int, end->data[1].v_int) < 0);
1708
1709   vals = (GValue *) value->data[0].v_pointer;
1710   if (vals == NULL) {
1711     gst_value_init_fraction_range (value);
1712     vals = value->data[0].v_pointer;
1713   }
1714   g_value_copy (start, &vals[0]);
1715   g_value_copy (end, &vals[1]);
1716 }
1717
1718 /**
1719  * gst_value_set_fraction_range_full:
1720  * @value: a GValue initialized to GST_TYPE_FRACTION_RANGE
1721  * @numerator_start: the numerator start of the range
1722  * @denominator_start: the denominator start of the range
1723  * @numerator_end: the numerator end of the range
1724  * @denominator_end: the denominator end of the range
1725  *
1726  * Sets @value to the range specified by @numerator_start/@denominator_start
1727  * and @numerator_end/@denominator_end.
1728  */
1729 void
1730 gst_value_set_fraction_range_full (GValue * value,
1731     gint numerator_start, gint denominator_start,
1732     gint numerator_end, gint denominator_end)
1733 {
1734   GValue start = { 0 };
1735   GValue end = { 0 };
1736
1737   g_return_if_fail (value != NULL);
1738   g_return_if_fail (denominator_start != 0);
1739   g_return_if_fail (denominator_end != 0);
1740   g_return_if_fail (gst_util_fraction_compare (numerator_start,
1741           denominator_start, numerator_end, denominator_end) < 0);
1742
1743   g_value_init (&start, GST_TYPE_FRACTION);
1744   g_value_init (&end, GST_TYPE_FRACTION);
1745
1746   gst_value_set_fraction (&start, numerator_start, denominator_start);
1747   gst_value_set_fraction (&end, numerator_end, denominator_end);
1748   gst_value_set_fraction_range (value, &start, &end);
1749
1750   /* we know the two values contain fractions without internal allocs */
1751   /* g_value_unset (&start); */
1752   /* g_value_unset (&end);   */
1753 }
1754
1755 /* FIXME 2.0: Don't leak the internal representation of fraction
1756  * ranges but instead return the numerator and denominator
1757  * separately.
1758  * This would allow to store fraction ranges as
1759  *  data[0] = (min_n << 32) | (min_d)
1760  *  data[1] = (max_n << 32) | (max_d)
1761  * without requiring an additional allocation for each value.
1762  */
1763
1764 /**
1765  * gst_value_get_fraction_range_min:
1766  * @value: a GValue initialized to GST_TYPE_FRACTION_RANGE
1767  *
1768  * Gets the minimum of the range specified by @value.
1769  *
1770  * Returns: the minimum of the range
1771  */
1772 const GValue *
1773 gst_value_get_fraction_range_min (const GValue * value)
1774 {
1775   GValue *vals;
1776
1777   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION_RANGE (value), NULL);
1778
1779   vals = (GValue *) value->data[0].v_pointer;
1780   if (vals != NULL) {
1781     return &vals[0];
1782   }
1783
1784   return NULL;
1785 }
1786
1787 /**
1788  * gst_value_get_fraction_range_max:
1789  * @value: a GValue initialized to GST_TYPE_FRACTION_RANGE
1790  *
1791  * Gets the maximum of the range specified by @value.
1792  *
1793  * Returns: the maximum of the range
1794  */
1795 const GValue *
1796 gst_value_get_fraction_range_max (const GValue * value)
1797 {
1798   GValue *vals;
1799
1800   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION_RANGE (value), NULL);
1801
1802   vals = (GValue *) value->data[0].v_pointer;
1803   if (vals != NULL) {
1804     return &vals[1];
1805   }
1806
1807   return NULL;
1808 }
1809
1810 static gchar *
1811 gst_value_serialize_fraction_range (const GValue * value)
1812 {
1813   GValue *vals = (GValue *) value->data[0].v_pointer;
1814   gchar *retval;
1815
1816   if (vals == NULL) {
1817     retval = g_strdup ("[ 0/1, 0/1 ]");
1818   } else {
1819     gchar *start, *end;
1820
1821     start = gst_value_serialize_fraction (&vals[0]);
1822     end = gst_value_serialize_fraction (&vals[1]);
1823
1824     retval = g_strdup_printf ("[ %s, %s ]", start, end);
1825     g_free (start);
1826     g_free (end);
1827   }
1828
1829   return retval;
1830 }
1831
1832 static void
1833 gst_value_transform_fraction_range_string (const GValue * src_value,
1834     GValue * dest_value)
1835 {
1836   dest_value->data[0].v_pointer =
1837       gst_value_serialize_fraction_range (src_value);
1838 }
1839
1840 static gint
1841 gst_value_compare_fraction_range (const GValue * value1, const GValue * value2)
1842 {
1843   GValue *vals1, *vals2;
1844   GstValueCompareFunc compare;
1845
1846   if (value2->data[0].v_pointer == value1->data[0].v_pointer)
1847     return GST_VALUE_EQUAL;     /* Only possible if both are NULL */
1848
1849   if (value2->data[0].v_pointer == NULL || value1->data[0].v_pointer == NULL)
1850     return GST_VALUE_UNORDERED;
1851
1852   vals1 = (GValue *) value1->data[0].v_pointer;
1853   vals2 = (GValue *) value2->data[0].v_pointer;
1854   if ((compare = gst_value_get_compare_func (&vals1[0]))) {
1855     if (gst_value_compare_with_func (&vals1[0], &vals2[0], compare) ==
1856         GST_VALUE_EQUAL &&
1857         gst_value_compare_with_func (&vals1[1], &vals2[1], compare) ==
1858         GST_VALUE_EQUAL)
1859       return GST_VALUE_EQUAL;
1860   }
1861   return GST_VALUE_UNORDERED;
1862 }
1863
1864 static gboolean
1865 gst_value_deserialize_fraction_range (GValue * dest, const gchar * s)
1866 {
1867   g_warning ("unimplemented");
1868   return FALSE;
1869 }
1870
1871 /***********
1872  * GstCaps *
1873  ***********/
1874
1875 /**
1876  * gst_value_set_caps:
1877  * @value: a GValue initialized to GST_TYPE_CAPS
1878  * @caps: (transfer none): the caps to set the value to
1879  *
1880  * Sets the contents of @value to @caps. A reference to the
1881  * provided @caps will be taken by the @value.
1882  */
1883 void
1884 gst_value_set_caps (GValue * value, const GstCaps * caps)
1885 {
1886   g_return_if_fail (G_IS_VALUE (value));
1887   g_return_if_fail (G_VALUE_TYPE (value) == GST_TYPE_CAPS);
1888   g_return_if_fail (caps == NULL || GST_IS_CAPS (caps));
1889
1890   g_value_set_boxed (value, caps);
1891 }
1892
1893 /**
1894  * gst_value_get_caps:
1895  * @value: a GValue initialized to GST_TYPE_CAPS
1896  *
1897  * Gets the contents of @value. The reference count of the returned
1898  * #GstCaps will not be modified, therefore the caller must take one
1899  * before getting rid of the @value.
1900  *
1901  * Returns: (transfer none): the contents of @value
1902  */
1903 const GstCaps *
1904 gst_value_get_caps (const GValue * value)
1905 {
1906   g_return_val_if_fail (G_IS_VALUE (value), NULL);
1907   g_return_val_if_fail (G_VALUE_TYPE (value) == GST_TYPE_CAPS, NULL);
1908
1909   return (GstCaps *) g_value_get_boxed (value);
1910 }
1911
1912 static gint
1913 gst_value_compare_caps (const GValue * value1, const GValue * value2)
1914 {
1915   GstCaps *caps1 = GST_CAPS (gst_value_get_caps (value1));
1916   GstCaps *caps2 = GST_CAPS (gst_value_get_caps (value2));
1917
1918   if (gst_caps_is_equal (caps1, caps2))
1919     return GST_VALUE_EQUAL;
1920   return GST_VALUE_UNORDERED;
1921 }
1922
1923 static gchar *
1924 gst_value_serialize_caps (const GValue * value)
1925 {
1926   GstCaps *caps = g_value_get_boxed (value);
1927   return priv_gst_string_take_and_wrap (gst_caps_to_string (caps));
1928 }
1929
1930 static gboolean
1931 gst_value_deserialize_caps (GValue * dest, const gchar * s)
1932 {
1933   GstCaps *caps;
1934
1935   if (*s != '"') {
1936     caps = gst_caps_from_string (s);
1937   } else {
1938     gchar *str = gst_string_unwrap (s);
1939
1940     if (G_UNLIKELY (!str))
1941       return FALSE;
1942
1943     caps = gst_caps_from_string (str);
1944     g_free (str);
1945   }
1946
1947   if (caps) {
1948     g_value_take_boxed (dest, caps);
1949     return TRUE;
1950   }
1951   return FALSE;
1952 }
1953
1954 /**************
1955  * GstSegment *
1956  **************/
1957
1958 static gchar *
1959 gst_value_serialize_segment_internal (const GValue * value, gboolean escape)
1960 {
1961   GstSegment *seg = g_value_get_boxed (value);
1962   gchar *t, *res;
1963   GstStructure *s;
1964
1965   s = gst_structure_new ("GstSegment",
1966       "flags", GST_TYPE_SEGMENT_FLAGS, seg->flags,
1967       "rate", G_TYPE_DOUBLE, seg->rate,
1968       "applied-rate", G_TYPE_DOUBLE, seg->applied_rate,
1969       "format", GST_TYPE_FORMAT, seg->format,
1970       "base", G_TYPE_UINT64, seg->base,
1971       "offset", G_TYPE_UINT64, seg->offset,
1972       "start", G_TYPE_UINT64, seg->start,
1973       "stop", G_TYPE_UINT64, seg->stop,
1974       "time", G_TYPE_UINT64, seg->time,
1975       "position", G_TYPE_UINT64, seg->position,
1976       "duration", G_TYPE_UINT64, seg->duration, NULL);
1977   t = gst_structure_to_string (s);
1978   if (escape) {
1979     res = g_strdup_printf ("\"%s\"", t);
1980     g_free (t);
1981   } else {
1982     res = t;
1983   }
1984   gst_structure_free (s);
1985
1986   return res;
1987 }
1988
1989 static gchar *
1990 gst_value_serialize_segment (const GValue * value)
1991 {
1992   return gst_value_serialize_segment_internal (value, TRUE);
1993 }
1994
1995 static gboolean
1996 gst_value_deserialize_segment (GValue * dest, const gchar * s)
1997 {
1998   GstStructure *str;
1999   GstSegment seg;
2000   gboolean res;
2001
2002   str = gst_structure_from_string (s, NULL);
2003   if (str == NULL)
2004     return FALSE;
2005
2006   res = gst_structure_get (str,
2007       "flags", GST_TYPE_SEGMENT_FLAGS, &seg.flags,
2008       "rate", G_TYPE_DOUBLE, &seg.rate,
2009       "applied-rate", G_TYPE_DOUBLE, &seg.applied_rate,
2010       "format", GST_TYPE_FORMAT, &seg.format,
2011       "base", G_TYPE_UINT64, &seg.base,
2012       "offset", G_TYPE_UINT64, &seg.offset,
2013       "start", G_TYPE_UINT64, &seg.start,
2014       "stop", G_TYPE_UINT64, &seg.stop,
2015       "time", G_TYPE_UINT64, &seg.time,
2016       "position", G_TYPE_UINT64, &seg.position,
2017       "duration", G_TYPE_UINT64, &seg.duration, NULL);
2018   gst_structure_free (str);
2019
2020   if (res)
2021     g_value_set_boxed (dest, &seg);
2022
2023   return res;
2024 }
2025
2026 /****************
2027  * GstStructure *
2028  ****************/
2029
2030 /**
2031  * gst_value_set_structure:
2032  * @value: a GValue initialized to GST_TYPE_STRUCTURE
2033  * @structure: the structure to set the value to
2034  *
2035  * Sets the contents of @value to @structure.
2036  */
2037 void
2038 gst_value_set_structure (GValue * value, const GstStructure * structure)
2039 {
2040   g_return_if_fail (G_IS_VALUE (value));
2041   g_return_if_fail (G_VALUE_TYPE (value) == GST_TYPE_STRUCTURE);
2042   g_return_if_fail (structure == NULL || GST_IS_STRUCTURE (structure));
2043
2044   g_value_set_boxed (value, structure);
2045 }
2046
2047 /**
2048  * gst_value_get_structure:
2049  * @value: a GValue initialized to GST_TYPE_STRUCTURE
2050  *
2051  * Gets the contents of @value.
2052  *
2053  * Returns: (transfer none): the contents of @value
2054  */
2055 const GstStructure *
2056 gst_value_get_structure (const GValue * value)
2057 {
2058   g_return_val_if_fail (G_IS_VALUE (value), NULL);
2059   g_return_val_if_fail (G_VALUE_TYPE (value) == GST_TYPE_STRUCTURE, NULL);
2060
2061   return (GstStructure *) g_value_get_boxed (value);
2062 }
2063
2064 static gchar *
2065 gst_value_serialize_structure (const GValue * value)
2066 {
2067   GstStructure *structure = g_value_get_boxed (value);
2068
2069   return priv_gst_string_take_and_wrap (gst_structure_to_string (structure));
2070 }
2071
2072 static gboolean
2073 gst_value_deserialize_structure (GValue * dest, const gchar * s)
2074 {
2075   GstStructure *structure;
2076
2077   if (*s != '"') {
2078     structure = gst_structure_from_string (s, NULL);
2079   } else {
2080     gchar *str = gst_string_unwrap (s);
2081
2082     if (G_UNLIKELY (!str))
2083       return FALSE;
2084
2085     structure = gst_structure_from_string (str, NULL);
2086     g_free (str);
2087   }
2088
2089   if (G_LIKELY (structure)) {
2090     g_value_take_boxed (dest, structure);
2091     return TRUE;
2092   }
2093   return FALSE;
2094 }
2095
2096 static gboolean
2097 gst_value_compare_structure (const GValue * value1, const GValue * value2)
2098 {
2099   GstStructure *structure1 = GST_STRUCTURE (g_value_get_boxed (value1));
2100   GstStructure *structure2 = GST_STRUCTURE (g_value_get_boxed (value2));
2101
2102   if (gst_structure_is_equal (structure1, structure2))
2103     return GST_VALUE_EQUAL;
2104
2105   return GST_VALUE_UNORDERED;
2106 }
2107
2108 /*******************
2109  * GstCapsFeatures *
2110  *******************/
2111
2112 /**
2113  * gst_value_set_caps_features:
2114  * @value: a GValue initialized to GST_TYPE_CAPS_FEATURES
2115  * @features: the features to set the value to
2116  *
2117  * Sets the contents of @value to @features.
2118  */
2119 void
2120 gst_value_set_caps_features (GValue * value, const GstCapsFeatures * features)
2121 {
2122   g_return_if_fail (G_IS_VALUE (value));
2123   g_return_if_fail (G_VALUE_TYPE (value) == GST_TYPE_CAPS_FEATURES);
2124   g_return_if_fail (features == NULL || GST_IS_CAPS_FEATURES (features));
2125
2126   g_value_set_boxed (value, features);
2127 }
2128
2129 /**
2130  * gst_value_get_caps_features:
2131  * @value: a GValue initialized to GST_TYPE_CAPS_FEATURES
2132  *
2133  * Gets the contents of @value.
2134  *
2135  * Returns: (transfer none): the contents of @value
2136  */
2137 const GstCapsFeatures *
2138 gst_value_get_caps_features (const GValue * value)
2139 {
2140   g_return_val_if_fail (G_IS_VALUE (value), NULL);
2141   g_return_val_if_fail (G_VALUE_TYPE (value) == GST_TYPE_CAPS_FEATURES, NULL);
2142
2143   return (GstCapsFeatures *) g_value_get_boxed (value);
2144 }
2145
2146 static gchar *
2147 gst_value_serialize_caps_features (const GValue * value)
2148 {
2149   GstCapsFeatures *features = g_value_get_boxed (value);
2150
2151   return priv_gst_string_take_and_wrap (gst_caps_features_to_string (features));
2152 }
2153
2154 static gboolean
2155 gst_value_deserialize_caps_features (GValue * dest, const gchar * s)
2156 {
2157   GstCapsFeatures *features;
2158
2159   if (*s != '"') {
2160     features = gst_caps_features_from_string (s);
2161   } else {
2162     gchar *str = gst_string_unwrap (s);
2163
2164     if (G_UNLIKELY (!str))
2165       return FALSE;
2166
2167     features = gst_caps_features_from_string (str);
2168     g_free (str);
2169   }
2170
2171   if (G_LIKELY (features)) {
2172     g_value_take_boxed (dest, features);
2173     return TRUE;
2174   }
2175   return FALSE;
2176 }
2177
2178 /**************
2179  * GstTagList *
2180  **************/
2181 static gint
2182 gst_value_compare_tag_list (const GValue * value1, const GValue * value2)
2183 {
2184   GstTagList *taglist1 = GST_TAG_LIST (g_value_get_boxed (value1));
2185   GstTagList *taglist2 = GST_TAG_LIST (g_value_get_boxed (value2));
2186
2187   if (gst_tag_list_is_equal (taglist1, taglist2))
2188     return GST_VALUE_EQUAL;
2189   return GST_VALUE_UNORDERED;
2190 }
2191
2192 static gboolean
2193 gst_value_deserialize_tag_list (GValue * dest, const gchar * s)
2194 {
2195   GstTagList *taglist;
2196
2197   if (*s != '"') {
2198     taglist = gst_tag_list_new_from_string (s);
2199   } else {
2200     gchar *str = gst_string_unwrap (s);
2201
2202     if (G_UNLIKELY (!str))
2203       return FALSE;
2204
2205     taglist = gst_tag_list_new_from_string (str);
2206     g_free (str);
2207   }
2208
2209   if (G_LIKELY (taglist != NULL)) {
2210     g_value_take_boxed (dest, taglist);
2211     return TRUE;
2212   }
2213   return FALSE;
2214 }
2215
2216 static gchar *
2217 gst_value_serialize_tag_list (const GValue * value)
2218 {
2219   GstTagList *taglist = g_value_get_boxed (value);
2220
2221   return priv_gst_string_take_and_wrap (gst_tag_list_to_string (taglist));
2222 }
2223
2224
2225 /*************
2226  * GstBuffer *
2227  *************/
2228
2229 static gint
2230 compare_buffer (GstBuffer * buf1, GstBuffer * buf2)
2231 {
2232   gsize size1, size2;
2233   GstMapInfo info1, info2;
2234   gint result, mret;
2235
2236   if (buf1 == buf2)
2237     return GST_VALUE_EQUAL;
2238
2239   size1 = gst_buffer_get_size (buf1);
2240   size2 = gst_buffer_get_size (buf2);
2241
2242   if (size1 != size2)
2243     return GST_VALUE_UNORDERED;
2244
2245   if (size1 == 0)
2246     return GST_VALUE_EQUAL;
2247
2248   if (!gst_buffer_map (buf1, &info1, GST_MAP_READ))
2249     return GST_VALUE_UNORDERED;
2250
2251   if (!gst_buffer_map (buf2, &info2, GST_MAP_READ)) {
2252     gst_buffer_unmap (buf1, &info1);
2253     return GST_VALUE_UNORDERED;
2254   }
2255
2256   mret = memcmp (info1.data, info2.data, info1.size);
2257   if (mret == 0)
2258     result = GST_VALUE_EQUAL;
2259   else if (mret < 0)
2260     result = GST_VALUE_LESS_THAN;
2261   else
2262     result = GST_VALUE_GREATER_THAN;
2263
2264   gst_buffer_unmap (buf1, &info1);
2265   gst_buffer_unmap (buf2, &info2);
2266
2267   return result;
2268 }
2269
2270 static gint
2271 gst_value_compare_buffer (const GValue * value1, const GValue * value2)
2272 {
2273   GstBuffer *buf1 = gst_value_get_buffer (value1);
2274   GstBuffer *buf2 = gst_value_get_buffer (value2);
2275
2276   return compare_buffer (buf1, buf2);
2277 }
2278
2279 static gchar *
2280 gst_value_serialize_buffer (const GValue * value)
2281 {
2282   GstMapInfo info;
2283   guint8 *data;
2284   gint i;
2285   gchar *string;
2286   GstBuffer *buffer;
2287
2288   buffer = gst_value_get_buffer (value);
2289   if (buffer == NULL)
2290     return NULL;
2291
2292   if (!gst_buffer_map (buffer, &info, GST_MAP_READ))
2293     return NULL;
2294
2295   data = info.data;
2296
2297   string = g_malloc (info.size * 2 + 1);
2298   for (i = 0; i < info.size; i++) {
2299     sprintf (string + i * 2, "%02x", data[i]);
2300   }
2301   string[info.size * 2] = 0;
2302
2303   gst_buffer_unmap (buffer, &info);
2304
2305   return string;
2306 }
2307
2308 static gboolean
2309 gst_value_deserialize_buffer (GValue * dest, const gchar * s)
2310 {
2311   GstBuffer *buffer;
2312   gint len;
2313   gchar ts[3];
2314   GstMapInfo info;
2315   guint8 *data;
2316   gint i;
2317
2318   len = strlen (s);
2319   if (len & 1)
2320     goto wrong_length;
2321
2322   buffer = gst_buffer_new_allocate (NULL, len / 2, NULL);
2323   if (!gst_buffer_map (buffer, &info, GST_MAP_WRITE))
2324     goto map_failed;
2325   data = info.data;
2326
2327   for (i = 0; i < len / 2; i++) {
2328     if (!isxdigit ((int) s[i * 2]) || !isxdigit ((int) s[i * 2 + 1]))
2329       goto wrong_char;
2330
2331     ts[0] = s[i * 2 + 0];
2332     ts[1] = s[i * 2 + 1];
2333     ts[2] = 0;
2334
2335     data[i] = (guint8) strtoul (ts, NULL, 16);
2336   }
2337   gst_buffer_unmap (buffer, &info);
2338
2339   gst_value_take_buffer (dest, buffer);
2340
2341   return TRUE;
2342
2343   /* ERRORS */
2344 wrong_length:
2345   {
2346     return FALSE;
2347   }
2348 map_failed:
2349   {
2350     return FALSE;
2351   }
2352 wrong_char:
2353   {
2354     gst_buffer_unref (buffer);
2355     gst_buffer_unmap (buffer, &info);
2356     return FALSE;
2357   }
2358 }
2359
2360 /*************
2361  * GstSample *
2362  *************/
2363
2364 /* This function is mostly used for comparing image/buffer tags in taglists */
2365 static gint
2366 gst_value_compare_sample (const GValue * value1, const GValue * value2)
2367 {
2368   GstBuffer *buf1 = gst_sample_get_buffer (gst_value_get_sample (value1));
2369   GstBuffer *buf2 = gst_sample_get_buffer (gst_value_get_sample (value2));
2370
2371   /* FIXME: should we take into account anything else such as caps? */
2372   return compare_buffer (buf1, buf2);
2373 }
2374
2375 static gchar *
2376 gst_value_serialize_sample (const GValue * value)
2377 {
2378   const GstStructure *info_structure;
2379   GstSegment *segment;
2380   GstBuffer *buffer;
2381   GstCaps *caps;
2382   GstSample *sample;
2383   GValue val = { 0, };
2384   gchar *info_str, *caps_str, *tmp;
2385   gchar *buf_str, *seg_str, *s;
2386
2387   sample = g_value_get_boxed (value);
2388
2389   buffer = gst_sample_get_buffer (sample);
2390   if (buffer) {
2391     g_value_init (&val, GST_TYPE_BUFFER);
2392     g_value_set_boxed (&val, buffer);
2393     buf_str = gst_value_serialize_buffer (&val);
2394     g_value_unset (&val);
2395   } else {
2396     buf_str = g_strdup ("None");
2397   }
2398
2399   caps = gst_sample_get_caps (sample);
2400   if (caps) {
2401     tmp = gst_caps_to_string (caps);
2402     caps_str = g_base64_encode ((guchar *) tmp, strlen (tmp) + 1);
2403     g_strdelimit (caps_str, "=", '_');
2404     g_free (tmp);
2405   } else {
2406     caps_str = g_strdup ("None");
2407   }
2408
2409   segment = gst_sample_get_segment (sample);
2410   if (segment) {
2411     g_value_init (&val, GST_TYPE_SEGMENT);
2412     g_value_set_boxed (&val, segment);
2413     tmp = gst_value_serialize_segment_internal (&val, FALSE);
2414     seg_str = g_base64_encode ((guchar *) tmp, strlen (tmp) + 1);
2415     g_strdelimit (seg_str, "=", '_');
2416     g_free (tmp);
2417     g_value_unset (&val);
2418   } else {
2419     seg_str = g_strdup ("None");
2420   }
2421
2422   info_structure = gst_sample_get_info (sample);
2423   if (info_structure) {
2424     tmp = gst_structure_to_string (info_structure);
2425     info_str = g_base64_encode ((guchar *) tmp, strlen (tmp) + 1);
2426     g_strdelimit (info_str, "=", '_');
2427     g_free (tmp);
2428   } else {
2429     info_str = g_strdup ("None");
2430   }
2431
2432   s = g_strconcat (buf_str, ":", caps_str, ":", seg_str, ":", info_str, NULL);
2433   g_free (buf_str);
2434   g_free (caps_str);
2435   g_free (seg_str);
2436   g_free (info_str);
2437
2438   return s;
2439 }
2440
2441 static gboolean
2442 gst_value_deserialize_sample (GValue * dest, const gchar * s)
2443 {
2444   GValue bval = G_VALUE_INIT, sval = G_VALUE_INIT;
2445   GstStructure *info;
2446   GstSample *sample;
2447   GstCaps *caps = NULL;
2448   gboolean ret = FALSE;
2449   gchar **fields;
2450   gsize outlen;
2451   gint len;
2452
2453   GST_TRACE ("deserialize '%s'", s);
2454
2455   fields = g_strsplit (s, ":", -1);
2456   len = g_strv_length (fields);
2457   if (len != 4)
2458     goto wrong_length;
2459
2460   g_value_init (&bval, GST_TYPE_BUFFER);
2461   g_value_init (&sval, GST_TYPE_SEGMENT);
2462
2463   if (!gst_value_deserialize_buffer (&bval, fields[0]))
2464     goto fail;
2465
2466   if (strcmp (fields[1], "None") != 0) {
2467     g_strdelimit (fields[1], "_", '=');
2468     g_base64_decode_inplace (fields[1], &outlen);
2469     GST_TRACE ("caps    : %s", fields[1]);
2470     caps = gst_caps_from_string (fields[1]);
2471     if (caps == NULL)
2472       goto fail;
2473   }
2474
2475   if (strcmp (fields[2], "None") != 0) {
2476     g_strdelimit (fields[2], "_", '=');
2477     g_base64_decode_inplace (fields[2], &outlen);
2478     GST_TRACE ("segment : %s", fields[2]);
2479     if (!gst_value_deserialize_segment (&sval, fields[2]))
2480       goto fail;
2481   }
2482
2483   if (strcmp (fields[3], "None") != 0) {
2484     g_strdelimit (fields[3], "_", '=');
2485     g_base64_decode_inplace (fields[3], &outlen);
2486     GST_TRACE ("info    : %s", fields[3]);
2487     info = gst_structure_from_string (fields[3], NULL);
2488     if (info == NULL)
2489       goto fail;
2490   } else {
2491     info = NULL;
2492   }
2493
2494   sample = gst_sample_new (gst_value_get_buffer (&bval), caps,
2495       g_value_get_boxed (&sval), info);
2496
2497   g_value_take_boxed (dest, sample);
2498
2499   ret = TRUE;
2500
2501 fail:
2502   if (caps)
2503     gst_caps_unref (caps);
2504   g_value_unset (&bval);
2505   g_value_unset (&sval);
2506
2507 wrong_length:
2508
2509   g_strfreev (fields);
2510
2511   return ret;
2512 }
2513
2514 /***********
2515  * boolean *
2516  ***********/
2517
2518 static gint
2519 gst_value_compare_boolean (const GValue * value1, const GValue * value2)
2520 {
2521   if ((value1->data[0].v_int != 0) == (value2->data[0].v_int != 0))
2522     return GST_VALUE_EQUAL;
2523   return GST_VALUE_UNORDERED;
2524 }
2525
2526 static gchar *
2527 gst_value_serialize_boolean (const GValue * value)
2528 {
2529   if (value->data[0].v_int) {
2530     return g_strdup ("true");
2531   }
2532   return g_strdup ("false");
2533 }
2534
2535 static gboolean
2536 gst_value_deserialize_boolean (GValue * dest, const gchar * s)
2537 {
2538   gboolean ret = FALSE;
2539
2540   if (g_ascii_strcasecmp (s, "true") == 0 ||
2541       g_ascii_strcasecmp (s, "yes") == 0 ||
2542       g_ascii_strcasecmp (s, "t") == 0 || strcmp (s, "1") == 0) {
2543     g_value_set_boolean (dest, TRUE);
2544     ret = TRUE;
2545   } else if (g_ascii_strcasecmp (s, "false") == 0 ||
2546       g_ascii_strcasecmp (s, "no") == 0 ||
2547       g_ascii_strcasecmp (s, "f") == 0 || strcmp (s, "0") == 0) {
2548     g_value_set_boolean (dest, FALSE);
2549     ret = TRUE;
2550   }
2551
2552   return ret;
2553 }
2554
2555 #define CREATE_SERIALIZATION_START(_type,_macro)                        \
2556 static gint                                                             \
2557 gst_value_compare_ ## _type                                             \
2558 (const GValue * value1, const GValue * value2)                          \
2559 {                                                                       \
2560   g ## _type val1 = g_value_get_ ## _type (value1);                     \
2561   g ## _type val2 = g_value_get_ ## _type (value2);                     \
2562   if (val1 > val2)                                                      \
2563     return GST_VALUE_GREATER_THAN;                                      \
2564   if (val1 < val2)                                                      \
2565     return GST_VALUE_LESS_THAN;                                         \
2566   return GST_VALUE_EQUAL;                                               \
2567 }                                                                       \
2568                                                                         \
2569 static gchar *                                                          \
2570 gst_value_serialize_ ## _type (const GValue * value)                    \
2571 {                                                                       \
2572   GValue val = { 0, };                                                  \
2573   g_value_init (&val, G_TYPE_STRING);                                   \
2574   if (!g_value_transform (value, &val))                                 \
2575     g_assert_not_reached ();                                            \
2576   /* NO_COPY_MADNESS!!! */                                              \
2577   return (char *) g_value_get_string (&val);                            \
2578 }
2579
2580 /* deserialize the given s into to as a gint64.
2581  * check if the result is actually storeable in the given size number of
2582  * bytes.
2583  */
2584 static gboolean
2585 gst_value_deserialize_int_helper (gint64 * to, const gchar * s,
2586     gint64 min, gint64 max, gint size)
2587 {
2588   gboolean ret = FALSE;
2589   gchar *end;
2590   guint64 mask = ~0;
2591
2592   errno = 0;
2593   *to = g_ascii_strtoull (s, &end, 0);
2594   /* a range error is a definitive no-no */
2595   if (errno == ERANGE) {
2596     return FALSE;
2597   }
2598
2599   if (*end == 0) {
2600     ret = TRUE;
2601   } else {
2602     if (g_ascii_strcasecmp (s, "little_endian") == 0) {
2603       *to = G_LITTLE_ENDIAN;
2604       ret = TRUE;
2605     } else if (g_ascii_strcasecmp (s, "big_endian") == 0) {
2606       *to = G_BIG_ENDIAN;
2607       ret = TRUE;
2608     } else if (g_ascii_strcasecmp (s, "byte_order") == 0) {
2609       *to = G_BYTE_ORDER;
2610       ret = TRUE;
2611     } else if (g_ascii_strcasecmp (s, "min") == 0) {
2612       *to = min;
2613       ret = TRUE;
2614     } else if (g_ascii_strcasecmp (s, "max") == 0) {
2615       *to = max;
2616       ret = TRUE;
2617     }
2618   }
2619   if (ret) {
2620     /* by definition, a gint64 fits into a gint64; so ignore those */
2621     if (size != sizeof (mask)) {
2622       if (*to >= 0) {
2623         /* for positive numbers, we create a mask of 1's outside of the range
2624          * and 0's inside the range.  An and will thus keep only 1 bits
2625          * outside of the range */
2626         mask <<= (size * 8);
2627         if ((mask & *to) != 0) {
2628           ret = FALSE;
2629         }
2630       } else {
2631         /* for negative numbers, we do a 2's complement version */
2632         mask <<= ((size * 8) - 1);
2633         if ((mask & *to) != mask) {
2634           ret = FALSE;
2635         }
2636       }
2637     }
2638   }
2639   return ret;
2640 }
2641
2642 #define CREATE_SERIALIZATION(_type,_macro)                              \
2643 CREATE_SERIALIZATION_START(_type,_macro)                                \
2644                                                                         \
2645 static gboolean                                                         \
2646 gst_value_deserialize_ ## _type (GValue * dest, const gchar *s)         \
2647 {                                                                       \
2648   gint64 x;                                                             \
2649                                                                         \
2650   if (gst_value_deserialize_int_helper (&x, s, G_MIN ## _macro,         \
2651       G_MAX ## _macro, sizeof (g ## _type))) {                          \
2652     g_value_set_ ## _type (dest, /*(g ## _type)*/ x);                   \
2653     return TRUE;                                                        \
2654   } else {                                                              \
2655     return FALSE;                                                       \
2656   }                                                                     \
2657 }
2658
2659 #define CREATE_USERIALIZATION(_type,_macro)                             \
2660 CREATE_SERIALIZATION_START(_type,_macro)                                \
2661                                                                         \
2662 static gboolean                                                         \
2663 gst_value_deserialize_ ## _type (GValue * dest, const gchar *s)         \
2664 {                                                                       \
2665   gint64 x;                                                             \
2666   gchar *end;                                                           \
2667   gboolean ret = FALSE;                                                 \
2668                                                                         \
2669   errno = 0;                                                            \
2670   x = g_ascii_strtoull (s, &end, 0);                                    \
2671   /* a range error is a definitive no-no */                             \
2672   if (errno == ERANGE) {                                                \
2673     return FALSE;                                                       \
2674   }                                                                     \
2675   /* the cast ensures the range check later on makes sense */           \
2676   x = (g ## _type) x;                                                   \
2677   if (*end == 0) {                                                      \
2678     ret = TRUE;                                                         \
2679   } else {                                                              \
2680     if (g_ascii_strcasecmp (s, "little_endian") == 0) {                 \
2681       x = G_LITTLE_ENDIAN;                                              \
2682       ret = TRUE;                                                       \
2683     } else if (g_ascii_strcasecmp (s, "big_endian") == 0) {             \
2684       x = G_BIG_ENDIAN;                                                 \
2685       ret = TRUE;                                                       \
2686     } else if (g_ascii_strcasecmp (s, "byte_order") == 0) {             \
2687       x = G_BYTE_ORDER;                                                 \
2688       ret = TRUE;                                                       \
2689     } else if (g_ascii_strcasecmp (s, "min") == 0) {                    \
2690       x = 0;                                                            \
2691       ret = TRUE;                                                       \
2692     } else if (g_ascii_strcasecmp (s, "max") == 0) {                    \
2693       x = G_MAX ## _macro;                                              \
2694       ret = TRUE;                                                       \
2695     }                                                                   \
2696   }                                                                     \
2697   if (ret) {                                                            \
2698     if (x > G_MAX ## _macro) {                                          \
2699       ret = FALSE;                                                      \
2700     } else {                                                            \
2701       g_value_set_ ## _type (dest, x);                                  \
2702     }                                                                   \
2703   }                                                                     \
2704   return ret;                                                           \
2705 }
2706
2707 CREATE_SERIALIZATION (int, INT);
2708 CREATE_SERIALIZATION (int64, INT64);
2709 CREATE_SERIALIZATION (long, LONG);
2710
2711 CREATE_USERIALIZATION (uint, UINT);
2712 CREATE_USERIALIZATION (uint64, UINT64);
2713 CREATE_USERIALIZATION (ulong, ULONG);
2714
2715 /* FIXME 2.0: remove this again, plugins shouldn't have uchar properties */
2716 #ifndef G_MAXUCHAR
2717 #define G_MAXUCHAR 255
2718 #endif
2719 CREATE_USERIALIZATION (uchar, UCHAR);
2720
2721 /**********
2722  * double *
2723  **********/
2724 static gint
2725 gst_value_compare_double (const GValue * value1, const GValue * value2)
2726 {
2727   if (value1->data[0].v_double > value2->data[0].v_double)
2728     return GST_VALUE_GREATER_THAN;
2729   if (value1->data[0].v_double < value2->data[0].v_double)
2730     return GST_VALUE_LESS_THAN;
2731   if (value1->data[0].v_double == value2->data[0].v_double)
2732     return GST_VALUE_EQUAL;
2733   return GST_VALUE_UNORDERED;
2734 }
2735
2736 static gchar *
2737 gst_value_serialize_double (const GValue * value)
2738 {
2739   gchar d[G_ASCII_DTOSTR_BUF_SIZE];
2740
2741   g_ascii_dtostr (d, G_ASCII_DTOSTR_BUF_SIZE, value->data[0].v_double);
2742   return g_strdup (d);
2743 }
2744
2745 static gboolean
2746 gst_value_deserialize_double (GValue * dest, const gchar * s)
2747 {
2748   gdouble x;
2749   gboolean ret = FALSE;
2750   gchar *end;
2751
2752   x = g_ascii_strtod (s, &end);
2753   if (*end == 0) {
2754     ret = TRUE;
2755   } else {
2756     if (g_ascii_strcasecmp (s, "min") == 0) {
2757       x = -G_MAXDOUBLE;
2758       ret = TRUE;
2759     } else if (g_ascii_strcasecmp (s, "max") == 0) {
2760       x = G_MAXDOUBLE;
2761       ret = TRUE;
2762     }
2763   }
2764   if (ret) {
2765     g_value_set_double (dest, x);
2766   }
2767   return ret;
2768 }
2769
2770 /*********
2771  * float *
2772  *********/
2773
2774 static gint
2775 gst_value_compare_float (const GValue * value1, const GValue * value2)
2776 {
2777   if (value1->data[0].v_float > value2->data[0].v_float)
2778     return GST_VALUE_GREATER_THAN;
2779   if (value1->data[0].v_float < value2->data[0].v_float)
2780     return GST_VALUE_LESS_THAN;
2781   if (value1->data[0].v_float == value2->data[0].v_float)
2782     return GST_VALUE_EQUAL;
2783   return GST_VALUE_UNORDERED;
2784 }
2785
2786 static gchar *
2787 gst_value_serialize_float (const GValue * value)
2788 {
2789   gchar d[G_ASCII_DTOSTR_BUF_SIZE];
2790
2791   g_ascii_dtostr (d, G_ASCII_DTOSTR_BUF_SIZE, value->data[0].v_float);
2792   return g_strdup (d);
2793 }
2794
2795 static gboolean
2796 gst_value_deserialize_float (GValue * dest, const gchar * s)
2797 {
2798   gdouble x;
2799   gboolean ret = FALSE;
2800   gchar *end;
2801
2802   x = g_ascii_strtod (s, &end);
2803   if (*end == 0) {
2804     ret = TRUE;
2805   } else {
2806     if (g_ascii_strcasecmp (s, "min") == 0) {
2807       x = -G_MAXFLOAT;
2808       ret = TRUE;
2809     } else if (g_ascii_strcasecmp (s, "max") == 0) {
2810       x = G_MAXFLOAT;
2811       ret = TRUE;
2812     }
2813   }
2814   if (x > G_MAXFLOAT || x < -G_MAXFLOAT)
2815     ret = FALSE;
2816   if (ret) {
2817     g_value_set_float (dest, (float) x);
2818   }
2819   return ret;
2820 }
2821
2822 /**********
2823  * string *
2824  **********/
2825
2826 static gint
2827 gst_value_compare_string (const GValue * value1, const GValue * value2)
2828 {
2829   if (G_UNLIKELY (!value1->data[0].v_pointer || !value2->data[0].v_pointer)) {
2830     /* if only one is NULL, no match - otherwise both NULL == EQUAL */
2831     if (value1->data[0].v_pointer != value2->data[0].v_pointer)
2832       return GST_VALUE_UNORDERED;
2833   } else {
2834     gint x = strcmp (value1->data[0].v_pointer, value2->data[0].v_pointer);
2835
2836     if (x < 0)
2837       return GST_VALUE_LESS_THAN;
2838     if (x > 0)
2839       return GST_VALUE_GREATER_THAN;
2840   }
2841
2842   return GST_VALUE_EQUAL;
2843 }
2844
2845 static gint
2846 gst_string_measure_wrapping (const gchar * s)
2847 {
2848   gint len;
2849   gboolean wrap = FALSE;
2850
2851   if (G_UNLIKELY (s == NULL))
2852     return -1;
2853
2854   /* Special case: the actual string NULL needs wrapping */
2855   if (G_UNLIKELY (strcmp (s, "NULL") == 0))
2856     return 4;
2857
2858   len = 0;
2859   while (*s) {
2860     if (GST_ASCII_IS_STRING (*s)) {
2861       len++;
2862     } else if (*s < 0x20 || *s >= 0x7f) {
2863       wrap = TRUE;
2864       len += 4;
2865     } else {
2866       wrap = TRUE;
2867       len += 2;
2868     }
2869     s++;
2870   }
2871
2872   /* Wrap the string if we found something that needs
2873    * wrapping, or the empty string (len == 0) */
2874   return (wrap || len == 0) ? len : -1;
2875 }
2876
2877 static gchar *
2878 gst_string_wrap_inner (const gchar * s, gint len)
2879 {
2880   gchar *d, *e;
2881
2882   e = d = g_malloc (len + 3);
2883
2884   *e++ = '\"';
2885   while (*s) {
2886     if (GST_ASCII_IS_STRING (*s)) {
2887       *e++ = *s++;
2888     } else if (*s < 0x20 || *s >= 0x7f) {
2889       *e++ = '\\';
2890       *e++ = '0' + ((*(guchar *) s) >> 6);
2891       *e++ = '0' + (((*s) >> 3) & 0x7);
2892       *e++ = '0' + ((*s++) & 0x7);
2893     } else {
2894       *e++ = '\\';
2895       *e++ = *s++;
2896     }
2897   }
2898   *e++ = '\"';
2899   *e = 0;
2900
2901   g_assert (e - d <= len + 3);
2902   return d;
2903 }
2904
2905 /* Do string wrapping/escaping */
2906 static gchar *
2907 gst_string_wrap (const gchar * s)
2908 {
2909   gint len = gst_string_measure_wrapping (s);
2910
2911   if (G_LIKELY (len < 0))
2912     return g_strdup (s);
2913
2914   return gst_string_wrap_inner (s, len);
2915 }
2916
2917 /* Same as above, but take ownership of the string */
2918 gchar *
2919 priv_gst_string_take_and_wrap (gchar * s)
2920 {
2921   gchar *out;
2922   gint len = gst_string_measure_wrapping (s);
2923
2924   if (G_LIKELY (len < 0))
2925     return s;
2926
2927   out = gst_string_wrap_inner (s, len);
2928   g_free (s);
2929
2930   return out;
2931 }
2932
2933 /*
2934  * This function takes a string delimited with double quotes (")
2935  * and unescapes any \xxx octal numbers.
2936  *
2937  * If sequences of \y are found where y is not in the range of
2938  * 0->3, y is copied unescaped.
2939  *
2940  * If \xyy is found where x is an octal number but y is not, an
2941  * error is encountered and %NULL is returned.
2942  *
2943  * the input string must be \0 terminated.
2944  */
2945 static gchar *
2946 gst_string_unwrap (const gchar * s)
2947 {
2948   gchar *ret;
2949   gchar *read, *write;
2950
2951   /* NULL string returns NULL */
2952   if (s == NULL)
2953     return NULL;
2954
2955   /* strings not starting with " are invalid */
2956   if (*s != '"')
2957     return NULL;
2958
2959   /* make copy of original string to hold the result. This
2960    * string will always be smaller than the original */
2961   ret = g_strdup (s);
2962   read = ret;
2963   write = ret;
2964
2965   /* need to move to the next position as we parsed the " */
2966   read++;
2967
2968   while (*read) {
2969     if (GST_ASCII_IS_STRING (*read)) {
2970       /* normal chars are just copied */
2971       *write++ = *read++;
2972     } else if (*read == '"') {
2973       /* quote marks end of string */
2974       break;
2975     } else if (*read == '\\') {
2976       /* got an escape char, move to next position to read a tripplet
2977        * of octal numbers */
2978       read++;
2979       /* is the next char a possible first octal number? */
2980       if (*read >= '0' && *read <= '3') {
2981         /* parse other 2 numbers, if one of them is not in the range of
2982          * an octal number, we error. We also catch the case where a zero
2983          * byte is found here. */
2984         if (read[1] < '0' || read[1] > '7' || read[2] < '0' || read[2] > '7')
2985           goto beach;
2986
2987         /* now convert the octal number to a byte again. */
2988         *write++ = ((read[0] - '0') << 6) +
2989             ((read[1] - '0') << 3) + (read[2] - '0');
2990
2991         read += 3;
2992       } else {
2993         /* if we run into a \0 here, we definitely won't get a quote later */
2994         if (*read == 0)
2995           goto beach;
2996
2997         /* else copy \X sequence */
2998         *write++ = *read++;
2999       }
3000     } else {
3001       /* weird character, error */
3002       goto beach;
3003     }
3004   }
3005   /* if the string is not ending in " and zero terminated, we error */
3006   if (*read != '"' || read[1] != '\0')
3007     goto beach;
3008
3009   /* null terminate result string and return */
3010   *write = '\0';
3011   return ret;
3012
3013 beach:
3014   g_free (ret);
3015   return NULL;
3016 }
3017
3018 static gchar *
3019 gst_value_serialize_string (const GValue * value)
3020 {
3021   return gst_string_wrap (value->data[0].v_pointer);
3022 }
3023
3024 static gboolean
3025 gst_value_deserialize_string (GValue * dest, const gchar * s)
3026 {
3027   if (G_UNLIKELY (strcmp (s, "NULL") == 0)) {
3028     g_value_set_string (dest, NULL);
3029     return TRUE;
3030   } else if (G_LIKELY (*s != '"' || s[strlen (s) - 1] != '"')) {
3031     if (!g_utf8_validate (s, -1, NULL))
3032       return FALSE;
3033     g_value_set_string (dest, s);
3034     return TRUE;
3035   } else {
3036     /* strings delimited with double quotes should be unwrapped */
3037     gchar *str = gst_string_unwrap (s);
3038     if (G_UNLIKELY (!str))
3039       return FALSE;
3040     g_value_take_string (dest, str);
3041   }
3042
3043   return TRUE;
3044 }
3045
3046 /********
3047  * enum *
3048  ********/
3049
3050 static gint
3051 gst_value_compare_enum (const GValue * value1, const GValue * value2)
3052 {
3053   GEnumValue *en1, *en2;
3054   GEnumClass *klass1 = (GEnumClass *) g_type_class_ref (G_VALUE_TYPE (value1));
3055   GEnumClass *klass2 = (GEnumClass *) g_type_class_ref (G_VALUE_TYPE (value2));
3056
3057   g_return_val_if_fail (klass1, GST_VALUE_UNORDERED);
3058   g_return_val_if_fail (klass2, GST_VALUE_UNORDERED);
3059   en1 = g_enum_get_value (klass1, g_value_get_enum (value1));
3060   en2 = g_enum_get_value (klass2, g_value_get_enum (value2));
3061   g_type_class_unref (klass1);
3062   g_type_class_unref (klass2);
3063   g_return_val_if_fail (en1, GST_VALUE_UNORDERED);
3064   g_return_val_if_fail (en2, GST_VALUE_UNORDERED);
3065   if (en1->value < en2->value)
3066     return GST_VALUE_LESS_THAN;
3067   if (en1->value > en2->value)
3068     return GST_VALUE_GREATER_THAN;
3069
3070   return GST_VALUE_EQUAL;
3071 }
3072
3073 static gchar *
3074 gst_value_serialize_enum (const GValue * value)
3075 {
3076   GEnumValue *en;
3077   GEnumClass *klass = (GEnumClass *) g_type_class_ref (G_VALUE_TYPE (value));
3078
3079   g_return_val_if_fail (klass, NULL);
3080   en = g_enum_get_value (klass, g_value_get_enum (value));
3081   g_type_class_unref (klass);
3082
3083   /* might be one of the custom formats registered later */
3084   if (G_UNLIKELY (en == NULL && G_VALUE_TYPE (value) == GST_TYPE_FORMAT)) {
3085     const GstFormatDefinition *format_def;
3086
3087     format_def = gst_format_get_details ((GstFormat) g_value_get_enum (value));
3088     g_return_val_if_fail (format_def != NULL, NULL);
3089     return g_strdup (format_def->description);
3090   }
3091
3092   g_return_val_if_fail (en, NULL);
3093   return g_strdup (en->value_name);
3094 }
3095
3096 static gint
3097 gst_value_deserialize_enum_iter_cmp (const GValue * format_def_value,
3098     const gchar * s)
3099 {
3100   const GstFormatDefinition *format_def =
3101       g_value_get_pointer (format_def_value);
3102
3103   if (g_ascii_strcasecmp (s, format_def->nick) == 0)
3104     return 0;
3105
3106   return g_ascii_strcasecmp (s, format_def->description);
3107 }
3108
3109 static gboolean
3110 gst_value_deserialize_enum (GValue * dest, const gchar * s)
3111 {
3112   GEnumValue *en;
3113   gchar *endptr = NULL;
3114   GEnumClass *klass = (GEnumClass *) g_type_class_ref (G_VALUE_TYPE (dest));
3115
3116   g_return_val_if_fail (klass, FALSE);
3117   if (!(en = g_enum_get_value_by_name (klass, s))) {
3118     if (!(en = g_enum_get_value_by_nick (klass, s))) {
3119       gint i = strtol (s, &endptr, 0);
3120
3121       if (endptr && *endptr == '\0') {
3122         en = g_enum_get_value (klass, i);
3123       }
3124     }
3125   }
3126   g_type_class_unref (klass);
3127
3128   /* might be one of the custom formats registered later */
3129   if (G_UNLIKELY (en == NULL && G_VALUE_TYPE (dest) == GST_TYPE_FORMAT)) {
3130     GValue res = { 0, };
3131     const GstFormatDefinition *format_def;
3132     GstIterator *iter;
3133     gboolean found;
3134
3135     iter = gst_format_iterate_definitions ();
3136
3137     found = gst_iterator_find_custom (iter,
3138         (GCompareFunc) gst_value_deserialize_enum_iter_cmp, &res, (gpointer) s);
3139
3140     if (found) {
3141       format_def = g_value_get_pointer (&res);
3142       g_return_val_if_fail (format_def != NULL, FALSE);
3143       g_value_set_enum (dest, (gint) format_def->value);
3144       g_value_unset (&res);
3145     }
3146     gst_iterator_free (iter);
3147     return found;
3148   }
3149
3150   /* enum name/nick not found */
3151   if (en == NULL)
3152     return FALSE;
3153
3154   g_value_set_enum (dest, en->value);
3155   return TRUE;
3156 }
3157
3158 /********
3159  * flags *
3160  ********/
3161
3162 /* we just compare the value here */
3163 static gint
3164 gst_value_compare_gflags (const GValue * value1, const GValue * value2)
3165 {
3166   guint fl1, fl2;
3167   GFlagsClass *klass1 =
3168       (GFlagsClass *) g_type_class_ref (G_VALUE_TYPE (value1));
3169   GFlagsClass *klass2 =
3170       (GFlagsClass *) g_type_class_ref (G_VALUE_TYPE (value2));
3171
3172   g_return_val_if_fail (klass1, GST_VALUE_UNORDERED);
3173   g_return_val_if_fail (klass2, GST_VALUE_UNORDERED);
3174   fl1 = g_value_get_flags (value1);
3175   fl2 = g_value_get_flags (value2);
3176   g_type_class_unref (klass1);
3177   g_type_class_unref (klass2);
3178   if (fl1 < fl2)
3179     return GST_VALUE_LESS_THAN;
3180   if (fl1 > fl2)
3181     return GST_VALUE_GREATER_THAN;
3182
3183   return GST_VALUE_EQUAL;
3184 }
3185
3186 /* the different flags are serialized separated with a + */
3187 static gchar *
3188 gst_value_serialize_gflags (const GValue * value)
3189 {
3190   guint flags;
3191   GFlagsValue *fl;
3192   GFlagsClass *klass = (GFlagsClass *) g_type_class_ref (G_VALUE_TYPE (value));
3193   gchar *result, *tmp;
3194   gboolean first = TRUE;
3195
3196   g_return_val_if_fail (klass, NULL);
3197
3198   flags = g_value_get_flags (value);
3199
3200   /* if no flags are set, try to serialize to the _NONE string */
3201   if (!flags) {
3202     fl = g_flags_get_first_value (klass, flags);
3203     if (fl)
3204       return g_strdup (fl->value_name);
3205     else
3206       return g_strdup ("0");
3207   }
3208
3209   /* some flags are set, so serialize one by one */
3210   result = g_strdup ("");
3211   while (flags) {
3212     fl = g_flags_get_first_value (klass, flags);
3213     if (fl != NULL) {
3214       tmp = g_strconcat (result, (first ? "" : "+"), fl->value_name, NULL);
3215       g_free (result);
3216       result = tmp;
3217       first = FALSE;
3218
3219       /* clear flag */
3220       flags &= ~fl->value;
3221     }
3222   }
3223   g_type_class_unref (klass);
3224
3225   return result;
3226 }
3227
3228 static gboolean
3229 gst_value_gflags_str_to_flags (GFlagsClass * klass, const gchar * s,
3230     guint * out_flags, guint * out_mask)
3231 {
3232   GFlagsValue *fl;
3233   gchar delimiter;
3234   const gchar *pos = NULL;
3235   const gchar *next;
3236   gchar *cur_str, *endptr;
3237   guint flags = 0;
3238   guint mask = 0;
3239   guint val;
3240
3241   g_return_val_if_fail (klass, FALSE);
3242
3243   /* split into parts delimited with + or / and
3244    * compose the set of flags and mask. */
3245   pos = s;
3246
3247   if (*pos == '\0')
3248     goto done;                  /* Empty string, nothing to do */
3249
3250   /* As a special case if the first char isn't a delimiter, assume
3251    * it's a '+' - for GFlags strings, which don't start with a
3252    * delimiter, while GFlagSet always will */
3253   if (*pos == '/' || *pos == '+') {
3254     delimiter = *pos;
3255     pos++;
3256   } else {
3257     delimiter = '+';
3258   }
3259
3260   do {
3261     /* Find the next delimiter */
3262     next = pos;
3263     while (*next != '\0' && *next != '+' && *next != '/')
3264       next++;
3265     cur_str = g_strndup (pos, next - pos);
3266
3267     if ((fl = g_flags_get_value_by_name (klass, cur_str)))
3268       val = fl->value;
3269     else if ((fl = g_flags_get_value_by_nick (klass, cur_str)))
3270       val = fl->value;
3271     else {
3272       val = strtoul (cur_str, &endptr, 0);
3273       /* direct numeric value */
3274       if (endptr == NULL || *endptr != '\0') {
3275         g_free (cur_str);
3276         return FALSE;           /* Invalid numeric or string we can't convert */
3277       }
3278     }
3279     g_free (cur_str);
3280
3281     if (val) {
3282       mask |= val;
3283       if (delimiter == '+')
3284         flags |= val;
3285     }
3286
3287     /* Advance to the next delimiter */
3288     pos = next;
3289     delimiter = *pos;
3290     pos++;
3291   } while (delimiter != '\0');
3292
3293 done:
3294   if (out_flags)
3295     *out_flags = flags;
3296   if (out_mask)
3297     *out_mask = mask;
3298
3299   return TRUE;
3300 }
3301
3302
3303 static gboolean
3304 gst_value_deserialize_gflags (GValue * dest, const gchar * s)
3305 {
3306   GFlagsClass *klass = (GFlagsClass *) g_type_class_ref (G_VALUE_TYPE (dest));
3307   gboolean res = FALSE;
3308   guint flags = 0;
3309
3310   if (gst_value_gflags_str_to_flags (klass, s, &flags, NULL)) {
3311     g_value_set_flags (dest, flags);
3312     res = TRUE;
3313   }
3314
3315   g_type_class_unref (klass);
3316
3317   return res;
3318 }
3319
3320 /****************
3321  * subset *
3322  ****************/
3323
3324 static gboolean
3325 gst_value_is_subset_int_range_int_range (const GValue * value1,
3326     const GValue * value2)
3327 {
3328   gint gcd;
3329
3330   g_return_val_if_fail (GST_VALUE_HOLDS_INT_RANGE (value1), FALSE);
3331   g_return_val_if_fail (GST_VALUE_HOLDS_INT_RANGE (value2), FALSE);
3332
3333   if (INT_RANGE_MIN (value1) * INT_RANGE_STEP (value1) <
3334       INT_RANGE_MIN (value2) * INT_RANGE_STEP (value2))
3335     return FALSE;
3336   if (INT_RANGE_MAX (value1) * INT_RANGE_STEP (value1) >
3337       INT_RANGE_MAX (value2) * INT_RANGE_STEP (value2))
3338     return FALSE;
3339
3340   if (INT_RANGE_MIN (value2) == INT_RANGE_MAX (value2)) {
3341     if ((INT_RANGE_MIN (value2) * INT_RANGE_STEP (value2)) %
3342         INT_RANGE_STEP (value1))
3343       return FALSE;
3344     return TRUE;
3345   }
3346
3347   gcd =
3348       gst_util_greatest_common_divisor (INT_RANGE_STEP (value1),
3349       INT_RANGE_STEP (value2));
3350   if (gcd != MIN (INT_RANGE_STEP (value1), INT_RANGE_STEP (value2)))
3351     return FALSE;
3352
3353   return TRUE;
3354 }
3355
3356 static gboolean
3357 gst_value_is_subset_int64_range_int64_range (const GValue * value1,
3358     const GValue * value2)
3359 {
3360   gint64 gcd;
3361
3362   g_return_val_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value1), FALSE);
3363   g_return_val_if_fail (GST_VALUE_HOLDS_INT64_RANGE (value2), FALSE);
3364
3365   if (INT64_RANGE_MIN (value1) < INT64_RANGE_MIN (value2))
3366     return FALSE;
3367   if (INT64_RANGE_MAX (value1) > INT64_RANGE_MAX (value2))
3368     return FALSE;
3369
3370   if (INT64_RANGE_MIN (value2) == INT64_RANGE_MAX (value2)) {
3371     if ((INT64_RANGE_MIN (value2) * INT64_RANGE_STEP (value2)) %
3372         INT64_RANGE_STEP (value1))
3373       return FALSE;
3374     return TRUE;
3375   }
3376
3377   gcd =
3378       gst_util_greatest_common_divisor_int64 (INT64_RANGE_STEP (value1),
3379       INT64_RANGE_STEP (value2));
3380   if (gcd != MIN (INT64_RANGE_STEP (value1), INT64_RANGE_STEP (value2)))
3381     return FALSE;
3382
3383   return TRUE;
3384 }
3385
3386 /* A flag set is a subset of another if the superset allows the
3387  * flags of the subset */
3388 static gboolean
3389 gst_value_is_subset_flagset_flagset (const GValue * value1,
3390     const GValue * value2)
3391 {
3392   guint f1, f2;
3393   guint m1, m2;
3394
3395   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (value1), FALSE);
3396   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (value2), FALSE);
3397
3398   f1 = value1->data[0].v_uint;
3399   f2 = value2->data[0].v_uint;
3400
3401   m1 = value1->data[1].v_uint;
3402   m2 = value2->data[1].v_uint;
3403
3404   /* Not a subset if masked bits of superset disagree */
3405   if ((f1 & m1) != (f2 & (m1 & m2)))
3406     return FALSE;
3407
3408   return TRUE;
3409 }
3410
3411 /**
3412  * gst_value_is_subset:
3413  * @value1: a #GValue
3414  * @value2: a #GValue
3415  *
3416  * Check that @value1 is a subset of @value2.
3417  *
3418  * Return: %TRUE is @value1 is a subset of @value2
3419  */
3420 gboolean
3421 gst_value_is_subset (const GValue * value1, const GValue * value2)
3422 {
3423   /* special case for int/int64 ranges, since we cannot compute
3424      the difference for those when they have different steps,
3425      and it's actually a lot simpler to compute whether a range
3426      is a subset of another. */
3427   if (GST_VALUE_HOLDS_INT_RANGE (value1) && GST_VALUE_HOLDS_INT_RANGE (value2)) {
3428     return gst_value_is_subset_int_range_int_range (value1, value2);
3429   } else if (GST_VALUE_HOLDS_INT64_RANGE (value1)
3430       && GST_VALUE_HOLDS_INT64_RANGE (value2)) {
3431     return gst_value_is_subset_int64_range_int64_range (value1, value2);
3432   } else if (GST_VALUE_HOLDS_FLAG_SET (value1) &&
3433       GST_VALUE_HOLDS_FLAG_SET (value2)) {
3434     return gst_value_is_subset_flagset_flagset (value1, value2);
3435   }
3436
3437   /*
3438    * 1 - [1,2] = empty
3439    * -> !subset
3440    *
3441    * [1,2] - 1 = 2
3442    *  -> 1 - [1,2] = empty
3443    *  -> subset
3444    *
3445    * [1,3] - [1,2] = 3
3446    * -> [1,2] - [1,3] = empty
3447    * -> subset
3448    *
3449    * {1,2} - {1,3} = 2
3450    * -> {1,3} - {1,2} = 3
3451    * -> !subset
3452    *
3453    *  First caps subtraction needs to return a non-empty set, second
3454    *  subtractions needs to give en empty set.
3455    *  Both substractions are switched below, as it's faster that way.
3456    */
3457   if (!gst_value_subtract (NULL, value1, value2)) {
3458     if (gst_value_subtract (NULL, value2, value1)) {
3459       return TRUE;
3460     }
3461   }
3462   return FALSE;
3463 }
3464
3465 /*********
3466  * union *
3467  *********/
3468
3469 static gboolean
3470 gst_value_union_int_int_range (GValue * dest, const GValue * src1,
3471     const GValue * src2)
3472 {
3473   gint v = src1->data[0].v_int;
3474
3475   /* check if it's already in the range */
3476   if (INT_RANGE_MIN (src2) * INT_RANGE_STEP (src2) <= v &&
3477       INT_RANGE_MAX (src2) * INT_RANGE_STEP (src2) >= v &&
3478       v % INT_RANGE_STEP (src2) == 0) {
3479     if (dest)
3480       gst_value_init_and_copy (dest, src2);
3481     return TRUE;
3482   }
3483
3484   /* check if it extends the range */
3485   if (v == (INT_RANGE_MIN (src2) - 1) * INT_RANGE_STEP (src2)) {
3486     if (dest) {
3487       guint64 new_min =
3488           (guint) ((INT_RANGE_MIN (src2) - 1) * INT_RANGE_STEP (src2));
3489       guint64 new_max = (guint) (INT_RANGE_MAX (src2) * INT_RANGE_STEP (src2));
3490
3491       gst_value_init_and_copy (dest, src2);
3492       dest->data[0].v_uint64 = (new_min << 32) | (new_max);
3493     }
3494     return TRUE;
3495   }
3496   if (v == (INT_RANGE_MAX (src2) + 1) * INT_RANGE_STEP (src2)) {
3497     if (dest) {
3498       guint64 new_min = (guint) (INT_RANGE_MIN (src2) * INT_RANGE_STEP (src2));
3499       guint64 new_max =
3500           (guint) ((INT_RANGE_MAX (src2) + 1) * INT_RANGE_STEP (src2));
3501
3502       gst_value_init_and_copy (dest, src2);
3503       dest->data[0].v_uint64 = (new_min << 32) | (new_max);
3504     }
3505     return TRUE;
3506   }
3507
3508   return FALSE;
3509 }
3510
3511 static gboolean
3512 gst_value_union_int_range_int_range (GValue * dest, const GValue * src1,
3513     const GValue * src2)
3514 {
3515   /* We can union in several special cases:
3516      1 - one is a subset of another
3517      2 - same step and not disjoint
3518      3 - different step, at least one with one value which matches a 'next' or 'previous'
3519      - anything else ?
3520    */
3521
3522   /* 1 - subset */
3523   if (gst_value_is_subset_int_range_int_range (src1, src2)) {
3524     if (dest)
3525       gst_value_init_and_copy (dest, src2);
3526     return TRUE;
3527   }
3528   if (gst_value_is_subset_int_range_int_range (src2, src1)) {
3529     if (dest)
3530       gst_value_init_and_copy (dest, src1);
3531     return TRUE;
3532   }
3533
3534   /* 2 - same step and not disjoint */
3535   if (INT_RANGE_STEP (src1) == INT_RANGE_STEP (src2)) {
3536     if ((INT_RANGE_MIN (src1) <= INT_RANGE_MAX (src2) + 1 &&
3537             INT_RANGE_MAX (src1) >= INT_RANGE_MIN (src2) - 1) ||
3538         (INT_RANGE_MIN (src2) <= INT_RANGE_MAX (src1) + 1 &&
3539             INT_RANGE_MAX (src2) >= INT_RANGE_MIN (src1) - 1)) {
3540       if (dest) {
3541         gint step = INT_RANGE_STEP (src1);
3542         gint min = step * MIN (INT_RANGE_MIN (src1), INT_RANGE_MIN (src2));
3543         gint max = step * MAX (INT_RANGE_MAX (src1), INT_RANGE_MAX (src2));
3544         g_value_init (dest, GST_TYPE_INT_RANGE);
3545         gst_value_set_int_range_step (dest, min, max, step);
3546       }
3547       return TRUE;
3548     }
3549   }
3550
3551   /* 3 - single value matches next or previous */
3552   if (INT_RANGE_STEP (src1) != INT_RANGE_STEP (src2)) {
3553     gint n1 = INT_RANGE_MAX (src1) - INT_RANGE_MIN (src1) + 1;
3554     gint n2 = INT_RANGE_MAX (src2) - INT_RANGE_MIN (src2) + 1;
3555     if (n1 == 1 || n2 == 1) {
3556       const GValue *range_value = NULL;
3557       gint scalar = 0;
3558       if (n1 == 1) {
3559         range_value = src2;
3560         scalar = INT_RANGE_MIN (src1) * INT_RANGE_STEP (src1);
3561       } else if (n2 == 1) {
3562         range_value = src1;
3563         scalar = INT_RANGE_MIN (src2) * INT_RANGE_STEP (src2);
3564       }
3565
3566       if (scalar ==
3567           (INT_RANGE_MIN (range_value) - 1) * INT_RANGE_STEP (range_value)) {
3568         if (dest) {
3569           guint64 new_min = (guint)
3570               ((INT_RANGE_MIN (range_value) -
3571                   1) * INT_RANGE_STEP (range_value));
3572           guint64 new_max = (guint)
3573               (INT_RANGE_MAX (range_value) * INT_RANGE_STEP (range_value));
3574
3575           gst_value_init_and_copy (dest, range_value);
3576           dest->data[0].v_uint64 = (new_min << 32) | (new_max);
3577         }
3578         return TRUE;
3579       } else if (scalar ==
3580           (INT_RANGE_MAX (range_value) + 1) * INT_RANGE_STEP (range_value)) {
3581         if (dest) {
3582           guint64 new_min = (guint)
3583               (INT_RANGE_MIN (range_value) * INT_RANGE_STEP (range_value));
3584           guint64 new_max = (guint)
3585               ((INT_RANGE_MAX (range_value) +
3586                   1) * INT_RANGE_STEP (range_value));
3587           gst_value_init_and_copy (dest, range_value);
3588           dest->data[0].v_uint64 = (new_min << 32) | (new_max);
3589         }
3590         return TRUE;
3591       }
3592     }
3593   }
3594
3595   /* If we get there, we did not find a way to make a union that can be
3596      represented with our simplistic model. */
3597   return FALSE;
3598 }
3599
3600 static gboolean
3601 gst_value_union_flagset_flagset (GValue * dest, const GValue * src1,
3602     const GValue * src2)
3603 {
3604   /* We can union 2 flag sets where they do not disagree on
3605    * required (masked) flag bits */
3606   guint64 f1, f2;
3607   guint64 m1, m2;
3608
3609   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (src1), FALSE);
3610   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (src2), FALSE);
3611
3612   f1 = src1->data[0].v_uint;
3613   f2 = src2->data[0].v_uint;
3614
3615   m1 = src1->data[1].v_uint;
3616   m2 = src2->data[1].v_uint;
3617
3618   /* Can't union if masked bits disagree */
3619   if ((f1 & (m1 & m2)) != (f2 & (m1 & m2)))
3620     return FALSE;
3621
3622   if (dest) {
3623     g_value_init (dest, GST_TYPE_FLAG_SET);
3624     /* Copy masked bits from src2 to src1 */
3625     f1 &= ~m2;
3626     f1 |= (f2 & m2);
3627     m1 |= m2;
3628     gst_value_set_flagset (dest, f1, m1);
3629   }
3630
3631   return TRUE;
3632 }
3633
3634 /****************
3635  * intersection *
3636  ****************/
3637
3638 static gboolean
3639 gst_value_intersect_int_int_range (GValue * dest, const GValue * src1,
3640     const GValue * src2)
3641 {
3642   if (INT_RANGE_MIN (src2) * INT_RANGE_STEP (src2) <= src1->data[0].v_int &&
3643       INT_RANGE_MAX (src2) * INT_RANGE_STEP (src2) >= src1->data[0].v_int &&
3644       src1->data[0].v_int % INT_RANGE_STEP (src2) == 0) {
3645     if (dest)
3646       gst_value_init_and_copy (dest, src1);
3647     return TRUE;
3648   }
3649
3650   return FALSE;
3651 }
3652
3653 static gboolean
3654 gst_value_intersect_int_range_int_range (GValue * dest, const GValue * src1,
3655     const GValue * src2)
3656 {
3657   gint min;
3658   gint max;
3659   gint step;
3660
3661   step =
3662       INT_RANGE_STEP (src1) /
3663       gst_util_greatest_common_divisor (INT_RANGE_STEP (src1),
3664       INT_RANGE_STEP (src2));
3665   if (G_MAXINT32 / INT_RANGE_STEP (src2) < step)
3666     return FALSE;
3667   step *= INT_RANGE_STEP (src2);
3668
3669   min =
3670       MAX (INT_RANGE_MIN (src1) * INT_RANGE_STEP (src1),
3671       INT_RANGE_MIN (src2) * INT_RANGE_STEP (src2));
3672   min = (min + step - 1) / step * step;
3673   max =
3674       MIN (INT_RANGE_MAX (src1) * INT_RANGE_STEP (src1),
3675       INT_RANGE_MAX (src2) * INT_RANGE_STEP (src2));
3676   max = max / step * step;
3677
3678   if (min < max) {
3679     if (dest) {
3680       g_value_init (dest, GST_TYPE_INT_RANGE);
3681       gst_value_set_int_range_step (dest, min, max, step);
3682     }
3683     return TRUE;
3684   }
3685   if (min == max) {
3686     if (dest) {
3687       g_value_init (dest, G_TYPE_INT);
3688       g_value_set_int (dest, min);
3689     }
3690     return TRUE;
3691   }
3692
3693   return FALSE;
3694 }
3695
3696 #define INT64_RANGE_MIN_VAL(v) (INT64_RANGE_MIN (v) * INT64_RANGE_STEP (v))
3697 #define INT64_RANGE_MAX_VAL(v) (INT64_RANGE_MAX (v) * INT64_RANGE_STEP (v))
3698
3699 static gboolean
3700 gst_value_intersect_int64_int64_range (GValue * dest, const GValue * src1,
3701     const GValue * src2)
3702 {
3703   if (INT64_RANGE_MIN_VAL (src2) <= src1->data[0].v_int64 &&
3704       INT64_RANGE_MAX_VAL (src2) >= src1->data[0].v_int64 &&
3705       src1->data[0].v_int64 % INT64_RANGE_STEP (src2) == 0) {
3706     if (dest)
3707       gst_value_init_and_copy (dest, src1);
3708     return TRUE;
3709   }
3710
3711   return FALSE;
3712 }
3713
3714 static gboolean
3715 gst_value_intersect_int64_range_int64_range (GValue * dest, const GValue * src1,
3716     const GValue * src2)
3717 {
3718   gint64 min;
3719   gint64 max;
3720   gint64 step;
3721
3722   step =
3723       INT64_RANGE_STEP (src1) /
3724       gst_util_greatest_common_divisor_int64 (INT64_RANGE_STEP (src1),
3725       INT64_RANGE_STEP (src2));
3726   if (G_MAXINT64 / INT64_RANGE_STEP (src2) < step)
3727     return FALSE;
3728   step *= INT64_RANGE_STEP (src2);
3729
3730   min =
3731       MAX (INT64_RANGE_MIN (src1) * INT64_RANGE_STEP (src1),
3732       INT64_RANGE_MIN (src2) * INT64_RANGE_STEP (src2));
3733   min = (min + step - 1) / step * step;
3734   max =
3735       MIN (INT64_RANGE_MAX (src1) * INT64_RANGE_STEP (src1),
3736       INT64_RANGE_MAX (src2) * INT64_RANGE_STEP (src2));
3737   max = max / step * step;
3738
3739   if (min < max) {
3740     if (dest) {
3741       g_value_init (dest, GST_TYPE_INT64_RANGE);
3742       gst_value_set_int64_range_step (dest, min, max, step);
3743     }
3744     return TRUE;
3745   }
3746   if (min == max) {
3747     if (dest) {
3748       g_value_init (dest, G_TYPE_INT64);
3749       g_value_set_int64 (dest, min);
3750     }
3751     return TRUE;
3752   }
3753
3754   return FALSE;
3755 }
3756
3757 static gboolean
3758 gst_value_intersect_double_double_range (GValue * dest, const GValue * src1,
3759     const GValue * src2)
3760 {
3761   if (src2->data[0].v_double <= src1->data[0].v_double &&
3762       src2->data[1].v_double >= src1->data[0].v_double) {
3763     if (dest)
3764       gst_value_init_and_copy (dest, src1);
3765     return TRUE;
3766   }
3767
3768   return FALSE;
3769 }
3770
3771 static gboolean
3772 gst_value_intersect_double_range_double_range (GValue * dest,
3773     const GValue * src1, const GValue * src2)
3774 {
3775   gdouble min;
3776   gdouble max;
3777
3778   min = MAX (src1->data[0].v_double, src2->data[0].v_double);
3779   max = MIN (src1->data[1].v_double, src2->data[1].v_double);
3780
3781   if (min < max) {
3782     if (dest) {
3783       g_value_init (dest, GST_TYPE_DOUBLE_RANGE);
3784       gst_value_set_double_range (dest, min, max);
3785     }
3786     return TRUE;
3787   }
3788   if (min == max) {
3789     if (dest) {
3790       g_value_init (dest, G_TYPE_DOUBLE);
3791       g_value_set_int (dest, (int) min);
3792     }
3793     return TRUE;
3794   }
3795
3796   return FALSE;
3797 }
3798
3799 static gboolean
3800 gst_value_intersect_list (GValue * dest, const GValue * value1,
3801     const GValue * value2)
3802 {
3803   guint i, size;
3804   GValue intersection = { 0, };
3805   gboolean ret = FALSE;
3806
3807   size = VALUE_LIST_SIZE (value1);
3808   for (i = 0; i < size; i++) {
3809     const GValue *cur = VALUE_LIST_GET_VALUE (value1, i);
3810
3811     /* quicker version when we don't need the resulting set */
3812     if (!dest) {
3813       if (gst_value_intersect (NULL, cur, value2)) {
3814         ret = TRUE;
3815         break;
3816       }
3817       continue;
3818     }
3819
3820     if (gst_value_intersect (&intersection, cur, value2)) {
3821       /* append value */
3822       if (!ret) {
3823         gst_value_move (dest, &intersection);
3824         ret = TRUE;
3825       } else if (GST_VALUE_HOLDS_LIST (dest)) {
3826         _gst_value_list_append_and_take_value (dest, &intersection);
3827       } else {
3828         GValue temp;
3829
3830         gst_value_move (&temp, dest);
3831         gst_value_list_merge (dest, &temp, &intersection);
3832         g_value_unset (&temp);
3833         g_value_unset (&intersection);
3834       }
3835     }
3836   }
3837
3838   return ret;
3839 }
3840
3841 static gboolean
3842 gst_value_intersect_array (GValue * dest, const GValue * src1,
3843     const GValue * src2)
3844 {
3845   guint size;
3846   guint n;
3847   GValue val = { 0 };
3848
3849   /* only works on similar-sized arrays */
3850   size = gst_value_array_get_size (src1);
3851   if (size != gst_value_array_get_size (src2))
3852     return FALSE;
3853
3854   /* quicker value when we don't need the resulting set */
3855   if (!dest) {
3856     for (n = 0; n < size; n++) {
3857       if (!gst_value_intersect (NULL, gst_value_array_get_value (src1, n),
3858               gst_value_array_get_value (src2, n))) {
3859         return FALSE;
3860       }
3861     }
3862     return TRUE;
3863   }
3864
3865   g_value_init (dest, GST_TYPE_ARRAY);
3866
3867   for (n = 0; n < size; n++) {
3868     if (!gst_value_intersect (&val, gst_value_array_get_value (src1, n),
3869             gst_value_array_get_value (src2, n))) {
3870       g_value_unset (dest);
3871       return FALSE;
3872     }
3873     _gst_value_array_append_and_take_value (dest, &val);
3874   }
3875
3876   return TRUE;
3877 }
3878
3879 static gboolean
3880 gst_value_intersect_fraction_fraction_range (GValue * dest, const GValue * src1,
3881     const GValue * src2)
3882 {
3883   gint res1, res2;
3884   GValue *vals;
3885   GstValueCompareFunc compare;
3886
3887   vals = src2->data[0].v_pointer;
3888
3889   if (vals == NULL)
3890     return FALSE;
3891
3892   if ((compare = gst_value_get_compare_func (src1))) {
3893     res1 = gst_value_compare_with_func (&vals[0], src1, compare);
3894     res2 = gst_value_compare_with_func (&vals[1], src1, compare);
3895
3896     if ((res1 == GST_VALUE_EQUAL || res1 == GST_VALUE_LESS_THAN) &&
3897         (res2 == GST_VALUE_EQUAL || res2 == GST_VALUE_GREATER_THAN)) {
3898       if (dest)
3899         gst_value_init_and_copy (dest, src1);
3900       return TRUE;
3901     }
3902   }
3903
3904   return FALSE;
3905 }
3906
3907 static gboolean
3908 gst_value_intersect_fraction_range_fraction_range (GValue * dest,
3909     const GValue * src1, const GValue * src2)
3910 {
3911   GValue *min;
3912   GValue *max;
3913   gint res;
3914   GValue *vals1, *vals2;
3915   GstValueCompareFunc compare;
3916
3917   vals1 = src1->data[0].v_pointer;
3918   vals2 = src2->data[0].v_pointer;
3919   g_return_val_if_fail (vals1 != NULL && vals2 != NULL, FALSE);
3920
3921   if ((compare = gst_value_get_compare_func (&vals1[0]))) {
3922     /* min = MAX (src1.start, src2.start) */
3923     res = gst_value_compare_with_func (&vals1[0], &vals2[0], compare);
3924     g_return_val_if_fail (res != GST_VALUE_UNORDERED, FALSE);
3925     if (res == GST_VALUE_LESS_THAN)
3926       min = &vals2[0];          /* Take the max of the 2 */
3927     else
3928       min = &vals1[0];
3929
3930     /* max = MIN (src1.end, src2.end) */
3931     res = gst_value_compare_with_func (&vals1[1], &vals2[1], compare);
3932     g_return_val_if_fail (res != GST_VALUE_UNORDERED, FALSE);
3933     if (res == GST_VALUE_GREATER_THAN)
3934       max = &vals2[1];          /* Take the min of the 2 */
3935     else
3936       max = &vals1[1];
3937
3938     res = gst_value_compare_with_func (min, max, compare);
3939     g_return_val_if_fail (res != GST_VALUE_UNORDERED, FALSE);
3940     if (res == GST_VALUE_LESS_THAN) {
3941       if (dest) {
3942         g_value_init (dest, GST_TYPE_FRACTION_RANGE);
3943         vals1 = dest->data[0].v_pointer;
3944         g_value_copy (min, &vals1[0]);
3945         g_value_copy (max, &vals1[1]);
3946       }
3947       return TRUE;
3948     }
3949     if (res == GST_VALUE_EQUAL) {
3950       if (dest)
3951         gst_value_init_and_copy (dest, min);
3952       return TRUE;
3953     }
3954   }
3955
3956   return FALSE;
3957 }
3958
3959 /* Two flagsets intersect if the masked bits in both
3960  * flagsets are exactly equal */
3961 static gboolean
3962 gst_value_intersect_flagset_flagset (GValue * dest,
3963     const GValue * src1, const GValue * src2)
3964 {
3965   guint f1, f2;
3966   guint m1, m2;
3967   GType type1, type2, flagset_type;
3968
3969   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (src1), FALSE);
3970   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (src2), FALSE);
3971
3972   f1 = src1->data[0].v_uint;
3973   f2 = src2->data[0].v_uint;
3974
3975   m1 = src1->data[1].v_uint;
3976   m2 = src2->data[1].v_uint;
3977
3978   /* Don't intersect if masked bits disagree */
3979   if ((f1 & (m1 & m2)) != (f2 & (m1 & m2)))
3980     return FALSE;
3981
3982   /* Allow intersection with the generic FlagSet type, on one
3983    * side, but not 2 different subtypes - that makes no sense */
3984   type1 = G_VALUE_TYPE (src1);
3985   type2 = G_VALUE_TYPE (src2);
3986   flagset_type = GST_TYPE_FLAG_SET;
3987
3988   if (type1 != type2 && type1 != flagset_type && type2 != flagset_type)
3989     return FALSE;
3990
3991   if (dest) {
3992     GType dest_type;
3993
3994     /* Prefer an output type that matches a sub-type,
3995      * rather than the generic type */
3996     if (type1 != flagset_type)
3997       dest_type = type1;
3998     else
3999       dest_type = type2;
4000
4001     g_value_init (dest, dest_type);
4002
4003     /* The compatible set is all the bits from src1 that it
4004      * cares about and all the bits from src2 that it cares
4005      * about. */
4006     dest->data[0].v_uint = (f1 & m1) | (f2 & m2);
4007     dest->data[1].v_uint = m1 | m2;
4008   }
4009
4010   return TRUE;
4011 }
4012
4013 /***************
4014  * subtraction *
4015  ***************/
4016
4017 static gboolean
4018 gst_value_subtract_int_int_range (GValue * dest, const GValue * minuend,
4019     const GValue * subtrahend)
4020 {
4021   gint min = gst_value_get_int_range_min (subtrahend);
4022   gint max = gst_value_get_int_range_max (subtrahend);
4023   gint step = gst_value_get_int_range_step (subtrahend);
4024   gint val = g_value_get_int (minuend);
4025
4026   if (step == 0)
4027     return FALSE;
4028
4029   /* subtracting a range from an int only works if the int is not in the
4030    * range */
4031   if (val < min || val > max || val % step) {
4032     /* and the result is the int */
4033     if (dest)
4034       gst_value_init_and_copy (dest, minuend);
4035     return TRUE;
4036   }
4037   return FALSE;
4038 }
4039
4040 /* creates a new int range based on input values.
4041  */
4042 static gboolean
4043 gst_value_create_new_range (GValue * dest, gint min1, gint max1, gint min2,
4044     gint max2, gint step)
4045 {
4046   GValue v1 = { 0, };
4047   GValue v2 = { 0, };
4048   GValue *pv1, *pv2;            /* yeah, hungarian! */
4049
4050   g_return_val_if_fail (step > 0, FALSE);
4051   g_return_val_if_fail (min1 % step == 0, FALSE);
4052   g_return_val_if_fail (max1 % step == 0, FALSE);
4053   g_return_val_if_fail (min2 % step == 0, FALSE);
4054   g_return_val_if_fail (max2 % step == 0, FALSE);
4055
4056   if (min1 <= max1 && min2 <= max2) {
4057     pv1 = &v1;
4058     pv2 = &v2;
4059   } else if (min1 <= max1) {
4060     pv1 = dest;
4061     pv2 = NULL;
4062   } else if (min2 <= max2) {
4063     pv1 = NULL;
4064     pv2 = dest;
4065   } else {
4066     return FALSE;
4067   }
4068
4069   if (!dest)
4070     return TRUE;
4071
4072   if (min1 < max1) {
4073     g_value_init (pv1, GST_TYPE_INT_RANGE);
4074     gst_value_set_int_range_step (pv1, min1, max1, step);
4075   } else if (min1 == max1) {
4076     g_value_init (pv1, G_TYPE_INT);
4077     g_value_set_int (pv1, min1);
4078   }
4079   if (min2 < max2) {
4080     g_value_init (pv2, GST_TYPE_INT_RANGE);
4081     gst_value_set_int_range_step (pv2, min2, max2, step);
4082   } else if (min2 == max2) {
4083     g_value_init (pv2, G_TYPE_INT);
4084     g_value_set_int (pv2, min2);
4085   }
4086
4087   if (min1 <= max1 && min2 <= max2) {
4088     gst_value_list_concat_and_take_values (dest, pv1, pv2);
4089   }
4090   return TRUE;
4091 }
4092
4093 static gboolean
4094 gst_value_subtract_int_range_int (GValue * dest, const GValue * minuend,
4095     const GValue * subtrahend)
4096 {
4097   gint min = gst_value_get_int_range_min (minuend);
4098   gint max = gst_value_get_int_range_max (minuend);
4099   gint step = gst_value_get_int_range_step (minuend);
4100   gint val = g_value_get_int (subtrahend);
4101
4102   g_return_val_if_fail (min < max, FALSE);
4103
4104   if (step == 0)
4105     return FALSE;
4106
4107   /* value is outside of the range, return range unchanged */
4108   if (val < min || val > max || val % step) {
4109     if (dest)
4110       gst_value_init_and_copy (dest, minuend);
4111     return TRUE;
4112   } else {
4113     /* max must be MAXINT too as val <= max */
4114     if (val >= G_MAXINT - step + 1) {
4115       max -= step;
4116       val -= step;
4117     }
4118     /* min must be MININT too as val >= max */
4119     if (val <= G_MININT + step - 1) {
4120       min += step;
4121       val += step;
4122     }
4123     if (dest)
4124       gst_value_create_new_range (dest, min, val - step, val + step, max, step);
4125   }
4126   return TRUE;
4127 }
4128
4129 static gboolean
4130 gst_value_subtract_int_range_int_range (GValue * dest, const GValue * minuend,
4131     const GValue * subtrahend)
4132 {
4133   gint min1 = gst_value_get_int_range_min (minuend);
4134   gint max1 = gst_value_get_int_range_max (minuend);
4135   gint step1 = gst_value_get_int_range_step (minuend);
4136   gint min2 = gst_value_get_int_range_min (subtrahend);
4137   gint max2 = gst_value_get_int_range_max (subtrahend);
4138   gint step2 = gst_value_get_int_range_step (subtrahend);
4139   gint step;
4140
4141   if (step1 != step2) {
4142     /* ENOIMPL */
4143     g_assert (FALSE);
4144     return FALSE;
4145   }
4146   step = step1;
4147
4148   if (step == 0)
4149     return FALSE;
4150
4151   if (max2 >= max1 && min2 <= min1) {
4152     return FALSE;
4153   } else if (max2 >= max1) {
4154     return gst_value_create_new_range (dest, min1, MIN (min2 - step, max1),
4155         step, 0, step);
4156   } else if (min2 <= min1) {
4157     return gst_value_create_new_range (dest, MAX (max2 + step, min1), max1,
4158         step, 0, step);
4159   } else {
4160     return gst_value_create_new_range (dest, min1, MIN (min2 - step, max1),
4161         MAX (max2 + step, min1), max1, step);
4162   }
4163 }
4164
4165 static gboolean
4166 gst_value_subtract_int64_int64_range (GValue * dest, const GValue * minuend,
4167     const GValue * subtrahend)
4168 {
4169   gint64 min = gst_value_get_int64_range_min (subtrahend);
4170   gint64 max = gst_value_get_int64_range_max (subtrahend);
4171   gint64 step = gst_value_get_int64_range_step (subtrahend);
4172   gint64 val = g_value_get_int64 (minuend);
4173
4174   if (step == 0)
4175     return FALSE;
4176   /* subtracting a range from an int64 only works if the int64 is not in the
4177    * range */
4178   if (val < min || val > max || val % step) {
4179     /* and the result is the int64 */
4180     if (dest)
4181       gst_value_init_and_copy (dest, minuend);
4182     return TRUE;
4183   }
4184   return FALSE;
4185 }
4186
4187 /* creates a new int64 range based on input values.
4188  */
4189 static gboolean
4190 gst_value_create_new_int64_range (GValue * dest, gint64 min1, gint64 max1,
4191     gint64 min2, gint64 max2, gint64 step)
4192 {
4193   GValue v1 = { 0, };
4194   GValue v2 = { 0, };
4195   GValue *pv1, *pv2;            /* yeah, hungarian! */
4196
4197   g_return_val_if_fail (step > 0, FALSE);
4198   g_return_val_if_fail (min1 % step == 0, FALSE);
4199   g_return_val_if_fail (max1 % step == 0, FALSE);
4200   g_return_val_if_fail (min2 % step == 0, FALSE);
4201   g_return_val_if_fail (max2 % step == 0, FALSE);
4202
4203   if (min1 <= max1 && min2 <= max2) {
4204     pv1 = &v1;
4205     pv2 = &v2;
4206   } else if (min1 <= max1) {
4207     pv1 = dest;
4208     pv2 = NULL;
4209   } else if (min2 <= max2) {
4210     pv1 = NULL;
4211     pv2 = dest;
4212   } else {
4213     return FALSE;
4214   }
4215
4216   if (!dest)
4217     return TRUE;
4218
4219   if (min1 < max1) {
4220     g_value_init (pv1, GST_TYPE_INT64_RANGE);
4221     gst_value_set_int64_range_step (pv1, min1, max1, step);
4222   } else if (min1 == max1) {
4223     g_value_init (pv1, G_TYPE_INT64);
4224     g_value_set_int64 (pv1, min1);
4225   }
4226   if (min2 < max2) {
4227     g_value_init (pv2, GST_TYPE_INT64_RANGE);
4228     gst_value_set_int64_range_step (pv2, min2, max2, step);
4229   } else if (min2 == max2) {
4230     g_value_init (pv2, G_TYPE_INT64);
4231     g_value_set_int64 (pv2, min2);
4232   }
4233
4234   if (min1 <= max1 && min2 <= max2) {
4235     gst_value_list_concat_and_take_values (dest, pv1, pv2);
4236   }
4237   return TRUE;
4238 }
4239
4240 static gboolean
4241 gst_value_subtract_int64_range_int64 (GValue * dest, const GValue * minuend,
4242     const GValue * subtrahend)
4243 {
4244   gint64 min = gst_value_get_int64_range_min (minuend);
4245   gint64 max = gst_value_get_int64_range_max (minuend);
4246   gint64 step = gst_value_get_int64_range_step (minuend);
4247   gint64 val = g_value_get_int64 (subtrahend);
4248
4249   g_return_val_if_fail (min < max, FALSE);
4250
4251   if (step == 0)
4252     return FALSE;
4253
4254   /* value is outside of the range, return range unchanged */
4255   if (val < min || val > max || val % step) {
4256     if (dest)
4257       gst_value_init_and_copy (dest, minuend);
4258     return TRUE;
4259   } else {
4260     /* max must be MAXINT64 too as val <= max */
4261     if (val >= G_MAXINT64 - step + 1) {
4262       max -= step;
4263       val -= step;
4264     }
4265     /* min must be MININT64 too as val >= max */
4266     if (val <= G_MININT64 + step - 1) {
4267       min += step;
4268       val += step;
4269     }
4270     if (dest)
4271       gst_value_create_new_int64_range (dest, min, val - step, val + step, max,
4272           step);
4273   }
4274   return TRUE;
4275 }
4276
4277 static gboolean
4278 gst_value_subtract_int64_range_int64_range (GValue * dest,
4279     const GValue * minuend, const GValue * subtrahend)
4280 {
4281   gint64 min1 = gst_value_get_int64_range_min (minuend);
4282   gint64 max1 = gst_value_get_int64_range_max (minuend);
4283   gint64 step1 = gst_value_get_int64_range_step (minuend);
4284   gint64 min2 = gst_value_get_int64_range_min (subtrahend);
4285   gint64 max2 = gst_value_get_int64_range_max (subtrahend);
4286   gint64 step2 = gst_value_get_int64_range_step (subtrahend);
4287   gint64 step;
4288
4289   if (step1 != step2) {
4290     /* ENOIMPL */
4291     g_assert (FALSE);
4292     return FALSE;
4293   }
4294
4295   if (step1 == 0)
4296     return FALSE;
4297
4298   step = step1;
4299
4300   if (max2 >= max1 && min2 <= min1) {
4301     return FALSE;
4302   } else if (max2 >= max1) {
4303     return gst_value_create_new_int64_range (dest, min1, MIN (min2 - step,
4304             max1), step, 0, step);
4305   } else if (min2 <= min1) {
4306     return gst_value_create_new_int64_range (dest, MAX (max2 + step, min1),
4307         max1, step, 0, step);
4308   } else {
4309     return gst_value_create_new_int64_range (dest, min1, MIN (min2 - step,
4310             max1), MAX (max2 + step, min1), max1, step);
4311   }
4312 }
4313
4314 static gboolean
4315 gst_value_subtract_double_double_range (GValue * dest, const GValue * minuend,
4316     const GValue * subtrahend)
4317 {
4318   gdouble min = gst_value_get_double_range_min (subtrahend);
4319   gdouble max = gst_value_get_double_range_max (subtrahend);
4320   gdouble val = g_value_get_double (minuend);
4321
4322   if (val < min || val > max) {
4323     if (dest)
4324       gst_value_init_and_copy (dest, minuend);
4325     return TRUE;
4326   }
4327   return FALSE;
4328 }
4329
4330 static gboolean
4331 gst_value_subtract_double_range_double (GValue * dest, const GValue * minuend,
4332     const GValue * subtrahend)
4333 {
4334   /* since we don't have open ranges, we cannot create a hole in
4335    * a double range. We return the original range */
4336   if (dest)
4337     gst_value_init_and_copy (dest, minuend);
4338   return TRUE;
4339 }
4340
4341 static gboolean
4342 gst_value_subtract_double_range_double_range (GValue * dest,
4343     const GValue * minuend, const GValue * subtrahend)
4344 {
4345   /* since we don't have open ranges, we have to approximate */
4346   /* done like with ints */
4347   gdouble min1 = gst_value_get_double_range_min (minuend);
4348   gdouble max2 = gst_value_get_double_range_max (minuend);
4349   gdouble max1 = MIN (gst_value_get_double_range_min (subtrahend), max2);
4350   gdouble min2 = MAX (gst_value_get_double_range_max (subtrahend), min1);
4351   GValue v1 = { 0, };
4352   GValue v2 = { 0, };
4353   GValue *pv1, *pv2;            /* yeah, hungarian! */
4354
4355   if (min1 < max1 && min2 < max2) {
4356     pv1 = &v1;
4357     pv2 = &v2;
4358   } else if (min1 < max1) {
4359     pv1 = dest;
4360     pv2 = NULL;
4361   } else if (min2 < max2) {
4362     pv1 = NULL;
4363     pv2 = dest;
4364   } else {
4365     return FALSE;
4366   }
4367
4368   if (!dest)
4369     return TRUE;
4370
4371   if (min1 < max1) {
4372     g_value_init (pv1, GST_TYPE_DOUBLE_RANGE);
4373     gst_value_set_double_range (pv1, min1, max1);
4374   }
4375   if (min2 < max2) {
4376     g_value_init (pv2, GST_TYPE_DOUBLE_RANGE);
4377     gst_value_set_double_range (pv2, min2, max2);
4378   }
4379
4380   if (min1 < max1 && min2 < max2) {
4381     gst_value_list_concat_and_take_values (dest, pv1, pv2);
4382   }
4383   return TRUE;
4384 }
4385
4386 static gboolean
4387 gst_value_subtract_from_list (GValue * dest, const GValue * minuend,
4388     const GValue * subtrahend)
4389 {
4390   guint i, size;
4391   GValue subtraction = { 0, };
4392   gboolean ret = FALSE;
4393
4394   size = VALUE_LIST_SIZE (minuend);
4395   for (i = 0; i < size; i++) {
4396     const GValue *cur = VALUE_LIST_GET_VALUE (minuend, i);
4397
4398     /* quicker version when we can discard the result */
4399     if (!dest) {
4400       if (gst_value_subtract (NULL, cur, subtrahend)) {
4401         ret = TRUE;
4402         break;
4403       }
4404       continue;
4405     }
4406
4407     if (gst_value_subtract (&subtraction, cur, subtrahend)) {
4408       if (!ret) {
4409         gst_value_move (dest, &subtraction);
4410         ret = TRUE;
4411       } else if (G_VALUE_TYPE (dest) == GST_TYPE_LIST
4412           && G_VALUE_TYPE (&subtraction) != GST_TYPE_LIST) {
4413         _gst_value_list_append_and_take_value (dest, &subtraction);
4414       } else {
4415         GValue temp;
4416
4417         gst_value_move (&temp, dest);
4418         gst_value_list_concat_and_take_values (dest, &temp, &subtraction);
4419       }
4420     }
4421   }
4422   return ret;
4423 }
4424
4425 static gboolean
4426 gst_value_subtract_list (GValue * dest, const GValue * minuend,
4427     const GValue * subtrahend)
4428 {
4429   guint i, size;
4430   GValue data[2] = { {0,}, {0,} };
4431   GValue *subtraction = &data[0], *result = &data[1];
4432
4433   gst_value_init_and_copy (result, minuend);
4434   size = VALUE_LIST_SIZE (subtrahend);
4435   for (i = 0; i < size; i++) {
4436     const GValue *cur = VALUE_LIST_GET_VALUE (subtrahend, i);
4437
4438     if (gst_value_subtract (subtraction, result, cur)) {
4439       GValue *temp = result;
4440
4441       result = subtraction;
4442       subtraction = temp;
4443       g_value_unset (subtraction);
4444     } else {
4445       g_value_unset (result);
4446       return FALSE;
4447     }
4448   }
4449   if (dest) {
4450     gst_value_move (dest, result);
4451   } else {
4452     g_value_unset (result);
4453   }
4454   return TRUE;
4455 }
4456
4457 static gboolean
4458 gst_value_subtract_fraction_fraction_range (GValue * dest,
4459     const GValue * minuend, const GValue * subtrahend)
4460 {
4461   const GValue *min = gst_value_get_fraction_range_min (subtrahend);
4462   const GValue *max = gst_value_get_fraction_range_max (subtrahend);
4463   GstValueCompareFunc compare;
4464
4465   if ((compare = gst_value_get_compare_func (minuend))) {
4466     /* subtracting a range from an fraction only works if the fraction
4467      * is not in the range */
4468     if (gst_value_compare_with_func (minuend, min, compare) ==
4469         GST_VALUE_LESS_THAN ||
4470         gst_value_compare_with_func (minuend, max, compare) ==
4471         GST_VALUE_GREATER_THAN) {
4472       /* and the result is the value */
4473       if (dest)
4474         gst_value_init_and_copy (dest, minuend);
4475       return TRUE;
4476     }
4477   }
4478   return FALSE;
4479 }
4480
4481 static gboolean
4482 gst_value_subtract_fraction_range_fraction (GValue * dest,
4483     const GValue * minuend, const GValue * subtrahend)
4484 {
4485   /* since we don't have open ranges, we cannot create a hole in
4486    * a range. We return the original range */
4487   if (dest)
4488     gst_value_init_and_copy (dest, minuend);
4489   return TRUE;
4490 }
4491
4492 static gboolean
4493 gst_value_subtract_fraction_range_fraction_range (GValue * dest,
4494     const GValue * minuend, const GValue * subtrahend)
4495 {
4496   /* since we don't have open ranges, we have to approximate */
4497   /* done like with ints and doubles. Creates a list of 2 fraction ranges */
4498   const GValue *min1 = gst_value_get_fraction_range_min (minuend);
4499   const GValue *max2 = gst_value_get_fraction_range_max (minuend);
4500   const GValue *max1 = gst_value_get_fraction_range_min (subtrahend);
4501   const GValue *min2 = gst_value_get_fraction_range_max (subtrahend);
4502   gint cmp1, cmp2;
4503   GValue v1 = { 0, };
4504   GValue v2 = { 0, };
4505   GValue *pv1, *pv2;            /* yeah, hungarian! */
4506   GstValueCompareFunc compare;
4507
4508   g_return_val_if_fail (min1 != NULL && max1 != NULL, FALSE);
4509   g_return_val_if_fail (min2 != NULL && max2 != NULL, FALSE);
4510
4511   compare = gst_value_get_compare_func (min1);
4512   g_return_val_if_fail (compare, FALSE);
4513
4514   cmp1 = gst_value_compare_with_func (max2, max1, compare);
4515   g_return_val_if_fail (cmp1 != GST_VALUE_UNORDERED, FALSE);
4516   if (cmp1 == GST_VALUE_LESS_THAN)
4517     max1 = max2;
4518   cmp1 = gst_value_compare_with_func (min1, min2, compare);
4519   g_return_val_if_fail (cmp1 != GST_VALUE_UNORDERED, FALSE);
4520   if (cmp1 == GST_VALUE_GREATER_THAN)
4521     min2 = min1;
4522
4523   cmp1 = gst_value_compare_with_func (min1, max1, compare);
4524   cmp2 = gst_value_compare_with_func (min2, max2, compare);
4525
4526   if (cmp1 == GST_VALUE_LESS_THAN && cmp2 == GST_VALUE_LESS_THAN) {
4527     pv1 = &v1;
4528     pv2 = &v2;
4529   } else if (cmp1 == GST_VALUE_LESS_THAN) {
4530     pv1 = dest;
4531     pv2 = NULL;
4532   } else if (cmp2 == GST_VALUE_LESS_THAN) {
4533     pv1 = NULL;
4534     pv2 = dest;
4535   } else {
4536     return FALSE;
4537   }
4538
4539   if (!dest)
4540     return TRUE;
4541
4542   if (cmp1 == GST_VALUE_LESS_THAN) {
4543     g_value_init (pv1, GST_TYPE_FRACTION_RANGE);
4544     gst_value_set_fraction_range (pv1, min1, max1);
4545   }
4546   if (cmp2 == GST_VALUE_LESS_THAN) {
4547     g_value_init (pv2, GST_TYPE_FRACTION_RANGE);
4548     gst_value_set_fraction_range (pv2, min2, max2);
4549   }
4550
4551   if (cmp1 == GST_VALUE_LESS_THAN && cmp2 == GST_VALUE_LESS_THAN) {
4552     gst_value_list_concat_and_take_values (dest, pv1, pv2);
4553   }
4554   return TRUE;
4555 }
4556
4557
4558 /**************
4559  * comparison *
4560  **************/
4561
4562 /*
4563  * gst_value_get_compare_func:
4564  * @value1: a value to get the compare function for
4565  *
4566  * Determines the compare function to be used with values of the same type as
4567  * @value1. The function can be given to gst_value_compare_with_func().
4568  *
4569  * Returns: A #GstValueCompareFunc value
4570  */
4571 static GstValueCompareFunc
4572 gst_value_get_compare_func (const GValue * value1)
4573 {
4574   GstValueTable *table, *best = NULL;
4575   guint i;
4576   GType type1;
4577
4578   type1 = G_VALUE_TYPE (value1);
4579
4580   /* this is a fast check */
4581   best = gst_value_hash_lookup_type (type1);
4582
4583   /* slower checks */
4584   if (G_UNLIKELY (!best || !best->compare)) {
4585     guint len = gst_value_table->len;
4586
4587     best = NULL;
4588     for (i = 0; i < len; i++) {
4589       table = &g_array_index (gst_value_table, GstValueTable, i);
4590       if (table->compare && g_type_is_a (type1, table->type)) {
4591         if (!best || g_type_is_a (table->type, best->type))
4592           best = table;
4593       }
4594     }
4595   }
4596   if (G_LIKELY (best))
4597     return best->compare;
4598
4599   return NULL;
4600 }
4601
4602 static inline gboolean
4603 gst_value_can_compare_unchecked (const GValue * value1, const GValue * value2)
4604 {
4605   if (G_VALUE_TYPE (value1) != G_VALUE_TYPE (value2))
4606     return FALSE;
4607
4608   return gst_value_get_compare_func (value1) != NULL;
4609 }
4610
4611 /**
4612  * gst_value_can_compare:
4613  * @value1: a value to compare
4614  * @value2: another value to compare
4615  *
4616  * Determines if @value1 and @value2 can be compared.
4617  *
4618  * Returns: %TRUE if the values can be compared
4619  */
4620 gboolean
4621 gst_value_can_compare (const GValue * value1, const GValue * value2)
4622 {
4623   g_return_val_if_fail (G_IS_VALUE (value1), FALSE);
4624   g_return_val_if_fail (G_IS_VALUE (value2), FALSE);
4625
4626   return gst_value_can_compare_unchecked (value1, value2);
4627 }
4628
4629 static gboolean
4630 gst_value_list_equals_range (const GValue * list, const GValue * value)
4631 {
4632   const GValue *first;
4633   guint list_size, n;
4634
4635   g_assert (G_IS_VALUE (list));
4636   g_assert (G_IS_VALUE (value));
4637   g_assert (GST_VALUE_HOLDS_LIST (list));
4638
4639   /* TODO: compare against an empty list ? No type though... */
4640   list_size = VALUE_LIST_SIZE (list);
4641   if (list_size == 0)
4642     return FALSE;
4643
4644   /* compare the basic types - they have to match */
4645   first = VALUE_LIST_GET_VALUE (list, 0);
4646 #define CHECK_TYPES(type,prefix) \
4647   (prefix##_VALUE_HOLDS_##type(first) && GST_VALUE_HOLDS_##type##_RANGE (value))
4648   if (CHECK_TYPES (INT, G)) {
4649     const gint rmin = gst_value_get_int_range_min (value);
4650     const gint rmax = gst_value_get_int_range_max (value);
4651     const gint rstep = gst_value_get_int_range_step (value);
4652     if (rstep == 0)
4653       return FALSE;
4654     /* note: this will overflow for min 0 and max INT_MAX, but this
4655        would only be equal to a list of INT_MAX elements, which seems
4656        very unlikely */
4657     if (list_size != rmax / rstep - rmin / rstep + 1)
4658       return FALSE;
4659     for (n = 0; n < list_size; ++n) {
4660       gint v = g_value_get_int (VALUE_LIST_GET_VALUE (list, n));
4661       if (v < rmin || v > rmax || v % rstep) {
4662         return FALSE;
4663       }
4664     }
4665     return TRUE;
4666   } else if (CHECK_TYPES (INT64, G)) {
4667     const gint64 rmin = gst_value_get_int64_range_min (value);
4668     const gint64 rmax = gst_value_get_int64_range_max (value);
4669     const gint64 rstep = gst_value_get_int64_range_step (value);
4670     GST_DEBUG ("List/range of int64s");
4671     if (rstep == 0)
4672       return FALSE;
4673     if (list_size != rmax / rstep - rmin / rstep + 1)
4674       return FALSE;
4675     for (n = 0; n < list_size; ++n) {
4676       gint64 v = g_value_get_int64 (VALUE_LIST_GET_VALUE (list, n));
4677       if (v < rmin || v > rmax || v % rstep)
4678         return FALSE;
4679     }
4680     return TRUE;
4681   }
4682 #undef CHECK_TYPES
4683
4684   /* other combinations don't make sense for equality */
4685   return FALSE;
4686 }
4687
4688 /* "Pure" variant of gst_value_compare which is guaranteed to
4689  * not have list arguments and therefore does basic comparisions
4690  */
4691 static inline gint
4692 _gst_value_compare_nolist (const GValue * value1, const GValue * value2)
4693 {
4694   GstValueCompareFunc compare;
4695
4696   if (G_VALUE_TYPE (value1) != G_VALUE_TYPE (value2))
4697     return GST_VALUE_UNORDERED;
4698
4699   compare = gst_value_get_compare_func (value1);
4700   if (compare) {
4701     return compare (value1, value2);
4702   }
4703
4704   g_critical ("unable to compare values of type %s\n",
4705       g_type_name (G_VALUE_TYPE (value1)));
4706   return GST_VALUE_UNORDERED;
4707 }
4708
4709 /**
4710  * gst_value_compare:
4711  * @value1: a value to compare
4712  * @value2: another value to compare
4713  *
4714  * Compares @value1 and @value2.  If @value1 and @value2 cannot be
4715  * compared, the function returns GST_VALUE_UNORDERED.  Otherwise,
4716  * if @value1 is greater than @value2, GST_VALUE_GREATER_THAN is returned.
4717  * If @value1 is less than @value2, GST_VALUE_LESS_THAN is returned.
4718  * If the values are equal, GST_VALUE_EQUAL is returned.
4719  *
4720  * Returns: comparison result
4721  */
4722 gint
4723 gst_value_compare (const GValue * value1, const GValue * value2)
4724 {
4725   gboolean value1_is_list;
4726   gboolean value2_is_list;
4727
4728   g_return_val_if_fail (G_IS_VALUE (value1), GST_VALUE_LESS_THAN);
4729   g_return_val_if_fail (G_IS_VALUE (value2), GST_VALUE_GREATER_THAN);
4730
4731   value1_is_list = G_VALUE_TYPE (value1) == GST_TYPE_LIST;
4732   value2_is_list = G_VALUE_TYPE (value2) == GST_TYPE_LIST;
4733
4734   /* Special cases: lists and scalar values ("{ 1 }" and "1" are equal),
4735      as well as lists and ranges ("{ 1, 2 }" and "[ 1, 2 ]" are equal) */
4736   if (value1_is_list && !value2_is_list) {
4737     gint i, n, ret;
4738
4739     if (gst_value_list_equals_range (value1, value2)) {
4740       return GST_VALUE_EQUAL;
4741     }
4742
4743     n = gst_value_list_get_size (value1);
4744     if (n == 0)
4745       return GST_VALUE_UNORDERED;
4746
4747     for (i = 0; i < n; i++) {
4748       const GValue *elt;
4749
4750       elt = gst_value_list_get_value (value1, i);
4751       ret = gst_value_compare (elt, value2);
4752       if (ret != GST_VALUE_EQUAL && n == 1)
4753         return ret;
4754       else if (ret != GST_VALUE_EQUAL)
4755         return GST_VALUE_UNORDERED;
4756     }
4757
4758     return GST_VALUE_EQUAL;
4759   } else if (value2_is_list && !value1_is_list) {
4760     gint i, n, ret;
4761
4762     if (gst_value_list_equals_range (value2, value1)) {
4763       return GST_VALUE_EQUAL;
4764     }
4765
4766     n = gst_value_list_get_size (value2);
4767     if (n == 0)
4768       return GST_VALUE_UNORDERED;
4769
4770     for (i = 0; i < n; i++) {
4771       const GValue *elt;
4772
4773       elt = gst_value_list_get_value (value2, i);
4774       ret = gst_value_compare (elt, value1);
4775       if (ret != GST_VALUE_EQUAL && n == 1)
4776         return ret;
4777       else if (ret != GST_VALUE_EQUAL)
4778         return GST_VALUE_UNORDERED;
4779     }
4780
4781     return GST_VALUE_EQUAL;
4782   }
4783
4784   /* And now handle the generic case */
4785   return _gst_value_compare_nolist (value1, value2);
4786 }
4787
4788 /*
4789  * gst_value_compare_with_func:
4790  * @value1: a value to compare
4791  * @value2: another value to compare
4792  * @compare: compare function
4793  *
4794  * Compares @value1 and @value2 using the @compare function. Works like
4795  * gst_value_compare() but allows to save time determining the compare function
4796  * a multiple times.
4797  *
4798  * Returns: comparison result
4799  */
4800 static gint
4801 gst_value_compare_with_func (const GValue * value1, const GValue * value2,
4802     GstValueCompareFunc compare)
4803 {
4804   g_assert (compare);
4805
4806   if (G_VALUE_TYPE (value1) != G_VALUE_TYPE (value2))
4807     return GST_VALUE_UNORDERED;
4808
4809   return compare (value1, value2);
4810 }
4811
4812 /* union */
4813
4814 /**
4815  * gst_value_can_union:
4816  * @value1: a value to union
4817  * @value2: another value to union
4818  *
4819  * Determines if @value1 and @value2 can be non-trivially unioned.
4820  * Any two values can be trivially unioned by adding both of them
4821  * to a GstValueList.  However, certain types have the possibility
4822  * to be unioned in a simpler way.  For example, an integer range
4823  * and an integer can be unioned if the integer is a subset of the
4824  * integer range.  If there is the possibility that two values can
4825  * be unioned, this function returns %TRUE.
4826  *
4827  * Returns: %TRUE if there is a function allowing the two values to
4828  * be unioned.
4829  */
4830 gboolean
4831 gst_value_can_union (const GValue * value1, const GValue * value2)
4832 {
4833   GstValueUnionInfo *union_info;
4834   guint i, len;
4835
4836   g_return_val_if_fail (G_IS_VALUE (value1), FALSE);
4837   g_return_val_if_fail (G_IS_VALUE (value2), FALSE);
4838
4839   len = gst_value_union_funcs->len;
4840
4841   for (i = 0; i < len; i++) {
4842     union_info = &g_array_index (gst_value_union_funcs, GstValueUnionInfo, i);
4843     if (union_info->type1 == G_VALUE_TYPE (value1) &&
4844         union_info->type2 == G_VALUE_TYPE (value2))
4845       return TRUE;
4846     if (union_info->type1 == G_VALUE_TYPE (value2) &&
4847         union_info->type2 == G_VALUE_TYPE (value1))
4848       return TRUE;
4849   }
4850
4851   return FALSE;
4852 }
4853
4854 /**
4855  * gst_value_union:
4856  * @dest: (out caller-allocates): the destination value
4857  * @value1: a value to union
4858  * @value2: another value to union
4859  *
4860  * Creates a GValue corresponding to the union of @value1 and @value2.
4861  *
4862  * Returns: %TRUE if the union succeeded.
4863  */
4864 gboolean
4865 gst_value_union (GValue * dest, const GValue * value1, const GValue * value2)
4866 {
4867   const GstValueUnionInfo *union_info;
4868   guint i, len;
4869   GType type1, type2;
4870
4871   g_return_val_if_fail (dest != NULL, FALSE);
4872   g_return_val_if_fail (G_IS_VALUE (value1), FALSE);
4873   g_return_val_if_fail (G_IS_VALUE (value2), FALSE);
4874   g_return_val_if_fail (gst_value_list_or_array_are_compatible (value1, value2),
4875       FALSE);
4876
4877   len = gst_value_union_funcs->len;
4878   type1 = G_VALUE_TYPE (value1);
4879   type2 = G_VALUE_TYPE (value2);
4880
4881   for (i = 0; i < len; i++) {
4882     union_info = &g_array_index (gst_value_union_funcs, GstValueUnionInfo, i);
4883     if (union_info->type1 == type1 && union_info->type2 == type2) {
4884       return union_info->func (dest, value1, value2);
4885     }
4886     if (union_info->type1 == type2 && union_info->type2 == type1) {
4887       return union_info->func (dest, value2, value1);
4888     }
4889   }
4890
4891   gst_value_list_concat (dest, value1, value2);
4892   return TRUE;
4893 }
4894
4895 /* gst_value_register_union_func: (skip)
4896  * @type1: a type to union
4897  * @type2: another type to union
4898  * @func: a function that implements creating a union between the two types
4899  *
4900  * Registers a union function that can create a union between #GValue items
4901  * of the type @type1 and @type2.
4902  *
4903  * Union functions should be registered at startup before any pipelines are
4904  * started, as gst_value_register_union_func() is not thread-safe and cannot
4905  * be used at the same time as gst_value_union() or gst_value_can_union().
4906  */
4907 static void
4908 gst_value_register_union_func (GType type1, GType type2, GstValueUnionFunc func)
4909 {
4910   GstValueUnionInfo union_info;
4911
4912   union_info.type1 = type1;
4913   union_info.type2 = type2;
4914   union_info.func = func;
4915
4916   g_array_append_val (gst_value_union_funcs, union_info);
4917 }
4918
4919 /* intersection */
4920
4921 /**
4922  * gst_value_can_intersect:
4923  * @value1: a value to intersect
4924  * @value2: another value to intersect
4925  *
4926  * Determines if intersecting two values will produce a valid result.
4927  * Two values will produce a valid intersection if they have the same
4928  * type.
4929  *
4930  * Returns: %TRUE if the values can intersect
4931  */
4932 gboolean
4933 gst_value_can_intersect (const GValue * value1, const GValue * value2)
4934 {
4935   GstValueIntersectInfo *intersect_info;
4936   guint i, len;
4937   GType type1, type2;
4938
4939   g_return_val_if_fail (G_IS_VALUE (value1), FALSE);
4940   g_return_val_if_fail (G_IS_VALUE (value2), FALSE);
4941
4942   type1 = G_VALUE_TYPE (value1);
4943   type2 = G_VALUE_TYPE (value2);
4944
4945   /* practically all GstValue types have a compare function (_can_compare=TRUE)
4946    * GstStructure and GstCaps have not, but are intersectable */
4947   if (type1 == type2)
4948     return TRUE;
4949
4950   /* special cases */
4951   if (type1 == GST_TYPE_LIST || type2 == GST_TYPE_LIST)
4952     return TRUE;
4953
4954   if (G_UNLIKELY (GST_VALUE_HOLDS_FLAG_SET (value1) &&
4955           GST_VALUE_HOLDS_FLAG_SET (value2))) {
4956     GType type1, type2, flagset_type;
4957
4958     type1 = G_VALUE_TYPE (value1);
4959     type2 = G_VALUE_TYPE (value2);
4960     flagset_type = GST_TYPE_FLAG_SET;
4961
4962     /* Allow intersection with the generic FlagSet type, on one
4963      * side, but not 2 different subtypes - that makes no sense */
4964     if (type1 == type2 || type1 == flagset_type || type2 == flagset_type)
4965       return TRUE;
4966   }
4967
4968   /* check registered intersect functions */
4969   len = gst_value_intersect_funcs->len;
4970   for (i = 0; i < len; i++) {
4971     intersect_info = &g_array_index (gst_value_intersect_funcs,
4972         GstValueIntersectInfo, i);
4973     if ((intersect_info->type1 == type1 && intersect_info->type2 == type2) ||
4974         (intersect_info->type1 == type2 && intersect_info->type2 == type1))
4975       return TRUE;
4976   }
4977
4978   return gst_value_can_compare_unchecked (value1, value2);
4979 }
4980
4981 /**
4982  * gst_value_intersect:
4983  * @dest: (out caller-allocates) (transfer full) (allow-none):
4984  *   a uninitialized #GValue that will hold the calculated
4985  *   intersection value. May be %NULL if the resulting set if not
4986  *   needed.
4987  * @value1: a value to intersect
4988  * @value2: another value to intersect
4989  *
4990  * Calculates the intersection of two values.  If the values have
4991  * a non-empty intersection, the value representing the intersection
4992  * is placed in @dest, unless %NULL.  If the intersection is non-empty,
4993  * @dest is not modified.
4994  *
4995  * Returns: %TRUE if the intersection is non-empty
4996  */
4997 gboolean
4998 gst_value_intersect (GValue * dest, const GValue * value1,
4999     const GValue * value2)
5000 {
5001   GstValueIntersectInfo *intersect_info;
5002   guint i, len;
5003   GType type1, type2;
5004
5005   g_return_val_if_fail (G_IS_VALUE (value1), FALSE);
5006   g_return_val_if_fail (G_IS_VALUE (value2), FALSE);
5007
5008   type1 = G_VALUE_TYPE (value1);
5009   type2 = G_VALUE_TYPE (value2);
5010
5011   /* special cases first */
5012   if (type1 == GST_TYPE_LIST)
5013     return gst_value_intersect_list (dest, value1, value2);
5014   if (type2 == GST_TYPE_LIST)
5015     return gst_value_intersect_list (dest, value2, value1);
5016
5017   if (_gst_value_compare_nolist (value1, value2) == GST_VALUE_EQUAL) {
5018     if (dest)
5019       gst_value_init_and_copy (dest, value1);
5020     return TRUE;
5021   }
5022
5023   len = gst_value_intersect_funcs->len;
5024   for (i = 0; i < len; i++) {
5025     intersect_info = &g_array_index (gst_value_intersect_funcs,
5026         GstValueIntersectInfo, i);
5027     if (intersect_info->type1 == type1 && intersect_info->type2 == type2) {
5028       return intersect_info->func (dest, value1, value2);
5029     }
5030     if (intersect_info->type1 == type2 && intersect_info->type2 == type1) {
5031       return intersect_info->func (dest, value2, value1);
5032     }
5033   }
5034
5035   /* Failed to find a direct intersection, check if these are
5036    * GstFlagSet sub-types. */
5037   if (G_UNLIKELY (GST_VALUE_HOLDS_FLAG_SET (value1) &&
5038           GST_VALUE_HOLDS_FLAG_SET (value2))) {
5039     return gst_value_intersect_flagset_flagset (dest, value1, value2);
5040   }
5041
5042   return FALSE;
5043 }
5044
5045
5046
5047 /* gst_value_register_intersect_func: (skip)
5048  * @type1: the first type to intersect
5049  * @type2: the second type to intersect
5050  * @func: the intersection function
5051  *
5052  * Registers a function that is called to calculate the intersection
5053  * of the values having the types @type1 and @type2.
5054  *
5055  * Intersect functions should be registered at startup before any pipelines are
5056  * started, as gst_value_register_intersect_func() is not thread-safe and
5057  * cannot be used at the same time as gst_value_intersect() or
5058  * gst_value_can_intersect().
5059  */
5060 static void
5061 gst_value_register_intersect_func (GType type1, GType type2,
5062     GstValueIntersectFunc func)
5063 {
5064   GstValueIntersectInfo intersect_info;
5065
5066   intersect_info.type1 = type1;
5067   intersect_info.type2 = type2;
5068   intersect_info.func = func;
5069
5070   g_array_append_val (gst_value_intersect_funcs, intersect_info);
5071 }
5072
5073
5074 /* subtraction */
5075
5076 /**
5077  * gst_value_subtract:
5078  * @dest: (out caller-allocates) (allow-none): the destination value
5079  *     for the result if the subtraction is not empty. May be %NULL,
5080  *     in which case the resulting set will not be computed, which can
5081  *     give a fair speedup.
5082  * @minuend: the value to subtract from
5083  * @subtrahend: the value to subtract
5084  *
5085  * Subtracts @subtrahend from @minuend and stores the result in @dest.
5086  * Note that this means subtraction as in sets, not as in mathematics.
5087  *
5088  * Returns: %TRUE if the subtraction is not empty
5089  */
5090 gboolean
5091 gst_value_subtract (GValue * dest, const GValue * minuend,
5092     const GValue * subtrahend)
5093 {
5094   GstValueSubtractInfo *info;
5095   guint i, len;
5096   GType mtype, stype;
5097
5098   g_return_val_if_fail (G_IS_VALUE (minuend), FALSE);
5099   g_return_val_if_fail (G_IS_VALUE (subtrahend), FALSE);
5100
5101   mtype = G_VALUE_TYPE (minuend);
5102   stype = G_VALUE_TYPE (subtrahend);
5103
5104   /* special cases first */
5105   if (mtype == GST_TYPE_LIST)
5106     return gst_value_subtract_from_list (dest, minuend, subtrahend);
5107   if (stype == GST_TYPE_LIST)
5108     return gst_value_subtract_list (dest, minuend, subtrahend);
5109
5110   len = gst_value_subtract_funcs->len;
5111   for (i = 0; i < len; i++) {
5112     info = &g_array_index (gst_value_subtract_funcs, GstValueSubtractInfo, i);
5113     if (info->minuend == mtype && info->subtrahend == stype) {
5114       return info->func (dest, minuend, subtrahend);
5115     }
5116   }
5117
5118   if (_gst_value_compare_nolist (minuend, subtrahend) != GST_VALUE_EQUAL) {
5119     if (dest)
5120       gst_value_init_and_copy (dest, minuend);
5121     return TRUE;
5122   }
5123
5124   return FALSE;
5125 }
5126
5127 #if 0
5128 gboolean
5129 gst_value_subtract (GValue * dest, const GValue * minuend,
5130     const GValue * subtrahend)
5131 {
5132   gboolean ret = gst_value_subtract2 (dest, minuend, subtrahend);
5133
5134   g_printerr ("\"%s\"  -  \"%s\"  =  \"%s\"\n", gst_value_serialize (minuend),
5135       gst_value_serialize (subtrahend),
5136       ret ? gst_value_serialize (dest) : "---");
5137   return ret;
5138 }
5139 #endif
5140
5141 /**
5142  * gst_value_can_subtract:
5143  * @minuend: the value to subtract from
5144  * @subtrahend: the value to subtract
5145  *
5146  * Checks if it's possible to subtract @subtrahend from @minuend.
5147  *
5148  * Returns: %TRUE if a subtraction is possible
5149  */
5150 gboolean
5151 gst_value_can_subtract (const GValue * minuend, const GValue * subtrahend)
5152 {
5153   GstValueSubtractInfo *info;
5154   guint i, len;
5155   GType mtype, stype;
5156
5157   g_return_val_if_fail (G_IS_VALUE (minuend), FALSE);
5158   g_return_val_if_fail (G_IS_VALUE (subtrahend), FALSE);
5159
5160   mtype = G_VALUE_TYPE (minuend);
5161   stype = G_VALUE_TYPE (subtrahend);
5162
5163   /* special cases */
5164   if (mtype == GST_TYPE_LIST || stype == GST_TYPE_LIST)
5165     return TRUE;
5166
5167   len = gst_value_subtract_funcs->len;
5168   for (i = 0; i < len; i++) {
5169     info = &g_array_index (gst_value_subtract_funcs, GstValueSubtractInfo, i);
5170     if (info->minuend == mtype && info->subtrahend == stype)
5171       return TRUE;
5172   }
5173
5174   return gst_value_can_compare_unchecked (minuend, subtrahend);
5175 }
5176
5177 /* gst_value_register_subtract_func: (skip)
5178  * @minuend_type: type of the minuend
5179  * @subtrahend_type: type of the subtrahend
5180  * @func: function to use
5181  *
5182  * Registers @func as a function capable of subtracting the values of
5183  * @subtrahend_type from values of @minuend_type.
5184  *
5185  * Subtract functions should be registered at startup before any pipelines are
5186  * started, as gst_value_register_subtract_func() is not thread-safe and
5187  * cannot be used at the same time as gst_value_subtract().
5188  */
5189 static void
5190 gst_value_register_subtract_func (GType minuend_type, GType subtrahend_type,
5191     GstValueSubtractFunc func)
5192 {
5193   GstValueSubtractInfo info;
5194
5195   g_return_if_fail (!gst_type_is_fixed (minuend_type)
5196       || !gst_type_is_fixed (subtrahend_type));
5197
5198   info.minuend = minuend_type;
5199   info.subtrahend = subtrahend_type;
5200   info.func = func;
5201
5202   g_array_append_val (gst_value_subtract_funcs, info);
5203 }
5204
5205 /**
5206  * gst_value_register:
5207  * @table: structure containing functions to register
5208  *
5209  * Registers functions to perform calculations on #GValue items of a given
5210  * type. Each type can only be added once.
5211  */
5212 void
5213 gst_value_register (const GstValueTable * table)
5214 {
5215   GstValueTable *found;
5216
5217   g_return_if_fail (table != NULL);
5218
5219   g_array_append_val (gst_value_table, *table);
5220
5221   found = gst_value_hash_lookup_type (table->type);
5222   if (found)
5223     g_warning ("adding type %s multiple times", g_type_name (table->type));
5224
5225   /* FIXME: we're not really doing the const justice, we assume the table is
5226    * static */
5227   gst_value_hash_add_type (table->type, table);
5228 }
5229
5230 /**
5231  * gst_value_init_and_copy:
5232  * @dest: (out caller-allocates): the target value
5233  * @src: the source value
5234  *
5235  * Initialises the target value to be of the same type as source and then copies
5236  * the contents from source to target.
5237  */
5238 void
5239 gst_value_init_and_copy (GValue * dest, const GValue * src)
5240 {
5241   g_return_if_fail (G_IS_VALUE (src));
5242   g_return_if_fail (dest != NULL);
5243
5244   g_value_init (dest, G_VALUE_TYPE (src));
5245   g_value_copy (src, dest);
5246 }
5247
5248 /* move src into dest and clear src */
5249 static void
5250 gst_value_move (GValue * dest, GValue * src)
5251 {
5252   g_assert (G_IS_VALUE (src));
5253   g_assert (dest != NULL);
5254
5255   *dest = *src;
5256   memset (src, 0, sizeof (GValue));
5257 }
5258
5259 /**
5260  * gst_value_serialize:
5261  * @value: a #GValue to serialize
5262  *
5263  * tries to transform the given @value into a string representation that allows
5264  * getting back this string later on using gst_value_deserialize().
5265  *
5266  * Free-function: g_free
5267  *
5268  * Returns: (transfer full) (nullable): the serialization for @value
5269  * or %NULL if none exists
5270  */
5271 gchar *
5272 gst_value_serialize (const GValue * value)
5273 {
5274   guint i, len;
5275   GValue s_val = { 0 };
5276   GstValueTable *table, *best;
5277   gchar *s;
5278   GType type;
5279
5280   g_return_val_if_fail (G_IS_VALUE (value), NULL);
5281
5282   type = G_VALUE_TYPE (value);
5283
5284   best = gst_value_hash_lookup_type (type);
5285
5286   if (G_UNLIKELY (!best || !best->serialize)) {
5287     len = gst_value_table->len;
5288     best = NULL;
5289     for (i = 0; i < len; i++) {
5290       table = &g_array_index (gst_value_table, GstValueTable, i);
5291       if (table->serialize && g_type_is_a (type, table->type)) {
5292         if (!best || g_type_is_a (table->type, best->type))
5293           best = table;
5294       }
5295     }
5296   }
5297   if (G_LIKELY (best))
5298     return best->serialize (value);
5299
5300   g_value_init (&s_val, G_TYPE_STRING);
5301   if (g_value_transform (value, &s_val)) {
5302     s = gst_string_wrap (g_value_get_string (&s_val));
5303   } else {
5304     s = NULL;
5305   }
5306   g_value_unset (&s_val);
5307
5308   return s;
5309 }
5310
5311 /**
5312  * gst_value_deserialize:
5313  * @dest: (out caller-allocates): #GValue to fill with contents of
5314  *     deserialization
5315  * @src: string to deserialize
5316  *
5317  * Tries to deserialize a string into the type specified by the given GValue.
5318  * If the operation succeeds, %TRUE is returned, %FALSE otherwise.
5319  *
5320  * Returns: %TRUE on success
5321  */
5322 gboolean
5323 gst_value_deserialize (GValue * dest, const gchar * src)
5324 {
5325   GstValueTable *table, *best;
5326   guint i, len;
5327   GType type;
5328
5329   g_return_val_if_fail (src != NULL, FALSE);
5330   g_return_val_if_fail (G_IS_VALUE (dest), FALSE);
5331
5332   type = G_VALUE_TYPE (dest);
5333
5334   best = gst_value_hash_lookup_type (type);
5335   if (G_UNLIKELY (!best || !best->deserialize)) {
5336     len = gst_value_table->len;
5337     best = NULL;
5338     for (i = 0; i < len; i++) {
5339       table = &g_array_index (gst_value_table, GstValueTable, i);
5340       if (table->deserialize && g_type_is_a (type, table->type)) {
5341         if (!best || g_type_is_a (table->type, best->type))
5342           best = table;
5343       }
5344     }
5345   }
5346   if (G_LIKELY (best))
5347     return best->deserialize (dest, src);
5348
5349   return FALSE;
5350 }
5351
5352 /**
5353  * gst_value_is_fixed:
5354  * @value: the #GValue to check
5355  *
5356  * Tests if the given GValue, if available in a GstStructure (or any other
5357  * container) contains a "fixed" (which means: one value) or an "unfixed"
5358  * (which means: multiple possible values, such as data lists or data
5359  * ranges) value.
5360  *
5361  * Returns: true if the value is "fixed".
5362  */
5363
5364 gboolean
5365 gst_value_is_fixed (const GValue * value)
5366 {
5367   GType type;
5368
5369   g_return_val_if_fail (G_IS_VALUE (value), FALSE);
5370
5371   type = G_VALUE_TYPE (value);
5372
5373   /* the most common types are just basic plain glib types */
5374   if (type <= G_TYPE_MAKE_FUNDAMENTAL (G_TYPE_RESERVED_GLIB_LAST)) {
5375     return TRUE;
5376   }
5377
5378   if (type == GST_TYPE_ARRAY) {
5379     gint size, n;
5380     const GValue *kid;
5381
5382     /* check recursively */
5383     size = gst_value_array_get_size (value);
5384     for (n = 0; n < size; n++) {
5385       kid = gst_value_array_get_value (value, n);
5386       if (!gst_value_is_fixed (kid))
5387         return FALSE;
5388     }
5389     return TRUE;
5390   } else if (GST_VALUE_HOLDS_FLAG_SET (value)) {
5391     /* Flagsets are only fixed if there are no 'don't care' bits */
5392     return (gst_value_get_flagset_mask (value) == GST_FLAG_SET_MASK_EXACT);
5393   }
5394   return gst_type_is_fixed (type);
5395 }
5396
5397 /**
5398  * gst_value_fixate:
5399  * @dest: the #GValue destination
5400  * @src: the #GValue to fixate
5401  *
5402  * Fixate @src into a new value @dest.
5403  * For ranges, the first element is taken. For lists and arrays, the
5404  * first item is fixated and returned.
5405  * If @src is already fixed, this function returns %FALSE.
5406  *
5407  * Returns: %TRUE if @dest contains a fixated version of @src.
5408  */
5409 gboolean
5410 gst_value_fixate (GValue * dest, const GValue * src)
5411 {
5412   g_return_val_if_fail (G_IS_VALUE (src), FALSE);
5413   g_return_val_if_fail (dest != NULL, FALSE);
5414
5415   if (G_VALUE_TYPE (src) == GST_TYPE_INT_RANGE) {
5416     g_value_init (dest, G_TYPE_INT);
5417     g_value_set_int (dest, gst_value_get_int_range_min (src));
5418   } else if (G_VALUE_TYPE (src) == GST_TYPE_DOUBLE_RANGE) {
5419     g_value_init (dest, G_TYPE_DOUBLE);
5420     g_value_set_double (dest, gst_value_get_double_range_min (src));
5421   } else if (G_VALUE_TYPE (src) == GST_TYPE_FRACTION_RANGE) {
5422     gst_value_init_and_copy (dest, gst_value_get_fraction_range_min (src));
5423   } else if (G_VALUE_TYPE (src) == GST_TYPE_LIST) {
5424     GValue temp = { 0 };
5425
5426     /* list could be empty */
5427     if (gst_value_list_get_size (src) <= 0)
5428       return FALSE;
5429
5430     gst_value_init_and_copy (&temp, gst_value_list_get_value (src, 0));
5431
5432     if (!gst_value_fixate (dest, &temp)) {
5433       gst_value_move (dest, &temp);
5434     } else {
5435       g_value_unset (&temp);
5436     }
5437   } else if (G_VALUE_TYPE (src) == GST_TYPE_ARRAY) {
5438     gboolean res = FALSE;
5439     guint n, len;
5440
5441     len = gst_value_array_get_size (src);
5442     g_value_init (dest, GST_TYPE_ARRAY);
5443     for (n = 0; n < len; n++) {
5444       GValue kid = { 0 };
5445       const GValue *orig_kid = gst_value_array_get_value (src, n);
5446
5447       if (!gst_value_fixate (&kid, orig_kid))
5448         gst_value_init_and_copy (&kid, orig_kid);
5449       else
5450         res = TRUE;
5451       _gst_value_array_append_and_take_value (dest, &kid);
5452     }
5453
5454     if (!res)
5455       g_value_unset (dest);
5456
5457     return res;
5458   } else if (GST_VALUE_HOLDS_FLAG_SET (src)) {
5459     guint flags;
5460
5461     if (gst_value_get_flagset_mask (src) == GST_FLAG_SET_MASK_EXACT)
5462       return FALSE;             /* Already fixed */
5463
5464     flags = gst_value_get_flagset_flags (src);
5465     g_value_init (dest, G_VALUE_TYPE (src));
5466     gst_value_set_flagset (dest, flags, GST_FLAG_SET_MASK_EXACT);
5467     return TRUE;
5468   } else {
5469     return FALSE;
5470   }
5471   return TRUE;
5472 }
5473
5474
5475 /************
5476  * fraction *
5477  ************/
5478
5479 /* helper functions */
5480 static void
5481 gst_value_init_fraction (GValue * value)
5482 {
5483   value->data[0].v_int = 0;
5484   value->data[1].v_int = 1;
5485 }
5486
5487 static void
5488 gst_value_copy_fraction (const GValue * src_value, GValue * dest_value)
5489 {
5490   dest_value->data[0].v_int = src_value->data[0].v_int;
5491   dest_value->data[1].v_int = src_value->data[1].v_int;
5492 }
5493
5494 static gchar *
5495 gst_value_collect_fraction (GValue * value, guint n_collect_values,
5496     GTypeCValue * collect_values, guint collect_flags)
5497 {
5498   if (n_collect_values != 2)
5499     return g_strdup_printf ("not enough value locations for `%s' passed",
5500         G_VALUE_TYPE_NAME (value));
5501   if (collect_values[1].v_int == 0)
5502     return g_strdup_printf ("passed '0' as denominator for `%s'",
5503         G_VALUE_TYPE_NAME (value));
5504   if (collect_values[0].v_int < -G_MAXINT)
5505     return
5506         g_strdup_printf
5507         ("passed value smaller than -G_MAXINT as numerator for `%s'",
5508         G_VALUE_TYPE_NAME (value));
5509   if (collect_values[1].v_int < -G_MAXINT)
5510     return
5511         g_strdup_printf
5512         ("passed value smaller than -G_MAXINT as denominator for `%s'",
5513         G_VALUE_TYPE_NAME (value));
5514
5515   gst_value_set_fraction (value,
5516       collect_values[0].v_int, collect_values[1].v_int);
5517
5518   return NULL;
5519 }
5520
5521 static gchar *
5522 gst_value_lcopy_fraction (const GValue * value, guint n_collect_values,
5523     GTypeCValue * collect_values, guint collect_flags)
5524 {
5525   gint *numerator = collect_values[0].v_pointer;
5526   gint *denominator = collect_values[1].v_pointer;
5527
5528   if (!numerator)
5529     return g_strdup_printf ("numerator for `%s' passed as NULL",
5530         G_VALUE_TYPE_NAME (value));
5531   if (!denominator)
5532     return g_strdup_printf ("denominator for `%s' passed as NULL",
5533         G_VALUE_TYPE_NAME (value));
5534
5535   *numerator = value->data[0].v_int;
5536   *denominator = value->data[1].v_int;
5537
5538   return NULL;
5539 }
5540
5541 /**
5542  * gst_value_set_fraction:
5543  * @value: a GValue initialized to #GST_TYPE_FRACTION
5544  * @numerator: the numerator of the fraction
5545  * @denominator: the denominator of the fraction
5546  *
5547  * Sets @value to the fraction specified by @numerator over @denominator.
5548  * The fraction gets reduced to the smallest numerator and denominator,
5549  * and if necessary the sign is moved to the numerator.
5550  */
5551 void
5552 gst_value_set_fraction (GValue * value, gint numerator, gint denominator)
5553 {
5554   gint gcd = 0;
5555
5556   g_return_if_fail (GST_VALUE_HOLDS_FRACTION (value));
5557   g_return_if_fail (denominator != 0);
5558   g_return_if_fail (denominator >= -G_MAXINT);
5559   g_return_if_fail (numerator >= -G_MAXINT);
5560
5561   /* normalize sign */
5562   if (denominator < 0) {
5563     numerator = -numerator;
5564     denominator = -denominator;
5565   }
5566
5567   /* check for reduction */
5568   gcd = gst_util_greatest_common_divisor (numerator, denominator);
5569   if (gcd) {
5570     numerator /= gcd;
5571     denominator /= gcd;
5572   }
5573
5574   g_assert (denominator > 0);
5575
5576   value->data[0].v_int = numerator;
5577   value->data[1].v_int = denominator;
5578 }
5579
5580 /**
5581  * gst_value_get_fraction_numerator:
5582  * @value: a GValue initialized to #GST_TYPE_FRACTION
5583  *
5584  * Gets the numerator of the fraction specified by @value.
5585  *
5586  * Returns: the numerator of the fraction.
5587  */
5588 gint
5589 gst_value_get_fraction_numerator (const GValue * value)
5590 {
5591   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (value), 0);
5592
5593   return value->data[0].v_int;
5594 }
5595
5596 /**
5597  * gst_value_get_fraction_denominator:
5598  * @value: a GValue initialized to #GST_TYPE_FRACTION
5599  *
5600  * Gets the denominator of the fraction specified by @value.
5601  *
5602  * Returns: the denominator of the fraction.
5603  */
5604 gint
5605 gst_value_get_fraction_denominator (const GValue * value)
5606 {
5607   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (value), 1);
5608
5609   return value->data[1].v_int;
5610 }
5611
5612 /**
5613  * gst_value_fraction_multiply:
5614  * @product: a GValue initialized to #GST_TYPE_FRACTION
5615  * @factor1: a GValue initialized to #GST_TYPE_FRACTION
5616  * @factor2: a GValue initialized to #GST_TYPE_FRACTION
5617  *
5618  * Multiplies the two #GValue items containing a #GST_TYPE_FRACTION and sets
5619  * @product to the product of the two fractions.
5620  *
5621  * Returns: %FALSE in case of an error (like integer overflow), %TRUE otherwise.
5622  */
5623 gboolean
5624 gst_value_fraction_multiply (GValue * product, const GValue * factor1,
5625     const GValue * factor2)
5626 {
5627   gint n1, n2, d1, d2;
5628   gint res_n, res_d;
5629
5630   g_return_val_if_fail (product != NULL, FALSE);
5631   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (factor1), FALSE);
5632   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (factor2), FALSE);
5633
5634   n1 = factor1->data[0].v_int;
5635   n2 = factor2->data[0].v_int;
5636   d1 = factor1->data[1].v_int;
5637   d2 = factor2->data[1].v_int;
5638
5639   if (!gst_util_fraction_multiply (n1, d1, n2, d2, &res_n, &res_d))
5640     return FALSE;
5641
5642   gst_value_set_fraction (product, res_n, res_d);
5643
5644   return TRUE;
5645 }
5646
5647 /**
5648  * gst_value_fraction_subtract:
5649  * @dest: a GValue initialized to #GST_TYPE_FRACTION
5650  * @minuend: a GValue initialized to #GST_TYPE_FRACTION
5651  * @subtrahend: a GValue initialized to #GST_TYPE_FRACTION
5652  *
5653  * Subtracts the @subtrahend from the @minuend and sets @dest to the result.
5654  *
5655  * Returns: %FALSE in case of an error (like integer overflow), %TRUE otherwise.
5656  */
5657 gboolean
5658 gst_value_fraction_subtract (GValue * dest,
5659     const GValue * minuend, const GValue * subtrahend)
5660 {
5661   gint n1, n2, d1, d2;
5662   gint res_n, res_d;
5663
5664   g_return_val_if_fail (dest != NULL, FALSE);
5665   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (minuend), FALSE);
5666   g_return_val_if_fail (GST_VALUE_HOLDS_FRACTION (subtrahend), FALSE);
5667
5668   n1 = minuend->data[0].v_int;
5669   n2 = subtrahend->data[0].v_int;
5670   d1 = minuend->data[1].v_int;
5671   d2 = subtrahend->data[1].v_int;
5672
5673   if (!gst_util_fraction_add (n1, d1, -n2, d2, &res_n, &res_d))
5674     return FALSE;
5675   gst_value_set_fraction (dest, res_n, res_d);
5676
5677   return TRUE;
5678 }
5679
5680 static gchar *
5681 gst_value_serialize_fraction (const GValue * value)
5682 {
5683   gint32 numerator = value->data[0].v_int;
5684   gint32 denominator = value->data[1].v_int;
5685   gboolean positive = TRUE;
5686
5687   /* get the sign and make components absolute */
5688   if (numerator < 0) {
5689     numerator = -numerator;
5690     positive = !positive;
5691   }
5692   if (denominator < 0) {
5693     denominator = -denominator;
5694     positive = !positive;
5695   }
5696
5697   return g_strdup_printf ("%s%d/%d",
5698       positive ? "" : "-", numerator, denominator);
5699 }
5700
5701 static gboolean
5702 gst_value_deserialize_fraction (GValue * dest, const gchar * s)
5703 {
5704   gint num, den;
5705   gint num_chars;
5706
5707   if (G_UNLIKELY (s == NULL))
5708     return FALSE;
5709
5710   if (G_UNLIKELY (dest == NULL || !GST_VALUE_HOLDS_FRACTION (dest)))
5711     return FALSE;
5712
5713   if (sscanf (s, "%d/%d%n", &num, &den, &num_chars) >= 2) {
5714     if (s[num_chars] != 0)
5715       return FALSE;
5716     if (den == 0)
5717       return FALSE;
5718
5719     gst_value_set_fraction (dest, num, den);
5720     return TRUE;
5721   } else if (g_ascii_strcasecmp (s, "1/max") == 0) {
5722     gst_value_set_fraction (dest, 1, G_MAXINT);
5723     return TRUE;
5724   } else if (sscanf (s, "%d%n", &num, &num_chars) >= 1) {
5725     if (s[num_chars] != 0)
5726       return FALSE;
5727     gst_value_set_fraction (dest, num, 1);
5728     return TRUE;
5729   } else if (g_ascii_strcasecmp (s, "min") == 0) {
5730     gst_value_set_fraction (dest, -G_MAXINT, 1);
5731     return TRUE;
5732   } else if (g_ascii_strcasecmp (s, "max") == 0) {
5733     gst_value_set_fraction (dest, G_MAXINT, 1);
5734     return TRUE;
5735   }
5736
5737   return FALSE;
5738 }
5739
5740 static void
5741 gst_value_transform_fraction_string (const GValue * src_value,
5742     GValue * dest_value)
5743 {
5744   dest_value->data[0].v_pointer = gst_value_serialize_fraction (src_value);
5745 }
5746
5747 static void
5748 gst_value_transform_string_fraction (const GValue * src_value,
5749     GValue * dest_value)
5750 {
5751   if (!gst_value_deserialize_fraction (dest_value,
5752           src_value->data[0].v_pointer))
5753     /* If the deserialize fails, ensure we leave the fraction in a
5754      * valid, if incorrect, state */
5755     gst_value_set_fraction (dest_value, 0, 1);
5756 }
5757
5758 static void
5759 gst_value_transform_double_fraction (const GValue * src_value,
5760     GValue * dest_value)
5761 {
5762   gdouble src = g_value_get_double (src_value);
5763   gint n, d;
5764
5765   gst_util_double_to_fraction (src, &n, &d);
5766   gst_value_set_fraction (dest_value, n, d);
5767 }
5768
5769 static void
5770 gst_value_transform_float_fraction (const GValue * src_value,
5771     GValue * dest_value)
5772 {
5773   gfloat src = g_value_get_float (src_value);
5774   gint n, d;
5775
5776   gst_util_double_to_fraction (src, &n, &d);
5777   gst_value_set_fraction (dest_value, n, d);
5778 }
5779
5780 static void
5781 gst_value_transform_fraction_double (const GValue * src_value,
5782     GValue * dest_value)
5783 {
5784   dest_value->data[0].v_double = ((double) src_value->data[0].v_int) /
5785       ((double) src_value->data[1].v_int);
5786 }
5787
5788 static void
5789 gst_value_transform_fraction_float (const GValue * src_value,
5790     GValue * dest_value)
5791 {
5792   dest_value->data[0].v_float = ((float) src_value->data[0].v_int) /
5793       ((float) src_value->data[1].v_int);
5794 }
5795
5796 static gint
5797 gst_value_compare_fraction (const GValue * value1, const GValue * value2)
5798 {
5799   gint n1, n2;
5800   gint d1, d2;
5801   gint ret;
5802
5803   n1 = value1->data[0].v_int;
5804   n2 = value2->data[0].v_int;
5805   d1 = value1->data[1].v_int;
5806   d2 = value2->data[1].v_int;
5807
5808   /* fractions are reduced when set, so we can quickly see if they're equal */
5809   if (n1 == n2 && d1 == d2)
5810     return GST_VALUE_EQUAL;
5811
5812   if (d1 == 0 && d2 == 0)
5813     return GST_VALUE_UNORDERED;
5814   else if (d1 == 0)
5815     return GST_VALUE_GREATER_THAN;
5816   else if (d2 == 0)
5817     return GST_VALUE_LESS_THAN;
5818
5819   ret = gst_util_fraction_compare (n1, d1, n2, d2);
5820   if (ret == -1)
5821     return GST_VALUE_LESS_THAN;
5822   else if (ret == 1)
5823     return GST_VALUE_GREATER_THAN;
5824
5825   /* Equality can't happen here because we check for that
5826    * first already */
5827   g_return_val_if_reached (GST_VALUE_UNORDERED);
5828 }
5829
5830 /*********
5831  * GDate *
5832  *********/
5833
5834 static gint
5835 gst_value_compare_date (const GValue * value1, const GValue * value2)
5836 {
5837   const GDate *date1 = (const GDate *) g_value_get_boxed (value1);
5838   const GDate *date2 = (const GDate *) g_value_get_boxed (value2);
5839   guint32 j1, j2;
5840
5841   if (date1 == date2)
5842     return GST_VALUE_EQUAL;
5843
5844   if ((date1 == NULL || !g_date_valid (date1))
5845       && (date2 != NULL && g_date_valid (date2))) {
5846     return GST_VALUE_LESS_THAN;
5847   }
5848
5849   if ((date2 == NULL || !g_date_valid (date2))
5850       && (date1 != NULL && g_date_valid (date1))) {
5851     return GST_VALUE_GREATER_THAN;
5852   }
5853
5854   if (date1 == NULL || date2 == NULL || !g_date_valid (date1)
5855       || !g_date_valid (date2)) {
5856     return GST_VALUE_UNORDERED;
5857   }
5858
5859   j1 = g_date_get_julian (date1);
5860   j2 = g_date_get_julian (date2);
5861
5862   if (j1 == j2)
5863     return GST_VALUE_EQUAL;
5864   else if (j1 < j2)
5865     return GST_VALUE_LESS_THAN;
5866   else
5867     return GST_VALUE_GREATER_THAN;
5868 }
5869
5870 static gchar *
5871 gst_value_serialize_date (const GValue * val)
5872 {
5873   const GDate *date = (const GDate *) g_value_get_boxed (val);
5874
5875   if (date == NULL || !g_date_valid (date))
5876     return g_strdup ("9999-99-99");
5877
5878   return g_strdup_printf ("%04u-%02u-%02u", g_date_get_year (date),
5879       g_date_get_month (date), g_date_get_day (date));
5880 }
5881
5882 static gboolean
5883 gst_value_deserialize_date (GValue * dest, const gchar * s)
5884 {
5885   guint year, month, day;
5886
5887   if (!s || sscanf (s, "%04u-%02u-%02u", &year, &month, &day) != 3)
5888     return FALSE;
5889
5890   if (!g_date_valid_dmy (day, month, year))
5891     return FALSE;
5892
5893   g_value_take_boxed (dest, g_date_new_dmy (day, month, year));
5894   return TRUE;
5895 }
5896
5897 /*************
5898  * GstDateTime *
5899  *************/
5900
5901 static gint
5902 gst_value_compare_date_time (const GValue * value1, const GValue * value2)
5903 {
5904   const GstDateTime *date1 = (const GstDateTime *) g_value_get_boxed (value1);
5905   const GstDateTime *date2 = (const GstDateTime *) g_value_get_boxed (value2);
5906
5907   if (date1 == date2)
5908     return GST_VALUE_EQUAL;
5909
5910   if ((date1 == NULL) && (date2 != NULL)) {
5911     return GST_VALUE_LESS_THAN;
5912   }
5913   if ((date2 == NULL) && (date1 != NULL)) {
5914     return GST_VALUE_LESS_THAN;
5915   }
5916
5917   /* returns GST_VALUE_* */
5918   return __gst_date_time_compare (date1, date2);
5919 }
5920
5921 static gchar *
5922 gst_value_serialize_date_time (const GValue * val)
5923 {
5924   GstDateTime *date = (GstDateTime *) g_value_get_boxed (val);
5925
5926   if (date == NULL)
5927     return g_strdup ("null");
5928
5929   return __gst_date_time_serialize (date, TRUE);
5930 }
5931
5932 static gboolean
5933 gst_value_deserialize_date_time (GValue * dest, const gchar * s)
5934 {
5935   GstDateTime *datetime;
5936
5937   if (!s || strcmp (s, "null") == 0) {
5938     return FALSE;
5939   }
5940
5941   datetime = gst_date_time_new_from_iso8601_string (s);
5942   if (datetime != NULL) {
5943     g_value_take_boxed (dest, datetime);
5944     return TRUE;
5945   }
5946   GST_WARNING ("Failed to deserialize date time string '%s'", s);
5947   return FALSE;
5948 }
5949
5950 static void
5951 gst_value_transform_date_string (const GValue * src_value, GValue * dest_value)
5952 {
5953   dest_value->data[0].v_pointer = gst_value_serialize_date (src_value);
5954 }
5955
5956 static void
5957 gst_value_transform_string_date (const GValue * src_value, GValue * dest_value)
5958 {
5959   gst_value_deserialize_date (dest_value, src_value->data[0].v_pointer);
5960 }
5961
5962
5963 /************
5964  * bitmask *
5965  ************/
5966
5967 /* helper functions */
5968 static void
5969 gst_value_init_bitmask (GValue * value)
5970 {
5971   value->data[0].v_uint64 = 0;
5972 }
5973
5974 static void
5975 gst_value_copy_bitmask (const GValue * src_value, GValue * dest_value)
5976 {
5977   dest_value->data[0].v_uint64 = src_value->data[0].v_uint64;
5978 }
5979
5980 static gchar *
5981 gst_value_collect_bitmask (GValue * value, guint n_collect_values,
5982     GTypeCValue * collect_values, guint collect_flags)
5983 {
5984   if (n_collect_values != 1)
5985     return g_strdup_printf ("not enough value locations for `%s' passed",
5986         G_VALUE_TYPE_NAME (value));
5987
5988   gst_value_set_bitmask (value, (guint64) collect_values[0].v_int64);
5989
5990   return NULL;
5991 }
5992
5993 static gchar *
5994 gst_value_lcopy_bitmask (const GValue * value, guint n_collect_values,
5995     GTypeCValue * collect_values, guint collect_flags)
5996 {
5997   guint64 *bitmask = collect_values[0].v_pointer;
5998
5999   if (!bitmask)
6000     return g_strdup_printf ("value for `%s' passed as NULL",
6001         G_VALUE_TYPE_NAME (value));
6002
6003   *bitmask = value->data[0].v_uint64;
6004
6005   return NULL;
6006 }
6007
6008 /**
6009  * gst_value_set_bitmask:
6010  * @value: a GValue initialized to #GST_TYPE_BITMASK
6011  * @bitmask: the bitmask
6012  *
6013  * Sets @value to the bitmask specified by @bitmask.
6014  */
6015 void
6016 gst_value_set_bitmask (GValue * value, guint64 bitmask)
6017 {
6018   g_return_if_fail (GST_VALUE_HOLDS_BITMASK (value));
6019
6020   value->data[0].v_uint64 = bitmask;
6021 }
6022
6023 /**
6024  * gst_value_get_bitmask:
6025  * @value: a GValue initialized to #GST_TYPE_BITMASK
6026  *
6027  * Gets the bitmask specified by @value.
6028  *
6029  * Returns: the bitmask.
6030  */
6031 guint64
6032 gst_value_get_bitmask (const GValue * value)
6033 {
6034   g_return_val_if_fail (GST_VALUE_HOLDS_BITMASK (value), 0);
6035
6036   return value->data[0].v_uint64;
6037 }
6038
6039 static gchar *
6040 gst_value_serialize_bitmask (const GValue * value)
6041 {
6042   guint64 bitmask = value->data[0].v_uint64;
6043
6044   return g_strdup_printf ("0x%016" G_GINT64_MODIFIER "x", bitmask);
6045 }
6046
6047 static gboolean
6048 gst_value_deserialize_bitmask (GValue * dest, const gchar * s)
6049 {
6050   gchar *endptr = NULL;
6051   guint64 val;
6052
6053   if (G_UNLIKELY (s == NULL))
6054     return FALSE;
6055
6056   if (G_UNLIKELY (dest == NULL || !GST_VALUE_HOLDS_BITMASK (dest)))
6057     return FALSE;
6058
6059   errno = 0;
6060   val = g_ascii_strtoull (s, &endptr, 16);
6061   if (val == G_MAXUINT64 && (errno == ERANGE || errno == EINVAL))
6062     return FALSE;
6063   if (val == 0 && endptr == s)
6064     return FALSE;
6065
6066   gst_value_set_bitmask (dest, val);
6067
6068   return TRUE;
6069 }
6070
6071 static void
6072 gst_value_transform_bitmask_string (const GValue * src_value,
6073     GValue * dest_value)
6074 {
6075   dest_value->data[0].v_pointer = gst_value_serialize_bitmask (src_value);
6076 }
6077
6078 static void
6079 gst_value_transform_string_bitmask (const GValue * src_value,
6080     GValue * dest_value)
6081 {
6082   if (!gst_value_deserialize_bitmask (dest_value, src_value->data[0].v_pointer))
6083     gst_value_set_bitmask (dest_value, 0);
6084 }
6085
6086 static void
6087 gst_value_transform_uint64_bitmask (const GValue * src_value,
6088     GValue * dest_value)
6089 {
6090   dest_value->data[0].v_uint64 = src_value->data[0].v_uint64;
6091 }
6092
6093 static void
6094 gst_value_transform_bitmask_uint64 (const GValue * src_value,
6095     GValue * dest_value)
6096 {
6097   dest_value->data[0].v_uint64 = src_value->data[0].v_uint64;
6098 }
6099
6100 static gint
6101 gst_value_compare_bitmask (const GValue * value1, const GValue * value2)
6102 {
6103   guint64 v1, v2;
6104
6105   v1 = value1->data[0].v_uint64;
6106   v2 = value2->data[0].v_uint64;
6107
6108   if (v1 == v2)
6109     return GST_VALUE_EQUAL;
6110
6111   return GST_VALUE_UNORDERED;
6112 }
6113
6114 /************
6115  * flagset *
6116  ************/
6117
6118 /* helper functions */
6119 static void
6120 gst_value_init_flagset (GValue * value)
6121 {
6122   value->data[0].v_uint = 0;
6123   value->data[1].v_uint = 0;
6124 }
6125
6126 static void
6127 gst_value_copy_flagset (const GValue * src_value, GValue * dest_value)
6128 {
6129   dest_value->data[0].v_uint = src_value->data[0].v_uint;
6130   dest_value->data[1].v_uint = src_value->data[1].v_uint;
6131 }
6132
6133 static gchar *
6134 gst_value_collect_flagset (GValue * value, guint n_collect_values,
6135     GTypeCValue * collect_values, guint collect_flags)
6136 {
6137   if (n_collect_values != 2)
6138     return g_strdup_printf ("not enough value locations for `%s' passed",
6139         G_VALUE_TYPE_NAME (value));
6140
6141   gst_value_set_flagset (value,
6142       (guint) collect_values[0].v_int, (guint) collect_values[1].v_int);
6143
6144   return NULL;
6145 }
6146
6147 static gchar *
6148 gst_value_lcopy_flagset (const GValue * value, guint n_collect_values,
6149     GTypeCValue * collect_values, guint collect_flags)
6150 {
6151   guint *flags = collect_values[0].v_pointer;
6152   guint *mask = collect_values[1].v_pointer;
6153
6154   *flags = value->data[0].v_uint;
6155   *mask = value->data[1].v_uint;
6156
6157   return NULL;
6158 }
6159
6160 /**
6161  * gst_value_set_flagset:
6162  * @value: a GValue initialized to %GST_TYPE_FLAG_SET
6163  * @flags: The value of the flags set or unset
6164  * @mask: The mask indicate which flags bits must match for comparisons
6165  *
6166  * Sets @value to the flags and mask values provided in @flags and @mask.
6167  * The @flags value indicates the values of flags, the @mask represents
6168  * which bits in the flag value have been set, and which are "don't care"
6169  *
6170  * Since: 1.6
6171  */
6172 void
6173 gst_value_set_flagset (GValue * value, guint flags, guint mask)
6174 {
6175   g_return_if_fail (GST_VALUE_HOLDS_FLAG_SET (value));
6176
6177   /* Normalise and only keep flags mentioned in the mask */
6178   value->data[0].v_uint = flags & mask;
6179   value->data[1].v_uint = mask;
6180 }
6181
6182 /**
6183  * gst_value_get_flagset_flags:
6184  * @value: a GValue initialized to #GST_TYPE_FLAG_SET
6185  *
6186  * Retrieve the flags field of a GstFlagSet @value.
6187  *
6188  * Returns: the flags field of the flagset instance.
6189  *
6190  * Since: 1.6
6191  */
6192 guint
6193 gst_value_get_flagset_flags (const GValue * value)
6194 {
6195   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (value), 0);
6196
6197   return value->data[0].v_uint;
6198 }
6199
6200 /**
6201  * gst_value_get_flagset_mask:
6202  * @value: a GValue initialized to #GST_TYPE_FLAG_SET
6203  *
6204  * Retrieve the mask field of a GstFlagSet @value.
6205  *
6206  * Returns: the mask field of the flagset instance.
6207  *
6208  * Since: 1.6
6209  */
6210 guint
6211 gst_value_get_flagset_mask (const GValue * value)
6212 {
6213   g_return_val_if_fail (GST_VALUE_HOLDS_FLAG_SET (value), 1);
6214
6215   return value->data[1].v_uint;
6216 }
6217
6218 static gchar *
6219 gst_value_serialize_flagset (const GValue * value)
6220 {
6221   guint flags = value->data[0].v_uint;
6222   guint mask = value->data[1].v_uint;
6223   GstFlagSetClass *set_klass =
6224       (GstFlagSetClass *) g_type_class_ref (G_VALUE_TYPE (value));
6225   gchar *result;
6226
6227   result = g_strdup_printf ("%x:%x", flags, mask);
6228
6229   /* If this flag set class has an associated GFlags GType, and some
6230    * bits in the mask, serialize the bits in human-readable form to
6231    * aid debugging */
6232   if (mask && set_klass->flags_type) {
6233     GFlagsClass *flags_klass =
6234         (GFlagsClass *) (g_type_class_ref (set_klass->flags_type));
6235     GFlagsValue *fl;
6236     gchar *tmp;
6237     gboolean first = TRUE;
6238
6239     g_return_val_if_fail (flags_klass, NULL);
6240
6241     /* some bits in the mask are set, so serialize one by one, according
6242      * to whether that bit is set or cleared in the flags value */
6243     while (mask) {
6244       fl = g_flags_get_first_value (flags_klass, mask);
6245       if (fl == NULL) {
6246         /* No more bits match in the flags mask - time to stop */
6247         mask = 0;
6248         break;
6249       }
6250
6251       tmp = g_strconcat (result,
6252           first ? ":" : "",
6253           (flags & fl->value) ? "+" : "/", fl->value_nick, NULL);
6254       g_free (result);
6255       result = tmp;
6256       first = FALSE;
6257
6258       /* clear flag */
6259       mask &= ~fl->value;
6260     }
6261     g_type_class_unref (flags_klass);
6262
6263   }
6264   g_type_class_unref (set_klass);
6265
6266   return result;
6267 }
6268
6269 static gboolean
6270 gst_value_deserialize_flagset (GValue * dest, const gchar * s)
6271 {
6272   gboolean res = FALSE;
6273   guint flags, mask;
6274   gchar *cur, *next;
6275
6276   if (G_UNLIKELY (s == NULL))
6277     return FALSE;
6278
6279   if (G_UNLIKELY (dest == NULL || !GST_VALUE_HOLDS_FLAG_SET (dest)))
6280     return FALSE;
6281
6282   /* Flagset strings look like %x:%x - hex flags : hex bitmask,
6283    * 32-bit each, or like a concatenated list of flag nicks,
6284    * with either '+' or '/' in front. The first form
6285    * may optionally be followed by ':' and a set of text flag descriptions
6286    * for easier debugging */
6287
6288   /* Try and interpret as hex form first, as it's the most efficient */
6289   /* Read the flags first */
6290   flags = strtoul (s, &next, 16);
6291   if (G_UNLIKELY ((flags == 0 && errno == EINVAL) || s == next))
6292     goto try_as_flags_string;
6293   /* Next char should be a colon */
6294   if (next[0] == ':')
6295     next++;
6296
6297   /* Read the mask */
6298   cur = next;
6299   mask = strtoul (cur, &next, 16);
6300   if (G_UNLIKELY ((mask == 0 && errno == EINVAL) || cur == next))
6301     goto try_as_flags_string;
6302
6303   /* Next char should be NULL terminator, or a ':' */
6304   if (G_UNLIKELY (next[0] != 0 && next[0] != ':'))
6305     goto try_as_flags_string;
6306
6307   res = TRUE;
6308
6309 try_as_flags_string:
6310
6311   if (!res) {
6312     const gchar *set_class = g_type_name (G_VALUE_TYPE (dest));
6313     GFlagsClass *flags_klass = NULL;
6314     const gchar *end;
6315
6316     if (g_str_equal (set_class, "GstFlagSet"))
6317       goto done;                /* There's no hope to parse a generic flag set */
6318
6319     /* Flags class is the FlagSet class with 'Set' removed from the end */
6320     end = g_strrstr (set_class, "Set");
6321
6322     if (end != NULL) {
6323       gchar *class_name = g_strndup (set_class, end - set_class);
6324       GType flags_type = g_type_from_name (class_name);
6325
6326       g_free (class_name);
6327
6328       if (flags_type != 0)
6329         flags_klass = g_type_class_ref (flags_type);
6330     }
6331
6332     if (flags_klass) {
6333       res = gst_value_gflags_str_to_flags (flags_klass, s, &flags, &mask);
6334       g_type_class_unref (flags_klass);
6335     }
6336   }
6337
6338   if (res)
6339     gst_value_set_flagset (dest, flags, mask);
6340 done:
6341   return res;
6342
6343 }
6344
6345 static void
6346 gst_value_transform_flagset_string (const GValue * src_value,
6347     GValue * dest_value)
6348 {
6349   dest_value->data[0].v_pointer = gst_value_serialize_flagset (src_value);
6350 }
6351
6352 static void
6353 gst_value_transform_string_flagset (const GValue * src_value,
6354     GValue * dest_value)
6355 {
6356   if (!gst_value_deserialize_flagset (dest_value, src_value->data[0].v_pointer)) {
6357     /* If the deserialize fails, ensure we leave the flags in a
6358      * valid, if incorrect, state */
6359     gst_value_set_flagset (dest_value, 0, 0);
6360   }
6361 }
6362
6363 static gint
6364 gst_value_compare_flagset (const GValue * value1, const GValue * value2)
6365 {
6366   guint v1, v2;
6367   guint m1, m2;
6368
6369   v1 = value1->data[0].v_uint;
6370   v2 = value2->data[0].v_uint;
6371
6372   m1 = value1->data[1].v_uint;
6373   m2 = value2->data[1].v_uint;
6374
6375   if (v1 == v2 && m1 == m2)
6376     return GST_VALUE_EQUAL;
6377
6378   return GST_VALUE_UNORDERED;
6379 }
6380
6381 /***********************
6382  * GstAllocationParams *
6383  ***********************/
6384 static gint
6385 gst_value_compare_allocation_params (const GValue * value1,
6386     const GValue * value2)
6387 {
6388   GstAllocationParams *v1, *v2;
6389
6390   v1 = value1->data[0].v_pointer;
6391   v2 = value2->data[0].v_pointer;
6392
6393   if (v1 == NULL && v1 == v2)
6394     return GST_VALUE_EQUAL;
6395
6396   if (v1 == NULL || v2 == NULL)
6397     return GST_VALUE_UNORDERED;
6398
6399   if (v1->flags == v2->flags && v1->align == v2->align &&
6400       v1->prefix == v2->prefix && v1->padding == v2->padding)
6401     return GST_VALUE_EQUAL;
6402
6403   return GST_VALUE_UNORDERED;
6404 }
6405
6406
6407 /************
6408  * GObject *
6409  ************/
6410
6411 static gint
6412 gst_value_compare_object (const GValue * value1, const GValue * value2)
6413 {
6414   gpointer v1, v2;
6415
6416   v1 = value1->data[0].v_pointer;
6417   v2 = value2->data[0].v_pointer;
6418
6419   if (v1 == v2)
6420     return GST_VALUE_EQUAL;
6421
6422   return GST_VALUE_UNORDERED;
6423 }
6424
6425 static void
6426 gst_value_transform_object_string (const GValue * src_value,
6427     GValue * dest_value)
6428 {
6429   GstObject *obj;
6430   gchar *str;
6431
6432   obj = g_value_get_object (src_value);
6433   if (obj) {
6434     str =
6435         g_strdup_printf ("(%s) %s", G_OBJECT_TYPE_NAME (obj),
6436         GST_OBJECT_NAME (obj));
6437   } else {
6438     str = g_strdup ("NULL");
6439   }
6440
6441   dest_value->data[0].v_pointer = str;
6442 }
6443
6444 static GTypeInfo _info = {
6445   0, NULL, NULL, NULL, NULL, NULL, 0, 0, NULL, NULL,
6446 };
6447
6448 static GTypeFundamentalInfo _finfo = {
6449   0
6450 };
6451
6452 #define FUNC_VALUE_GET_TYPE_CLASSED(type, name, csize, flags)   \
6453 GType _gst_ ## type ## _type = 0;                               \
6454                                                                 \
6455 GType gst_ ## type ## _get_type (void)                          \
6456 {                                                               \
6457   static volatile GType gst_ ## type ## _type = 0;              \
6458                                                                 \
6459   if (g_once_init_enter (&gst_ ## type ## _type)) {             \
6460     GType _type;                                                \
6461     _info.class_size = csize;                                   \
6462     _finfo.type_flags = flags;                                  \
6463     _info.value_table = & _gst_ ## type ## _value_table;        \
6464     _type = g_type_register_fundamental (                       \
6465         g_type_fundamental_next (),                             \
6466         name, &_info, &_finfo, 0);                              \
6467     _gst_ ## type ## _type = _type;                             \
6468     g_once_init_leave(&gst_ ## type ## _type, _type);           \
6469   }                                                             \
6470                                                                 \
6471   return gst_ ## type ## _type;                                 \
6472 }
6473
6474 #define FUNC_VALUE_GET_TYPE(type, name) \
6475   FUNC_VALUE_GET_TYPE_CLASSED(type, name, 0, 0)
6476
6477 static const GTypeValueTable _gst_int_range_value_table = {
6478   gst_value_init_int_range,
6479   NULL,
6480   gst_value_copy_int_range,
6481   NULL,
6482   (char *) "ii",
6483   gst_value_collect_int_range, (char *) "pp", gst_value_lcopy_int_range
6484 };
6485
6486 FUNC_VALUE_GET_TYPE (int_range, "GstIntRange");
6487
6488 static const GTypeValueTable _gst_int64_range_value_table = {
6489   gst_value_init_int64_range,
6490   gst_value_free_int64_range,
6491   gst_value_copy_int64_range,
6492   NULL,
6493   (char *) "qq",
6494   gst_value_collect_int64_range,
6495   (char *) "pp", gst_value_lcopy_int64_range
6496 };
6497
6498 FUNC_VALUE_GET_TYPE (int64_range, "GstInt64Range");
6499
6500 static const GTypeValueTable _gst_double_range_value_table = {
6501   gst_value_init_double_range,
6502   NULL,
6503   gst_value_copy_double_range,
6504   NULL,
6505   (char *) "dd",
6506   gst_value_collect_double_range,
6507   (char *) "pp", gst_value_lcopy_double_range
6508 };
6509
6510 FUNC_VALUE_GET_TYPE (double_range, "GstDoubleRange");
6511
6512 static const GTypeValueTable _gst_fraction_range_value_table = {
6513   gst_value_init_fraction_range,
6514   gst_value_free_fraction_range,
6515   gst_value_copy_fraction_range,
6516   NULL,
6517   (char *) "iiii",
6518   gst_value_collect_fraction_range,
6519   (char *) "pppp", gst_value_lcopy_fraction_range
6520 };
6521
6522 FUNC_VALUE_GET_TYPE (fraction_range, "GstFractionRange");
6523
6524 static const GTypeValueTable _gst_value_list_value_table = {
6525   gst_value_init_list_or_array,
6526   gst_value_free_list_or_array,
6527   gst_value_copy_list_or_array,
6528   gst_value_list_or_array_peek_pointer,
6529   (char *) "p",
6530   gst_value_collect_list_or_array,
6531   (char *) "p", gst_value_lcopy_list_or_array
6532 };
6533
6534 FUNC_VALUE_GET_TYPE (value_list, "GstValueList");
6535
6536 static const GTypeValueTable _gst_value_array_value_table = {
6537   gst_value_init_list_or_array,
6538   gst_value_free_list_or_array,
6539   gst_value_copy_list_or_array,
6540   gst_value_list_or_array_peek_pointer,
6541   (char *) "p",
6542   gst_value_collect_list_or_array,
6543   (char *) "p", gst_value_lcopy_list_or_array
6544 };
6545
6546 FUNC_VALUE_GET_TYPE (value_array, "GstValueArray");
6547
6548 static const GTypeValueTable _gst_fraction_value_table = {
6549   gst_value_init_fraction,
6550   NULL,
6551   gst_value_copy_fraction,
6552   NULL,
6553   (char *) "ii",
6554   gst_value_collect_fraction, (char *) "pp", gst_value_lcopy_fraction
6555 };
6556
6557 FUNC_VALUE_GET_TYPE (fraction, "GstFraction");
6558
6559 static const GTypeValueTable _gst_bitmask_value_table = {
6560   gst_value_init_bitmask,
6561   NULL,
6562   gst_value_copy_bitmask,
6563   NULL,
6564   (char *) "q",
6565   gst_value_collect_bitmask, (char *) "p", gst_value_lcopy_bitmask
6566 };
6567
6568 FUNC_VALUE_GET_TYPE (bitmask, "GstBitmask");
6569
6570 static const GTypeValueTable _gst_flagset_value_table = {
6571   gst_value_init_flagset,
6572   NULL,
6573   gst_value_copy_flagset,
6574   NULL,
6575   (char *) "ii",
6576   gst_value_collect_flagset, (char *) "pp", gst_value_lcopy_flagset
6577 };
6578
6579 FUNC_VALUE_GET_TYPE_CLASSED (flagset, "GstFlagSet",
6580     sizeof (GstFlagSetClass), G_TYPE_FLAG_CLASSED | G_TYPE_FLAG_DERIVABLE);
6581
6582 GType
6583 gst_g_thread_get_type (void)
6584 {
6585   return G_TYPE_THREAD;
6586 }
6587
6588 #define SERIAL_VTABLE(t,c,s,d) { t, c, s, d }
6589
6590 #define REGISTER_SERIALIZATION_CONST(_gtype, _type)                     \
6591 G_STMT_START {                                                          \
6592   static const GstValueTable gst_value =                                \
6593     SERIAL_VTABLE (_gtype, gst_value_compare_ ## _type,                 \
6594     gst_value_serialize_ ## _type, gst_value_deserialize_ ## _type);    \
6595   gst_value_register (&gst_value);                                      \
6596 } G_STMT_END
6597
6598 #define REGISTER_SERIALIZATION(_gtype, _type)                           \
6599 G_STMT_START {                                                          \
6600   static GstValueTable gst_value =                                      \
6601     SERIAL_VTABLE (0, gst_value_compare_ ## _type,                      \
6602     gst_value_serialize_ ## _type, gst_value_deserialize_ ## _type);    \
6603   gst_value.type = _gtype;                                              \
6604   gst_value_register (&gst_value);                                      \
6605 } G_STMT_END
6606
6607 #define REGISTER_SERIALIZATION_NO_COMPARE(_gtype, _type)                \
6608 G_STMT_START {                                                          \
6609   static GstValueTable gst_value =                                      \
6610     SERIAL_VTABLE (0, NULL,                                             \
6611     gst_value_serialize_ ## _type, gst_value_deserialize_ ## _type);    \
6612   gst_value.type = _gtype;                                              \
6613   gst_value_register (&gst_value);                                      \
6614 } G_STMT_END
6615
6616 #define REGISTER_SERIALIZATION_COMPARE_ONLY(_gtype, _type)              \
6617 G_STMT_START {                                                          \
6618   static GstValueTable gst_value =                                      \
6619     SERIAL_VTABLE (0, gst_value_compare_ ## _type,                      \
6620         NULL, NULL);                                                    \
6621   gst_value.type = _gtype;                                              \
6622   gst_value_register (&gst_value);                                      \
6623 } G_STMT_END
6624
6625 /* These initial sizes are used for the tables
6626  * below, and save a couple of reallocs at startup */
6627 static const gint GST_VALUE_TABLE_DEFAULT_SIZE = 33;
6628 static const gint GST_VALUE_UNION_TABLE_DEFAULT_SIZE = 3;
6629 static const gint GST_VALUE_INTERSECT_TABLE_DEFAULT_SIZE = 10;
6630 static const gint GST_VALUE_SUBTRACT_TABLE_DEFAULT_SIZE = 12;
6631
6632 void
6633 _priv_gst_value_initialize (void)
6634 {
6635   gst_value_table =
6636       g_array_sized_new (FALSE, FALSE, sizeof (GstValueTable),
6637       GST_VALUE_TABLE_DEFAULT_SIZE);
6638   gst_value_hash = g_hash_table_new (NULL, NULL);
6639   gst_value_union_funcs = g_array_sized_new (FALSE, FALSE,
6640       sizeof (GstValueUnionInfo), GST_VALUE_UNION_TABLE_DEFAULT_SIZE);
6641   gst_value_intersect_funcs = g_array_sized_new (FALSE, FALSE,
6642       sizeof (GstValueIntersectInfo), GST_VALUE_INTERSECT_TABLE_DEFAULT_SIZE);
6643   gst_value_subtract_funcs = g_array_sized_new (FALSE, FALSE,
6644       sizeof (GstValueSubtractInfo), GST_VALUE_SUBTRACT_TABLE_DEFAULT_SIZE);
6645
6646   REGISTER_SERIALIZATION (gst_int_range_get_type (), int_range);
6647   REGISTER_SERIALIZATION (gst_int64_range_get_type (), int64_range);
6648   REGISTER_SERIALIZATION (gst_double_range_get_type (), double_range);
6649   REGISTER_SERIALIZATION (gst_fraction_range_get_type (), fraction_range);
6650   REGISTER_SERIALIZATION (gst_value_list_get_type (), value_list);
6651   REGISTER_SERIALIZATION (gst_value_array_get_type (), value_array);
6652   REGISTER_SERIALIZATION (gst_buffer_get_type (), buffer);
6653   REGISTER_SERIALIZATION (gst_sample_get_type (), sample);
6654   REGISTER_SERIALIZATION (gst_fraction_get_type (), fraction);
6655   REGISTER_SERIALIZATION (gst_caps_get_type (), caps);
6656   REGISTER_SERIALIZATION (gst_tag_list_get_type (), tag_list);
6657   REGISTER_SERIALIZATION (G_TYPE_DATE, date);
6658   REGISTER_SERIALIZATION (gst_date_time_get_type (), date_time);
6659   REGISTER_SERIALIZATION (gst_bitmask_get_type (), bitmask);
6660   REGISTER_SERIALIZATION (gst_structure_get_type (), structure);
6661   REGISTER_SERIALIZATION (gst_flagset_get_type (), flagset);
6662
6663   REGISTER_SERIALIZATION_NO_COMPARE (gst_segment_get_type (), segment);
6664   REGISTER_SERIALIZATION_NO_COMPARE (gst_caps_features_get_type (),
6665       caps_features);
6666
6667   REGISTER_SERIALIZATION_COMPARE_ONLY (gst_allocation_params_get_type (),
6668       allocation_params);
6669   REGISTER_SERIALIZATION_COMPARE_ONLY (G_TYPE_OBJECT, object);
6670
6671   REGISTER_SERIALIZATION_CONST (G_TYPE_DOUBLE, double);
6672   REGISTER_SERIALIZATION_CONST (G_TYPE_FLOAT, float);
6673
6674   REGISTER_SERIALIZATION_CONST (G_TYPE_STRING, string);
6675   REGISTER_SERIALIZATION_CONST (G_TYPE_BOOLEAN, boolean);
6676   REGISTER_SERIALIZATION_CONST (G_TYPE_ENUM, enum);
6677
6678   REGISTER_SERIALIZATION_CONST (G_TYPE_FLAGS, gflags);
6679
6680   REGISTER_SERIALIZATION_CONST (G_TYPE_INT, int);
6681
6682   REGISTER_SERIALIZATION_CONST (G_TYPE_INT64, int64);
6683   REGISTER_SERIALIZATION_CONST (G_TYPE_LONG, long);
6684
6685   REGISTER_SERIALIZATION_CONST (G_TYPE_UINT, uint);
6686   REGISTER_SERIALIZATION_CONST (G_TYPE_UINT64, uint64);
6687   REGISTER_SERIALIZATION_CONST (G_TYPE_ULONG, ulong);
6688
6689   REGISTER_SERIALIZATION_CONST (G_TYPE_UCHAR, uchar);
6690
6691   g_value_register_transform_func (GST_TYPE_INT_RANGE, G_TYPE_STRING,
6692       gst_value_transform_int_range_string);
6693   g_value_register_transform_func (GST_TYPE_INT64_RANGE, G_TYPE_STRING,
6694       gst_value_transform_int64_range_string);
6695   g_value_register_transform_func (GST_TYPE_DOUBLE_RANGE, G_TYPE_STRING,
6696       gst_value_transform_double_range_string);
6697   g_value_register_transform_func (GST_TYPE_FRACTION_RANGE, G_TYPE_STRING,
6698       gst_value_transform_fraction_range_string);
6699   g_value_register_transform_func (GST_TYPE_LIST, G_TYPE_STRING,
6700       gst_value_transform_list_string);
6701   g_value_register_transform_func (GST_TYPE_ARRAY, G_TYPE_STRING,
6702       gst_value_transform_array_string);
6703   g_value_register_transform_func (GST_TYPE_FRACTION, G_TYPE_STRING,
6704       gst_value_transform_fraction_string);
6705   g_value_register_transform_func (G_TYPE_STRING, GST_TYPE_FRACTION,
6706       gst_value_transform_string_fraction);
6707   g_value_register_transform_func (GST_TYPE_FRACTION, G_TYPE_DOUBLE,
6708       gst_value_transform_fraction_double);
6709   g_value_register_transform_func (GST_TYPE_FRACTION, G_TYPE_FLOAT,
6710       gst_value_transform_fraction_float);
6711   g_value_register_transform_func (G_TYPE_DOUBLE, GST_TYPE_FRACTION,
6712       gst_value_transform_double_fraction);
6713   g_value_register_transform_func (G_TYPE_FLOAT, GST_TYPE_FRACTION,
6714       gst_value_transform_float_fraction);
6715   g_value_register_transform_func (G_TYPE_DATE, G_TYPE_STRING,
6716       gst_value_transform_date_string);
6717   g_value_register_transform_func (G_TYPE_STRING, G_TYPE_DATE,
6718       gst_value_transform_string_date);
6719   g_value_register_transform_func (GST_TYPE_OBJECT, G_TYPE_STRING,
6720       gst_value_transform_object_string);
6721   g_value_register_transform_func (GST_TYPE_BITMASK, G_TYPE_UINT64,
6722       gst_value_transform_bitmask_uint64);
6723   g_value_register_transform_func (GST_TYPE_BITMASK, G_TYPE_STRING,
6724       gst_value_transform_bitmask_string);
6725   g_value_register_transform_func (G_TYPE_UINT64, GST_TYPE_BITMASK,
6726       gst_value_transform_uint64_bitmask);
6727   g_value_register_transform_func (G_TYPE_STRING, GST_TYPE_BITMASK,
6728       gst_value_transform_string_bitmask);
6729
6730   g_value_register_transform_func (GST_TYPE_FLAG_SET, G_TYPE_STRING,
6731       gst_value_transform_flagset_string);
6732   g_value_register_transform_func (G_TYPE_STRING, GST_TYPE_FLAG_SET,
6733       gst_value_transform_string_flagset);
6734
6735   gst_value_register_intersect_func (G_TYPE_INT, GST_TYPE_INT_RANGE,
6736       gst_value_intersect_int_int_range);
6737   gst_value_register_intersect_func (GST_TYPE_INT_RANGE, GST_TYPE_INT_RANGE,
6738       gst_value_intersect_int_range_int_range);
6739   gst_value_register_intersect_func (G_TYPE_INT64, GST_TYPE_INT64_RANGE,
6740       gst_value_intersect_int64_int64_range);
6741   gst_value_register_intersect_func (GST_TYPE_INT64_RANGE,
6742       GST_TYPE_INT64_RANGE, gst_value_intersect_int64_range_int64_range);
6743   gst_value_register_intersect_func (G_TYPE_DOUBLE, GST_TYPE_DOUBLE_RANGE,
6744       gst_value_intersect_double_double_range);
6745   gst_value_register_intersect_func (GST_TYPE_DOUBLE_RANGE,
6746       GST_TYPE_DOUBLE_RANGE, gst_value_intersect_double_range_double_range);
6747   gst_value_register_intersect_func (GST_TYPE_ARRAY, GST_TYPE_ARRAY,
6748       gst_value_intersect_array);
6749   gst_value_register_intersect_func (GST_TYPE_FRACTION,
6750       GST_TYPE_FRACTION_RANGE, gst_value_intersect_fraction_fraction_range);
6751   gst_value_register_intersect_func (GST_TYPE_FRACTION_RANGE,
6752       GST_TYPE_FRACTION_RANGE,
6753       gst_value_intersect_fraction_range_fraction_range);
6754   gst_value_register_intersect_func (GST_TYPE_FLAG_SET, GST_TYPE_FLAG_SET,
6755       gst_value_intersect_flagset_flagset);
6756
6757   gst_value_register_subtract_func (G_TYPE_INT, GST_TYPE_INT_RANGE,
6758       gst_value_subtract_int_int_range);
6759   gst_value_register_subtract_func (GST_TYPE_INT_RANGE, G_TYPE_INT,
6760       gst_value_subtract_int_range_int);
6761   gst_value_register_subtract_func (GST_TYPE_INT_RANGE, GST_TYPE_INT_RANGE,
6762       gst_value_subtract_int_range_int_range);
6763   gst_value_register_subtract_func (G_TYPE_INT64, GST_TYPE_INT64_RANGE,
6764       gst_value_subtract_int64_int64_range);
6765   gst_value_register_subtract_func (GST_TYPE_INT64_RANGE, G_TYPE_INT64,
6766       gst_value_subtract_int64_range_int64);
6767   gst_value_register_subtract_func (GST_TYPE_INT64_RANGE,
6768       GST_TYPE_INT64_RANGE, gst_value_subtract_int64_range_int64_range);
6769   gst_value_register_subtract_func (G_TYPE_DOUBLE, GST_TYPE_DOUBLE_RANGE,
6770       gst_value_subtract_double_double_range);
6771   gst_value_register_subtract_func (GST_TYPE_DOUBLE_RANGE, G_TYPE_DOUBLE,
6772       gst_value_subtract_double_range_double);
6773   gst_value_register_subtract_func (GST_TYPE_DOUBLE_RANGE,
6774       GST_TYPE_DOUBLE_RANGE, gst_value_subtract_double_range_double_range);
6775   gst_value_register_subtract_func (GST_TYPE_FRACTION,
6776       GST_TYPE_FRACTION_RANGE, gst_value_subtract_fraction_fraction_range);
6777   gst_value_register_subtract_func (GST_TYPE_FRACTION_RANGE,
6778       GST_TYPE_FRACTION, gst_value_subtract_fraction_range_fraction);
6779   gst_value_register_subtract_func (GST_TYPE_FRACTION_RANGE,
6780       GST_TYPE_FRACTION_RANGE,
6781       gst_value_subtract_fraction_range_fraction_range);
6782
6783   /* see bug #317246, #64994, #65041 */
6784   {
6785     volatile GType date_type = G_TYPE_DATE;
6786
6787     g_type_name (date_type);
6788   }
6789
6790   gst_value_register_union_func (G_TYPE_INT, GST_TYPE_INT_RANGE,
6791       gst_value_union_int_int_range);
6792   gst_value_register_union_func (GST_TYPE_INT_RANGE, GST_TYPE_INT_RANGE,
6793       gst_value_union_int_range_int_range);
6794   gst_value_register_union_func (GST_TYPE_FLAG_SET, GST_TYPE_FLAG_SET,
6795       gst_value_union_flagset_flagset);
6796
6797 #if GST_VERSION_NANO == 1
6798   /* If building from git master, check starting array sizes matched actual size
6799    * so we can keep the defines in sync and save a few reallocs on startup */
6800   if (gst_value_table->len != GST_VALUE_TABLE_DEFAULT_SIZE) {
6801     GST_ERROR ("Wrong initial gst_value_table size. "
6802         "Please set GST_VALUE_TABLE_DEFAULT_SIZE to %u in gstvalue.c",
6803         gst_value_table->len);
6804   }
6805   if (gst_value_union_funcs->len != GST_VALUE_UNION_TABLE_DEFAULT_SIZE) {
6806     GST_ERROR ("Wrong initial gst_value_union_funcs table size. "
6807         "Please set GST_VALUE_UNION_TABLE_DEFAULT_SIZE to %u in gstvalue.c",
6808         gst_value_union_funcs->len);
6809   }
6810   if (gst_value_intersect_funcs->len != GST_VALUE_INTERSECT_TABLE_DEFAULT_SIZE) {
6811     GST_ERROR ("Wrong initial gst_value_intersect_funcs table size. "
6812         "Please set GST_VALUE_INTERSECT_TABLE_DEFAULT_SIZE to %u in gstvalue.c",
6813         gst_value_intersect_funcs->len);
6814   }
6815   if (gst_value_subtract_funcs->len != GST_VALUE_SUBTRACT_TABLE_DEFAULT_SIZE) {
6816     GST_ERROR ("Wrong initial gst_value_subtract_funcs table size. "
6817         "Please set GST_VALUE_SUBTRACT_TABLE_DEFAULT_SIZE to %u in gstvalue.c",
6818         gst_value_subtract_funcs->len);
6819   }
6820 #endif
6821
6822 #if 0
6823   /* Implement these if needed */
6824   gst_value_register_union_func (GST_TYPE_FRACTION, GST_TYPE_FRACTION_RANGE,
6825       gst_value_union_fraction_fraction_range);
6826   gst_value_register_union_func (GST_TYPE_FRACTION_RANGE,
6827       GST_TYPE_FRACTION_RANGE, gst_value_union_fraction_range_fraction_range);
6828 #endif
6829 }
6830
6831 static void
6832 gst_flagset_class_init (gpointer g_class, gpointer class_data)
6833 {
6834   GstFlagSetClass *f_class = (GstFlagSetClass *) (g_class);
6835   f_class->flags_type = (GType) GPOINTER_TO_SIZE (class_data);
6836 }
6837
6838 /**
6839  * gst_flagset_register:
6840  * @flags_type: a #GType of a #G_TYPE_FLAGS type.
6841  *
6842  * Create a new sub-class of #GST_TYPE_FLAG_SET
6843  * which will pretty-print the human-readable flags
6844  * when serializing, for easier debugging.
6845  *
6846  * Since: 1.6
6847  */
6848 GType
6849 gst_flagset_register (GType flags_type)
6850 {
6851   GTypeInfo info = {
6852     sizeof (GstFlagSetClass),
6853     NULL, NULL,
6854     (GClassInitFunc) gst_flagset_class_init,
6855     NULL, GSIZE_TO_POINTER (flags_type), 0, 0, NULL, NULL
6856   };
6857   GType t;
6858   gchar *class_name;
6859
6860   g_return_val_if_fail (G_TYPE_IS_FLAGS (flags_type), 0);
6861
6862   class_name = g_strdup_printf ("%sSet", g_type_name (flags_type));
6863
6864   t = g_type_register_static (GST_TYPE_FLAG_SET,
6865       g_intern_string (class_name), &info, 0);
6866   g_free (class_name);
6867
6868   return t;
6869 }