gst-libs/gst/pbutils/gstdiscoverer.c

   1 /* GStreamer
   2  * Copyright (C) 2009 Edward Hervey <edward.hervey@collabora.co.uk>
   3  *               2009 Nokia Corporation
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Library General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Library General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Library General Public
  16  * License along with this library; if not, write to the
  17  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  18  * Boston, MA 02111-1307, USA.
  19  */
  20
  21 /**
  22  * SECTION:gstdiscoverer
  23  * @short_description: Utility for discovering information on URIs.
  24  *
  25  * The #GstDiscoverer is a utility object which allows to get as much
  26  * information as possible from one or many URIs.
  27  *
  28  * It provides two APIs, allowing usage in blocking or non-blocking mode.
  29  *
  30  * The blocking mode just requires calling gst_discoverer_discover_uri()
  31  * with the URI one wishes to discover.
  32  *
  33  * The non-blocking mode requires a running #GMainLoop in the default
  34  * #GMainContext, where one connects to the various signals, appends the
  35  * URIs to be processed (through gst_discoverer_discover_uri_async()) and then
  36  * asks for the discovery to begin (through gst_discoverer_start()).
  37  *
  38  * All the information is returned in a #GstDiscovererInfo structure.
  39  *
  40  * Since: 0.10.31
  41  */
  42
  43 #ifdef HAVE_CONFIG_H
  44 #include "config.h"
  45 #endif
  46
  47 #include <gst/video/video.h>
  48
  49 #include "pbutils.h"
  50 #include "pbutils-marshal.h"
  51 #include "pbutils-private.h"
  52
  53 #include "gst/glib-compat-private.h"
  54
  55 GST_DEBUG_CATEGORY_STATIC (discoverer_debug);
  56 #define GST_CAT_DEFAULT discoverer_debug
  57
  58 static GQuark _CAPS_QUARK;
  59 static GQuark _TAGS_QUARK;
  60 static GQuark _MISSING_PLUGIN_QUARK;
  61 static GQuark _STREAM_TOPOLOGY_QUARK;
  62 static GQuark _TOPOLOGY_PAD_QUARK;
  63
  64
  65 typedef struct
  66 {
  67   GstDiscoverer *dc;
  68   GstPad *pad;
  69   GstElement *queue;
  70   GstElement *sink;
  71   GstTagList *tags;
  72 } PrivateStream;
  73
  74 struct _GstDiscovererPrivate
  75 {
  76   gboolean async;
  77
  78   /* allowed time to discover each uri in nanoseconds */
  79   GstClockTime timeout;
  80
  81   /* list of pending URI to process (current excluded) */
  82   GList *pending_uris;
  83
  84   GMutex *lock;
  85
  86   /* TRUE if processing a URI */
  87   gboolean processing;
  88
  89   /* TRUE if discoverer has been started */
  90   gboolean running;
  91
  92   /* current items */
  93   GstDiscovererInfo *current_info;
  94   GError *current_error;
  95   GstStructure *current_topology;
  96
  97   /* List of private streams */
  98   GList *streams;
  99
 100   /* Global elements */
 101   GstBin *pipeline;
 102   GstElement *uridecodebin;
 103   GstBus *bus;
 104
 105   GType decodebin_type;
 106
 107   /* Custom main context variables */
 108   GMainContext *ctx;
 109   guint sourceid;
 110   guint timeoutid;
 111
 112   /* reusable queries */
 113   GstQuery *seeking_query;
 114
 115   /* Handler ids for various callbacks */
 116   gulong pad_added_id;
 117   gulong pad_remove_id;
 118   gulong element_added_id;
 119   gulong bus_cb_id;
 120 };
 121
 122 #define DISCO_LOCK(dc) g_mutex_lock (dc->priv->lock);
 123 #define DISCO_UNLOCK(dc) g_mutex_unlock (dc->priv->lock);
 124
 125 static void
 126 _do_init (void)
 127 {
 128   GST_DEBUG_CATEGORY_INIT (discoverer_debug, "discoverer", 0, "Discoverer");
 129
 130   _CAPS_QUARK = g_quark_from_static_string ("caps");
 131   _TAGS_QUARK = g_quark_from_static_string ("tags");
 132   _MISSING_PLUGIN_QUARK = g_quark_from_static_string ("missing-plugin");
 133   _STREAM_TOPOLOGY_QUARK = g_quark_from_static_string ("stream-topology");
 134   _TOPOLOGY_PAD_QUARK = g_quark_from_static_string ("pad");
 135 };
 136
 137 G_DEFINE_TYPE_EXTENDED (GstDiscoverer, gst_discoverer, G_TYPE_OBJECT, 0,
 138     _do_init ());
 139
 140 enum
 141 {
 142   SIGNAL_FINISHED,
 143   SIGNAL_STARTING,
 144   SIGNAL_DISCOVERED,
 145   LAST_SIGNAL
 146 };
 147
 148 #define DEFAULT_PROP_TIMEOUT 15 * GST_SECOND
 149
 150 enum
 151 {
 152   PROP_0,
 153   PROP_TIMEOUT
 154 };
 155
 156 static guint gst_discoverer_signals[LAST_SIGNAL] = { 0 };
 157
 158 static void gst_discoverer_set_timeout (GstDiscoverer * dc,
 159     GstClockTime timeout);
 160 static gboolean async_timeout_cb (GstDiscoverer * dc);
 161
 162 static void discoverer_bus_cb (GstBus * bus, GstMessage * msg,
 163     GstDiscoverer * dc);
 164 static void uridecodebin_pad_added_cb (GstElement * uridecodebin, GstPad * pad,
 165     GstDiscoverer * dc);
 166 static void uridecodebin_pad_removed_cb (GstElement * uridecodebin,
 167     GstPad * pad, GstDiscoverer * dc);
 168
 169 static void gst_discoverer_dispose (GObject * dc);
 170 static void gst_discoverer_set_property (GObject * object, guint prop_id,
 171     const GValue * value, GParamSpec * pspec);
 172 static void gst_discoverer_get_property (GObject * object, guint prop_id,
 173     GValue * value, GParamSpec * pspec);
 174
 175 static void
 176 gst_discoverer_class_init (GstDiscovererClass * klass)
 177 {
 178   GObjectClass *gobject_class = (GObjectClass *) klass;
 179
 180   gobject_class->dispose = gst_discoverer_dispose;
 181
 182   gobject_class->set_property = gst_discoverer_set_property;
 183   gobject_class->get_property = gst_discoverer_get_property;
 184
 185   g_type_class_add_private (klass, sizeof (GstDiscovererPrivate));
 186
 187   /* properties */
 188   /**
 189    * GstDiscoverer:timeout
 190    *
 191    * The duration (in nanoseconds) after which the discovery of an individual
 192    * URI will timeout.
 193    *
 194    * If the discovery of a URI times out, the %GST_DISCOVERER_TIMEOUT will be
 195    * set on the result flags.
 196    */
 197   g_object_class_install_property (gobject_class, PROP_TIMEOUT,
 198       g_param_spec_uint64 ("timeout", "timeout", "Timeout",
 199           GST_SECOND, 3600 * GST_SECOND, DEFAULT_PROP_TIMEOUT,
 200           G_PARAM_READWRITE | G_PARAM_CONSTRUCT | G_PARAM_STATIC_STRINGS));
 201
 202   /* signals */
 203   /**
 204    * GstDiscoverer::finished:
 205    * @discoverer: the #GstDiscoverer
 206    *
 207    * Will be emitted when all pending URIs have been processed.
 208    */
 209   gst_discoverer_signals[SIGNAL_FINISHED] =
 210       g_signal_new ("finished", G_TYPE_FROM_CLASS (klass), G_SIGNAL_RUN_LAST,
 211       G_STRUCT_OFFSET (GstDiscovererClass, finished),
 212       NULL, NULL, g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0, G_TYPE_NONE);
 213
 214   /**
 215    * GstDiscoverer::starting:
 216    * @discoverer: the #GstDiscoverer
 217    *
 218    * Will be emitted when the discover starts analyzing the pending URIs
 219    */
 220   gst_discoverer_signals[SIGNAL_STARTING] =
 221       g_signal_new ("starting", G_TYPE_FROM_CLASS (klass), G_SIGNAL_RUN_LAST,
 222       G_STRUCT_OFFSET (GstDiscovererClass, starting),
 223       NULL, NULL, g_cclosure_marshal_VOID__VOID, G_TYPE_NONE, 0, G_TYPE_NONE);
 224
 225   /**
 226    * GstDiscoverer::discovered:
 227    * @discoverer: the #GstDiscoverer
 228    * @info: the results #GstDiscovererInfo
 229    * @error: (type GLib.Error): #GError, which will be non-NULL if an error
 230    *                            occurred during discovery
 231    *
 232    * Will be emitted when all information on a URI could be discovered.
 233    */
 234   gst_discoverer_signals[SIGNAL_DISCOVERED] =
 235       g_signal_new ("discovered", G_TYPE_FROM_CLASS (klass), G_SIGNAL_RUN_LAST,
 236       G_STRUCT_OFFSET (GstDiscovererClass, discovered),
 237       NULL, NULL, pbutils_marshal_VOID__POINTER_BOXED,
 238       G_TYPE_NONE, 2, GST_TYPE_DISCOVERER_INFO, GST_TYPE_G_ERROR);
 239 }
 240
 241 static void
 242 uridecodebin_element_added_cb (GstElement * uridecodebin,
 243     GstElement * child, GstDiscoverer * dc)
 244 {
 245   GST_DEBUG ("New element added to uridecodebin : %s",
 246       GST_ELEMENT_NAME (child));
 247
 248   if (G_OBJECT_TYPE (child) == dc->priv->decodebin_type) {
 249     g_object_set (child, "post-stream-topology", TRUE, NULL);
 250   }
 251 }
 252
 253 static void
 254 gst_discoverer_init (GstDiscoverer * dc)
 255 {
 256   GstElement *tmp;
 257   GstFormat format = GST_FORMAT_TIME;
 258
 259   dc->priv = G_TYPE_INSTANCE_GET_PRIVATE (dc, GST_TYPE_DISCOVERER,
 260       GstDiscovererPrivate);
 261
 262   dc->priv->timeout = DEFAULT_PROP_TIMEOUT;
 263   dc->priv->async = FALSE;
 264
 265   dc->priv->lock = g_mutex_new ();
 266
 267   GST_LOG ("Creating pipeline");
 268   dc->priv->pipeline = (GstBin *) gst_pipeline_new ("Discoverer");
 269   GST_LOG_OBJECT (dc, "Creating uridecodebin");
 270   dc->priv->uridecodebin =
 271       gst_element_factory_make ("uridecodebin", "discoverer-uri");
 272   if (G_UNLIKELY (dc->priv->uridecodebin == NULL)) {
 273     GST_ERROR ("Can't create uridecodebin");
 274     return;
 275   }
 276   GST_LOG_OBJECT (dc, "Adding uridecodebin to pipeline");
 277   gst_bin_add (dc->priv->pipeline, dc->priv->uridecodebin);
 278
 279   dc->priv->pad_added_id =
 280       g_signal_connect_object (dc->priv->uridecodebin, "pad-added",
 281       G_CALLBACK (uridecodebin_pad_added_cb), dc, 0);
 282   dc->priv->pad_remove_id =
 283       g_signal_connect_object (dc->priv->uridecodebin, "pad-removed",
 284       G_CALLBACK (uridecodebin_pad_removed_cb), dc, 0);
 285
 286   GST_LOG_OBJECT (dc, "Getting pipeline bus");
 287   dc->priv->bus = gst_pipeline_get_bus ((GstPipeline *) dc->priv->pipeline);
 288
 289   dc->priv->bus_cb_id =
 290       g_signal_connect_object (dc->priv->bus, "message",
 291       G_CALLBACK (discoverer_bus_cb), dc, 0);
 292
 293   GST_DEBUG_OBJECT (dc, "Done initializing Discoverer");
 294
 295   /* This is ugly. We get the GType of decodebin so we can quickly detect
 296    * when a decodebin is added to uridecodebin so we can set the
 297    * post-stream-topology setting to TRUE */
 298   dc->priv->element_added_id =
 299       g_signal_connect_object (dc->priv->uridecodebin, "element-added",
 300       G_CALLBACK (uridecodebin_element_added_cb), dc, 0);
 301   tmp = gst_element_factory_make ("decodebin", NULL);
 302   dc->priv->decodebin_type = G_OBJECT_TYPE (tmp);
 303   gst_object_unref (tmp);
 304
 305   /* create queries */
 306   dc->priv->seeking_query = gst_query_new_seeking (format);
 307 }
 308
 309 static void
 310 discoverer_reset (GstDiscoverer * dc)
 311 {
 312   GST_DEBUG_OBJECT (dc, "Resetting");
 313
 314   if (dc->priv->pending_uris) {
 315     g_list_foreach (dc->priv->pending_uris, (GFunc) g_free, NULL);
 316     g_list_free (dc->priv->pending_uris);
 317     dc->priv->pending_uris = NULL;
 318   }
 319
 320   if (dc->priv->pipeline)
 321     gst_element_set_state ((GstElement *) dc->priv->pipeline, GST_STATE_NULL);
 322 }
 323
 324 #define DISCONNECT_SIGNAL(o,i) G_STMT_START{           \
 325   if ((i) && g_signal_handler_is_connected ((o), (i))) \
 326     g_signal_handler_disconnect ((o), (i));            \
 327   (i) = 0;                                             \
 328 }G_STMT_END
 329
 330 static void
 331 gst_discoverer_dispose (GObject * obj)
 332 {
 333   GstDiscoverer *dc = (GstDiscoverer *) obj;
 334
 335   GST_DEBUG_OBJECT (dc, "Disposing");
 336
 337   discoverer_reset (dc);
 338
 339   if (G_LIKELY (dc->priv->pipeline)) {
 340     /* Workaround for bug #118536 */
 341     DISCONNECT_SIGNAL (dc->priv->uridecodebin, dc->priv->pad_added_id);
 342     DISCONNECT_SIGNAL (dc->priv->uridecodebin, dc->priv->pad_remove_id);
 343     DISCONNECT_SIGNAL (dc->priv->uridecodebin, dc->priv->element_added_id);
 344     DISCONNECT_SIGNAL (dc->priv->bus, dc->priv->bus_cb_id);
 345
 346     /* pipeline was set to NULL in _reset */
 347     gst_object_unref (dc->priv->pipeline);
 348     gst_object_unref (dc->priv->bus);
 349
 350     dc->priv->pipeline = NULL;
 351     dc->priv->uridecodebin = NULL;
 352     dc->priv->bus = NULL;
 353   }
 354
 355   gst_discoverer_stop (dc);
 356
 357   if (dc->priv->lock) {
 358     g_mutex_free (dc->priv->lock);
 359     dc->priv->lock = NULL;
 360   }
 361
 362   if (dc->priv->seeking_query) {
 363     gst_query_unref (dc->priv->seeking_query);
 364     dc->priv->seeking_query = NULL;
 365   }
 366
 367   G_OBJECT_CLASS (gst_discoverer_parent_class)->dispose (obj);
 368 }
 369
 370 static void
 371 gst_discoverer_set_property (GObject * object, guint prop_id,
 372     const GValue * value, GParamSpec * pspec)
 373 {
 374   GstDiscoverer *dc = (GstDiscoverer *) object;
 375
 376   switch (prop_id) {
 377     case PROP_TIMEOUT:
 378       gst_discoverer_set_timeout (dc, g_value_get_uint64 (value));
 379       break;
 380     default:
 381       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 382       break;
 383   }
 384 }
 385
 386 static void
 387 gst_discoverer_get_property (GObject * object, guint prop_id,
 388     GValue * value, GParamSpec * pspec)
 389 {
 390   GstDiscoverer *dc = (GstDiscoverer *) object;
 391
 392   switch (prop_id) {
 393     case PROP_TIMEOUT:
 394       DISCO_LOCK (dc);
 395       g_value_set_uint64 (value, dc->priv->timeout);
 396       DISCO_UNLOCK (dc);
 397       break;
 398     default:
 399       G_OBJECT_WARN_INVALID_PROPERTY_ID (object, prop_id, pspec);
 400       break;
 401   }
 402 }
 403
 404 static void
 405 gst_discoverer_set_timeout (GstDiscoverer * dc, GstClockTime timeout)
 406 {
 407   GST_DEBUG_OBJECT (dc, "timeout : %" GST_TIME_FORMAT, GST_TIME_ARGS (timeout));
 408
 409   /* FIXME : update current pending timeout if we're running */
 410   DISCO_LOCK (dc);
 411   dc->priv->timeout = timeout;
 412   DISCO_UNLOCK (dc);
 413 }
 414
 415 static GstPadProbeReturn
 416 _event_probe (GstPad * pad, GstPadProbeInfo * info, PrivateStream * ps)
 417 {
 418   GstEvent *event = GST_PAD_PROBE_INFO_EVENT (info);
 419
 420   if (GST_EVENT_TYPE (event) == GST_EVENT_TAG) {
 421     GstTagList *tl = NULL, *tmp;
 422
 423     gst_event_parse_tag (event, &tl);
 424     GST_DEBUG_OBJECT (pad, "tags %" GST_PTR_FORMAT, tl);
 425     DISCO_LOCK (ps->dc);
 426     /* If preroll is complete, drop these tags - the collected information is
 427      * possibly already being processed and adding more tags would be racy */
 428     if (G_LIKELY (ps->dc->priv->processing)) {
 429       GST_DEBUG_OBJECT (pad, "private stream %p old tags %" GST_PTR_FORMAT, ps,
 430           ps->tags);
 431       tmp = gst_tag_list_merge (ps->tags, tl, GST_TAG_MERGE_APPEND);
 432       if (ps->tags)
 433         gst_tag_list_free (ps->tags);
 434       ps->tags = tmp;
 435       GST_DEBUG_OBJECT (pad, "private stream %p new tags %" GST_PTR_FORMAT, ps,
 436           tmp);
 437     } else
 438       GST_DEBUG_OBJECT (pad, "Dropping tags since preroll is done");
 439     DISCO_UNLOCK (ps->dc);
 440   }
 441
 442   return GST_PAD_PROBE_OK;
 443 }
 444
 445 static gboolean
 446 is_subtitle_caps (const GstCaps * caps)
 447 {
 448   static GstCaps *subs_caps = NULL;
 449
 450   if (!subs_caps) {
 451     subs_caps = gst_caps_from_string ("text/plain; text/x-pango-markup; "
 452         "subpicture/x-pgs; subpicture/x-dvb; application/x-subtitle-unknown; "
 453         "application/x-ssa; application/x-ass; subtitle/x-kate; "
 454         "application/x-kate; video/x-dvd-subpicture; ");
 455   }
 456
 457   return gst_caps_can_intersect (caps, subs_caps);
 458 }
 459
 460 static void
 461 uridecodebin_pad_added_cb (GstElement * uridecodebin, GstPad * pad,
 462     GstDiscoverer * dc)
 463 {
 464   PrivateStream *ps;
 465   GstPad *sinkpad = NULL;
 466   GstCaps *caps;
 467
 468   GST_DEBUG_OBJECT (dc, "pad %s:%s", GST_DEBUG_PAD_NAME (pad));
 469
 470   ps = g_slice_new0 (PrivateStream);
 471
 472   ps->dc = dc;
 473   ps->pad = pad;
 474   ps->queue = gst_element_factory_make ("queue", NULL);
 475   ps->sink = gst_element_factory_make ("fakesink", NULL);
 476
 477   if (G_UNLIKELY (ps->queue == NULL || ps->sink == NULL))
 478     goto error;
 479
 480   g_object_set (ps->sink, "silent", TRUE, NULL);
 481   g_object_set (ps->queue, "max-size-buffers", 1, "silent", TRUE, NULL);
 482
 483   caps = gst_pad_query_caps (pad, NULL);
 484
 485   if (is_subtitle_caps (caps)) {
 486     /* Subtitle streams are sparse and may not provide any information - don't
 487      * wait for data to preroll */
 488     g_object_set (ps->sink, "async", FALSE, NULL);
 489   }
 490
 491   gst_caps_unref (caps);
 492
 493   gst_bin_add_many (dc->priv->pipeline, ps->queue, ps->sink, NULL);
 494
 495   if (!gst_element_link_pads_full (ps->queue, "src", ps->sink, "sink",
 496           GST_PAD_LINK_CHECK_NOTHING))
 497     goto error;
 498   if (!gst_element_sync_state_with_parent (ps->sink))
 499     goto error;
 500   if (!gst_element_sync_state_with_parent (ps->queue))
 501     goto error;
 502
 503   sinkpad = gst_element_get_static_pad (ps->queue, "sink");
 504   if (sinkpad == NULL)
 505     goto error;
 506   if (gst_pad_link_full (pad, sinkpad,
 507           GST_PAD_LINK_CHECK_NOTHING) != GST_PAD_LINK_OK)
 508     goto error;
 509   gst_object_unref (sinkpad);
 510
 511   /* Add an event probe */
 512   gst_pad_add_probe (pad, GST_PAD_PROBE_TYPE_EVENT_DOWNSTREAM,
 513       (GstPadProbeCallback) _event_probe, ps, NULL);
 514
 515   DISCO_LOCK (dc);
 516   dc->priv->streams = g_list_append (dc->priv->streams, ps);
 517   DISCO_UNLOCK (dc);
 518
 519   GST_DEBUG_OBJECT (dc, "Done handling pad");
 520
 521   return;
 522
 523 error:
 524   GST_ERROR_OBJECT (dc, "Error while handling pad");
 525   if (sinkpad)
 526     gst_object_unref (sinkpad);
 527   if (ps->queue)
 528     gst_object_unref (ps->queue);
 529   if (ps->sink)
 530     gst_object_unref (ps->sink);
 531   g_slice_free (PrivateStream, ps);
 532   return;
 533 }
 534
 535 static void
 536 uridecodebin_pad_removed_cb (GstElement * uridecodebin, GstPad * pad,
 537     GstDiscoverer * dc)
 538 {
 539   GList *tmp;
 540   PrivateStream *ps;
 541   GstPad *sinkpad;
 542
 543   GST_DEBUG_OBJECT (dc, "pad %s:%s", GST_DEBUG_PAD_NAME (pad));
 544
 545   /* Find the PrivateStream */
 546   DISCO_LOCK (dc);
 547   for (tmp = dc->priv->streams; tmp; tmp = tmp->next) {
 548     ps = (PrivateStream *) tmp->data;
 549     if (ps->pad == pad)
 550       break;
 551   }
 552
 553   if (tmp == NULL) {
 554     DISCO_UNLOCK (dc);
 555     GST_DEBUG ("The removed pad wasn't controlled by us !");
 556     return;
 557   }
 558
 559   dc->priv->streams = g_list_delete_link (dc->priv->streams, tmp);
 560   DISCO_UNLOCK (dc);
 561
 562   gst_element_set_state (ps->sink, GST_STATE_NULL);
 563   gst_element_set_state (ps->queue, GST_STATE_NULL);
 564   gst_element_unlink (ps->queue, ps->sink);
 565
 566   sinkpad = gst_element_get_static_pad (ps->queue, "sink");
 567   gst_pad_unlink (pad, sinkpad);
 568   gst_object_unref (sinkpad);
 569
 570   /* references removed here */
 571   gst_bin_remove_many (dc->priv->pipeline, ps->sink, ps->queue, NULL);
 572
 573   if (ps->tags) {
 574     gst_tag_list_free (ps->tags);
 575   }
 576
 577   g_slice_free (PrivateStream, ps);
 578
 579   GST_DEBUG ("Done handling pad");
 580 }
 581
 582 static GstStructure *
 583 collect_stream_information (GstDiscoverer * dc, PrivateStream * ps, guint idx)
 584 {
 585   GstCaps *caps;
 586   GstStructure *st;
 587   gchar *stname;
 588
 589   stname = g_strdup_printf ("stream-%02d", idx);
 590   st = gst_structure_new_empty (stname);
 591   g_free (stname);
 592
 593   /* Get caps */
 594   caps = gst_pad_get_current_caps (ps->pad);
 595   if (!caps) {
 596     GST_WARNING ("Couldn't get negotiated caps from %s:%s",
 597         GST_DEBUG_PAD_NAME (ps->pad));
 598     caps = gst_pad_query_caps (ps->pad, NULL);
 599   }
 600   if (caps) {
 601     GST_DEBUG ("Got caps %" GST_PTR_FORMAT, caps);
 602     gst_structure_id_set (st, _CAPS_QUARK, GST_TYPE_CAPS, caps, NULL);
 603
 604     gst_caps_unref (caps);
 605   }
 606   if (ps->tags)
 607     gst_structure_id_set (st, _TAGS_QUARK, GST_TYPE_STRUCTURE, ps->tags, NULL);
 608
 609   return st;
 610 }
 611
 612 /* Parses a set of caps and tags in st and populates a GstDiscovererStreamInfo
 613  * structure (parent, if !NULL, otherwise it allocates one)
 614  */
 615 static GstDiscovererStreamInfo *
 616 collect_information (GstDiscoverer * dc, const GstStructure * st,
 617     GstDiscovererStreamInfo * parent)
 618 {
 619   GstCaps *caps;
 620   GstStructure *caps_st, *tags_st;
 621   const gchar *name;
 622   int tmp;
 623   guint utmp;
 624
 625   if (!st || !gst_structure_id_has_field (st, _CAPS_QUARK)) {
 626     GST_WARNING ("Couldn't find caps !");
 627     if (parent)
 628       return parent;
 629     else
 630       return (GstDiscovererStreamInfo *)
 631           g_object_new (GST_TYPE_DISCOVERER_STREAM_INFO, NULL);
 632   }
 633
 634   gst_structure_id_get (st, _CAPS_QUARK, GST_TYPE_CAPS, &caps, NULL);
 635   caps_st = gst_caps_get_structure (caps, 0);
 636   name = gst_structure_get_name (caps_st);
 637
 638   if (g_str_has_prefix (name, "audio/")) {
 639     GstDiscovererAudioInfo *info;
 640
 641     if (parent)
 642       info = (GstDiscovererAudioInfo *) parent;
 643     else {
 644       info = (GstDiscovererAudioInfo *)
 645           g_object_new (GST_TYPE_DISCOVERER_AUDIO_INFO, NULL);
 646       info->parent.caps = caps;
 647     }
 648
 649     if (gst_structure_get_int (caps_st, "rate", &tmp))
 650       info->sample_rate = (guint) tmp;
 651
 652     if (gst_structure_get_int (caps_st, "channels", &tmp))
 653       info->channels = (guint) tmp;
 654
 655     if (gst_structure_get_int (caps_st, "depth", &tmp))
 656       info->depth = (guint) tmp;
 657
 658     if (gst_structure_id_has_field (st, _TAGS_QUARK)) {
 659       gst_structure_id_get (st, _TAGS_QUARK,
 660           GST_TYPE_STRUCTURE, &tags_st, NULL);
 661       if (gst_structure_get_uint (tags_st, GST_TAG_BITRATE, &utmp) ||
 662           gst_structure_get_uint (tags_st, GST_TAG_NOMINAL_BITRATE, &utmp))
 663         info->bitrate = utmp;
 664
 665       if (gst_structure_get_uint (tags_st, GST_TAG_MAXIMUM_BITRATE, &utmp))
 666         info->max_bitrate = utmp;
 667
 668       /* FIXME: Is it worth it to remove the tags we've parsed? */
 669       info->parent.tags = gst_tag_list_merge (info->parent.tags,
 670           (GstTagList *) tags_st, GST_TAG_MERGE_REPLACE);
 671
 672       gst_structure_free (tags_st);
 673     }
 674
 675     if (!info->language && ((GstDiscovererStreamInfo *) info)->tags) {
 676       gchar *language;
 677       if (gst_tag_list_get_string (((GstDiscovererStreamInfo *) info)->tags,
 678               GST_TAG_LANGUAGE_CODE, &language)) {
 679         info->language = language;
 680       }
 681     }
 682
 683     return (GstDiscovererStreamInfo *) info;
 684
 685   } else if (g_str_has_prefix (name, "video/") ||
 686       g_str_has_prefix (name, "image/")) {
 687     GstDiscovererVideoInfo *info;
 688     GstVideoInfo vinfo;
 689
 690     if (parent)
 691       info = (GstDiscovererVideoInfo *) parent;
 692     else {
 693       info = (GstDiscovererVideoInfo *)
 694           g_object_new (GST_TYPE_DISCOVERER_VIDEO_INFO, NULL);
 695       info->parent.caps = caps;
 696     }
 697
 698     /* FIXME : gst_video_info_from_caps only works with raw caps,
 699      * wouldn't we want to get all the info below for non-raw caps ?
 700      */
 701     if (g_str_has_prefix (name, "video/x-raw") &&
 702         gst_video_info_from_caps (&vinfo, caps)) {
 703       info->width = (guint) vinfo.width;
 704       info->height = (guint) vinfo.height;
 705
 706       info->depth = (guint) 0;
 707
 708       info->par_num = vinfo.par_n;
 709       info->par_denom = vinfo.par_d;
 710
 711       info->framerate_num = vinfo.fps_n;
 712       info->framerate_denom = vinfo.fps_d;
 713
 714       info->interlaced = (vinfo.flags & GST_VIDEO_FLAG_INTERLACED) != 0;
 715     }
 716
 717     if (gst_structure_id_has_field (st, _TAGS_QUARK)) {
 718       gst_structure_id_get (st, _TAGS_QUARK,
 719           GST_TYPE_STRUCTURE, &tags_st, NULL);
 720       if (gst_structure_get_uint (tags_st, GST_TAG_BITRATE, &utmp) ||
 721           gst_structure_get_uint (tags_st, GST_TAG_NOMINAL_BITRATE, &utmp))
 722         info->bitrate = utmp;
 723
 724       if (gst_structure_get_uint (tags_st, GST_TAG_MAXIMUM_BITRATE, &utmp))
 725         info->max_bitrate = utmp;
 726
 727       /* FIXME: Is it worth it to remove the tags we've parsed? */
 728       info->parent.tags = gst_tag_list_merge (info->parent.tags,
 729           (GstTagList *) tags_st, GST_TAG_MERGE_REPLACE);
 730       gst_structure_free (tags_st);
 731     }
 732
 733     return (GstDiscovererStreamInfo *) info;
 734
 735   } else if (is_subtitle_caps (caps)) {
 736     GstDiscovererSubtitleInfo *info;
 737
 738     if (parent)
 739       info = (GstDiscovererSubtitleInfo *) parent;
 740     else {
 741       info = (GstDiscovererSubtitleInfo *)
 742           g_object_new (GST_TYPE_DISCOVERER_SUBTITLE_INFO, NULL);
 743       info->parent.caps = caps;
 744     }
 745
 746     if (gst_structure_id_has_field (st, _TAGS_QUARK)) {
 747       const gchar *language;
 748
 749       gst_structure_id_get (st, _TAGS_QUARK,
 750           GST_TYPE_STRUCTURE, &tags_st, NULL);
 751
 752       language = gst_structure_get_string (caps_st, GST_TAG_LANGUAGE_CODE);
 753       if (language)
 754         info->language = g_strdup (language);
 755
 756       /* FIXME: Is it worth it to remove the tags we've parsed? */
 757       info->parent.tags = gst_tag_list_merge (info->parent.tags,
 758           (GstTagList *) tags_st, GST_TAG_MERGE_REPLACE);
 759       gst_structure_free (tags_st);
 760
 761     }
 762
 763     if (!info->language && ((GstDiscovererStreamInfo *) info)->tags) {
 764       gchar *language;
 765       if (gst_tag_list_get_string (((GstDiscovererStreamInfo *) info)->tags,
 766               GST_TAG_LANGUAGE_CODE, &language)) {
 767         info->language = language;
 768       }
 769     }
 770
 771     return (GstDiscovererStreamInfo *) info;
 772
 773   } else {
 774     /* None of the above - populate what information we can */
 775     GstDiscovererStreamInfo *info;
 776
 777     if (parent)
 778       info = parent;
 779     else {
 780       info = (GstDiscovererStreamInfo *)
 781           g_object_new (GST_TYPE_DISCOVERER_STREAM_INFO, NULL);
 782       info->caps = caps;
 783     }
 784
 785     if (gst_structure_id_get (st, _TAGS_QUARK,
 786             GST_TYPE_STRUCTURE, &tags_st, NULL)) {
 787       info->tags = gst_tag_list_merge (info->tags, (GstTagList *) tags_st,
 788           GST_TAG_MERGE_REPLACE);
 789       gst_structure_free (tags_st);
 790     }
 791
 792     return info;
 793   }
 794
 795 }
 796
 797 static GstStructure *
 798 find_stream_for_node (GstDiscoverer * dc, const GstStructure * topology)
 799 {
 800   GstPad *pad;
 801   GstPad *target_pad = NULL;
 802   GstStructure *st = NULL;
 803   PrivateStream *ps;
 804   guint i;
 805   GList *tmp;
 806
 807   if (!gst_structure_id_has_field (topology, _TOPOLOGY_PAD_QUARK)) {
 808     GST_DEBUG ("Could not find pad for node %" GST_PTR_FORMAT "\n", topology);
 809     return NULL;
 810   }
 811
 812   gst_structure_id_get (topology, _TOPOLOGY_PAD_QUARK,
 813       GST_TYPE_PAD, &pad, NULL);
 814
 815   if (!dc->priv->streams)
 816     return NULL;
 817
 818   for (i = 0, tmp = dc->priv->streams; tmp; tmp = tmp->next, i++) {
 819     ps = (PrivateStream *) tmp->data;
 820
 821     target_pad = gst_ghost_pad_get_target (GST_GHOST_PAD (ps->pad));
 822     gst_object_unref (target_pad);
 823
 824     if (target_pad == pad)
 825       break;
 826   }
 827
 828   if (tmp)
 829     st = collect_stream_information (dc, ps, i);
 830
 831   gst_object_unref (pad);
 832
 833   return st;
 834 }
 835
 836 static gboolean
 837 child_is_raw_stream (GstCaps * parent, GstCaps * child)
 838 {
 839   GstStructure *st1, *st2;
 840   const gchar *name1, *name2;
 841
 842   st1 = gst_caps_get_structure (parent, 0);
 843   name1 = gst_structure_get_name (st1);
 844   st2 = gst_caps_get_structure (child, 0);
 845   name2 = gst_structure_get_name (st2);
 846
 847   if ((g_str_has_prefix (name1, "audio/") &&
 848           g_str_has_prefix (name2, "audio/x-raw")) ||
 849       ((g_str_has_prefix (name1, "video/") ||
 850               g_str_has_prefix (name1, "image/")) &&
 851           g_str_has_prefix (name2, "video/x-raw"))) {
 852     /* child is the "raw" sub-stream corresponding to parent */
 853     return TRUE;
 854   }
 855
 856   if (is_subtitle_caps (parent))
 857     return TRUE;
 858
 859   return FALSE;
 860 }
 861
 862 /* If a parent is non-NULL, collected stream information will be appended to it
 863  * (and where the information exists, it will be overriden)
 864  */
 865 static GstDiscovererStreamInfo *
 866 parse_stream_topology (GstDiscoverer * dc, const GstStructure * topology,
 867     GstDiscovererStreamInfo * parent)
 868 {
 869   GstDiscovererStreamInfo *res = NULL;
 870   GstCaps *caps = NULL;
 871   const GValue *nval = NULL;
 872
 873   GST_DEBUG ("parsing: %" GST_PTR_FORMAT, topology);
 874
 875   nval = gst_structure_get_value (topology, "next");
 876
 877   if (nval == NULL || GST_VALUE_HOLDS_STRUCTURE (nval)) {
 878     GstStructure *st = find_stream_for_node (dc, topology);
 879     gboolean add_to_list = TRUE;
 880
 881     if (st) {
 882       res = collect_information (dc, st, parent);
 883       gst_structure_free (st);
 884     } else {
 885       /* Didn't find a stream structure, so let's just use the caps we have */
 886       res = collect_information (dc, topology, parent);
 887     }
 888
 889     if (nval == NULL) {
 890       /* FIXME : aggregate with information from main streams */
 891       GST_DEBUG ("Coudn't find 'next' ! might be the last entry");
 892     } else {
 893       GstCaps *caps;
 894       const GstStructure *st;
 895
 896       st = gst_value_get_structure (nval);
 897
 898       GST_DEBUG ("next is a structure %" GST_PTR_FORMAT, st);
 899
 900       if (!parent)
 901         parent = res;
 902
 903       if (gst_structure_id_get (st, _CAPS_QUARK, GST_TYPE_CAPS, &caps, NULL)) {
 904         if (gst_caps_can_intersect (parent->caps, caps)) {
 905           /* We sometimes get an extra sub-stream from the parser. If this is
 906            * the case, we just replace the parent caps with this stream's caps
 907            * since they might contain more information */
 908           gst_caps_unref (parent->caps);
 909           parent->caps = caps;
 910
 911           parse_stream_topology (dc, st, parent);
 912           add_to_list = FALSE;
 913
 914         } else if (child_is_raw_stream (parent->caps, caps)) {
 915           /* This is the "raw" stream corresponding to the parent. This
 916            * contains more information than the parent, tags etc. */
 917           parse_stream_topology (dc, st, parent);
 918           add_to_list = FALSE;
 919           gst_caps_unref (caps);
 920
 921         } else {
 922           GstDiscovererStreamInfo *next = parse_stream_topology (dc, st, NULL);
 923           res->next = next;
 924           next->previous = res;
 925         }
 926       }
 927     }
 928
 929     if (add_to_list) {
 930       dc->priv->current_info->stream_list =
 931           g_list_append (dc->priv->current_info->stream_list, res);
 932     }
 933
 934   } else if (GST_VALUE_HOLDS_LIST (nval)) {
 935     guint i, len;
 936     GstDiscovererContainerInfo *cont;
 937     GstTagList *tags;
 938
 939     if (!gst_structure_id_get (topology, _CAPS_QUARK,
 940             GST_TYPE_CAPS, &caps, NULL))
 941       GST_WARNING ("Couldn't find caps !");
 942
 943     len = gst_value_list_get_size (nval);
 944     GST_DEBUG ("next is a list of %d entries", len);
 945
 946     cont = (GstDiscovererContainerInfo *)
 947         g_object_new (GST_TYPE_DISCOVERER_CONTAINER_INFO, NULL);
 948     cont->parent.caps = caps;
 949     res = (GstDiscovererStreamInfo *) cont;
 950
 951     if (gst_structure_id_has_field (topology, _TAGS_QUARK)) {
 952       GstTagList *tmp;
 953
 954       gst_structure_id_get (topology, _TAGS_QUARK,
 955           GST_TYPE_STRUCTURE, &tags, NULL);
 956
 957       GST_DEBUG ("Merge tags %" GST_PTR_FORMAT, tags);
 958
 959       tmp =
 960           gst_tag_list_merge (cont->parent.tags, (GstTagList *) tags,
 961           GST_TAG_MERGE_APPEND);
 962       gst_tag_list_free (tags);
 963       if (cont->parent.tags)
 964         gst_tag_list_free (cont->parent.tags);
 965       cont->parent.tags = tmp;
 966       GST_DEBUG ("Container info tags %" GST_PTR_FORMAT, tmp);
 967     }
 968
 969     for (i = 0; i < len; i++) {
 970       const GValue *subv = gst_value_list_get_value (nval, i);
 971       const GstStructure *subst = gst_value_get_structure (subv);
 972       GstDiscovererStreamInfo *substream;
 973
 974       GST_DEBUG ("%d %" GST_PTR_FORMAT, i, subst);
 975
 976       substream = parse_stream_topology (dc, subst, NULL);
 977
 978       substream->previous = res;
 979       cont->streams =
 980           g_list_append (cont->streams,
 981           gst_discoverer_stream_info_ref (substream));
 982     }
 983   }
 984
 985   return res;
 986 }
 987
 988 /* Called when pipeline is pre-rolled */
 989 static void
 990 discoverer_collect (GstDiscoverer * dc)
 991 {
 992   GST_DEBUG ("Collecting information");
 993
 994   /* Stop the timeout handler if present */
 995   if (dc->priv->timeoutid) {
 996     g_source_remove (dc->priv->timeoutid);
 997     dc->priv->timeoutid = 0;
 998   }
 999
1000   if (dc->priv->streams) {
1001     /* FIXME : Make this querying optional */
1002     if (TRUE) {
1003       GstElement *pipeline = (GstElement *) dc->priv->pipeline;
1004       gint64 dur;
1005
1006       GST_DEBUG ("Attempting to query duration");
1007
1008       if (gst_element_query_duration (pipeline, GST_FORMAT_TIME, &dur)) {
1009         GST_DEBUG ("Got duration %" GST_TIME_FORMAT, GST_TIME_ARGS (dur));
1010         dc->priv->current_info->duration = (guint64) dur;
1011       }
1012
1013       if (dc->priv->seeking_query) {
1014         if (gst_element_query (pipeline, dc->priv->seeking_query)) {
1015           GstFormat format;
1016           gboolean seekable;
1017
1018           gst_query_parse_seeking (dc->priv->seeking_query, &format,
1019               &seekable, NULL, NULL);
1020           if (format == GST_FORMAT_TIME) {
1021             GST_DEBUG ("Got seekable %d", seekable);
1022             dc->priv->current_info->seekable = seekable;
1023           }
1024         }
1025       }
1026     }
1027
1028     if (dc->priv->current_topology)
1029       dc->priv->current_info->stream_info = parse_stream_topology (dc,
1030           dc->priv->current_topology, NULL);
1031
1032     /*
1033      * Images need some special handling. They do not have a duration, have
1034      * caps named image/<foo> (th exception being MJPEG video which is also
1035      * type image/jpeg), and should consist of precisely one stream (actually
1036      * initially there are 2, the image and raw stream, but we squash these
1037      * while parsing the stream topology). At some point, if we find that these
1038      * conditions are not sufficient, we can count the number of decoders and
1039      * parsers in the chain, and if there's more than one decoder, or any
1040      * parser at all, we should not mark this as an image.
1041      */
1042     if (dc->priv->current_info->duration == 0 &&
1043         dc->priv->current_info->stream_info != NULL &&
1044         dc->priv->current_info->stream_info->next == NULL) {
1045       GstStructure *st =
1046           gst_caps_get_structure (dc->priv->current_info->stream_info->caps, 0);
1047
1048       if (g_str_has_prefix (gst_structure_get_name (st), "image/"))
1049         ((GstDiscovererVideoInfo *) dc->priv->current_info->
1050             stream_info)->is_image = TRUE;
1051     }
1052   }
1053
1054   if (dc->priv->async) {
1055     GST_DEBUG ("Emitting 'discoverered'");
1056     g_signal_emit (dc, gst_discoverer_signals[SIGNAL_DISCOVERED], 0,
1057         dc->priv->current_info, dc->priv->current_error);
1058     /* Clients get a copy of current_info since it is a boxed type */
1059     gst_discoverer_info_unref (dc->priv->current_info);
1060   }
1061 }
1062
1063 static void
1064 get_async_cb (gpointer cb_data, GSource * source, GSourceFunc * func,
1065     gpointer * data)
1066 {
1067   *func = (GSourceFunc) async_timeout_cb;
1068   *data = cb_data;
1069 }
1070
1071 /* Wrapper since GSourceCallbackFuncs don't expect a return value from ref() */
1072 static void
1073 _void_g_object_ref (gpointer object)
1074 {
1075   g_object_ref (G_OBJECT (object));
1076 }
1077
1078 static void
1079 handle_current_async (GstDiscoverer * dc)
1080 {
1081   GSource *source;
1082   static GSourceCallbackFuncs cb_funcs = {
1083     _void_g_object_ref,
1084     g_object_unref,
1085     get_async_cb,
1086   };
1087
1088   /* Attach a timeout to the main context */
1089   source = g_timeout_source_new (dc->priv->timeout / GST_MSECOND);
1090   g_source_set_callback_indirect (source, g_object_ref (dc), &cb_funcs);
1091   dc->priv->timeoutid = g_source_attach (source, dc->priv->ctx);
1092   g_source_unref (source);
1093 }
1094
1095
1096 /* Returns TRUE if processing should stop */
1097 static gboolean
1098 handle_message (GstDiscoverer * dc, GstMessage * msg)
1099 {
1100   gboolean done = FALSE;
1101
1102   GST_DEBUG_OBJECT (GST_MESSAGE_SRC (msg), "got a %s message",
1103       GST_MESSAGE_TYPE_NAME (msg));
1104
1105   switch (GST_MESSAGE_TYPE (msg)) {
1106     case GST_MESSAGE_ERROR:{
1107       GError *gerr;
1108       gchar *debug;
1109
1110       gst_message_parse_error (msg, &gerr, &debug);
1111       GST_WARNING_OBJECT (GST_MESSAGE_SRC (msg),
1112           "Got an error [debug:%s], [message:%s]", debug, gerr->message);
1113       dc->priv->current_error = gerr;
1114       g_free (debug);
1115
1116       /* We need to stop */
1117       done = TRUE;
1118
1119       GST_DEBUG ("Setting result to ERROR");
1120       dc->priv->current_info->result = GST_DISCOVERER_ERROR;
1121     }
1122       break;
1123
1124     case GST_MESSAGE_EOS:
1125       GST_DEBUG ("Got EOS !");
1126       done = TRUE;
1127       break;
1128
1129     case GST_MESSAGE_ASYNC_DONE:
1130       if (GST_MESSAGE_SRC (msg) == (GstObject *) dc->priv->pipeline) {
1131         GST_DEBUG ("Finished changing state asynchronously");
1132         done = TRUE;
1133
1134       }
1135       break;
1136
1137     case GST_MESSAGE_ELEMENT:
1138     {
1139       GQuark sttype;
1140       const GstStructure *structure;
1141
1142       structure = gst_message_get_structure (msg);
1143       sttype = gst_structure_get_name_id (structure);
1144       GST_DEBUG_OBJECT (GST_MESSAGE_SRC (msg),
1145           "structure %" GST_PTR_FORMAT, structure);
1146       if (sttype == _MISSING_PLUGIN_QUARK) {
1147         GST_DEBUG_OBJECT (GST_MESSAGE_SRC (msg),
1148             "Setting result to MISSING_PLUGINS");
1149         dc->priv->current_info->result = GST_DISCOVERER_MISSING_PLUGINS;
1150         dc->priv->current_info->misc = gst_structure_copy (structure);
1151       } else if (sttype == _STREAM_TOPOLOGY_QUARK) {
1152         dc->priv->current_topology = gst_structure_copy (structure);
1153       }
1154     }
1155       break;
1156
1157     case GST_MESSAGE_TAG:
1158     {
1159       GstTagList *tl, *tmp;
1160
1161       gst_message_parse_tag (msg, &tl);
1162       GST_DEBUG_OBJECT (GST_MESSAGE_SRC (msg), "Got tags %" GST_PTR_FORMAT, tl);
1163       /* Merge with current tags */
1164       tmp =
1165           gst_tag_list_merge (dc->priv->current_info->tags, tl,
1166           GST_TAG_MERGE_APPEND);
1167       gst_tag_list_free (tl);
1168       if (dc->priv->current_info->tags)
1169         gst_tag_list_free (dc->priv->current_info->tags);
1170       dc->priv->current_info->tags = tmp;
1171       GST_DEBUG_OBJECT (GST_MESSAGE_SRC (msg), "Current info %p, tags %"
1172           GST_PTR_FORMAT, dc->priv->current_info, tmp);
1173     }
1174       break;
1175
1176     default:
1177       break;
1178   }
1179
1180   return done;
1181 }
1182
1183
1184 static void
1185 handle_current_sync (GstDiscoverer * dc)
1186 {
1187   GTimer *timer;
1188   gdouble deadline = ((gdouble) dc->priv->timeout) / GST_SECOND;
1189   GstMessage *msg;
1190   gboolean done = FALSE;
1191
1192   timer = g_timer_new ();
1193   g_timer_start (timer);
1194
1195   do {
1196     /* poll bus with timeout */
1197     /* FIXME : make the timeout more fine-tuned */
1198     if ((msg = gst_bus_timed_pop (dc->priv->bus, GST_SECOND / 2))) {
1199       done = handle_message (dc, msg);
1200       gst_message_unref (msg);
1201     }
1202
1203   } while (!done && (g_timer_elapsed (timer, NULL) < deadline));
1204
1205   /* return result */
1206   if (!done) {
1207     GST_DEBUG ("we timed out! Setting result to TIMEOUT");
1208     dc->priv->current_info->result = GST_DISCOVERER_TIMEOUT;
1209   }
1210
1211   GST_DEBUG ("Done");
1212
1213   g_timer_stop (timer);
1214   g_timer_destroy (timer);
1215 }
1216
1217 static void
1218 _setup_locked (GstDiscoverer * dc)
1219 {
1220   GstStateChangeReturn ret;
1221
1222   GST_DEBUG ("Setting up");
1223
1224   /* Pop URI off the pending URI list */
1225   dc->priv->current_info =
1226       (GstDiscovererInfo *) g_object_new (GST_TYPE_DISCOVERER_INFO, NULL);
1227   dc->priv->current_info->uri = (gchar *) dc->priv->pending_uris->data;
1228   dc->priv->pending_uris =
1229       g_list_delete_link (dc->priv->pending_uris, dc->priv->pending_uris);
1230
1231   /* set uri on uridecodebin */
1232   g_object_set (dc->priv->uridecodebin, "uri", dc->priv->current_info->uri,
1233       NULL);
1234
1235   GST_DEBUG ("Current is now %s", dc->priv->current_info->uri);
1236
1237   dc->priv->processing = TRUE;
1238
1239   /* set pipeline to PAUSED */
1240   DISCO_UNLOCK (dc);
1241   GST_DEBUG ("Setting pipeline to PAUSED");
1242   ret =
1243       gst_element_set_state ((GstElement *) dc->priv->pipeline,
1244       GST_STATE_PAUSED);
1245   DISCO_LOCK (dc);
1246
1247   GST_DEBUG_OBJECT (dc, "Pipeline going to PAUSED : %s",
1248       gst_element_state_change_return_get_name (ret));
1249 }
1250
1251 static void
1252 discoverer_cleanup (GstDiscoverer * dc)
1253 {
1254   GST_DEBUG ("Cleaning up");
1255
1256   gst_bus_set_flushing (dc->priv->bus, TRUE);
1257   gst_element_set_state ((GstElement *) dc->priv->pipeline, GST_STATE_READY);
1258   gst_bus_set_flushing (dc->priv->bus, FALSE);
1259
1260   DISCO_LOCK (dc);
1261   if (dc->priv->current_error)
1262     g_error_free (dc->priv->current_error);
1263   dc->priv->current_error = NULL;
1264   if (dc->priv->current_topology) {
1265     gst_structure_free (dc->priv->current_topology);
1266     dc->priv->current_topology = NULL;
1267   }
1268
1269   dc->priv->current_info = NULL;
1270
1271   /* Try popping the next uri */
1272   if (dc->priv->async) {
1273     if (dc->priv->pending_uris != NULL) {
1274       _setup_locked (dc);
1275       DISCO_UNLOCK (dc);
1276       /* Start timeout */
1277       handle_current_async (dc);
1278     } else {
1279       /* We're done ! */
1280       DISCO_UNLOCK (dc);
1281       g_signal_emit (dc, gst_discoverer_signals[SIGNAL_FINISHED], 0);
1282     }
1283   } else
1284     DISCO_UNLOCK (dc);
1285
1286   GST_DEBUG ("out");
1287 }
1288
1289 static void
1290 discoverer_bus_cb (GstBus * bus, GstMessage * msg, GstDiscoverer * dc)
1291 {
1292   if (dc->priv->processing) {
1293     if (handle_message (dc, msg)) {
1294       GST_DEBUG ("Stopping asynchronously");
1295       /* Serialise with _event_probe() */
1296       DISCO_LOCK (dc);
1297       dc->priv->processing = FALSE;
1298       DISCO_UNLOCK (dc);
1299       discoverer_collect (dc);
1300       discoverer_cleanup (dc);
1301     }
1302   }
1303 }
1304
1305 static gboolean
1306 async_timeout_cb (GstDiscoverer * dc)
1307 {
1308   if (!g_source_is_destroyed (g_main_current_source ())) {
1309     dc->priv->timeoutid = 0;
1310     GST_DEBUG ("Setting result to TIMEOUT");
1311     dc->priv->current_info->result = GST_DISCOVERER_TIMEOUT;
1312     dc->priv->processing = FALSE;
1313     discoverer_collect (dc);
1314     discoverer_cleanup (dc);
1315   }
1316   return FALSE;
1317 }
1318
1319 /* If there is a pending URI, it will pop it from the list of pending
1320  * URIs and start the discovery on it.
1321  *
1322  * Returns GST_DISCOVERER_OK if the next URI was popped and is processing,
1323  * else a error flag.
1324  */
1325 static GstDiscovererResult
1326 start_discovering (GstDiscoverer * dc)
1327 {
1328   GstDiscovererResult res = GST_DISCOVERER_OK;
1329
1330   GST_DEBUG ("Starting");
1331
1332   DISCO_LOCK (dc);
1333   if (dc->priv->pending_uris == NULL) {
1334     GST_WARNING ("No URI to process");
1335     res = GST_DISCOVERER_URI_INVALID;
1336     DISCO_UNLOCK (dc);
1337     goto beach;
1338   }
1339
1340   if (dc->priv->current_info != NULL) {
1341     GST_WARNING ("Already processing a file");
1342     res = GST_DISCOVERER_BUSY;
1343     DISCO_UNLOCK (dc);
1344     goto beach;
1345   }
1346
1347   g_signal_emit (dc, gst_discoverer_signals[SIGNAL_STARTING], 0);
1348
1349   _setup_locked (dc);
1350
1351   DISCO_UNLOCK (dc);
1352
1353   if (dc->priv->async)
1354     handle_current_async (dc);
1355   else
1356     handle_current_sync (dc);
1357
1358 beach:
1359   return res;
1360 }
1361
1362
1363 /**
1364  * gst_discoverer_start:
1365  * @discoverer: A #GstDiscoverer
1366  *
1367  * Allow asynchronous discovering of URIs to take place.
1368  * A #GMainLoop must be available for #GstDiscoverer to properly work in
1369  * asynchronous mode.
1370  *
1371  * Since: 0.10.31
1372  */
1373 void
1374 gst_discoverer_start (GstDiscoverer * discoverer)
1375 {
1376   GSource *source;
1377   GMainContext *ctx = NULL;
1378
1379   GST_DEBUG_OBJECT (discoverer, "Starting...");
1380
1381   if (discoverer->priv->async) {
1382     GST_DEBUG_OBJECT (discoverer, "We were already started");
1383     return;
1384   }
1385
1386   discoverer->priv->async = TRUE;
1387   discoverer->priv->running = TRUE;
1388
1389   ctx = g_main_context_get_thread_default ();
1390
1391   /* Connect to bus signals */
1392   if (ctx == NULL)
1393     ctx = g_main_context_default ();
1394
1395   source = gst_bus_create_watch (discoverer->priv->bus);
1396   g_source_set_callback (source, (GSourceFunc) gst_bus_async_signal_func,
1397       NULL, NULL);
1398   discoverer->priv->sourceid = g_source_attach (source, ctx);
1399   g_source_unref (source);
1400   discoverer->priv->ctx = g_main_context_ref (ctx);
1401
1402   start_discovering (discoverer);
1403   GST_DEBUG_OBJECT (discoverer, "Started");
1404 }
1405
1406 /**
1407  * gst_discoverer_stop:
1408  * @discoverer: A #GstDiscoverer
1409  *
1410  * Stop the discovery of any pending URIs and clears the list of
1411  * pending URIS (if any).
1412  *
1413  * Since: 0.10.31
1414  */
1415 void
1416 gst_discoverer_stop (GstDiscoverer * discoverer)
1417 {
1418   GST_DEBUG_OBJECT (discoverer, "Stopping...");
1419
1420   if (!discoverer->priv->async) {
1421     GST_DEBUG_OBJECT (discoverer,
1422         "We were already stopped, or running synchronously");
1423     return;
1424   }
1425
1426   DISCO_LOCK (discoverer);
1427   if (discoverer->priv->processing) {
1428     /* We prevent any further processing by setting the bus to
1429      * flushing and setting the pipeline to READY.
1430      * _reset() will take care of the rest of the cleanup */
1431     if (discoverer->priv->bus)
1432       gst_bus_set_flushing (discoverer->priv->bus, TRUE);
1433     if (discoverer->priv->pipeline)
1434       gst_element_set_state ((GstElement *) discoverer->priv->pipeline,
1435           GST_STATE_READY);
1436   }
1437   discoverer->priv->running = FALSE;
1438   DISCO_UNLOCK (discoverer);
1439
1440   /* Remove timeout handler */
1441   if (discoverer->priv->timeoutid) {
1442     g_source_remove (discoverer->priv->timeoutid);
1443     discoverer->priv->timeoutid = 0;
1444   }
1445   /* Remove signal watch */
1446   if (discoverer->priv->sourceid) {
1447     g_source_remove (discoverer->priv->sourceid);
1448     discoverer->priv->sourceid = 0;
1449   }
1450   /* Unref main context */
1451   if (discoverer->priv->ctx) {
1452     g_main_context_unref (discoverer->priv->ctx);
1453     discoverer->priv->ctx = NULL;
1454   }
1455   discoverer_reset (discoverer);
1456
1457   discoverer->priv->async = FALSE;
1458
1459   GST_DEBUG_OBJECT (discoverer, "Stopped");
1460 }
1461
1462 /**
1463  * gst_discoverer_discover_uri_async:
1464  * @discoverer: A #GstDiscoverer
1465  * @uri: the URI to add.
1466  *
1467  * Appends the given @uri to the list of URIs to discoverer. The actual
1468  * discovery of the @uri will only take place if gst_discoverer_start() has
1469  * been called.
1470  *
1471  * A copy of @uri will be made internally, so the caller can safely g_free()
1472  * afterwards.
1473  *
1474  * Returns: %TRUE if the @uri was successfully appended to the list of pending
1475  * uris, else %FALSE
1476  *
1477  * Since: 0.10.31
1478  */
1479 gboolean
1480 gst_discoverer_discover_uri_async (GstDiscoverer * discoverer,
1481     const gchar * uri)
1482 {
1483   gboolean can_run;
1484
1485   GST_DEBUG_OBJECT (discoverer, "uri : %s", uri);
1486
1487   DISCO_LOCK (discoverer);
1488   can_run = (discoverer->priv->pending_uris == NULL);
1489   discoverer->priv->pending_uris =
1490       g_list_append (discoverer->priv->pending_uris, g_strdup (uri));
1491   DISCO_UNLOCK (discoverer);
1492
1493   if (can_run)
1494     start_discovering (discoverer);
1495
1496   return TRUE;
1497 }
1498
1499
1500 /* Synchronous mode */
1501 /**
1502  * gst_discoverer_discover_uri:
1503  * @discoverer: A #GstDiscoverer
1504  * @uri: The URI to run on.
1505  * @err: (out) (allow-none): If an error occurred, this field will be filled in.
1506  *
1507  * Synchronously discovers the given @uri.
1508  *
1509  * A copy of @uri will be made internally, so the caller can safely g_free()
1510  * afterwards.
1511  *
1512  * Returns: (transfer full): the result of the scanning. Can be %NULL if an
1513  * error occurred.
1514  *
1515  * Since: 0.10.31
1516  */
1517 GstDiscovererInfo *
1518 gst_discoverer_discover_uri (GstDiscoverer * discoverer, const gchar * uri,
1519     GError ** err)
1520 {
1521   GstDiscovererResult res = 0;
1522   GstDiscovererInfo *info;
1523
1524   GST_DEBUG_OBJECT (discoverer, "uri:%s", uri);
1525
1526   DISCO_LOCK (discoverer);
1527   if (G_UNLIKELY (discoverer->priv->current_info)) {
1528     DISCO_UNLOCK (discoverer);
1529     GST_WARNING_OBJECT (discoverer, "Already handling a uri");
1530     return NULL;
1531   }
1532
1533   discoverer->priv->pending_uris =
1534       g_list_append (discoverer->priv->pending_uris, g_strdup (uri));
1535   DISCO_UNLOCK (discoverer);
1536
1537   res = start_discovering (discoverer);
1538   discoverer_collect (discoverer);
1539
1540   /* Get results */
1541   if (err) {
1542     if (discoverer->priv->current_error)
1543       *err = g_error_copy (discoverer->priv->current_error);
1544     else
1545       *err = NULL;
1546   }
1547   if (res != GST_DISCOVERER_OK) {
1548     GST_DEBUG ("Setting result to %d (was %d)", res,
1549         discoverer->priv->current_info->result);
1550     discoverer->priv->current_info->result = res;
1551   }
1552   info = discoverer->priv->current_info;
1553
1554   discoverer_cleanup (discoverer);
1555
1556   return info;
1557 }
1558
1559 /**
1560  * gst_discoverer_new:
1561  * @timeout: timeout per file, in nanoseconds. Allowed are values between
1562  *     one second (#GST_SECOND) and one hour (3600 * #GST_SECOND)
1563  * @err: a pointer to a #GError. can be %NULL
1564  *
1565  * Creates a new #GstDiscoverer with the provided timeout.
1566  *
1567  * Returns: (transfer full): The new #GstDiscoverer.
1568  * If an error occurred when creating the discoverer, @err will be set
1569  * accordingly and %NULL will be returned. If @err is set, the caller must
1570  * free it when no longer needed using g_error_free().
1571  *
1572  * Since: 0.10.31
1573  */
1574 GstDiscoverer *
1575 gst_discoverer_new (GstClockTime timeout, GError ** err)
1576 {
1577   GstDiscoverer *res;
1578
1579   res = g_object_new (GST_TYPE_DISCOVERER, "timeout", timeout, NULL);
1580   if (res->priv->uridecodebin == NULL) {
1581     if (err)
1582       *err = g_error_new (GST_CORE_ERROR, GST_CORE_ERROR_MISSING_PLUGIN,
1583           "Couldn't create 'uridecodebin' element");
1584     gst_object_unref (res);
1585     res = NULL;
1586   }
1587   return res;
1588 }