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