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