Merge branch 'master' into 0.11
[platform/upstream/gstreamer.git] / gst / gstutils.c
1 /* GStreamer
2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
3  *                    2000 Wim Taymans <wtay@chello.be>
4  *                    2002 Thomas Vander Stichele <thomas@apestaart.org>
5  *
6  * gstutils.c: Utility functions
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Library General Public
10  * License as published by the Free Software Foundation; either
11  * version 2 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Library General Public License for more details.
17  *
18  * You should have received a copy of the GNU Library General Public
19  * License along with this library; if not, write to the
20  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21  * Boston, MA 02111-1307, USA.
22  */
23
24 /**
25  * SECTION:gstutils
26  * @short_description: Various utility functions
27  *
28  */
29
30 #include "gst_private.h"
31 #include <stdio.h>
32 #include <string.h>
33
34 #include "gstghostpad.h"
35 #include "gstutils.h"
36 #include "gsterror.h"
37 #include "gstinfo.h"
38 #include "gstparse.h"
39 #include "gstvalue.h"
40 #include "gst-i18n-lib.h"
41 #include "glib-compat-private.h"
42 #include <math.h>
43
44 /**
45  * gst_util_dump_mem:
46  * @mem: a pointer to the memory to dump
47  * @size: the size of the memory block to dump
48  *
49  * Dumps the memory block into a hex representation. Useful for debugging.
50  */
51 void
52 gst_util_dump_mem (const guchar * mem, guint size)
53 {
54   guint i, j;
55   GString *string = g_string_sized_new (50);
56   GString *chars = g_string_sized_new (18);
57
58   i = j = 0;
59   while (i < size) {
60     if (g_ascii_isprint (mem[i]))
61       g_string_append_c (chars, mem[i]);
62     else
63       g_string_append_c (chars, '.');
64
65     g_string_append_printf (string, "%02x ", mem[i]);
66
67     j++;
68     i++;
69
70     if (j == 16 || i == size) {
71       g_print ("%08x (%p): %-48.48s %-16.16s\n", i - j, mem + i - j,
72           string->str, chars->str);
73       g_string_set_size (string, 0);
74       g_string_set_size (chars, 0);
75       j = 0;
76     }
77   }
78   g_string_free (string, TRUE);
79   g_string_free (chars, TRUE);
80 }
81
82
83 /**
84  * gst_util_set_value_from_string:
85  * @value: (out caller-allocates): the value to set
86  * @value_str: the string to get the value from
87  *
88  * Converts the string to the type of the value and
89  * sets the value with it.
90  *
91  * Note that this function is dangerous as it does not return any indication
92  * if the conversion worked or not.
93  */
94 void
95 gst_util_set_value_from_string (GValue * value, const gchar * value_str)
96 {
97   gboolean res;
98
99   g_return_if_fail (value != NULL);
100   g_return_if_fail (value_str != NULL);
101
102   GST_CAT_DEBUG (GST_CAT_PARAMS, "parsing '%s' to type %s", value_str,
103       g_type_name (G_VALUE_TYPE (value)));
104
105   res = gst_value_deserialize (value, value_str);
106   if (!res && G_VALUE_TYPE (value) == G_TYPE_BOOLEAN) {
107     /* backwards compat, all booleans that fail to parse are false */
108     g_value_set_boolean (value, FALSE);
109     res = TRUE;
110   }
111   g_return_if_fail (res);
112 }
113
114 /**
115  * gst_util_set_object_arg:
116  * @object: the object to set the argument of
117  * @name: the name of the argument to set
118  * @value: the string value to set
119  *
120  * Convertes the string value to the type of the objects argument and
121  * sets the argument with it.
122  *
123  * Note that this function silently returns if @object has no property named
124  * @name or when @value cannot be converted to the type of the property.
125  */
126 void
127 gst_util_set_object_arg (GObject * object, const gchar * name,
128     const gchar * value)
129 {
130   GParamSpec *pspec;
131   GType value_type;
132   GValue v = { 0, };
133
134   g_return_if_fail (G_IS_OBJECT (object));
135   g_return_if_fail (name != NULL);
136   g_return_if_fail (value != NULL);
137
138   pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (object), name);
139   if (!pspec)
140     return;
141
142   value_type = pspec->value_type;
143
144   GST_DEBUG ("pspec->flags is %d, pspec->value_type is %s",
145       pspec->flags, g_type_name (value_type));
146
147   if (!(pspec->flags & G_PARAM_WRITABLE))
148     return;
149
150   g_value_init (&v, value_type);
151
152   /* special case for element <-> xml (de)serialisation */
153   if (GST_VALUE_HOLDS_STRUCTURE (&v) && strcmp (value, "NULL") == 0) {
154     g_value_set_boxed (&v, NULL);
155     goto done;
156   }
157
158   if (!gst_value_deserialize (&v, value))
159     return;
160
161 done:
162
163   g_object_set_property (object, pspec->name, &v);
164   g_value_unset (&v);
165 }
166
167 /* work around error C2520: conversion from unsigned __int64 to double
168  * not implemented, use signed __int64
169  *
170  * These are implemented as functions because on some platforms a 64bit int to
171  * double conversion is not defined/implemented.
172  */
173
174 gdouble
175 gst_util_guint64_to_gdouble (guint64 value)
176 {
177   if (value & G_GINT64_CONSTANT (0x8000000000000000))
178     return (gdouble) ((gint64) value) + (gdouble) 18446744073709551616.;
179   else
180     return (gdouble) ((gint64) value);
181 }
182
183 guint64
184 gst_util_gdouble_to_guint64 (gdouble value)
185 {
186   if (value < (gdouble) 9223372036854775808.)   /* 1 << 63 */
187     return ((guint64) ((gint64) value));
188
189   value -= (gdouble) 18446744073709551616.;
190   return ((guint64) ((gint64) value));
191 }
192
193 #ifndef HAVE_UINT128_T
194 /* convenience struct for getting high and low uint32 parts of
195  * a guint64 */
196 typedef union
197 {
198   guint64 ll;
199   struct
200   {
201 #if G_BYTE_ORDER == G_BIG_ENDIAN
202     guint32 high, low;
203 #else
204     guint32 low, high;
205 #endif
206   } l;
207 } GstUInt64;
208
209 #if defined (__x86_64__) && defined (__GNUC__)
210 static inline void
211 gst_util_uint64_mul_uint64 (GstUInt64 * c1, GstUInt64 * c0, guint64 arg1,
212     guint64 arg2)
213 {
214   __asm__ __volatile__ ("mulq %3":"=a" (c0->ll), "=d" (c1->ll)
215       :"a" (arg1), "g" (arg2)
216       );
217 }
218 #else /* defined (__x86_64__) */
219 /* multiply two 64-bit unsigned ints into a 128-bit unsigned int.  the high
220  * and low 64 bits of the product are placed in c1 and c0 respectively.
221  * this operation cannot overflow. */
222 static inline void
223 gst_util_uint64_mul_uint64 (GstUInt64 * c1, GstUInt64 * c0, guint64 arg1,
224     guint64 arg2)
225 {
226   GstUInt64 a1, b0;
227   GstUInt64 v, n;
228
229   /* prepare input */
230   v.ll = arg1;
231   n.ll = arg2;
232
233   /* do 128 bits multiply
234    *                   nh   nl
235    *                *  vh   vl
236    *                ----------
237    * a0 =              vl * nl
238    * a1 =         vl * nh
239    * b0 =         vh * nl
240    * b1 =  + vh * nh
241    *       -------------------
242    *        c1h  c1l  c0h  c0l
243    *
244    * "a0" is optimized away, result is stored directly in c0.  "b1" is
245    * optimized away, result is stored directly in c1.
246    */
247   c0->ll = (guint64) v.l.low * n.l.low;
248   a1.ll = (guint64) v.l.low * n.l.high;
249   b0.ll = (guint64) v.l.high * n.l.low;
250
251   /* add the high word of a0 to the low words of a1 and b0 using c1 as
252    * scrach space to capture the carry.  the low word of the result becomes
253    * the final high word of c0 */
254   c1->ll = (guint64) c0->l.high + a1.l.low + b0.l.low;
255   c0->l.high = c1->l.low;
256
257   /* add the carry from the result above (found in the high word of c1) and
258    * the high words of a1 and b0 to b1, the result is c1. */
259   c1->ll = (guint64) v.l.high * n.l.high + c1->l.high + a1.l.high + b0.l.high;
260 }
261 #endif /* defined (__x86_64__) */
262
263 #if defined (__x86_64__) && defined (__GNUC__)
264 static inline guint64
265 gst_util_div128_64 (GstUInt64 c1, GstUInt64 c0, guint64 denom)
266 {
267   guint64 res;
268
269   __asm__ __volatile__ ("divq %3":"=a" (res)
270       :"d" (c1.ll), "a" (c0.ll), "g" (denom)
271       );
272
273   return res;
274 }
275 #else
276 /* count leading zeros */
277 static inline guint
278 gst_util_clz (guint32 val)
279 {
280   guint s;
281
282   s = val | (val >> 1);
283   s |= (s >> 2);
284   s |= (s >> 4);
285   s |= (s >> 8);
286   s = ~(s | (s >> 16));
287   s = s - ((s >> 1) & 0x55555555);
288   s = (s & 0x33333333) + ((s >> 2) & 0x33333333);
289   s = (s + (s >> 4)) & 0x0f0f0f0f;
290   s += (s >> 8);
291   s = (s + (s >> 16)) & 0x3f;
292
293   return s;
294 }
295
296 /* based on Hacker's Delight p152 */
297 static inline guint64
298 gst_util_div128_64 (GstUInt64 c1, GstUInt64 c0, guint64 denom)
299 {
300   GstUInt64 q1, q0, rhat;
301   GstUInt64 v, cmp1, cmp2;
302   guint s;
303
304   v.ll = denom;
305
306   /* count number of leading zeroes, we know they must be in the high
307    * part of denom since denom > G_MAXUINT32. */
308   s = gst_util_clz (v.l.high);
309
310   if (s > 0) {
311     /* normalize divisor and dividend */
312     v.ll <<= s;
313     c1.ll = (c1.ll << s) | (c0.l.high >> (32 - s));
314     c0.ll <<= s;
315   }
316
317   q1.ll = c1.ll / v.l.high;
318   rhat.ll = c1.ll - q1.ll * v.l.high;
319
320   cmp1.l.high = rhat.l.low;
321   cmp1.l.low = c0.l.high;
322   cmp2.ll = q1.ll * v.l.low;
323
324   while (q1.l.high || cmp2.ll > cmp1.ll) {
325     q1.ll--;
326     rhat.ll += v.l.high;
327     if (rhat.l.high)
328       break;
329     cmp1.l.high = rhat.l.low;
330     cmp2.ll -= v.l.low;
331   }
332   c1.l.high = c1.l.low;
333   c1.l.low = c0.l.high;
334   c1.ll -= q1.ll * v.ll;
335   q0.ll = c1.ll / v.l.high;
336   rhat.ll = c1.ll - q0.ll * v.l.high;
337
338   cmp1.l.high = rhat.l.low;
339   cmp1.l.low = c0.l.low;
340   cmp2.ll = q0.ll * v.l.low;
341
342   while (q0.l.high || cmp2.ll > cmp1.ll) {
343     q0.ll--;
344     rhat.ll += v.l.high;
345     if (rhat.l.high)
346       break;
347     cmp1.l.high = rhat.l.low;
348     cmp2.ll -= v.l.low;
349   }
350   q0.l.high += q1.l.low;
351
352   return q0.ll;
353 }
354 #endif /* defined (__GNUC__) */
355
356 /* This always gives the correct result because:
357  * a) val <= G_MAXUINT64-1
358  * b) (c0,c1) <= G_MAXUINT64 * (G_MAXUINT64-1)
359  *    or
360  *    (c0,c1) == G_MAXUINT64 * G_MAXUINT64 and denom < G_MAXUINT64
361  *    (note: num==denom case is handled by short path)
362  * This means that (c0,c1) either has enough space for val
363  * or that the overall result will overflow anyway.
364  */
365
366 /* add correction with carry */
367 #define CORRECT(c0,c1,val)                    \
368   if (val) {                                  \
369     if (G_MAXUINT64 - c0.ll < val) {          \
370       if (G_UNLIKELY (c1.ll == G_MAXUINT64))  \
371         /* overflow */                        \
372         return G_MAXUINT64;                   \
373       c1.ll++;                                \
374     }                                         \
375     c0.ll += val;                             \
376   }
377
378 static guint64
379 gst_util_uint64_scale_uint64_unchecked (guint64 val, guint64 num,
380     guint64 denom, guint64 correct)
381 {
382   GstUInt64 c1, c0;
383
384   /* compute 128-bit numerator product */
385   gst_util_uint64_mul_uint64 (&c1, &c0, val, num);
386
387   /* perform rounding correction */
388   CORRECT (c0, c1, correct);
389
390   /* high word as big as or bigger than denom --> overflow */
391   if (G_UNLIKELY (c1.ll >= denom))
392     return G_MAXUINT64;
393
394   /* compute quotient, fits in 64 bits */
395   return gst_util_div128_64 (c1, c0, denom);
396 }
397 #else
398
399 #define GST_MAXUINT128 ((__uint128_t) -1)
400 static guint64
401 gst_util_uint64_scale_uint64_unchecked (guint64 val, guint64 num,
402     guint64 denom, guint64 correct)
403 {
404   __uint128_t tmp;
405
406   /* Calculate val * num */
407   tmp = ((__uint128_t) val) * ((__uint128_t) num);
408
409   /* overflow checks */
410   if (G_UNLIKELY (GST_MAXUINT128 - correct < tmp))
411     return G_MAXUINT64;
412
413   /* perform rounding correction */
414   tmp += correct;
415
416   /* Divide by denom */
417   tmp /= denom;
418
419   /* if larger than G_MAXUINT64 --> overflow */
420   if (G_UNLIKELY (tmp > G_MAXUINT64))
421     return G_MAXUINT64;
422
423   /* compute quotient, fits in 64 bits */
424   return (guint64) tmp;
425 }
426
427 #endif
428
429 #if !defined (__x86_64__) && !defined (HAVE_UINT128_T)
430 static inline void
431 gst_util_uint64_mul_uint32 (GstUInt64 * c1, GstUInt64 * c0, guint64 arg1,
432     guint32 arg2)
433 {
434   GstUInt64 a;
435
436   a.ll = arg1;
437
438   c0->ll = (guint64) a.l.low * arg2;
439   c1->ll = (guint64) a.l.high * arg2 + c0->l.high;
440   c0->l.high = 0;
441 }
442
443 /* divide a 96-bit unsigned int by a 32-bit unsigned int when we know the
444  * quotient fits into 64 bits.  the high 64 bits and low 32 bits of the
445  * numerator are expected in c1 and c0 respectively. */
446 static inline guint64
447 gst_util_div96_32 (guint64 c1, guint64 c0, guint32 denom)
448 {
449   c0 += (c1 % denom) << 32;
450   return ((c1 / denom) << 32) + (c0 / denom);
451 }
452
453 static inline guint64
454 gst_util_uint64_scale_uint32_unchecked (guint64 val, guint32 num,
455     guint32 denom, guint32 correct)
456 {
457   GstUInt64 c1, c0;
458
459   /* compute 96-bit numerator product */
460   gst_util_uint64_mul_uint32 (&c1, &c0, val, num);
461
462   /* condition numerator based on rounding mode */
463   CORRECT (c0, c1, correct);
464
465   /* high 32 bits as big as or bigger than denom --> overflow */
466   if (G_UNLIKELY (c1.l.high >= denom))
467     return G_MAXUINT64;
468
469   /* compute quotient, fits in 64 bits */
470   return gst_util_div96_32 (c1.ll, c0.ll, denom);
471 }
472 #endif
473
474 /* the guts of the gst_util_uint64_scale() variants */
475 static guint64
476 _gst_util_uint64_scale (guint64 val, guint64 num, guint64 denom,
477     guint64 correct)
478 {
479   g_return_val_if_fail (denom != 0, G_MAXUINT64);
480
481   if (G_UNLIKELY (num == 0))
482     return 0;
483
484   if (G_UNLIKELY (num == denom))
485     return val;
486
487   /* on 64bits we always use a full 128bits multipy/division */
488 #if !defined (__x86_64__) && !defined (HAVE_UINT128_T)
489   /* denom is low --> try to use 96 bit muldiv */
490   if (G_LIKELY (denom <= G_MAXUINT32)) {
491     /* num is low --> use 96 bit muldiv */
492     if (G_LIKELY (num <= G_MAXUINT32))
493       return gst_util_uint64_scale_uint32_unchecked (val, (guint32) num,
494           (guint32) denom, correct);
495
496     /* num is high but val is low --> swap and use 96-bit muldiv */
497     if (G_LIKELY (val <= G_MAXUINT32))
498       return gst_util_uint64_scale_uint32_unchecked (num, (guint32) val,
499           (guint32) denom, correct);
500   }
501 #endif /* !defined (__x86_64__) && !defined (HAVE_UINT128_T) */
502
503   /* val is high and num is high --> use 128-bit muldiv */
504   return gst_util_uint64_scale_uint64_unchecked (val, num, denom, correct);
505 }
506
507 /**
508  * gst_util_uint64_scale:
509  * @val: the number to scale
510  * @num: the numerator of the scale ratio
511  * @denom: the denominator of the scale ratio
512  *
513  * Scale @val by the rational number @num / @denom, avoiding overflows and
514  * underflows and without loss of precision.
515  *
516  * This function can potentially be very slow if val and num are both
517  * greater than G_MAXUINT32.
518  *
519  * Returns: @val * @num / @denom.  In the case of an overflow, this
520  * function returns G_MAXUINT64.  If the result is not exactly
521  * representable as an integer it is truncated.  See also
522  * gst_util_uint64_scale_round(), gst_util_uint64_scale_ceil(),
523  * gst_util_uint64_scale_int(), gst_util_uint64_scale_int_round(),
524  * gst_util_uint64_scale_int_ceil().
525  */
526 guint64
527 gst_util_uint64_scale (guint64 val, guint64 num, guint64 denom)
528 {
529   return _gst_util_uint64_scale (val, num, denom, 0);
530 }
531
532 /**
533  * gst_util_uint64_scale_round:
534  * @val: the number to scale
535  * @num: the numerator of the scale ratio
536  * @denom: the denominator of the scale ratio
537  *
538  * Scale @val by the rational number @num / @denom, avoiding overflows and
539  * underflows and without loss of precision.
540  *
541  * This function can potentially be very slow if val and num are both
542  * greater than G_MAXUINT32.
543  *
544  * Returns: @val * @num / @denom.  In the case of an overflow, this
545  * function returns G_MAXUINT64.  If the result is not exactly
546  * representable as an integer, it is rounded to the nearest integer
547  * (half-way cases are rounded up).  See also gst_util_uint64_scale(),
548  * gst_util_uint64_scale_ceil(), gst_util_uint64_scale_int(),
549  * gst_util_uint64_scale_int_round(), gst_util_uint64_scale_int_ceil().
550  */
551 guint64
552 gst_util_uint64_scale_round (guint64 val, guint64 num, guint64 denom)
553 {
554   return _gst_util_uint64_scale (val, num, denom, denom >> 1);
555 }
556
557 /**
558  * gst_util_uint64_scale_ceil:
559  * @val: the number to scale
560  * @num: the numerator of the scale ratio
561  * @denom: the denominator of the scale ratio
562  *
563  * Scale @val by the rational number @num / @denom, avoiding overflows and
564  * underflows and without loss of precision.
565  *
566  * This function can potentially be very slow if val and num are both
567  * greater than G_MAXUINT32.
568  *
569  * Returns: @val * @num / @denom.  In the case of an overflow, this
570  * function returns G_MAXUINT64.  If the result is not exactly
571  * representable as an integer, it is rounded up.  See also
572  * gst_util_uint64_scale(), gst_util_uint64_scale_round(),
573  * gst_util_uint64_scale_int(), gst_util_uint64_scale_int_round(),
574  * gst_util_uint64_scale_int_ceil().
575  */
576 guint64
577 gst_util_uint64_scale_ceil (guint64 val, guint64 num, guint64 denom)
578 {
579   return _gst_util_uint64_scale (val, num, denom, denom - 1);
580 }
581
582 /* the guts of the gst_util_uint64_scale_int() variants */
583 static guint64
584 _gst_util_uint64_scale_int (guint64 val, gint num, gint denom, gint correct)
585 {
586   g_return_val_if_fail (denom > 0, G_MAXUINT64);
587   g_return_val_if_fail (num >= 0, G_MAXUINT64);
588
589   if (G_UNLIKELY (num == 0))
590     return 0;
591
592   if (G_UNLIKELY (num == denom))
593     return val;
594
595   if (val <= G_MAXUINT32) {
596     /* simple case.  num and denom are not negative so casts are OK.  when
597      * not truncating, the additions to the numerator cannot overflow
598      * because val*num <= G_MAXUINT32 * G_MAXINT32 < G_MAXUINT64 -
599      * G_MAXINT32, so there's room to add another gint32. */
600     val *= (guint64) num;
601     /* add rounding correction */
602     val += correct;
603
604     return val / (guint64) denom;
605   }
606 #if !defined (__x86_64__) && !defined (HAVE_UINT128_T)
607   /* num and denom are not negative so casts are OK */
608   return gst_util_uint64_scale_uint32_unchecked (val, (guint32) num,
609       (guint32) denom, (guint32) correct);
610 #else
611   /* always use full 128bits scale */
612   return gst_util_uint64_scale_uint64_unchecked (val, num, denom, correct);
613 #endif
614 }
615
616 /**
617  * gst_util_uint64_scale_int:
618  * @val: guint64 (such as a #GstClockTime) to scale.
619  * @num: numerator of the scale factor.
620  * @denom: denominator of the scale factor.
621  *
622  * Scale @val by the rational number @num / @denom, avoiding overflows and
623  * underflows and without loss of precision.  @num must be non-negative and
624  * @denom must be positive.
625  *
626  * Returns: @val * @num / @denom.  In the case of an overflow, this
627  * function returns G_MAXUINT64.  If the result is not exactly
628  * representable as an integer, it is truncated.  See also
629  * gst_util_uint64_scale_int_round(), gst_util_uint64_scale_int_ceil(),
630  * gst_util_uint64_scale(), gst_util_uint64_scale_round(),
631  * gst_util_uint64_scale_ceil().
632  */
633 guint64
634 gst_util_uint64_scale_int (guint64 val, gint num, gint denom)
635 {
636   return _gst_util_uint64_scale_int (val, num, denom, 0);
637 }
638
639 /**
640  * gst_util_uint64_scale_int_round:
641  * @val: guint64 (such as a #GstClockTime) to scale.
642  * @num: numerator of the scale factor.
643  * @denom: denominator of the scale factor.
644  *
645  * Scale @val by the rational number @num / @denom, avoiding overflows and
646  * underflows and without loss of precision.  @num must be non-negative and
647  * @denom must be positive.
648  *
649  * Returns: @val * @num / @denom.  In the case of an overflow, this
650  * function returns G_MAXUINT64.  If the result is not exactly
651  * representable as an integer, it is rounded to the nearest integer
652  * (half-way cases are rounded up).  See also gst_util_uint64_scale_int(),
653  * gst_util_uint64_scale_int_ceil(), gst_util_uint64_scale(),
654  * gst_util_uint64_scale_round(), gst_util_uint64_scale_ceil().
655  */
656 guint64
657 gst_util_uint64_scale_int_round (guint64 val, gint num, gint denom)
658 {
659   /* we can use a shift to divide by 2 because denom is required to be
660    * positive. */
661   return _gst_util_uint64_scale_int (val, num, denom, denom >> 1);
662 }
663
664 /**
665  * gst_util_uint64_scale_int_ceil:
666  * @val: guint64 (such as a #GstClockTime) to scale.
667  * @num: numerator of the scale factor.
668  * @denom: denominator of the scale factor.
669  *
670  * Scale @val by the rational number @num / @denom, avoiding overflows and
671  * underflows and without loss of precision.  @num must be non-negative and
672  * @denom must be positive.
673  *
674  * Returns: @val * @num / @denom.  In the case of an overflow, this
675  * function returns G_MAXUINT64.  If the result is not exactly
676  * representable as an integer, it is rounded up.  See also
677  * gst_util_uint64_scale_int(), gst_util_uint64_scale_int_round(),
678  * gst_util_uint64_scale(), gst_util_uint64_scale_round(),
679  * gst_util_uint64_scale_ceil().
680  */
681 guint64
682 gst_util_uint64_scale_int_ceil (guint64 val, gint num, gint denom)
683 {
684   return _gst_util_uint64_scale_int (val, num, denom, denom - 1);
685 }
686
687 /**
688  * gst_util_seqnum_next:
689  *
690  * Return a constantly incrementing sequence number.
691  *
692  * This function is used internally to GStreamer to be able to determine which
693  * events and messages are "the same". For example, elements may set the seqnum
694  * on a segment-done message to be the same as that of the last seek event, to
695  * indicate that event and the message correspond to the same segment.
696  *
697  * Returns: A constantly incrementing 32-bit unsigned integer, which might
698  * overflow back to 0 at some point. Use gst_util_seqnum_compare() to make sure
699  * you handle wraparound correctly.
700  *
701  * Since: 0.10.22
702  */
703 guint32
704 gst_util_seqnum_next (void)
705 {
706   static gint counter = 0;
707   return G_ATOMIC_INT_ADD (&counter, 1);
708 }
709
710 /**
711  * gst_util_seqnum_compare:
712  * @s1: A sequence number.
713  * @s2: Another sequence number.
714  *
715  * Compare two sequence numbers, handling wraparound.
716  *
717  * The current implementation just returns (gint32)(@s1 - @s2).
718  *
719  * Returns: A negative number if @s1 is before @s2, 0 if they are equal, or a
720  * positive number if @s1 is after @s2.
721  *
722  * Since: 0.10.22
723  */
724 gint32
725 gst_util_seqnum_compare (guint32 s1, guint32 s2)
726 {
727   return (gint32) (s1 - s2);
728 }
729
730 /* -----------------------------------------------------
731  *
732  *  The following code will be moved out of the main
733  * gstreamer library someday.
734  */
735
736 #include "gstpad.h"
737
738 static void
739 string_append_indent (GString * str, gint count)
740 {
741   gint xx;
742
743   for (xx = 0; xx < count; xx++)
744     g_string_append_c (str, ' ');
745 }
746
747 /**
748  * gst_print_pad_caps:
749  * @buf: the buffer to print the caps in
750  * @indent: initial indentation
751  * @pad: (transfer none): the pad to print the caps from
752  *
753  * Write the pad capabilities in a human readable format into
754  * the given GString.
755  */
756 void
757 gst_print_pad_caps (GString * buf, gint indent, GstPad * pad)
758 {
759   GstCaps *caps;
760
761   caps = gst_pad_get_current_caps (pad);
762
763   if (!caps) {
764     string_append_indent (buf, indent);
765     g_string_printf (buf, "%s:%s has no capabilities",
766         GST_DEBUG_PAD_NAME (pad));
767   } else {
768     char *s;
769
770     s = gst_caps_to_string (caps);
771     g_string_append (buf, s);
772     g_free (s);
773
774     gst_caps_unref (caps);
775   }
776 }
777
778 /**
779  * gst_print_element_args:
780  * @buf: the buffer to print the args in
781  * @indent: initial indentation
782  * @element: (transfer none): the element to print the args of
783  *
784  * Print the element argument in a human readable format in the given
785  * GString.
786  */
787 void
788 gst_print_element_args (GString * buf, gint indent, GstElement * element)
789 {
790   guint width;
791   GValue value = { 0, };        /* the important thing is that value.type = 0 */
792   gchar *str = NULL;
793   GParamSpec *spec, **specs, **walk;
794
795   specs = g_object_class_list_properties (G_OBJECT_GET_CLASS (element), NULL);
796
797   width = 0;
798   for (walk = specs; *walk; walk++) {
799     spec = *walk;
800     if (width < strlen (spec->name))
801       width = strlen (spec->name);
802   }
803
804   for (walk = specs; *walk; walk++) {
805     spec = *walk;
806
807     if (spec->flags & G_PARAM_READABLE) {
808       g_value_init (&value, spec->value_type);
809       g_object_get_property (G_OBJECT (element), spec->name, &value);
810       str = g_strdup_value_contents (&value);
811       g_value_unset (&value);
812     } else {
813       str = g_strdup ("Parameter not readable.");
814     }
815
816     string_append_indent (buf, indent);
817     g_string_append (buf, spec->name);
818     string_append_indent (buf, 2 + width - strlen (spec->name));
819     g_string_append (buf, str);
820     g_string_append_c (buf, '\n');
821
822     g_free (str);
823   }
824
825   g_free (specs);
826 }
827
828 /**
829  * gst_element_create_all_pads:
830  * @element: (transfer none): a #GstElement to create pads for
831  *
832  * Creates a pad for each pad template that is always available.
833  * This function is only useful during object intialization of
834  * subclasses of #GstElement.
835  */
836 void
837 gst_element_create_all_pads (GstElement * element)
838 {
839   GList *padlist;
840
841   /* FIXME: lock element */
842
843   padlist =
844       gst_element_class_get_pad_template_list (GST_ELEMENT_CLASS
845       (G_OBJECT_GET_CLASS (element)));
846
847   while (padlist) {
848     GstPadTemplate *padtempl = (GstPadTemplate *) padlist->data;
849
850     if (padtempl->presence == GST_PAD_ALWAYS) {
851       GstPad *pad;
852
853       pad = gst_pad_new_from_template (padtempl, padtempl->name_template);
854
855       gst_element_add_pad (element, pad);
856     }
857     padlist = padlist->next;
858   }
859 }
860
861 /**
862  * gst_element_get_compatible_pad_template:
863  * @element: (transfer none): a #GstElement to get a compatible pad template for
864  * @compattempl: (transfer none): the #GstPadTemplate to find a compatible
865  *     template for
866  *
867  * Retrieves a pad template from @element that is compatible with @compattempl.
868  * Pads from compatible templates can be linked together.
869  *
870  * Returns: (transfer none): a compatible #GstPadTemplate, or NULL if none
871  *     was found. No unreferencing is necessary.
872  */
873 GstPadTemplate *
874 gst_element_get_compatible_pad_template (GstElement * element,
875     GstPadTemplate * compattempl)
876 {
877   GstPadTemplate *newtempl = NULL;
878   GList *padlist;
879   GstElementClass *class;
880   gboolean compatible;
881
882   g_return_val_if_fail (element != NULL, NULL);
883   g_return_val_if_fail (GST_IS_ELEMENT (element), NULL);
884   g_return_val_if_fail (compattempl != NULL, NULL);
885
886   class = GST_ELEMENT_GET_CLASS (element);
887
888   padlist = gst_element_class_get_pad_template_list (class);
889
890   GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
891       "Looking for a suitable pad template in %s out of %d templates...",
892       GST_ELEMENT_NAME (element), g_list_length (padlist));
893
894   while (padlist) {
895     GstPadTemplate *padtempl = (GstPadTemplate *) padlist->data;
896
897     /* Ignore name
898      * Ignore presence
899      * Check direction (must be opposite)
900      * Check caps
901      */
902     GST_CAT_LOG (GST_CAT_CAPS,
903         "checking pad template %s", padtempl->name_template);
904     if (padtempl->direction != compattempl->direction) {
905       GST_CAT_DEBUG (GST_CAT_CAPS,
906           "compatible direction: found %s pad template \"%s\"",
907           padtempl->direction == GST_PAD_SRC ? "src" : "sink",
908           padtempl->name_template);
909
910       GST_CAT_DEBUG (GST_CAT_CAPS,
911           "intersecting %" GST_PTR_FORMAT, GST_PAD_TEMPLATE_CAPS (compattempl));
912       GST_CAT_DEBUG (GST_CAT_CAPS,
913           "..and %" GST_PTR_FORMAT, GST_PAD_TEMPLATE_CAPS (padtempl));
914
915       compatible = gst_caps_can_intersect (GST_PAD_TEMPLATE_CAPS (compattempl),
916           GST_PAD_TEMPLATE_CAPS (padtempl));
917
918       GST_CAT_DEBUG (GST_CAT_CAPS, "caps are %scompatible",
919           (compatible ? "" : "not "));
920
921       if (compatible) {
922         newtempl = padtempl;
923         break;
924       }
925     }
926
927     padlist = g_list_next (padlist);
928   }
929   if (newtempl)
930     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
931         "Returning new pad template %p", newtempl);
932   else
933     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "No compatible pad template found");
934
935   return newtempl;
936 }
937
938 /**
939  * gst_element_get_pad_from_template:
940  * @element: (transfer none): a #GstElement.
941  * @templ: (transfer none): a #GstPadTemplate belonging to @element.
942  *
943  * Gets a pad from @element described by @templ. If the presence of @templ is
944  * #GST_PAD_REQUEST, requests a new pad. Can return %NULL for #GST_PAD_SOMETIMES
945  * templates.
946  *
947  * Returns: (transfer full): the #GstPad, or NULL if one could not be found
948  *     or created.
949  */
950 static GstPad *
951 gst_element_get_pad_from_template (GstElement * element, GstPadTemplate * templ)
952 {
953   GstPad *ret = NULL;
954   GstPadPresence presence;
955
956   /* If this function is ever exported, we need check the validity of `element'
957    * and `templ', and to make sure the template actually belongs to the
958    * element. */
959
960   presence = GST_PAD_TEMPLATE_PRESENCE (templ);
961
962   switch (presence) {
963     case GST_PAD_ALWAYS:
964     case GST_PAD_SOMETIMES:
965       ret = gst_element_get_static_pad (element, templ->name_template);
966       if (!ret && presence == GST_PAD_ALWAYS)
967         g_warning
968             ("Element %s has an ALWAYS template %s, but no pad of the same name",
969             GST_OBJECT_NAME (element), templ->name_template);
970       break;
971
972     case GST_PAD_REQUEST:
973       ret = gst_element_request_pad (element, templ, NULL, NULL);
974       break;
975   }
976
977   return ret;
978 }
979
980 /*
981  * gst_element_request_compatible_pad:
982  * @element: a #GstElement.
983  * @templ: the #GstPadTemplate to which the new pad should be able to link.
984  *
985  * Requests a pad from @element. The returned pad should be unlinked and
986  * compatible with @templ. Might return an existing pad, or request a new one.
987  *
988  * Returns: a #GstPad, or %NULL if one could not be found or created.
989  */
990 static GstPad *
991 gst_element_request_compatible_pad (GstElement * element,
992     GstPadTemplate * templ)
993 {
994   GstPadTemplate *templ_new;
995   GstPad *pad = NULL;
996
997   g_return_val_if_fail (GST_IS_ELEMENT (element), NULL);
998   g_return_val_if_fail (GST_IS_PAD_TEMPLATE (templ), NULL);
999
1000   /* FIXME: should really loop through the templates, testing each for
1001    *      compatibility and pad availability. */
1002   templ_new = gst_element_get_compatible_pad_template (element, templ);
1003   if (templ_new)
1004     pad = gst_element_get_pad_from_template (element, templ_new);
1005
1006   /* This can happen for non-request pads. No need to unref. */
1007   if (pad && GST_PAD_PEER (pad))
1008     pad = NULL;
1009
1010   return pad;
1011 }
1012
1013 /*
1014  * Checks if the source pad and the sink pad can be linked.
1015  * Both @srcpad and @sinkpad must be unlinked and have a parent.
1016  */
1017 static gboolean
1018 gst_pad_check_link (GstPad * srcpad, GstPad * sinkpad)
1019 {
1020   /* FIXME This function is gross.  It's almost a direct copy of
1021    * gst_pad_link_filtered().  Any decent programmer would attempt
1022    * to merge the two functions, which I will do some day. --ds
1023    */
1024
1025   /* generic checks */
1026   g_return_val_if_fail (GST_IS_PAD (srcpad), FALSE);
1027   g_return_val_if_fail (GST_IS_PAD (sinkpad), FALSE);
1028
1029   GST_CAT_INFO (GST_CAT_PADS, "trying to link %s:%s and %s:%s",
1030       GST_DEBUG_PAD_NAME (srcpad), GST_DEBUG_PAD_NAME (sinkpad));
1031
1032   /* FIXME: shouldn't we convert this to g_return_val_if_fail? */
1033   if (GST_PAD_PEER (srcpad) != NULL) {
1034     GST_CAT_INFO (GST_CAT_PADS, "Source pad %s:%s has a peer, failed",
1035         GST_DEBUG_PAD_NAME (srcpad));
1036     return FALSE;
1037   }
1038   if (GST_PAD_PEER (sinkpad) != NULL) {
1039     GST_CAT_INFO (GST_CAT_PADS, "Sink pad %s:%s has a peer, failed",
1040         GST_DEBUG_PAD_NAME (sinkpad));
1041     return FALSE;
1042   }
1043   if (!GST_PAD_IS_SRC (srcpad)) {
1044     GST_CAT_INFO (GST_CAT_PADS, "Src pad %s:%s is not source pad, failed",
1045         GST_DEBUG_PAD_NAME (srcpad));
1046     return FALSE;
1047   }
1048   if (!GST_PAD_IS_SINK (sinkpad)) {
1049     GST_CAT_INFO (GST_CAT_PADS, "Sink pad %s:%s is not sink pad, failed",
1050         GST_DEBUG_PAD_NAME (sinkpad));
1051     return FALSE;
1052   }
1053   if (GST_PAD_PARENT (srcpad) == NULL) {
1054     GST_CAT_INFO (GST_CAT_PADS, "Src pad %s:%s has no parent, failed",
1055         GST_DEBUG_PAD_NAME (srcpad));
1056     return FALSE;
1057   }
1058   if (GST_PAD_PARENT (sinkpad) == NULL) {
1059     GST_CAT_INFO (GST_CAT_PADS, "Sink pad %s:%s has no parent, failed",
1060         GST_DEBUG_PAD_NAME (srcpad));
1061     return FALSE;
1062   }
1063
1064   return TRUE;
1065 }
1066
1067 /**
1068  * gst_element_get_compatible_pad:
1069  * @element: (transfer none): a #GstElement in which the pad should be found.
1070  * @pad: (transfer none): the #GstPad to find a compatible one for.
1071  * @caps: the #GstCaps to use as a filter.
1072  *
1073  * Looks for an unlinked pad to which the given pad can link. It is not
1074  * guaranteed that linking the pads will work, though it should work in most
1075  * cases.
1076  *
1077  * This function will first attempt to find a compatible unlinked ALWAYS pad,
1078  * and if none can be found, it will request a compatible REQUEST pad by looking
1079  * at the templates of @element.
1080  *
1081  * Returns: (transfer full): the #GstPad to which a link can be made, or %NULL
1082  *     if one cannot be found. gst_object_unref() after usage.
1083  */
1084 GstPad *
1085 gst_element_get_compatible_pad (GstElement * element, GstPad * pad,
1086     const GstCaps * caps)
1087 {
1088   GstIterator *pads;
1089   GstPadTemplate *templ;
1090   GstCaps *templcaps;
1091   GstPad *foundpad = NULL;
1092   gboolean done;
1093   GValue padptr = { 0, };
1094
1095   g_return_val_if_fail (GST_IS_ELEMENT (element), NULL);
1096   g_return_val_if_fail (GST_IS_PAD (pad), NULL);
1097
1098   GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1099       "finding pad in %s compatible with %s:%s",
1100       GST_ELEMENT_NAME (element), GST_DEBUG_PAD_NAME (pad));
1101
1102   g_return_val_if_fail (GST_PAD_PEER (pad) == NULL, NULL);
1103
1104   done = FALSE;
1105
1106   /* try to get an existing unlinked pad */
1107   if (GST_PAD_IS_SRC (pad)) {
1108     pads = gst_element_iterate_sink_pads (element);
1109   } else if (GST_PAD_IS_SINK (pad)) {
1110     pads = gst_element_iterate_src_pads (element);
1111   } else {
1112     pads = gst_element_iterate_pads (element);
1113   }
1114
1115   while (!done) {
1116     switch (gst_iterator_next (pads, &padptr)) {
1117       case GST_ITERATOR_OK:
1118       {
1119         GstPad *peer;
1120         GstPad *current;
1121         GstPad *srcpad;
1122         GstPad *sinkpad;
1123
1124         current = g_value_get_object (&padptr);
1125
1126         GST_CAT_LOG (GST_CAT_ELEMENT_PADS, "examining pad %s:%s",
1127             GST_DEBUG_PAD_NAME (current));
1128
1129         if (GST_PAD_IS_SRC (current)) {
1130           srcpad = current;
1131           sinkpad = pad;
1132         } else {
1133           srcpad = pad;
1134           sinkpad = current;
1135         }
1136         peer = gst_pad_get_peer (current);
1137
1138         if (peer == NULL && gst_pad_check_link (srcpad, sinkpad)) {
1139           GstCaps *temp, *intersection;
1140           gboolean compatible;
1141
1142           /* Now check if the two pads' caps are compatible */
1143           temp = gst_pad_get_caps (pad, NULL);
1144           if (caps) {
1145             intersection = gst_caps_intersect (temp, caps);
1146             gst_caps_unref (temp);
1147           } else {
1148             intersection = temp;
1149           }
1150
1151           temp = gst_pad_get_caps (current, NULL);
1152           compatible = gst_caps_can_intersect (temp, intersection);
1153           gst_caps_unref (temp);
1154           gst_caps_unref (intersection);
1155
1156           if (compatible) {
1157             GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1158                 "found existing unlinked compatible pad %s:%s",
1159                 GST_DEBUG_PAD_NAME (current));
1160             gst_iterator_free (pads);
1161
1162             current = gst_object_ref (current);
1163             g_value_unset (&padptr);
1164
1165             return current;
1166           } else {
1167             GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "incompatible pads");
1168           }
1169         } else {
1170           GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1171               "already linked or cannot be linked (peer = %p)", peer);
1172         }
1173         GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "unreffing pads");
1174
1175         g_value_reset (&padptr);
1176         if (peer)
1177           gst_object_unref (peer);
1178         break;
1179       }
1180       case GST_ITERATOR_DONE:
1181         done = TRUE;
1182         break;
1183       case GST_ITERATOR_RESYNC:
1184         gst_iterator_resync (pads);
1185         break;
1186       case GST_ITERATOR_ERROR:
1187         g_assert_not_reached ();
1188         break;
1189     }
1190   }
1191   g_value_unset (&padptr);
1192   gst_iterator_free (pads);
1193
1194   GST_CAT_DEBUG_OBJECT (GST_CAT_ELEMENT_PADS, element,
1195       "Could not find a compatible unlinked always pad to link to %s:%s, now checking request pads",
1196       GST_DEBUG_PAD_NAME (pad));
1197
1198   /* try to create a new one */
1199   /* requesting is a little crazy, we need a template. Let's create one */
1200   /* FIXME: why not gst_pad_get_pad_template (pad); */
1201   templcaps = gst_pad_get_caps (pad, NULL);
1202   templ = gst_pad_template_new ((gchar *) GST_PAD_NAME (pad),
1203       GST_PAD_DIRECTION (pad), GST_PAD_ALWAYS, templcaps);
1204   gst_caps_unref (templcaps);
1205
1206   foundpad = gst_element_request_compatible_pad (element, templ);
1207   gst_object_unref (templ);
1208
1209   if (foundpad) {
1210     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1211         "found existing request pad %s:%s", GST_DEBUG_PAD_NAME (foundpad));
1212     return foundpad;
1213   }
1214
1215   GST_CAT_INFO_OBJECT (GST_CAT_ELEMENT_PADS, element,
1216       "Could not find a compatible pad to link to %s:%s",
1217       GST_DEBUG_PAD_NAME (pad));
1218   return NULL;
1219 }
1220
1221 /**
1222  * gst_element_state_get_name:
1223  * @state: a #GstState to get the name of.
1224  *
1225  * Gets a string representing the given state.
1226  *
1227  * Returns: (transfer none): a string with the name of the state.
1228  */
1229 const gchar *
1230 gst_element_state_get_name (GstState state)
1231 {
1232   switch (state) {
1233     case GST_STATE_VOID_PENDING:
1234       return "VOID_PENDING";
1235     case GST_STATE_NULL:
1236       return "NULL";
1237     case GST_STATE_READY:
1238       return "READY";
1239     case GST_STATE_PLAYING:
1240       return "PLAYING";
1241     case GST_STATE_PAUSED:
1242       return "PAUSED";
1243     default:
1244       /* This is a memory leak */
1245       return g_strdup_printf ("UNKNOWN!(%d)", state);
1246   }
1247 }
1248
1249 /**
1250  * gst_element_state_change_return_get_name:
1251  * @state_ret: a #GstStateChangeReturn to get the name of.
1252  *
1253  * Gets a string representing the given state change result.
1254  *
1255  * Returns: (transfer none): a string with the name of the state
1256  *    result.
1257  *
1258  * Since: 0.10.11
1259  */
1260 const gchar *
1261 gst_element_state_change_return_get_name (GstStateChangeReturn state_ret)
1262 {
1263   switch (state_ret) {
1264     case GST_STATE_CHANGE_FAILURE:
1265       return "FAILURE";
1266     case GST_STATE_CHANGE_SUCCESS:
1267       return "SUCCESS";
1268     case GST_STATE_CHANGE_ASYNC:
1269       return "ASYNC";
1270     case GST_STATE_CHANGE_NO_PREROLL:
1271       return "NO PREROLL";
1272     default:
1273       /* This is a memory leak */
1274       return g_strdup_printf ("UNKNOWN!(%d)", state_ret);
1275   }
1276 }
1277
1278
1279 static gboolean
1280 gst_element_factory_can_accept_all_caps_in_direction (GstElementFactory *
1281     factory, const GstCaps * caps, GstPadDirection direction)
1282 {
1283   GList *templates;
1284
1285   g_return_val_if_fail (factory != NULL, FALSE);
1286   g_return_val_if_fail (caps != NULL, FALSE);
1287
1288   templates = factory->staticpadtemplates;
1289
1290   while (templates) {
1291     GstStaticPadTemplate *template = (GstStaticPadTemplate *) templates->data;
1292
1293     if (template->direction == direction) {
1294       GstCaps *templcaps = gst_static_caps_get (&template->static_caps);
1295
1296       if (gst_caps_is_always_compatible (caps, templcaps)) {
1297         gst_caps_unref (templcaps);
1298         return TRUE;
1299       }
1300       gst_caps_unref (templcaps);
1301     }
1302     templates = g_list_next (templates);
1303   }
1304
1305   return FALSE;
1306 }
1307
1308 static gboolean
1309 gst_element_factory_can_accept_any_caps_in_direction (GstElementFactory *
1310     factory, const GstCaps * caps, GstPadDirection direction)
1311 {
1312   GList *templates;
1313
1314   g_return_val_if_fail (factory != NULL, FALSE);
1315   g_return_val_if_fail (caps != NULL, FALSE);
1316
1317   templates = factory->staticpadtemplates;
1318
1319   while (templates) {
1320     GstStaticPadTemplate *template = (GstStaticPadTemplate *) templates->data;
1321
1322     if (template->direction == direction) {
1323       GstCaps *templcaps = gst_static_caps_get (&template->static_caps);
1324
1325       if (gst_caps_can_intersect (caps, templcaps)) {
1326         gst_caps_unref (templcaps);
1327         return TRUE;
1328       }
1329       gst_caps_unref (templcaps);
1330     }
1331     templates = g_list_next (templates);
1332   }
1333
1334   return FALSE;
1335 }
1336
1337 /**
1338  * gst_element_factory_can_sink_all_caps:
1339  * @factory: factory to query
1340  * @caps: the caps to check
1341  *
1342  * Checks if the factory can sink all possible capabilities.
1343  *
1344  * Returns: %TRUE if the caps are fully compatible.
1345  *
1346  * Since: 0.10.33
1347  */
1348 gboolean
1349 gst_element_factory_can_sink_all_caps (GstElementFactory * factory,
1350     const GstCaps * caps)
1351 {
1352   return gst_element_factory_can_accept_all_caps_in_direction (factory, caps,
1353       GST_PAD_SINK);
1354 }
1355
1356 /**
1357  * gst_element_factory_can_src_all_caps:
1358  * @factory: factory to query
1359  * @caps: the caps to check
1360  *
1361  * Checks if the factory can src all possible capabilities.
1362  *
1363  * Returns: %TRUE if the caps are fully compatible.
1364  *
1365  * Since: 0.10.33
1366  */
1367 gboolean
1368 gst_element_factory_can_src_all_caps (GstElementFactory * factory,
1369     const GstCaps * caps)
1370 {
1371   return gst_element_factory_can_accept_all_caps_in_direction (factory, caps,
1372       GST_PAD_SRC);
1373 }
1374
1375 /**
1376  * gst_element_factory_can_sink_any_caps:
1377  * @factory: factory to query
1378  * @caps: the caps to check
1379  *
1380  * Checks if the factory can sink any possible capability.
1381  *
1382  * Returns: %TRUE if the caps have a common subset.
1383  *
1384  * Since: 0.10.33
1385  */
1386 gboolean
1387 gst_element_factory_can_sink_any_caps (GstElementFactory * factory,
1388     const GstCaps * caps)
1389 {
1390   return gst_element_factory_can_accept_any_caps_in_direction (factory, caps,
1391       GST_PAD_SINK);
1392 }
1393
1394 /**
1395  * gst_element_factory_can_src_any_caps:
1396  * @factory: factory to query
1397  * @caps: the caps to check
1398  *
1399  * Checks if the factory can src any possible capability.
1400  *
1401  * Returns: %TRUE if the caps have a common subset.
1402  *
1403  * Since: 0.10.33
1404  */
1405 gboolean
1406 gst_element_factory_can_src_any_caps (GstElementFactory * factory,
1407     const GstCaps * caps)
1408 {
1409   return gst_element_factory_can_accept_any_caps_in_direction (factory, caps,
1410       GST_PAD_SRC);
1411 }
1412
1413 /* if return val is true, *direct_child is a caller-owned ref on the direct
1414  * child of ancestor that is part of object's ancestry */
1415 static gboolean
1416 object_has_ancestor (GstObject * object, GstObject * ancestor,
1417     GstObject ** direct_child)
1418 {
1419   GstObject *child, *parent;
1420
1421   if (direct_child)
1422     *direct_child = NULL;
1423
1424   child = gst_object_ref (object);
1425   parent = gst_object_get_parent (object);
1426
1427   while (parent) {
1428     if (ancestor == parent) {
1429       if (direct_child)
1430         *direct_child = child;
1431       else
1432         gst_object_unref (child);
1433       gst_object_unref (parent);
1434       return TRUE;
1435     }
1436
1437     gst_object_unref (child);
1438     child = parent;
1439     parent = gst_object_get_parent (parent);
1440   }
1441
1442   gst_object_unref (child);
1443
1444   return FALSE;
1445 }
1446
1447 /* caller owns return */
1448 static GstObject *
1449 find_common_root (GstObject * o1, GstObject * o2)
1450 {
1451   GstObject *top = o1;
1452   GstObject *kid1, *kid2;
1453   GstObject *root = NULL;
1454
1455   while (GST_OBJECT_PARENT (top))
1456     top = GST_OBJECT_PARENT (top);
1457
1458   /* the itsy-bitsy spider... */
1459
1460   if (!object_has_ancestor (o2, top, &kid2))
1461     return NULL;
1462
1463   root = gst_object_ref (top);
1464   while (TRUE) {
1465     if (!object_has_ancestor (o1, kid2, &kid1)) {
1466       gst_object_unref (kid2);
1467       return root;
1468     }
1469     root = kid2;
1470     if (!object_has_ancestor (o2, kid1, &kid2)) {
1471       gst_object_unref (kid1);
1472       return root;
1473     }
1474     root = kid1;
1475   }
1476 }
1477
1478 /* caller does not own return */
1479 static GstPad *
1480 ghost_up (GstElement * e, GstPad * pad)
1481 {
1482   static gint ghost_pad_index = 0;
1483   GstPad *gpad;
1484   gchar *name;
1485   GstState current;
1486   GstState next;
1487   GstObject *parent = GST_OBJECT_PARENT (e);
1488
1489   name = g_strdup_printf ("ghost%d", ghost_pad_index++);
1490   gpad = gst_ghost_pad_new (name, pad);
1491   g_free (name);
1492
1493   GST_STATE_LOCK (e);
1494   gst_element_get_state (e, &current, &next, 0);
1495
1496   if (current > GST_STATE_READY || next == GST_STATE_PAUSED)
1497     gst_pad_set_active (gpad, TRUE);
1498
1499   if (!gst_element_add_pad ((GstElement *) parent, gpad)) {
1500     g_warning ("Pad named %s already exists in element %s\n",
1501         GST_OBJECT_NAME (gpad), GST_OBJECT_NAME (parent));
1502     gst_object_unref ((GstObject *) gpad);
1503     GST_STATE_UNLOCK (e);
1504     return NULL;
1505   }
1506   GST_STATE_UNLOCK (e);
1507
1508   return gpad;
1509 }
1510
1511 static void
1512 remove_pad (gpointer ppad, gpointer unused)
1513 {
1514   GstPad *pad = ppad;
1515
1516   if (!gst_element_remove_pad ((GstElement *) GST_OBJECT_PARENT (pad), pad))
1517     g_warning ("Couldn't remove pad %s from element %s",
1518         GST_OBJECT_NAME (pad), GST_OBJECT_NAME (GST_OBJECT_PARENT (pad)));
1519 }
1520
1521 static gboolean
1522 prepare_link_maybe_ghosting (GstPad ** src, GstPad ** sink,
1523     GSList ** pads_created)
1524 {
1525   GstObject *root;
1526   GstObject *e1, *e2;
1527   GSList *pads_created_local = NULL;
1528
1529   g_assert (pads_created);
1530
1531   e1 = GST_OBJECT_PARENT (*src);
1532   e2 = GST_OBJECT_PARENT (*sink);
1533
1534   if (G_UNLIKELY (e1 == NULL)) {
1535     GST_WARNING ("Trying to ghost a pad that doesn't have a parent: %"
1536         GST_PTR_FORMAT, *src);
1537     return FALSE;
1538   }
1539   if (G_UNLIKELY (e2 == NULL)) {
1540     GST_WARNING ("Trying to ghost a pad that doesn't have a parent: %"
1541         GST_PTR_FORMAT, *sink);
1542     return FALSE;
1543   }
1544
1545   if (GST_OBJECT_PARENT (e1) == GST_OBJECT_PARENT (e2)) {
1546     GST_CAT_INFO (GST_CAT_PADS, "%s and %s in same bin, no need for ghost pads",
1547         GST_OBJECT_NAME (e1), GST_OBJECT_NAME (e2));
1548     return TRUE;
1549   }
1550
1551   GST_CAT_INFO (GST_CAT_PADS, "%s and %s not in same bin, making ghost pads",
1552       GST_OBJECT_NAME (e1), GST_OBJECT_NAME (e2));
1553
1554   /* we need to setup some ghost pads */
1555   root = find_common_root (e1, e2);
1556   if (!root) {
1557     g_warning ("Trying to connect elements that don't share a common "
1558         "ancestor: %s and %s", GST_ELEMENT_NAME (e1), GST_ELEMENT_NAME (e2));
1559     return FALSE;
1560   }
1561
1562   while (GST_OBJECT_PARENT (e1) != root) {
1563     *src = ghost_up ((GstElement *) e1, *src);
1564     if (!*src)
1565       goto cleanup_fail;
1566     e1 = GST_OBJECT_PARENT (*src);
1567     pads_created_local = g_slist_prepend (pads_created_local, *src);
1568   }
1569   while (GST_OBJECT_PARENT (e2) != root) {
1570     *sink = ghost_up ((GstElement *) e2, *sink);
1571     if (!*sink)
1572       goto cleanup_fail;
1573     e2 = GST_OBJECT_PARENT (*sink);
1574     pads_created_local = g_slist_prepend (pads_created_local, *sink);
1575   }
1576
1577   gst_object_unref (root);
1578   *pads_created = g_slist_concat (*pads_created, pads_created_local);
1579   return TRUE;
1580
1581 cleanup_fail:
1582   gst_object_unref (root);
1583   g_slist_foreach (pads_created_local, remove_pad, NULL);
1584   g_slist_free (pads_created_local);
1585   return FALSE;
1586 }
1587
1588 static gboolean
1589 pad_link_maybe_ghosting (GstPad * src, GstPad * sink, GstPadLinkCheck flags)
1590 {
1591   GSList *pads_created = NULL;
1592   gboolean ret;
1593
1594   if (!prepare_link_maybe_ghosting (&src, &sink, &pads_created)) {
1595     ret = FALSE;
1596   } else {
1597     ret = (gst_pad_link_full (src, sink, flags) == GST_PAD_LINK_OK);
1598   }
1599
1600   if (!ret) {
1601     g_slist_foreach (pads_created, remove_pad, NULL);
1602   }
1603   g_slist_free (pads_created);
1604
1605   return ret;
1606 }
1607
1608 /**
1609  * gst_element_link_pads_full:
1610  * @src: a #GstElement containing the source pad.
1611  * @srcpadname: (allow-none): the name of the #GstPad in source element
1612  *     or NULL for any pad.
1613  * @dest: (transfer none): the #GstElement containing the destination pad.
1614  * @destpadname: (allow-none): the name of the #GstPad in destination element,
1615  * or NULL for any pad.
1616  * @flags: the #GstPadLinkCheck to be performed when linking pads.
1617  *
1618  * Links the two named pads of the source and destination elements.
1619  * Side effect is that if one of the pads has no parent, it becomes a
1620  * child of the parent of the other element.  If they have different
1621  * parents, the link fails.
1622  *
1623  * Calling gst_element_link_pads_full() with @flags == %GST_PAD_LINK_CHECK_DEFAULT
1624  * is the same as calling gst_element_link_pads() and the recommended way of
1625  * linking pads with safety checks applied.
1626  *
1627  * This is a convenience function for gst_pad_link_full().
1628  *
1629  * Returns: TRUE if the pads could be linked, FALSE otherwise.
1630  *
1631  * Since: 0.10.30
1632  */
1633 gboolean
1634 gst_element_link_pads_full (GstElement * src, const gchar * srcpadname,
1635     GstElement * dest, const gchar * destpadname, GstPadLinkCheck flags)
1636 {
1637   const GList *srcpads, *destpads, *srctempls, *desttempls, *l;
1638   GstPad *srcpad, *destpad;
1639   GstPadTemplate *srctempl, *desttempl;
1640   GstElementClass *srcclass, *destclass;
1641
1642   /* checks */
1643   g_return_val_if_fail (GST_IS_ELEMENT (src), FALSE);
1644   g_return_val_if_fail (GST_IS_ELEMENT (dest), FALSE);
1645
1646   GST_CAT_INFO (GST_CAT_ELEMENT_PADS,
1647       "trying to link element %s:%s to element %s:%s", GST_ELEMENT_NAME (src),
1648       srcpadname ? srcpadname : "(any)", GST_ELEMENT_NAME (dest),
1649       destpadname ? destpadname : "(any)");
1650
1651   /* get a src pad */
1652   if (srcpadname) {
1653     /* name specified, look it up */
1654     if (!(srcpad = gst_element_get_static_pad (src, srcpadname)))
1655       srcpad = gst_element_get_request_pad (src, srcpadname);
1656     if (!srcpad) {
1657       GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "no pad %s:%s",
1658           GST_ELEMENT_NAME (src), srcpadname);
1659       return FALSE;
1660     } else {
1661       if (!(GST_PAD_DIRECTION (srcpad) == GST_PAD_SRC)) {
1662         GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "pad %s:%s is no src pad",
1663             GST_DEBUG_PAD_NAME (srcpad));
1664         gst_object_unref (srcpad);
1665         return FALSE;
1666       }
1667       if (GST_PAD_PEER (srcpad) != NULL) {
1668         GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1669             "pad %s:%s is already linked to %s:%s", GST_DEBUG_PAD_NAME (srcpad),
1670             GST_DEBUG_PAD_NAME (GST_PAD_PEER (srcpad)));
1671         gst_object_unref (srcpad);
1672         return FALSE;
1673       }
1674     }
1675     srcpads = NULL;
1676   } else {
1677     /* no name given, get the first available pad */
1678     GST_OBJECT_LOCK (src);
1679     srcpads = GST_ELEMENT_PADS (src);
1680     srcpad = srcpads ? GST_PAD_CAST (srcpads->data) : NULL;
1681     if (srcpad)
1682       gst_object_ref (srcpad);
1683     GST_OBJECT_UNLOCK (src);
1684   }
1685
1686   /* get a destination pad */
1687   if (destpadname) {
1688     /* name specified, look it up */
1689     if (!(destpad = gst_element_get_static_pad (dest, destpadname)))
1690       destpad = gst_element_get_request_pad (dest, destpadname);
1691     if (!destpad) {
1692       GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "no pad %s:%s",
1693           GST_ELEMENT_NAME (dest), destpadname);
1694       return FALSE;
1695     } else {
1696       if (!(GST_PAD_DIRECTION (destpad) == GST_PAD_SINK)) {
1697         GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "pad %s:%s is no sink pad",
1698             GST_DEBUG_PAD_NAME (destpad));
1699         gst_object_unref (destpad);
1700         return FALSE;
1701       }
1702       if (GST_PAD_PEER (destpad) != NULL) {
1703         GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1704             "pad %s:%s is already linked to %s:%s",
1705             GST_DEBUG_PAD_NAME (destpad),
1706             GST_DEBUG_PAD_NAME (GST_PAD_PEER (destpad)));
1707         gst_object_unref (destpad);
1708         return FALSE;
1709       }
1710     }
1711     destpads = NULL;
1712   } else {
1713     /* no name given, get the first available pad */
1714     GST_OBJECT_LOCK (dest);
1715     destpads = GST_ELEMENT_PADS (dest);
1716     destpad = destpads ? GST_PAD_CAST (destpads->data) : NULL;
1717     if (destpad)
1718       gst_object_ref (destpad);
1719     GST_OBJECT_UNLOCK (dest);
1720   }
1721
1722   if (srcpadname && destpadname) {
1723     gboolean result;
1724
1725     /* two explicitly specified pads */
1726     result = pad_link_maybe_ghosting (srcpad, destpad, flags);
1727
1728     gst_object_unref (srcpad);
1729     gst_object_unref (destpad);
1730
1731     return result;
1732   }
1733
1734   if (srcpad) {
1735     /* loop through the allowed pads in the source, trying to find a
1736      * compatible destination pad */
1737     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1738         "looping through allowed src and dest pads");
1739     do {
1740       GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "trying src pad %s:%s",
1741           GST_DEBUG_PAD_NAME (srcpad));
1742       if ((GST_PAD_DIRECTION (srcpad) == GST_PAD_SRC) &&
1743           (GST_PAD_PEER (srcpad) == NULL)) {
1744         GstPad *temp;
1745
1746         if (destpadname) {
1747           temp = destpad;
1748           gst_object_ref (temp);
1749         } else {
1750           temp = gst_element_get_compatible_pad (dest, srcpad, NULL);
1751         }
1752
1753         if (temp && pad_link_maybe_ghosting (srcpad, temp, flags)) {
1754           GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "linked pad %s:%s to pad %s:%s",
1755               GST_DEBUG_PAD_NAME (srcpad), GST_DEBUG_PAD_NAME (temp));
1756           if (destpad)
1757             gst_object_unref (destpad);
1758           gst_object_unref (srcpad);
1759           gst_object_unref (temp);
1760           return TRUE;
1761         }
1762
1763         if (temp) {
1764           gst_object_unref (temp);
1765         }
1766       }
1767       /* find a better way for this mess */
1768       if (srcpads) {
1769         srcpads = g_list_next (srcpads);
1770         if (srcpads) {
1771           gst_object_unref (srcpad);
1772           srcpad = GST_PAD_CAST (srcpads->data);
1773           gst_object_ref (srcpad);
1774         }
1775       }
1776     } while (srcpads);
1777   }
1778   if (srcpadname) {
1779     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "no link possible from %s:%s to %s",
1780         GST_DEBUG_PAD_NAME (srcpad), GST_ELEMENT_NAME (dest));
1781     if (destpad)
1782       gst_object_unref (destpad);
1783     destpad = NULL;
1784   }
1785   if (srcpad)
1786     gst_object_unref (srcpad);
1787   srcpad = NULL;
1788
1789   if (destpad) {
1790     /* loop through the existing pads in the destination */
1791     do {
1792       GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "trying dest pad %s:%s",
1793           GST_DEBUG_PAD_NAME (destpad));
1794       if ((GST_PAD_DIRECTION (destpad) == GST_PAD_SINK) &&
1795           (GST_PAD_PEER (destpad) == NULL)) {
1796         GstPad *temp = gst_element_get_compatible_pad (src, destpad, NULL);
1797
1798         if (temp && pad_link_maybe_ghosting (temp, destpad, flags)) {
1799           GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "linked pad %s:%s to pad %s:%s",
1800               GST_DEBUG_PAD_NAME (temp), GST_DEBUG_PAD_NAME (destpad));
1801           gst_object_unref (temp);
1802           gst_object_unref (destpad);
1803           return TRUE;
1804         }
1805         if (temp) {
1806           gst_object_unref (temp);
1807         }
1808       }
1809       if (destpads) {
1810         destpads = g_list_next (destpads);
1811         if (destpads) {
1812           gst_object_unref (destpad);
1813           destpad = GST_PAD_CAST (destpads->data);
1814           gst_object_ref (destpad);
1815         }
1816       }
1817     } while (destpads);
1818   }
1819
1820   if (destpadname) {
1821     GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "no link possible from %s to %s:%s",
1822         GST_ELEMENT_NAME (src), GST_DEBUG_PAD_NAME (destpad));
1823     gst_object_unref (destpad);
1824     return FALSE;
1825   } else {
1826     if (destpad)
1827       gst_object_unref (destpad);
1828     destpad = NULL;
1829   }
1830
1831   srcclass = GST_ELEMENT_GET_CLASS (src);
1832   destclass = GST_ELEMENT_GET_CLASS (dest);
1833
1834   GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1835       "we might have request pads on both sides, checking...");
1836   srctempls = gst_element_class_get_pad_template_list (srcclass);
1837   desttempls = gst_element_class_get_pad_template_list (destclass);
1838
1839   if (srctempls && desttempls) {
1840     while (srctempls) {
1841       srctempl = (GstPadTemplate *) srctempls->data;
1842       if (srctempl->presence == GST_PAD_REQUEST) {
1843         for (l = desttempls; l; l = l->next) {
1844           desttempl = (GstPadTemplate *) l->data;
1845           if (desttempl->presence == GST_PAD_REQUEST &&
1846               desttempl->direction != srctempl->direction) {
1847             GstCaps *srccaps, *destcaps;
1848
1849             srccaps = gst_pad_template_get_caps (srctempl);
1850             destcaps = gst_pad_template_get_caps (desttempl);
1851             if (gst_caps_is_always_compatible (srccaps, destcaps)) {
1852               srcpad =
1853                   gst_element_request_pad (src, srctempl,
1854                   srctempl->name_template, NULL);
1855               destpad =
1856                   gst_element_request_pad (dest, desttempl,
1857                   desttempl->name_template, NULL);
1858               if (srcpad && destpad
1859                   && pad_link_maybe_ghosting (srcpad, destpad, flags)) {
1860                 GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
1861                     "linked pad %s:%s to pad %s:%s",
1862                     GST_DEBUG_PAD_NAME (srcpad), GST_DEBUG_PAD_NAME (destpad));
1863                 gst_object_unref (srcpad);
1864                 gst_object_unref (destpad);
1865                 gst_caps_unref (srccaps);
1866                 gst_caps_unref (destcaps);
1867                 return TRUE;
1868               }
1869               /* it failed, so we release the request pads */
1870               if (srcpad)
1871                 gst_element_release_request_pad (src, srcpad);
1872               if (destpad)
1873                 gst_element_release_request_pad (dest, destpad);
1874             }
1875             gst_caps_unref (srccaps);
1876             gst_caps_unref (destcaps);
1877           }
1878         }
1879       }
1880       srctempls = srctempls->next;
1881     }
1882   }
1883
1884   GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "no link possible from %s to %s",
1885       GST_ELEMENT_NAME (src), GST_ELEMENT_NAME (dest));
1886   return FALSE;
1887 }
1888
1889 /**
1890  * gst_element_link_pads:
1891  * @src: a #GstElement containing the source pad.
1892  * @srcpadname: (allow-none): the name of the #GstPad in source element
1893  *     or NULL for any pad.
1894  * @dest: (transfer none): the #GstElement containing the destination pad.
1895  * @destpadname: (allow-none): the name of the #GstPad in destination element,
1896  * or NULL for any pad.
1897  *
1898  * Links the two named pads of the source and destination elements.
1899  * Side effect is that if one of the pads has no parent, it becomes a
1900  * child of the parent of the other element.  If they have different
1901  * parents, the link fails.
1902  *
1903  * Returns: TRUE if the pads could be linked, FALSE otherwise.
1904  */
1905 gboolean
1906 gst_element_link_pads (GstElement * src, const gchar * srcpadname,
1907     GstElement * dest, const gchar * destpadname)
1908 {
1909   return gst_element_link_pads_full (src, srcpadname, dest, destpadname,
1910       GST_PAD_LINK_CHECK_DEFAULT);
1911 }
1912
1913 /**
1914  * gst_element_link_pads_filtered:
1915  * @src: a #GstElement containing the source pad.
1916  * @srcpadname: (allow-none): the name of the #GstPad in source element
1917  *     or NULL for any pad.
1918  * @dest: (transfer none): the #GstElement containing the destination pad.
1919  * @destpadname: (allow-none): the name of the #GstPad in destination element
1920  *     or NULL for any pad.
1921  * @filter: (transfer none) (allow-none): the #GstCaps to filter the link,
1922  *     or #NULL for no filter.
1923  *
1924  * Links the two named pads of the source and destination elements. Side effect
1925  * is that if one of the pads has no parent, it becomes a child of the parent of
1926  * the other element. If they have different parents, the link fails. If @caps
1927  * is not #NULL, makes sure that the caps of the link is a subset of @caps.
1928  *
1929  * Returns: TRUE if the pads could be linked, FALSE otherwise.
1930  */
1931 gboolean
1932 gst_element_link_pads_filtered (GstElement * src, const gchar * srcpadname,
1933     GstElement * dest, const gchar * destpadname, GstCaps * filter)
1934 {
1935   /* checks */
1936   g_return_val_if_fail (GST_IS_ELEMENT (src), FALSE);
1937   g_return_val_if_fail (GST_IS_ELEMENT (dest), FALSE);
1938   g_return_val_if_fail (filter == NULL || GST_IS_CAPS (filter), FALSE);
1939
1940   if (filter) {
1941     GstElement *capsfilter;
1942     GstObject *parent;
1943     GstState state, pending;
1944     gboolean lr1, lr2;
1945
1946     capsfilter = gst_element_factory_make ("capsfilter", NULL);
1947     if (!capsfilter) {
1948       GST_ERROR ("Could not make a capsfilter");
1949       return FALSE;
1950     }
1951
1952     parent = gst_object_get_parent (GST_OBJECT (src));
1953     g_return_val_if_fail (GST_IS_BIN (parent), FALSE);
1954
1955     gst_element_get_state (GST_ELEMENT_CAST (parent), &state, &pending, 0);
1956
1957     if (!gst_bin_add (GST_BIN (parent), capsfilter)) {
1958       GST_ERROR ("Could not add capsfilter");
1959       gst_object_unref (capsfilter);
1960       gst_object_unref (parent);
1961       return FALSE;
1962     }
1963
1964     if (pending != GST_STATE_VOID_PENDING)
1965       state = pending;
1966
1967     gst_element_set_state (capsfilter, state);
1968
1969     gst_object_unref (parent);
1970
1971     g_object_set (capsfilter, "caps", filter, NULL);
1972
1973     lr1 = gst_element_link_pads (src, srcpadname, capsfilter, "sink");
1974     lr2 = gst_element_link_pads (capsfilter, "src", dest, destpadname);
1975     if (lr1 && lr2) {
1976       return TRUE;
1977     } else {
1978       if (!lr1) {
1979         GST_INFO ("Could not link pads: %s:%s - capsfilter:sink",
1980             GST_ELEMENT_NAME (src), srcpadname);
1981       } else {
1982         GST_INFO ("Could not link pads: capsfilter:src - %s:%s",
1983             GST_ELEMENT_NAME (dest), destpadname);
1984       }
1985       gst_element_set_state (capsfilter, GST_STATE_NULL);
1986       /* this will unlink and unref as appropriate */
1987       gst_bin_remove (GST_BIN (GST_OBJECT_PARENT (capsfilter)), capsfilter);
1988       return FALSE;
1989     }
1990   } else {
1991     if (gst_element_link_pads (src, srcpadname, dest, destpadname)) {
1992       return TRUE;
1993     } else {
1994       GST_INFO ("Could not link pads: %s:%s - %s:%s", GST_ELEMENT_NAME (src),
1995           srcpadname, GST_ELEMENT_NAME (dest), destpadname);
1996       return FALSE;
1997     }
1998   }
1999 }
2000
2001 /**
2002  * gst_element_link:
2003  * @src: (transfer none): a #GstElement containing the source pad.
2004  * @dest: (transfer none): the #GstElement containing the destination pad.
2005  *
2006  * Links @src to @dest. The link must be from source to
2007  * destination; the other direction will not be tried. The function looks for
2008  * existing pads that aren't linked yet. It will request new pads if necessary.
2009  * Such pads need to be released manualy when unlinking.
2010  * If multiple links are possible, only one is established.
2011  *
2012  * Make sure you have added your elements to a bin or pipeline with
2013  * gst_bin_add() before trying to link them.
2014  *
2015  * Returns: TRUE if the elements could be linked, FALSE otherwise.
2016  */
2017 gboolean
2018 gst_element_link (GstElement * src, GstElement * dest)
2019 {
2020   return gst_element_link_pads (src, NULL, dest, NULL);
2021 }
2022
2023 /**
2024  * gst_element_link_many:
2025  * @element_1: (transfer none): the first #GstElement in the link chain.
2026  * @element_2: (transfer none): the second #GstElement in the link chain.
2027  * @...: the NULL-terminated list of elements to link in order.
2028  *
2029  * Chain together a series of elements. Uses gst_element_link().
2030  * Make sure you have added your elements to a bin or pipeline with
2031  * gst_bin_add() before trying to link them.
2032  *
2033  * Returns: TRUE on success, FALSE otherwise.
2034  */
2035 gboolean
2036 gst_element_link_many (GstElement * element_1, GstElement * element_2, ...)
2037 {
2038   gboolean res = TRUE;
2039   va_list args;
2040
2041   g_return_val_if_fail (GST_IS_ELEMENT (element_1), FALSE);
2042   g_return_val_if_fail (GST_IS_ELEMENT (element_2), FALSE);
2043
2044   va_start (args, element_2);
2045
2046   while (element_2) {
2047     if (!gst_element_link (element_1, element_2)) {
2048       res = FALSE;
2049       break;
2050     }
2051
2052     element_1 = element_2;
2053     element_2 = va_arg (args, GstElement *);
2054   }
2055
2056   va_end (args);
2057
2058   return res;
2059 }
2060
2061 /**
2062  * gst_element_link_filtered:
2063  * @src: a #GstElement containing the source pad.
2064  * @dest: (transfer none): the #GstElement containing the destination pad.
2065  * @filter: (transfer none) (allow-none): the #GstCaps to filter the link,
2066  *     or #NULL for no filter.
2067  *
2068  * Links @src to @dest using the given caps as filtercaps.
2069  * The link must be from source to
2070  * destination; the other direction will not be tried. The function looks for
2071  * existing pads that aren't linked yet. It will request new pads if necessary.
2072  * If multiple links are possible, only one is established.
2073  *
2074  * Make sure you have added your elements to a bin or pipeline with
2075  * gst_bin_add() before trying to link them.
2076  *
2077  * Returns: TRUE if the pads could be linked, FALSE otherwise.
2078  */
2079 gboolean
2080 gst_element_link_filtered (GstElement * src, GstElement * dest,
2081     GstCaps * filter)
2082 {
2083   return gst_element_link_pads_filtered (src, NULL, dest, NULL, filter);
2084 }
2085
2086 /**
2087  * gst_element_unlink_pads:
2088  * @src: a (transfer none): #GstElement containing the source pad.
2089  * @srcpadname: the name of the #GstPad in source element.
2090  * @dest: (transfer none): a #GstElement containing the destination pad.
2091  * @destpadname: the name of the #GstPad in destination element.
2092  *
2093  * Unlinks the two named pads of the source and destination elements.
2094  *
2095  * This is a convenience function for gst_pad_unlink().
2096  */
2097 void
2098 gst_element_unlink_pads (GstElement * src, const gchar * srcpadname,
2099     GstElement * dest, const gchar * destpadname)
2100 {
2101   GstPad *srcpad, *destpad;
2102   gboolean srcrequest, destrequest;
2103
2104   srcrequest = destrequest = FALSE;
2105
2106   g_return_if_fail (src != NULL);
2107   g_return_if_fail (GST_IS_ELEMENT (src));
2108   g_return_if_fail (srcpadname != NULL);
2109   g_return_if_fail (dest != NULL);
2110   g_return_if_fail (GST_IS_ELEMENT (dest));
2111   g_return_if_fail (destpadname != NULL);
2112
2113   /* obtain the pads requested */
2114   if (!(srcpad = gst_element_get_static_pad (src, srcpadname)))
2115     if ((srcpad = gst_element_get_request_pad (src, srcpadname)))
2116       srcrequest = TRUE;
2117   if (srcpad == NULL) {
2118     GST_WARNING_OBJECT (src, "source element has no pad \"%s\"", srcpadname);
2119     return;
2120   }
2121   if (!(destpad = gst_element_get_static_pad (dest, destpadname)))
2122     if ((destpad = gst_element_get_request_pad (dest, destpadname)))
2123       destrequest = TRUE;
2124   if (destpad == NULL) {
2125     GST_WARNING_OBJECT (dest, "destination element has no pad \"%s\"",
2126         destpadname);
2127     goto free_src;
2128   }
2129
2130   /* we're satisified they can be unlinked, let's do it */
2131   gst_pad_unlink (srcpad, destpad);
2132
2133   if (destrequest)
2134     gst_element_release_request_pad (dest, destpad);
2135   gst_object_unref (destpad);
2136
2137 free_src:
2138   if (srcrequest)
2139     gst_element_release_request_pad (src, srcpad);
2140   gst_object_unref (srcpad);
2141 }
2142
2143 /**
2144  * gst_element_unlink_many:
2145  * @element_1: (transfer none): the first #GstElement in the link chain.
2146  * @element_2: (transfer none): the second #GstElement in the link chain.
2147  * @...: the NULL-terminated list of elements to unlink in order.
2148  *
2149  * Unlinks a series of elements. Uses gst_element_unlink().
2150  */
2151 void
2152 gst_element_unlink_many (GstElement * element_1, GstElement * element_2, ...)
2153 {
2154   va_list args;
2155
2156   g_return_if_fail (element_1 != NULL && element_2 != NULL);
2157   g_return_if_fail (GST_IS_ELEMENT (element_1) && GST_IS_ELEMENT (element_2));
2158
2159   va_start (args, element_2);
2160
2161   while (element_2) {
2162     gst_element_unlink (element_1, element_2);
2163
2164     element_1 = element_2;
2165     element_2 = va_arg (args, GstElement *);
2166   }
2167
2168   va_end (args);
2169 }
2170
2171 /**
2172  * gst_element_unlink:
2173  * @src: (transfer none): the source #GstElement to unlink.
2174  * @dest: (transfer none): the sink #GstElement to unlink.
2175  *
2176  * Unlinks all source pads of the source element with all sink pads
2177  * of the sink element to which they are linked.
2178  *
2179  * If the link has been made using gst_element_link(), it could have created an
2180  * requestpad, which has to be released using gst_element_release_request_pad().
2181  */
2182 void
2183 gst_element_unlink (GstElement * src, GstElement * dest)
2184 {
2185   GstIterator *pads;
2186   gboolean done = FALSE;
2187   GValue data = { 0, };
2188
2189   g_return_if_fail (GST_IS_ELEMENT (src));
2190   g_return_if_fail (GST_IS_ELEMENT (dest));
2191
2192   GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS, "unlinking \"%s\" and \"%s\"",
2193       GST_ELEMENT_NAME (src), GST_ELEMENT_NAME (dest));
2194
2195   pads = gst_element_iterate_pads (src);
2196   while (!done) {
2197     switch (gst_iterator_next (pads, &data)) {
2198       case GST_ITERATOR_OK:
2199       {
2200         GstPad *pad = g_value_get_object (&data);
2201
2202         if (GST_PAD_IS_SRC (pad)) {
2203           GstPad *peerpad = gst_pad_get_peer (pad);
2204
2205           /* see if the pad is linked and is really a pad of dest */
2206           if (peerpad) {
2207             GstElement *peerelem;
2208
2209             peerelem = gst_pad_get_parent_element (peerpad);
2210
2211             if (peerelem == dest) {
2212               gst_pad_unlink (pad, peerpad);
2213             }
2214             if (peerelem)
2215               gst_object_unref (peerelem);
2216
2217             gst_object_unref (peerpad);
2218           }
2219         }
2220         g_value_reset (&data);
2221         break;
2222       }
2223       case GST_ITERATOR_RESYNC:
2224         gst_iterator_resync (pads);
2225         break;
2226       case GST_ITERATOR_DONE:
2227         done = TRUE;
2228         break;
2229       default:
2230         g_assert_not_reached ();
2231         break;
2232     }
2233   }
2234   g_value_unset (&data);
2235   gst_iterator_free (pads);
2236 }
2237
2238 /**
2239  * gst_element_query_position:
2240  * @element: a #GstElement to invoke the position query on.
2241  * @format: (inout): a pointer to the #GstFormat asked for.
2242  *          On return contains the #GstFormat used.
2243  * @cur: (out) (allow-none): a location in which to store the current
2244  *     position, or NULL.
2245  *
2246  * Queries an element for the stream position. If one repeatedly calls this
2247  * function one can also create and reuse it in gst_element_query().
2248  *
2249  * Returns: TRUE if the query could be performed.
2250  */
2251 gboolean
2252 gst_element_query_position (GstElement * element, GstFormat * format,
2253     gint64 * cur)
2254 {
2255   GstQuery *query;
2256   gboolean ret;
2257
2258   g_return_val_if_fail (GST_IS_ELEMENT (element), FALSE);
2259   g_return_val_if_fail (format != NULL, FALSE);
2260
2261   query = gst_query_new_position (*format);
2262   ret = gst_element_query (element, query);
2263
2264   if (ret)
2265     gst_query_parse_position (query, format, cur);
2266
2267   gst_query_unref (query);
2268
2269   return ret;
2270 }
2271
2272 /**
2273  * gst_element_query_duration:
2274  * @element: a #GstElement to invoke the duration query on.
2275  * @format: (inout): a pointer to the #GstFormat asked for.
2276  *          On return contains the #GstFormat used.
2277  * @duration: (out): A location in which to store the total duration, or NULL.
2278  *
2279  * Queries an element for the total stream duration.
2280  *
2281  * Returns: TRUE if the query could be performed.
2282  */
2283 gboolean
2284 gst_element_query_duration (GstElement * element, GstFormat * format,
2285     gint64 * duration)
2286 {
2287   GstQuery *query;
2288   gboolean ret;
2289
2290   g_return_val_if_fail (GST_IS_ELEMENT (element), FALSE);
2291   g_return_val_if_fail (format != NULL, FALSE);
2292
2293   query = gst_query_new_duration (*format);
2294   ret = gst_element_query (element, query);
2295
2296   if (ret)
2297     gst_query_parse_duration (query, format, duration);
2298
2299   gst_query_unref (query);
2300
2301   return ret;
2302 }
2303
2304 /**
2305  * gst_element_query_convert:
2306  * @element: a #GstElement to invoke the convert query on.
2307  * @src_format: (inout): a #GstFormat to convert from.
2308  * @src_val: a value to convert.
2309  * @dest_format: (inout): a pointer to the #GstFormat to convert to.
2310  * @dest_val: (out): a pointer to the result.
2311  *
2312  * Queries an element to convert @src_val in @src_format to @dest_format.
2313  *
2314  * Returns: TRUE if the query could be performed.
2315  */
2316 gboolean
2317 gst_element_query_convert (GstElement * element, GstFormat src_format,
2318     gint64 src_val, GstFormat * dest_format, gint64 * dest_val)
2319 {
2320   GstQuery *query;
2321   gboolean ret;
2322
2323   g_return_val_if_fail (GST_IS_ELEMENT (element), FALSE);
2324   g_return_val_if_fail (dest_format != NULL, FALSE);
2325   g_return_val_if_fail (dest_val != NULL, FALSE);
2326
2327   if (*dest_format == src_format || src_val == -1) {
2328     *dest_val = src_val;
2329     return TRUE;
2330   }
2331
2332   query = gst_query_new_convert (src_format, src_val, *dest_format);
2333   ret = gst_element_query (element, query);
2334
2335   if (ret)
2336     gst_query_parse_convert (query, NULL, NULL, dest_format, dest_val);
2337
2338   gst_query_unref (query);
2339
2340   return ret;
2341 }
2342
2343 /**
2344  * gst_element_seek_simple
2345  * @element: a #GstElement to seek on
2346  * @format: a #GstFormat to execute the seek in, such as #GST_FORMAT_TIME
2347  * @seek_flags: seek options; playback applications will usually want to use
2348  *            GST_SEEK_FLAG_FLUSH | GST_SEEK_FLAG_KEY_UNIT here
2349  * @seek_pos: position to seek to (relative to the start); if you are doing
2350  *            a seek in #GST_FORMAT_TIME this value is in nanoseconds -
2351  *            multiply with #GST_SECOND to convert seconds to nanoseconds or
2352  *            with #GST_MSECOND to convert milliseconds to nanoseconds.
2353  *
2354  * Simple API to perform a seek on the given element, meaning it just seeks
2355  * to the given position relative to the start of the stream. For more complex
2356  * operations like segment seeks (e.g. for looping) or changing the playback
2357  * rate or seeking relative to the last configured playback segment you should
2358  * use gst_element_seek().
2359  *
2360  * In a completely prerolled PAUSED or PLAYING pipeline, seeking is always
2361  * guaranteed to return %TRUE on a seekable media type or %FALSE when the media
2362  * type is certainly not seekable (such as a live stream).
2363  *
2364  * Some elements allow for seeking in the READY state, in this
2365  * case they will store the seek event and execute it when they are put to
2366  * PAUSED. If the element supports seek in READY, it will always return %TRUE when
2367  * it receives the event in the READY state.
2368  *
2369  * Returns: %TRUE if the seek operation succeeded (the seek might not always be
2370  * executed instantly though)
2371  *
2372  * Since: 0.10.7
2373  */
2374 gboolean
2375 gst_element_seek_simple (GstElement * element, GstFormat format,
2376     GstSeekFlags seek_flags, gint64 seek_pos)
2377 {
2378   g_return_val_if_fail (GST_IS_ELEMENT (element), FALSE);
2379   g_return_val_if_fail (seek_pos >= 0, FALSE);
2380
2381   return gst_element_seek (element, 1.0, format, seek_flags,
2382       GST_SEEK_TYPE_SET, seek_pos, GST_SEEK_TYPE_NONE, 0);
2383 }
2384
2385 /**
2386  * gst_pad_use_fixed_caps:
2387  * @pad: the pad to use
2388  *
2389  * A helper function you can use that sets the FIXED_CAPS flag
2390  * This way the default getcaps function will always return the negotiated caps
2391  * or in case the pad is not negotiated, the padtemplate caps.
2392  *
2393  * Use this function on a pad that, once gst_pad_set_caps() has been called
2394  * on it, cannot be renegotiated to something else.
2395  */
2396 void
2397 gst_pad_use_fixed_caps (GstPad * pad)
2398 {
2399   GST_OBJECT_FLAG_SET (pad, GST_PAD_FIXED_CAPS);
2400 }
2401
2402 /**
2403  * gst_pad_get_parent_element:
2404  * @pad: a pad
2405  *
2406  * Gets the parent of @pad, cast to a #GstElement. If a @pad has no parent or
2407  * its parent is not an element, return NULL.
2408  *
2409  * Returns: (transfer full): the parent of the pad. The caller has a
2410  * reference on the parent, so unref when you're finished with it.
2411  *
2412  * MT safe.
2413  */
2414 GstElement *
2415 gst_pad_get_parent_element (GstPad * pad)
2416 {
2417   GstObject *p;
2418
2419   g_return_val_if_fail (GST_IS_PAD (pad), NULL);
2420
2421   p = gst_object_get_parent (GST_OBJECT_CAST (pad));
2422
2423   if (p && !GST_IS_ELEMENT (p)) {
2424     gst_object_unref (p);
2425     p = NULL;
2426   }
2427   return GST_ELEMENT_CAST (p);
2428 }
2429
2430 /**
2431  * gst_object_default_error:
2432  * @source: the #GstObject that initiated the error.
2433  * @error: (in): the GError.
2434  * @debug: (in) (allow-none): an additional debug information string, or NULL
2435  *
2436  * A default error function that uses g_printerr() to display the error message
2437  * and the optional debug sting..
2438  *
2439  * The default handler will simply print the error string using g_print.
2440  */
2441 void
2442 gst_object_default_error (GstObject * source, const GError * error,
2443     const gchar * debug)
2444 {
2445   gchar *name = gst_object_get_path_string (source);
2446
2447   g_printerr (_("ERROR: from element %s: %s\n"), name, error->message);
2448   if (debug)
2449     g_printerr (_("Additional debug info:\n%s\n"), debug);
2450
2451   g_free (name);
2452 }
2453
2454 /**
2455  * gst_bin_add_many:
2456  * @bin: a #GstBin
2457  * @element_1: (transfer full): the #GstElement element to add to the bin
2458  * @...: (transfer full): additional elements to add to the bin
2459  *
2460  * Adds a NULL-terminated list of elements to a bin.  This function is
2461  * equivalent to calling gst_bin_add() for each member of the list. The return
2462  * value of each gst_bin_add() is ignored.
2463  */
2464 void
2465 gst_bin_add_many (GstBin * bin, GstElement * element_1, ...)
2466 {
2467   va_list args;
2468
2469   g_return_if_fail (GST_IS_BIN (bin));
2470   g_return_if_fail (GST_IS_ELEMENT (element_1));
2471
2472   va_start (args, element_1);
2473
2474   while (element_1) {
2475     gst_bin_add (bin, element_1);
2476
2477     element_1 = va_arg (args, GstElement *);
2478   }
2479
2480   va_end (args);
2481 }
2482
2483 /**
2484  * gst_bin_remove_many:
2485  * @bin: a #GstBin
2486  * @element_1: (transfer none): the first #GstElement to remove from the bin
2487  * @...: (transfer none): NULL-terminated list of elements to remove from the bin
2488  *
2489  * Remove a list of elements from a bin. This function is equivalent
2490  * to calling gst_bin_remove() with each member of the list.
2491  */
2492 void
2493 gst_bin_remove_many (GstBin * bin, GstElement * element_1, ...)
2494 {
2495   va_list args;
2496
2497   g_return_if_fail (GST_IS_BIN (bin));
2498   g_return_if_fail (GST_IS_ELEMENT (element_1));
2499
2500   va_start (args, element_1);
2501
2502   while (element_1) {
2503     gst_bin_remove (bin, element_1);
2504
2505     element_1 = va_arg (args, GstElement *);
2506   }
2507
2508   va_end (args);
2509 }
2510
2511 static void
2512 gst_element_populate_std_props (GObjectClass * klass, const gchar * prop_name,
2513     guint arg_id, GParamFlags flags)
2514 {
2515   GQuark prop_id = g_quark_from_string (prop_name);
2516   GParamSpec *pspec;
2517
2518   static GQuark fd_id = 0;
2519   static GQuark blocksize_id;
2520   static GQuark bytesperread_id;
2521   static GQuark dump_id;
2522   static GQuark filesize_id;
2523   static GQuark mmapsize_id;
2524   static GQuark location_id;
2525   static GQuark offset_id;
2526   static GQuark silent_id;
2527   static GQuark touch_id;
2528
2529   flags |= G_PARAM_STATIC_STRINGS;
2530
2531   if (!fd_id) {
2532     fd_id = g_quark_from_static_string ("fd");
2533     blocksize_id = g_quark_from_static_string ("blocksize");
2534     bytesperread_id = g_quark_from_static_string ("bytesperread");
2535     dump_id = g_quark_from_static_string ("dump");
2536     filesize_id = g_quark_from_static_string ("filesize");
2537     mmapsize_id = g_quark_from_static_string ("mmapsize");
2538     location_id = g_quark_from_static_string ("location");
2539     offset_id = g_quark_from_static_string ("offset");
2540     silent_id = g_quark_from_static_string ("silent");
2541     touch_id = g_quark_from_static_string ("touch");
2542   }
2543
2544   if (prop_id == fd_id) {
2545     pspec = g_param_spec_int ("fd", "File-descriptor",
2546         "File-descriptor for the file being read", 0, G_MAXINT, 0, flags);
2547   } else if (prop_id == blocksize_id) {
2548     pspec = g_param_spec_ulong ("blocksize", "Block Size",
2549         "Block size to read per buffer", 0, G_MAXULONG, 4096, flags);
2550
2551   } else if (prop_id == bytesperread_id) {
2552     pspec = g_param_spec_int ("bytesperread", "Bytes per read",
2553         "Number of bytes to read per buffer", G_MININT, G_MAXINT, 0, flags);
2554
2555   } else if (prop_id == dump_id) {
2556     pspec = g_param_spec_boolean ("dump", "Dump",
2557         "Dump bytes to stdout", FALSE, flags);
2558
2559   } else if (prop_id == filesize_id) {
2560     pspec = g_param_spec_int64 ("filesize", "File Size",
2561         "Size of the file being read", 0, G_MAXINT64, 0, flags);
2562
2563   } else if (prop_id == mmapsize_id) {
2564     pspec = g_param_spec_ulong ("mmapsize", "mmap() Block Size",
2565         "Size in bytes of mmap()d regions", 0, G_MAXULONG, 4 * 1048576, flags);
2566
2567   } else if (prop_id == location_id) {
2568     pspec = g_param_spec_string ("location", "File Location",
2569         "Location of the file to read", NULL, flags);
2570
2571   } else if (prop_id == offset_id) {
2572     pspec = g_param_spec_int64 ("offset", "File Offset",
2573         "Byte offset of current read pointer", 0, G_MAXINT64, 0, flags);
2574
2575   } else if (prop_id == silent_id) {
2576     pspec = g_param_spec_boolean ("silent", "Silent", "Don't produce events",
2577         FALSE, flags);
2578
2579   } else if (prop_id == touch_id) {
2580     pspec = g_param_spec_boolean ("touch", "Touch read data",
2581         "Touch data to force disk read before " "push ()", TRUE, flags);
2582   } else {
2583     g_warning ("Unknown - 'standard' property '%s' id %d from klass %s",
2584         prop_name, arg_id, g_type_name (G_OBJECT_CLASS_TYPE (klass)));
2585     pspec = NULL;
2586   }
2587
2588   if (pspec) {
2589     g_object_class_install_property (klass, arg_id, pspec);
2590   }
2591 }
2592
2593 /**
2594  * gst_element_class_install_std_props:
2595  * @klass: the #GstElementClass to add the properties to.
2596  * @first_name: the name of the first property.
2597  * in a NULL terminated
2598  * @...: the id and flags of the first property, followed by
2599  * further 'name', 'id', 'flags' triplets and terminated by NULL.
2600  *
2601  * Adds a list of standardized properties with types to the @klass.
2602  * the id is for the property switch in your get_prop method, and
2603  * the flags determine readability / writeability.
2604  **/
2605 void
2606 gst_element_class_install_std_props (GstElementClass * klass,
2607     const gchar * first_name, ...)
2608 {
2609   const char *name;
2610
2611   va_list args;
2612
2613   g_return_if_fail (GST_IS_ELEMENT_CLASS (klass));
2614
2615   va_start (args, first_name);
2616
2617   name = first_name;
2618
2619   while (name) {
2620     int arg_id = va_arg (args, int);
2621     int flags = va_arg (args, int);
2622
2623     gst_element_populate_std_props ((GObjectClass *) klass, name, arg_id,
2624         flags);
2625
2626     name = va_arg (args, char *);
2627   }
2628
2629   va_end (args);
2630 }
2631
2632
2633 /**
2634  * gst_buffer_merge:
2635  * @buf1: (transfer none): the first source #GstBuffer to merge.
2636  * @buf2: (transfer none): the second source #GstBuffer to merge.
2637  *
2638  * Create a new buffer that is the concatenation of the two source
2639  * buffers.  The original source buffers will not be modified or
2640  * unref'd.  Make sure you unref the source buffers if they are not used
2641  * anymore afterwards.
2642  *
2643  * If the buffers point to contiguous areas of memory, the buffer
2644  * is created without copying the data.
2645  *
2646  * Free-function: gst_buffer_unref
2647  *
2648  * Returns: (transfer full): the new #GstBuffer which is the concatenation
2649  *     of the source buffers.
2650  */
2651 GstBuffer *
2652 gst_buffer_merge (GstBuffer * buf1, GstBuffer * buf2)
2653 {
2654   GstBuffer *result;
2655   gsize size1, size2;
2656
2657   size1 = gst_buffer_get_size (buf1);
2658   size2 = gst_buffer_get_size (buf2);
2659
2660   /* we're just a specific case of the more general gst_buffer_span() */
2661   result = gst_buffer_span (buf1, 0, buf2, size1 + size2);
2662
2663   return result;
2664 }
2665
2666 /**
2667  * gst_buffer_join:
2668  * @buf1: the first source #GstBuffer.
2669  * @buf2: the second source #GstBuffer.
2670  *
2671  * Create a new buffer that is the concatenation of the two source
2672  * buffers, and unrefs the original source buffers.
2673  *
2674  * If the buffers point to contiguous areas of memory, the buffer
2675  * is created without copying the data.
2676  *
2677  * This is a convenience function for C programmers. See also
2678  * gst_buffer_merge(), which does the same thing without
2679  * unreffing the input parameters. Language bindings without
2680  * explicit reference counting should not wrap this function.
2681  *
2682  * Returns: (transfer full): the new #GstBuffer which is the concatenation of
2683  * the source buffers.
2684  */
2685 GstBuffer *
2686 gst_buffer_join (GstBuffer * buf1, GstBuffer * buf2)
2687 {
2688   GstBuffer *result;
2689   gsize size1, size2;
2690
2691   size1 = gst_buffer_get_size (buf1);
2692   size2 = gst_buffer_get_size (buf2);
2693
2694   result = gst_buffer_span (buf1, 0, buf2, size1 + size2);
2695   gst_buffer_unref (buf1);
2696   gst_buffer_unref (buf2);
2697
2698   return result;
2699 }
2700
2701 static gboolean
2702 getcaps_fold_func (const GValue * vpad, GValue * ret, GstCaps * filter)
2703 {
2704   GstPad *pad = g_value_get_object (vpad);
2705   gboolean empty = FALSE;
2706   GstCaps *peercaps, *existing;
2707
2708   existing = g_value_get_pointer (ret);
2709   peercaps = gst_pad_peer_get_caps (pad, filter);
2710   if (G_LIKELY (peercaps)) {
2711     GstCaps *intersection = gst_caps_intersect (existing, peercaps);
2712
2713     empty = gst_caps_is_empty (intersection);
2714
2715     g_value_set_pointer (ret, intersection);
2716     gst_caps_unref (existing);
2717     gst_caps_unref (peercaps);
2718   }
2719   return !empty;
2720 }
2721
2722 /**
2723  * gst_pad_proxy_getcaps:
2724  * @pad: a #GstPad to proxy.
2725  * @filter: a #GstCaps filter.
2726  *
2727  * Calls gst_pad_get_allowed_caps() for every other pad belonging to the
2728  * same element as @pad, and returns the intersection of the results.
2729  *
2730  * This function is useful as a default getcaps function for an element
2731  * that can handle any stream format, but requires all its pads to have
2732  * the same caps.  Two such elements are tee and adder.
2733  *
2734  * Free-function: gst_caps_unref
2735  *
2736  * Returns: (transfer full): the intersection of the other pads' allowed caps.
2737  */
2738 GstCaps *
2739 gst_pad_proxy_getcaps (GstPad * pad, GstCaps * filter)
2740 {
2741   GstElement *element;
2742   GstCaps *caps, *intersected;
2743   GstIterator *iter;
2744   GstIteratorResult res;
2745   GValue ret = { 0, };
2746
2747   g_return_val_if_fail (GST_IS_PAD (pad), NULL);
2748
2749   GST_CAT_DEBUG (GST_CAT_PADS, "proxying getcaps for %s:%s",
2750       GST_DEBUG_PAD_NAME (pad));
2751
2752   element = gst_pad_get_parent_element (pad);
2753   if (element == NULL)
2754     goto no_parent;
2755
2756   /* value to hold the return, by default it holds ANY, the ref is taken by
2757    * the GValue. */
2758   g_value_init (&ret, G_TYPE_POINTER);
2759   g_value_set_pointer (&ret, gst_caps_new_any ());
2760
2761   /* only iterate the pads in the oposite direction */
2762   if (GST_PAD_IS_SRC (pad))
2763     iter = gst_element_iterate_sink_pads (element);
2764   else
2765     iter = gst_element_iterate_src_pads (element);
2766
2767   while (1) {
2768     res =
2769         gst_iterator_fold (iter, (GstIteratorFoldFunction) getcaps_fold_func,
2770         &ret, filter);
2771     switch (res) {
2772       case GST_ITERATOR_RESYNC:
2773         /* unref any value stored */
2774         if ((caps = g_value_get_pointer (&ret)))
2775           gst_caps_unref (caps);
2776         /* need to reset the result again to ANY */
2777         g_value_set_pointer (&ret, gst_caps_new_any ());
2778         gst_iterator_resync (iter);
2779         break;
2780       case GST_ITERATOR_DONE:
2781         /* all pads iterated, return collected value */
2782         goto done;
2783       case GST_ITERATOR_OK:
2784         /* premature exit (happens if caps intersection is empty) */
2785         goto done;
2786       default:
2787         /* iterator returned _ERROR, mark an error and exit */
2788         if ((caps = g_value_get_pointer (&ret)))
2789           gst_caps_unref (caps);
2790         g_value_set_pointer (&ret, NULL);
2791         goto error;
2792     }
2793   }
2794 done:
2795   gst_iterator_free (iter);
2796
2797   gst_object_unref (element);
2798
2799   caps = g_value_get_pointer (&ret);
2800   g_value_unset (&ret);
2801
2802   if (caps) {
2803     intersected =
2804         gst_caps_intersect (caps, gst_pad_get_pad_template_caps (pad));
2805     gst_caps_unref (caps);
2806   } else {
2807     intersected = gst_caps_copy (gst_pad_get_pad_template_caps (pad));
2808   }
2809
2810   return intersected;
2811
2812   /* ERRORS */
2813 no_parent:
2814   {
2815     GST_DEBUG_OBJECT (pad, "no parent");
2816     return gst_caps_copy (gst_pad_get_pad_template_caps (pad));
2817   }
2818 error:
2819   {
2820     g_warning ("Pad list returned error on element %s",
2821         GST_ELEMENT_NAME (element));
2822     gst_iterator_free (iter);
2823     gst_object_unref (element);
2824     return gst_caps_copy (gst_pad_get_pad_template_caps (pad));
2825   }
2826 }
2827
2828 /**
2829  * gst_pad_query_position:
2830  * @pad: a #GstPad to invoke the position query on.
2831  * @format: (inout): a pointer to the #GstFormat asked for.
2832  *          On return contains the #GstFormat used.
2833  * @cur: (out): A location in which to store the current position, or NULL.
2834  *
2835  * Queries a pad for the stream position.
2836  *
2837  * Returns: TRUE if the query could be performed.
2838  */
2839 gboolean
2840 gst_pad_query_position (GstPad * pad, GstFormat * format, gint64 * cur)
2841 {
2842   GstQuery *query;
2843   gboolean ret;
2844
2845   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
2846   g_return_val_if_fail (format != NULL, FALSE);
2847
2848   query = gst_query_new_position (*format);
2849   ret = gst_pad_query (pad, query);
2850
2851   if (ret)
2852     gst_query_parse_position (query, format, cur);
2853
2854   gst_query_unref (query);
2855
2856   return ret;
2857 }
2858
2859 /**
2860  * gst_pad_query_peer_position:
2861  * @pad: a #GstPad on whose peer to invoke the position query on.
2862  *       Must be a sink pad.
2863  * @format: (inout): a pointer to the #GstFormat asked for.
2864  *          On return contains the #GstFormat used.
2865  * @cur: (out) (allow-none): a location in which to store the current
2866  *     position, or NULL.
2867  *
2868  * Queries the peer of a given sink pad for the stream position.
2869  *
2870  * Returns: TRUE if the query could be performed.
2871  */
2872 gboolean
2873 gst_pad_query_peer_position (GstPad * pad, GstFormat * format, gint64 * cur)
2874 {
2875   gboolean ret = FALSE;
2876   GstPad *peer;
2877
2878   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
2879   g_return_val_if_fail (GST_PAD_IS_SINK (pad), FALSE);
2880   g_return_val_if_fail (format != NULL, FALSE);
2881
2882   peer = gst_pad_get_peer (pad);
2883   if (peer) {
2884     ret = gst_pad_query_position (peer, format, cur);
2885     gst_object_unref (peer);
2886   }
2887
2888   return ret;
2889 }
2890
2891 /**
2892  * gst_pad_query_duration:
2893  * @pad: a #GstPad to invoke the duration query on.
2894  * @format: (inout): a pointer to the #GstFormat asked for.
2895  *          On return contains the #GstFormat used.
2896  * @duration: (out) (allow-none): a location in which to store the total
2897  *     duration, or NULL.
2898  *
2899  * Queries a pad for the total stream duration.
2900  *
2901  * Returns: TRUE if the query could be performed.
2902  */
2903 gboolean
2904 gst_pad_query_duration (GstPad * pad, GstFormat * format, gint64 * duration)
2905 {
2906   GstQuery *query;
2907   gboolean ret;
2908
2909   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
2910   g_return_val_if_fail (format != NULL, FALSE);
2911
2912   query = gst_query_new_duration (*format);
2913   ret = gst_pad_query (pad, query);
2914
2915   if (ret)
2916     gst_query_parse_duration (query, format, duration);
2917
2918   gst_query_unref (query);
2919
2920   return ret;
2921 }
2922
2923 /**
2924  * gst_pad_query_peer_duration:
2925  * @pad: a #GstPad on whose peer pad to invoke the duration query on.
2926  *       Must be a sink pad.
2927  * @format: (inout) :a pointer to the #GstFormat asked for.
2928  *          On return contains the #GstFormat used.
2929  * @duration: (out) (allow-none): a location in which to store the total
2930  *     duration, or NULL.
2931  *
2932  * Queries the peer pad of a given sink pad for the total stream duration.
2933  *
2934  * Returns: TRUE if the query could be performed.
2935  */
2936 gboolean
2937 gst_pad_query_peer_duration (GstPad * pad, GstFormat * format,
2938     gint64 * duration)
2939 {
2940   gboolean ret = FALSE;
2941   GstPad *peer;
2942
2943   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
2944   g_return_val_if_fail (GST_PAD_IS_SINK (pad), FALSE);
2945   g_return_val_if_fail (format != NULL, FALSE);
2946
2947   peer = gst_pad_get_peer (pad);
2948   if (peer) {
2949     ret = gst_pad_query_duration (peer, format, duration);
2950     gst_object_unref (peer);
2951   }
2952
2953   return ret;
2954 }
2955
2956 /**
2957  * gst_pad_query_convert:
2958  * @pad: a #GstPad to invoke the convert query on.
2959  * @src_format: a #GstFormat to convert from.
2960  * @src_val: a value to convert.
2961  * @dest_format: (inout): a pointer to the #GstFormat to convert to.
2962  * @dest_val: (out): a pointer to the result.
2963  *
2964  * Queries a pad to convert @src_val in @src_format to @dest_format.
2965  *
2966  * Returns: TRUE if the query could be performed.
2967  */
2968 gboolean
2969 gst_pad_query_convert (GstPad * pad, GstFormat src_format, gint64 src_val,
2970     GstFormat * dest_format, gint64 * dest_val)
2971 {
2972   GstQuery *query;
2973   gboolean ret;
2974
2975   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
2976   g_return_val_if_fail (dest_format != NULL, FALSE);
2977   g_return_val_if_fail (dest_val != NULL, FALSE);
2978
2979   if (*dest_format == src_format || src_val == -1) {
2980     *dest_val = src_val;
2981     return TRUE;
2982   }
2983
2984   query = gst_query_new_convert (src_format, src_val, *dest_format);
2985   ret = gst_pad_query (pad, query);
2986
2987   if (ret)
2988     gst_query_parse_convert (query, NULL, NULL, dest_format, dest_val);
2989
2990   gst_query_unref (query);
2991
2992   return ret;
2993 }
2994
2995 /**
2996  * gst_pad_query_peer_convert:
2997  * @pad: a #GstPad, on whose peer pad to invoke the convert query on.
2998  *       Must be a sink pad.
2999  * @src_format: a #GstFormat to convert from.
3000  * @src_val: a value to convert.
3001  * @dest_format: (inout): a pointer to the #GstFormat to convert to.
3002  * @dest_val: (out): a pointer to the result.
3003  *
3004  * Queries the peer pad of a given sink pad to convert @src_val in @src_format
3005  * to @dest_format.
3006  *
3007  * Returns: TRUE if the query could be performed.
3008  */
3009 gboolean
3010 gst_pad_query_peer_convert (GstPad * pad, GstFormat src_format, gint64 src_val,
3011     GstFormat * dest_format, gint64 * dest_val)
3012 {
3013   gboolean ret = FALSE;
3014   GstPad *peer;
3015
3016   g_return_val_if_fail (GST_IS_PAD (pad), FALSE);
3017   g_return_val_if_fail (GST_PAD_IS_SINK (pad), FALSE);
3018   g_return_val_if_fail (dest_format != NULL, FALSE);
3019   g_return_val_if_fail (dest_val != NULL, FALSE);
3020
3021   peer = gst_pad_get_peer (pad);
3022   if (peer) {
3023     ret = gst_pad_query_convert (peer, src_format, src_val, dest_format,
3024         dest_val);
3025     gst_object_unref (peer);
3026   }
3027
3028   return ret;
3029 }
3030
3031 /**
3032  * gst_element_found_tags_for_pad:
3033  * @element: element for which to post taglist to bus.
3034  * @pad: (transfer none): pad on which to push tag-event
3035  * @list: (transfer full): the taglist to post on the bus and create event from
3036  *
3037  * Posts a message to the bus that new tags were found and pushes the
3038  * tags as event. Takes ownership of the @list.
3039  *
3040  * This is a utility method for elements. Applications should use the
3041  * #GstTagSetter interface.
3042  */
3043 void
3044 gst_element_found_tags_for_pad (GstElement * element,
3045     GstPad * pad, GstTagList * list)
3046 {
3047   g_return_if_fail (element != NULL);
3048   g_return_if_fail (pad != NULL);
3049   g_return_if_fail (list != NULL);
3050
3051   gst_pad_push_event (pad, gst_event_new_tag (gst_tag_list_copy (list)));
3052   /* FIXME 0.11: Set the pad as source. */
3053   gst_element_post_message (element,
3054       gst_message_new_tag_full (GST_OBJECT (element), pad, list));
3055 }
3056
3057 static void
3058 push_and_ref (const GValue * vpad, GstEvent * event)
3059 {
3060   GstPad *pad = g_value_get_object (vpad);
3061
3062   gst_pad_push_event (pad, gst_event_ref (event));
3063 }
3064
3065 /**
3066  * gst_element_found_tags:
3067  * @element: element for which we found the tags.
3068  * @list: (transfer full): list of tags.
3069  *
3070  * Posts a message to the bus that new tags were found, and pushes an event
3071  * to all sourcepads. Takes ownership of the @list.
3072  *
3073  * This is a utility method for elements. Applications should use the
3074  * #GstTagSetter interface.
3075  */
3076 void
3077 gst_element_found_tags (GstElement * element, GstTagList * list)
3078 {
3079   GstIterator *iter;
3080   GstEvent *event;
3081
3082   g_return_if_fail (element != NULL);
3083   g_return_if_fail (list != NULL);
3084
3085   iter = gst_element_iterate_src_pads (element);
3086   event = gst_event_new_tag (gst_tag_list_copy (list));
3087   gst_iterator_foreach (iter, (GstIteratorForeachFunction) push_and_ref, event);
3088   gst_iterator_free (iter);
3089   gst_event_unref (event);
3090
3091   gst_element_post_message (element,
3092       gst_message_new_tag (GST_OBJECT (element), list));
3093 }
3094
3095 static GstPad *
3096 element_find_unlinked_pad (GstElement * element, GstPadDirection direction)
3097 {
3098   GstIterator *iter;
3099   GstPad *unlinked_pad = NULL;
3100   gboolean done;
3101   GValue data = { 0, };
3102
3103   switch (direction) {
3104     case GST_PAD_SRC:
3105       iter = gst_element_iterate_src_pads (element);
3106       break;
3107     case GST_PAD_SINK:
3108       iter = gst_element_iterate_sink_pads (element);
3109       break;
3110     default:
3111       g_return_val_if_reached (NULL);
3112   }
3113
3114   done = FALSE;
3115   while (!done) {
3116     switch (gst_iterator_next (iter, &data)) {
3117       case GST_ITERATOR_OK:{
3118         GstPad *peer;
3119         GstPad *pad = g_value_get_object (&data);
3120
3121         GST_CAT_LOG (GST_CAT_ELEMENT_PADS, "examining pad %s:%s",
3122             GST_DEBUG_PAD_NAME (pad));
3123
3124         peer = gst_pad_get_peer (pad);
3125         if (peer == NULL) {
3126           unlinked_pad = gst_object_ref (pad);
3127           done = TRUE;
3128           GST_CAT_DEBUG (GST_CAT_ELEMENT_PADS,
3129               "found existing unlinked pad %s:%s",
3130               GST_DEBUG_PAD_NAME (unlinked_pad));
3131         } else {
3132           gst_object_unref (peer);
3133         }
3134         g_value_reset (&data);
3135         break;
3136       }
3137       case GST_ITERATOR_DONE:
3138         done = TRUE;
3139         break;
3140       case GST_ITERATOR_RESYNC:
3141         gst_iterator_resync (iter);
3142         break;
3143       case GST_ITERATOR_ERROR:
3144         g_return_val_if_reached (NULL);
3145         break;
3146     }
3147   }
3148   g_value_unset (&data);
3149   gst_iterator_free (iter);
3150
3151   return unlinked_pad;
3152 }
3153
3154 /**
3155  * gst_bin_find_unlinked_pad:
3156  * @bin: bin in which to look for elements with unlinked pads
3157  * @direction: whether to look for an unlinked source or sink pad
3158  *
3159  * Recursively looks for elements with an unlinked pad of the given
3160  * direction within the specified bin and returns an unlinked pad
3161  * if one is found, or NULL otherwise. If a pad is found, the caller
3162  * owns a reference to it and should use gst_object_unref() on the
3163  * pad when it is not needed any longer.
3164  *
3165  * Returns: (transfer full): unlinked pad of the given direction, or NULL.
3166  *
3167  * Since: 0.10.20
3168  */
3169 GstPad *
3170 gst_bin_find_unlinked_pad (GstBin * bin, GstPadDirection direction)
3171 {
3172   GstIterator *iter;
3173   gboolean done;
3174   GstPad *pad = NULL;
3175   GValue data = { 0, };
3176
3177   g_return_val_if_fail (GST_IS_BIN (bin), NULL);
3178   g_return_val_if_fail (direction != GST_PAD_UNKNOWN, NULL);
3179
3180   done = FALSE;
3181   iter = gst_bin_iterate_recurse (bin);
3182   while (!done) {
3183     switch (gst_iterator_next (iter, &data)) {
3184       case GST_ITERATOR_OK:{
3185         GstElement *element = g_value_get_object (&data);
3186
3187         pad = element_find_unlinked_pad (element, direction);
3188         if (pad != NULL)
3189           done = TRUE;
3190         g_value_reset (&data);
3191         break;
3192       }
3193       case GST_ITERATOR_DONE:
3194         done = TRUE;
3195         break;
3196       case GST_ITERATOR_RESYNC:
3197         gst_iterator_resync (iter);
3198         break;
3199       case GST_ITERATOR_ERROR:
3200         g_return_val_if_reached (NULL);
3201         break;
3202     }
3203   }
3204   g_value_unset (&data);
3205   gst_iterator_free (iter);
3206
3207   return pad;
3208 }
3209
3210 /**
3211  * gst_parse_bin_from_description:
3212  * @bin_description: command line describing the bin
3213  * @ghost_unlinked_pads: whether to automatically create ghost pads
3214  *     for unlinked source or sink pads within the bin
3215  * @err: where to store the error message in case of an error, or NULL
3216  *
3217  * This is a convenience wrapper around gst_parse_launch() to create a
3218  * #GstBin from a gst-launch-style pipeline description. See
3219  * gst_parse_launch() and the gst-launch man page for details about the
3220  * syntax. Ghost pads on the bin for unlinked source or sink pads
3221  * within the bin can automatically be created (but only a maximum of
3222  * one ghost pad for each direction will be created; if you expect
3223  * multiple unlinked source pads or multiple unlinked sink pads
3224  * and want them all ghosted, you will have to create the ghost pads
3225  * yourself).
3226  *
3227  * Returns: (transfer full): a newly-created bin, or NULL if an error occurred.
3228  *
3229  * Since: 0.10.3
3230  */
3231 GstElement *
3232 gst_parse_bin_from_description (const gchar * bin_description,
3233     gboolean ghost_unlinked_pads, GError ** err)
3234 {
3235   return gst_parse_bin_from_description_full (bin_description,
3236       ghost_unlinked_pads, NULL, GST_PARSE_FLAG_NONE, err);
3237 }
3238
3239 /**
3240  * gst_parse_bin_from_description_full:
3241  * @bin_description: command line describing the bin
3242  * @ghost_unlinked_pads: whether to automatically create ghost pads
3243  *     for unlinked source or sink pads within the bin
3244  * @context: (transfer none) (allow-none): a parse context allocated with
3245  *     gst_parse_context_new(), or %NULL
3246  * @flags: parsing options, or #GST_PARSE_FLAG_NONE
3247  * @err: where to store the error message in case of an error, or NULL
3248  *
3249  * This is a convenience wrapper around gst_parse_launch() to create a
3250  * #GstBin from a gst-launch-style pipeline description. See
3251  * gst_parse_launch() and the gst-launch man page for details about the
3252  * syntax. Ghost pads on the bin for unlinked source or sink pads
3253  * within the bin can automatically be created (but only a maximum of
3254  * one ghost pad for each direction will be created; if you expect
3255  * multiple unlinked source pads or multiple unlinked sink pads
3256  * and want them all ghosted, you will have to create the ghost pads
3257  * yourself).
3258  *
3259  * Returns: (transfer full): a newly-created bin, or NULL if an error occurred.
3260  *
3261  * Since: 0.10.20
3262  */
3263 GstElement *
3264 gst_parse_bin_from_description_full (const gchar * bin_description,
3265     gboolean ghost_unlinked_pads, GstParseContext * context,
3266     GstParseFlags flags, GError ** err)
3267 {
3268 #ifndef GST_DISABLE_PARSE
3269   GstPad *pad = NULL;
3270   GstBin *bin;
3271   gchar *desc;
3272
3273   g_return_val_if_fail (bin_description != NULL, NULL);
3274   g_return_val_if_fail (err == NULL || *err == NULL, NULL);
3275
3276   GST_DEBUG ("Making bin from description '%s'", bin_description);
3277
3278   /* parse the pipeline to a bin */
3279   desc = g_strdup_printf ("bin.( %s )", bin_description);
3280   bin = (GstBin *) gst_parse_launch_full (desc, context, flags, err);
3281   g_free (desc);
3282
3283   if (bin == NULL || (err && *err != NULL)) {
3284     if (bin)
3285       gst_object_unref (bin);
3286     return NULL;
3287   }
3288
3289   /* find pads and ghost them if necessary */
3290   if (ghost_unlinked_pads) {
3291     if ((pad = gst_bin_find_unlinked_pad (bin, GST_PAD_SRC))) {
3292       gst_element_add_pad (GST_ELEMENT (bin), gst_ghost_pad_new ("src", pad));
3293       gst_object_unref (pad);
3294     }
3295     if ((pad = gst_bin_find_unlinked_pad (bin, GST_PAD_SINK))) {
3296       gst_element_add_pad (GST_ELEMENT (bin), gst_ghost_pad_new ("sink", pad));
3297       gst_object_unref (pad);
3298     }
3299   }
3300
3301   return GST_ELEMENT (bin);
3302 #else
3303   gchar *msg;
3304
3305   GST_WARNING ("Disabled API called");
3306
3307   msg = gst_error_get_message (GST_CORE_ERROR, GST_CORE_ERROR_DISABLED);
3308   g_set_error (err, GST_CORE_ERROR, GST_CORE_ERROR_DISABLED, "%s", msg);
3309   g_free (msg);
3310
3311   return NULL;
3312 #endif
3313 }
3314
3315 /**
3316  * gst_type_register_static_full:
3317  * @parent_type: The GType of the parent type the newly registered type will
3318  *   derive from
3319  * @type_name: NULL-terminated string used as the name of the new type
3320  * @class_size: Size of the class structure.
3321  * @base_init: Location of the base initialization function (optional).
3322  * @base_finalize: Location of the base finalization function (optional).
3323  * @class_init: Location of the class initialization function for class types
3324  *   Location of the default vtable inititalization function for interface
3325  *   types. (optional)
3326  * @class_finalize: Location of the class finalization function for class types.
3327  *   Location of the default vtable finalization function for interface types.
3328  *   (optional)
3329  * @class_data: User-supplied data passed to the class init/finalize functions.
3330  * @instance_size: Size of the instance (object) structure (required for
3331  *   instantiatable types only).
3332  * @n_preallocs: The number of pre-allocated (cached) instances to reserve
3333  *   memory for (0 indicates no caching). Ignored on recent GLib's.
3334  * @instance_init: Location of the instance initialization function (optional,
3335  *   for instantiatable types only).
3336  * @value_table: A GTypeValueTable function table for generic handling of
3337  *   GValues of this type (usually only useful for fundamental types).
3338  * @flags: #GTypeFlags for this GType. E.g: G_TYPE_FLAG_ABSTRACT
3339  *
3340  * Helper function which constructs a #GTypeInfo structure and registers a
3341  * GType, but which generates less linker overhead than a static const
3342  * #GTypeInfo structure. For further details of the parameters, please see
3343  * #GTypeInfo in the GLib documentation.
3344  *
3345  * Registers type_name as the name of a new static type derived from
3346  * parent_type. The value of flags determines the nature (e.g. abstract or
3347  * not) of the type. It works by filling a GTypeInfo struct and calling
3348  * g_type_register_static().
3349  *
3350  * Returns: A #GType for the newly-registered type.
3351  *
3352  * Since: 0.10.14
3353  */
3354 GType
3355 gst_type_register_static_full (GType parent_type,
3356     const gchar * type_name,
3357     guint class_size,
3358     GBaseInitFunc base_init,
3359     GBaseFinalizeFunc base_finalize,
3360     GClassInitFunc class_init,
3361     GClassFinalizeFunc class_finalize,
3362     gconstpointer class_data,
3363     guint instance_size,
3364     guint16 n_preallocs,
3365     GInstanceInitFunc instance_init,
3366     const GTypeValueTable * value_table, GTypeFlags flags)
3367 {
3368   GTypeInfo info;
3369
3370   info.class_size = class_size;
3371   info.base_init = base_init;
3372   info.base_finalize = base_finalize;
3373   info.class_init = class_init;
3374   info.class_finalize = class_finalize;
3375   info.class_data = class_data;
3376   info.instance_size = instance_size;
3377   info.n_preallocs = n_preallocs;
3378   info.instance_init = instance_init;
3379   info.value_table = value_table;
3380
3381   return g_type_register_static (parent_type, type_name, &info, flags);
3382 }
3383
3384
3385 /**
3386  * gst_util_get_timestamp:
3387  *
3388  * Get a timestamp as GstClockTime to be used for interval meassurements.
3389  * The timestamp should not be interpreted in any other way.
3390  *
3391  * Returns: the timestamp
3392  *
3393  * Since: 0.10.16
3394  */
3395 GstClockTime
3396 gst_util_get_timestamp (void)
3397 {
3398 #if defined (HAVE_POSIX_TIMERS) && defined(HAVE_MONOTONIC_CLOCK)
3399   struct timespec now;
3400
3401   clock_gettime (CLOCK_MONOTONIC, &now);
3402   return GST_TIMESPEC_TO_TIME (now);
3403 #else
3404   GTimeVal now;
3405
3406   g_get_current_time (&now);
3407   return GST_TIMEVAL_TO_TIME (now);
3408 #endif
3409 }
3410
3411 /**
3412  * gst_util_array_binary_search:
3413  * @array: the sorted input array
3414  * @num_elements: number of elements in the array
3415  * @element_size: size of every element in bytes
3416  * @search_func: (scope call): function to compare two elements, @search_data will always be passed as second argument
3417  * @mode: search mode that should be used
3418  * @search_data: element that should be found
3419  * @user_data: (closure): data to pass to @search_func
3420  *
3421  * Searches inside @array for @search_data by using the comparison function
3422  * @search_func. @array must be sorted ascending.
3423  *
3424  * As @search_data is always passed as second argument to @search_func it's
3425  * not required that @search_data has the same type as the array elements.
3426  *
3427  * The complexity of this search function is O(log (num_elements)).
3428  *
3429  * Returns: (transfer none): The address of the found element or %NULL if nothing was found
3430  *
3431  * Since: 0.10.23
3432  */
3433 gpointer
3434 gst_util_array_binary_search (gpointer array, guint num_elements,
3435     gsize element_size, GCompareDataFunc search_func, GstSearchMode mode,
3436     gconstpointer search_data, gpointer user_data)
3437 {
3438   glong left = 0, right = num_elements - 1, m;
3439   gint ret;
3440   guint8 *data = (guint8 *) array;
3441
3442   g_return_val_if_fail (array != NULL, NULL);
3443   g_return_val_if_fail (element_size > 0, NULL);
3444   g_return_val_if_fail (search_func != NULL, NULL);
3445
3446   /* 0. No elements => return NULL */
3447   if (num_elements == 0)
3448     return NULL;
3449
3450   /* 1. If search_data is before the 0th element return the 0th element */
3451   ret = search_func (data, search_data, user_data);
3452   if ((ret >= 0 && mode == GST_SEARCH_MODE_AFTER) || ret == 0)
3453     return data;
3454   else if (ret > 0)
3455     return NULL;
3456
3457   /* 2. If search_data is after the last element return the last element */
3458   ret =
3459       search_func (data + (num_elements - 1) * element_size, search_data,
3460       user_data);
3461   if ((ret <= 0 && mode == GST_SEARCH_MODE_BEFORE) || ret == 0)
3462     return data + (num_elements - 1) * element_size;
3463   else if (ret < 0)
3464     return NULL;
3465
3466   /* 3. else binary search */
3467   while (TRUE) {
3468     m = left + (right - left) / 2;
3469
3470     ret = search_func (data + m * element_size, search_data, user_data);
3471
3472     if (ret == 0) {
3473       return data + m * element_size;
3474     } else if (ret < 0) {
3475       left = m + 1;
3476     } else {
3477       right = m - 1;
3478     }
3479
3480     /* No exact match found */
3481     if (right < left) {
3482       if (mode == GST_SEARCH_MODE_EXACT) {
3483         return NULL;
3484       } else if (mode == GST_SEARCH_MODE_AFTER) {
3485         if (ret < 0)
3486           return (m < num_elements) ? data + (m + 1) * element_size : NULL;
3487         else
3488           return data + m * element_size;
3489       } else {
3490         if (ret < 0)
3491           return data + m * element_size;
3492         else
3493           return (m > 0) ? data + (m - 1) * element_size : NULL;
3494       }
3495     }
3496   }
3497 }
3498
3499 /* Finds the greatest common divisor.
3500  * Returns 1 if none other found.
3501  * This is Euclid's algorithm. */
3502
3503 /**
3504  * gst_util_greatest_common_divisor:
3505  * @a: First value as #gint
3506  * @b: Second value as #gint
3507  *
3508  * Calculates the greatest common divisor of @a
3509  * and @b.
3510  *
3511  * Returns: Greatest common divisor of @a and @b
3512  *
3513  * Since: 0.10.26
3514  */
3515 gint
3516 gst_util_greatest_common_divisor (gint a, gint b)
3517 {
3518   while (b != 0) {
3519     int temp = a;
3520
3521     a = b;
3522     b = temp % b;
3523   }
3524
3525   return ABS (a);
3526 }
3527
3528 /**
3529  * gst_util_fraction_to_double:
3530  * @src_n: Fraction numerator as #gint
3531  * @src_d: Fraction denominator #gint
3532  * @dest: (out): pointer to a #gdouble for the result
3533  *
3534  * Transforms a fraction to a #gdouble.
3535  *
3536  * Since: 0.10.26
3537  */
3538 void
3539 gst_util_fraction_to_double (gint src_n, gint src_d, gdouble * dest)
3540 {
3541   g_return_if_fail (dest != NULL);
3542   g_return_if_fail (src_d != 0);
3543
3544   *dest = ((gdouble) src_n) / ((gdouble) src_d);
3545 }
3546
3547 #define MAX_TERMS       30
3548 #define MIN_DIVISOR     1.0e-10
3549 #define MAX_ERROR       1.0e-20
3550
3551 /* use continued fractions to transform a double into a fraction,
3552  * see http://mathforum.org/dr.math/faq/faq.fractions.html#decfrac.
3553  * This algorithm takes care of overflows.
3554  */
3555
3556 /**
3557  * gst_util_double_to_fraction:
3558  * @src: #gdouble to transform
3559  * @dest_n: (out): pointer to a #gint to hold the result numerator
3560  * @dest_d: (out): pointer to a #gint to hold the result denominator
3561  *
3562  * Transforms a #gdouble to a fraction and simplifies
3563  * the result.
3564  *
3565  * Since: 0.10.26
3566  */
3567 void
3568 gst_util_double_to_fraction (gdouble src, gint * dest_n, gint * dest_d)
3569 {
3570
3571   gdouble V, F;                 /* double being converted */
3572   gint N, D;                    /* will contain the result */
3573   gint A;                       /* current term in continued fraction */
3574   gint64 N1, D1;                /* numerator, denominator of last approx */
3575   gint64 N2, D2;                /* numerator, denominator of previous approx */
3576   gint i;
3577   gint gcd;
3578   gboolean negative = FALSE;
3579
3580   g_return_if_fail (dest_n != NULL);
3581   g_return_if_fail (dest_d != NULL);
3582
3583   /* initialize fraction being converted */
3584   F = src;
3585   if (F < 0.0) {
3586     F = -F;
3587     negative = TRUE;
3588   }
3589
3590   V = F;
3591   /* initialize fractions with 1/0, 0/1 */
3592   N1 = 1;
3593   D1 = 0;
3594   N2 = 0;
3595   D2 = 1;
3596   N = 1;
3597   D = 1;
3598
3599   for (i = 0; i < MAX_TERMS; i++) {
3600     /* get next term */
3601     A = (gint) F;               /* no floor() needed, F is always >= 0 */
3602     /* get new divisor */
3603     F = F - A;
3604
3605     /* calculate new fraction in temp */
3606     N2 = N1 * A + N2;
3607     D2 = D1 * A + D2;
3608
3609     /* guard against overflow */
3610     if (N2 > G_MAXINT || D2 > G_MAXINT) {
3611       break;
3612     }
3613
3614     N = N2;
3615     D = D2;
3616
3617     /* save last two fractions */
3618     N2 = N1;
3619     D2 = D1;
3620     N1 = N;
3621     D1 = D;
3622
3623     /* quit if dividing by zero or close enough to target */
3624     if (F < MIN_DIVISOR || fabs (V - ((gdouble) N) / D) < MAX_ERROR) {
3625       break;
3626     }
3627
3628     /* Take reciprocal */
3629     F = 1 / F;
3630   }
3631   /* fix for overflow */
3632   if (D == 0) {
3633     N = G_MAXINT;
3634     D = 1;
3635   }
3636   /* fix for negative */
3637   if (negative)
3638     N = -N;
3639
3640   /* simplify */
3641   gcd = gst_util_greatest_common_divisor (N, D);
3642   if (gcd) {
3643     N /= gcd;
3644     D /= gcd;
3645   }
3646
3647   /* set results */
3648   *dest_n = N;
3649   *dest_d = D;
3650 }
3651
3652 /**
3653  * gst_util_fraction_multiply:
3654  * @a_n: Numerator of first value
3655  * @a_d: Denominator of first value
3656  * @b_n: Numerator of second value
3657  * @b_d: Denominator of second value
3658  * @res_n: (out): Pointer to #gint to hold the result numerator
3659  * @res_d: (out): Pointer to #gint to hold the result denominator
3660  *
3661  * Multiplies the fractions @a_n/@a_d and @b_n/@b_d and stores
3662  * the result in @res_n and @res_d.
3663  *
3664  * Returns: %FALSE on overflow, %TRUE otherwise.
3665  *
3666  * Since: 0.10.26
3667  */
3668 gboolean
3669 gst_util_fraction_multiply (gint a_n, gint a_d, gint b_n, gint b_d,
3670     gint * res_n, gint * res_d)
3671 {
3672   gint gcd;
3673
3674   g_return_val_if_fail (res_n != NULL, FALSE);
3675   g_return_val_if_fail (res_d != NULL, FALSE);
3676   g_return_val_if_fail (a_d != 0, FALSE);
3677   g_return_val_if_fail (b_d != 0, FALSE);
3678
3679   gcd = gst_util_greatest_common_divisor (a_n, a_d);
3680   a_n /= gcd;
3681   a_d /= gcd;
3682
3683   gcd = gst_util_greatest_common_divisor (b_n, b_d);
3684   b_n /= gcd;
3685   b_d /= gcd;
3686
3687   gcd = gst_util_greatest_common_divisor (a_n, b_d);
3688   a_n /= gcd;
3689   b_d /= gcd;
3690
3691   gcd = gst_util_greatest_common_divisor (a_d, b_n);
3692   a_d /= gcd;
3693   b_n /= gcd;
3694
3695   /* This would result in overflow */
3696   if (a_n != 0 && G_MAXINT / ABS (a_n) < ABS (b_n))
3697     return FALSE;
3698   if (G_MAXINT / ABS (a_d) < ABS (b_d))
3699     return FALSE;
3700
3701   *res_n = a_n * b_n;
3702   *res_d = a_d * b_d;
3703
3704   gcd = gst_util_greatest_common_divisor (*res_n, *res_d);
3705   *res_n /= gcd;
3706   *res_d /= gcd;
3707
3708   return TRUE;
3709 }
3710
3711 /**
3712  * gst_util_fraction_add:
3713  * @a_n: Numerator of first value
3714  * @a_d: Denominator of first value
3715  * @b_n: Numerator of second value
3716  * @b_d: Denominator of second value
3717  * @res_n: (out): Pointer to #gint to hold the result numerator
3718  * @res_d: (out): Pointer to #gint to hold the result denominator
3719  *
3720  * Adds the fractions @a_n/@a_d and @b_n/@b_d and stores
3721  * the result in @res_n and @res_d.
3722  *
3723  * Returns: %FALSE on overflow, %TRUE otherwise.
3724  *
3725  * Since: 0.10.26
3726  */
3727 gboolean
3728 gst_util_fraction_add (gint a_n, gint a_d, gint b_n, gint b_d, gint * res_n,
3729     gint * res_d)
3730 {
3731   gint gcd;
3732
3733   g_return_val_if_fail (res_n != NULL, FALSE);
3734   g_return_val_if_fail (res_d != NULL, FALSE);
3735   g_return_val_if_fail (a_d != 0, FALSE);
3736   g_return_val_if_fail (b_d != 0, FALSE);
3737
3738   gcd = gst_util_greatest_common_divisor (a_n, a_d);
3739   a_n /= gcd;
3740   a_d /= gcd;
3741
3742   gcd = gst_util_greatest_common_divisor (b_n, b_d);
3743   b_n /= gcd;
3744   b_d /= gcd;
3745
3746   if (a_n == 0) {
3747     *res_n = b_n;
3748     *res_d = b_d;
3749     return TRUE;
3750   }
3751   if (b_n == 0) {
3752     *res_n = a_n;
3753     *res_d = a_d;
3754     return TRUE;
3755   }
3756
3757   /* This would result in overflow */
3758   if (G_MAXINT / ABS (a_n) < ABS (b_n))
3759     return FALSE;
3760   if (G_MAXINT / ABS (a_d) < ABS (b_d))
3761     return FALSE;
3762   if (G_MAXINT / ABS (a_d) < ABS (b_d))
3763     return FALSE;
3764
3765   *res_n = (a_n * b_d) + (a_d * b_n);
3766   *res_d = a_d * b_d;
3767
3768   gcd = gst_util_greatest_common_divisor (*res_n, *res_d);
3769   if (gcd) {
3770     *res_n /= gcd;
3771     *res_d /= gcd;
3772   } else {
3773     /* res_n == 0 */
3774     *res_d = 1;
3775   }
3776
3777   return TRUE;
3778 }
3779
3780 /**
3781  * gst_util_fraction_compare:
3782  * @a_n: Numerator of first value
3783  * @a_d: Denominator of first value
3784  * @b_n: Numerator of second value
3785  * @b_d: Denominator of second value
3786  *
3787  * Compares the fractions @a_n/@a_d and @b_n/@b_d and returns
3788  * -1 if a < b, 0 if a = b and 1 if a > b.
3789  *
3790  * Returns: -1 if a < b; 0 if a = b; 1 if a > b.
3791  *
3792  * Since: 0.10.31
3793  */
3794 gint
3795 gst_util_fraction_compare (gint a_n, gint a_d, gint b_n, gint b_d)
3796 {
3797   gint64 new_num_1;
3798   gint64 new_num_2;
3799   gint gcd;
3800
3801   g_return_val_if_fail (a_d != 0 && b_d != 0, 0);
3802
3803   /* Simplify */
3804   gcd = gst_util_greatest_common_divisor (a_n, a_d);
3805   a_n /= gcd;
3806   a_d /= gcd;
3807
3808   gcd = gst_util_greatest_common_divisor (b_n, b_d);
3809   b_n /= gcd;
3810   b_d /= gcd;
3811
3812   /* fractions are reduced when set, so we can quickly see if they're equal */
3813   if (a_n == b_n && a_d == b_d)
3814     return 0;
3815
3816   /* extend to 64 bits */
3817   new_num_1 = ((gint64) a_n) * b_d;
3818   new_num_2 = ((gint64) b_n) * a_d;
3819   if (new_num_1 < new_num_2)
3820     return -1;
3821   if (new_num_1 > new_num_2)
3822     return 1;
3823
3824   /* Should not happen because a_d and b_d are not 0 */
3825   g_return_val_if_reached (0);
3826 }