gst/gstregistry.c

   1 /* GStreamer
   2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
   3  *                    2000 Wim Taymans <wtay@chello.be>
   4  *                    2005 David A. Schleef <ds@schleef.org>
   5  *
   6  * gstregistry.c: handle registry
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Library General Public
  19  * License along with this library; if not, write to the
  20  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21  * Boston, MA 02111-1307, USA.
  22  */
  23
  24 /**
  25  * SECTION:gstregistry
  26  * @short_description: Abstract base class for management of #GstPlugin objects
  27  * @see_also: #GstPlugin, #GstPluginFeature
  28  *
  29  * One registry holds the metadata of a set of plugins.
  30  *
  31  * <emphasis role="bold">Design:</emphasis>
  32  *
  33  * The #GstRegistry object is a list of plugins and some functions for dealing
  34  * with them. Each #GstPlugin is matched 1-1 with a file on disk, and may or may
  35  * not be loaded at a given time.
  36  *
  37  * The primary source, at all times, of plugin information is each plugin file
  38  * itself. Thus, if an application wants information about a particular plugin,
  39  * or wants to search for a feature that satisfies given criteria, the primary
  40  * means of doing so is to load every plugin and look at the resulting
  41  * information that is gathered in the default registry. Clearly, this is a time
  42  * consuming process, so we cache information in the registry file. The format
  43  * and location of the cache file is internal to gstreamer.
  44  *
  45  * On startup, plugins are searched for in the plugin search path. The following
  46  * locations are checked in this order:
  47  * <itemizedlist>
  48  *   <listitem>
  49  *     <para>location from --gst-plugin-path commandline option.</para>
  50  *   </listitem>
  51  *   <listitem>
  52  *     <para>the GST_PLUGIN_PATH environment variable.</para>
  53  *   </listitem>
  54  *   <listitem>
  55  *     <para>the GST_PLUGIN_SYSTEM_PATH environment variable.</para>
  56  *   </listitem>
  57  *   <listitem>
  58  *     <para>default locations (if GST_PLUGIN_SYSTEM_PATH is not set). Those
  59  *       default locations are:
  60  *       <filename>~/.gstreamer-$GST_API_VERSION/plugins/</filename>
  61  *       and <filename>$prefix/libs/gstreamer-$GST_API_VERSION/</filename>.
  62  *     </para>
  63  *   </listitem>
  64  * </itemizedlist>
  65  * The registry cache file is loaded from
  66  * <filename>~/.gstreamer-$GST_API_VERSION/registry-$ARCH.bin</filename> or the
  67  * file listed in the GST_REGISTRY env var. One reason to change the registry
  68  * location is for testing.
  69  *
  70  * For each plugin that is found in the plugin search path, there could be 3
  71  * possibilities for cached information:
  72  * <itemizedlist>
  73  *   <listitem>
  74  *     <para>the cache may not contain information about a given file.</para>
  75  *   </listitem>
  76  *   <listitem>
  77  *     <para>the cache may have stale information.</para>
  78  *   </listitem>
  79  *   <listitem>
  80  *     <para>the cache may have current information.</para>
  81  *   </listitem>
  82  * </itemizedlist>
  83  *
  84  * In the first two cases, the plugin is loaded and the cache updated. In
  85  * addition to these cases, the cache may have entries for plugins that are not
  86  * relevant to the current process. These are marked as not available to the
  87  * current process. If the cache is updated for whatever reason, it is marked
  88  * dirty.
  89  *
  90  * A dirty cache is written out at the end of initialization. Each entry is
  91  * checked to make sure the information is minimally valid. If not, the entry is
  92  * simply dropped.
  93  *
  94  * <emphasis role="bold">Implementation notes:</emphasis>
  95  *
  96  * The "cache" and "registry" are different concepts and can represent
  97  * different sets of plugins. For various reasons, at init time, the cache is
  98  * stored in the default registry, and plugins not relevant to the current
  99  * process are marked with the %GST_PLUGIN_FLAG_CACHED bit. These plugins are
 100  * removed at the end of initialization.
 101  *
 102  * Last reviewed on 2012-03-29 (0.11.3)
 103  */
 104
 105 #ifdef HAVE_CONFIG_H
 106 #include "config.h"
 107 #endif
 108 #include "gstconfig.h"
 109 #include "gst_private.h"
 110 #include <glib.h>
 111 #include <sys/types.h>
 112 #include <sys/stat.h>
 113 #ifdef HAVE_UNISTD_H
 114 #include <unistd.h>
 115 #endif
 116 #include <errno.h>
 117 #include <stdio.h>
 118 #include <string.h>
 119
 120 /* For g_stat () */
 121 #include <glib/gstdio.h>
 122
 123 #include "gstinfo.h"
 124 #include "gsterror.h"
 125 #include "gstregistry.h"
 126
 127 #include "gstpluginloader.h"
 128
 129 #include "gst-i18n-lib.h"
 130
 131 #include "gst.h"
 132 #include "glib-compat-private.h"
 133
 134 #ifdef G_OS_WIN32
 135 #include <windows.h>
 136 extern HMODULE _priv_gst_dll_handle;
 137 #endif
 138
 139 #define GST_CAT_DEFAULT GST_CAT_REGISTRY
 140
 141 struct _GstRegistryPrivate
 142 {
 143   GList *plugins;
 144   GList *features;
 145
 146   GList *paths;
 147
 148   int cache_file;
 149
 150   /* hash to speedup _lookup_feature_locked() */
 151   GHashTable *feature_hash;
 152   /* hash to speedup _lookup */
 153   GHashTable *basename_hash;
 154
 155   /* updated whenever the feature list changes */
 156   guint32 cookie;
 157   /* speedup for searching features */
 158   GList *element_factory_list;
 159   guint32 efl_cookie;
 160   GList *typefind_factory_list;
 161   guint32 tfl_cookie;
 162 };
 163
 164 /* the one instance of the default registry and the mutex protecting the
 165  * variable. */
 166 static GMutex _gst_registry_mutex;
 167 static GstRegistry *_gst_registry_default = NULL;
 168
 169 /* defaults */
 170 #define DEFAULT_FORK TRUE
 171
 172 /* control the behaviour of registry rebuild */
 173 static gboolean _gst_enable_registry_fork = DEFAULT_FORK;
 174 /* List of plugins that need preloading/reloading after scanning registry */
 175 extern GSList *_priv_gst_preload_plugins;
 176
 177 #ifndef GST_DISABLE_REGISTRY
 178 /*set to TRUE when registry needn't to be updated */
 179 gboolean _priv_gst_disable_registry_update = FALSE;
 180 extern GList *_priv_gst_plugin_paths;
 181
 182 /* Set to TRUE when the registry cache should be disabled */
 183 gboolean _gst_disable_registry_cache = FALSE;
 184
 185 static gboolean __registry_reuse_plugin_scanner = TRUE;
 186 #endif
 187
 188 /* Element signals and args */
 189 enum
 190 {
 191   PLUGIN_ADDED,
 192   FEATURE_ADDED,
 193   LAST_SIGNAL
 194 };
 195
 196 static void gst_registry_finalize (GObject * object);
 197
 198 static guint gst_registry_signals[LAST_SIGNAL] = { 0 };
 199
 200 static GstPluginFeature *gst_registry_lookup_feature_locked (GstRegistry *
 201     registry, const char *name);
 202 static GstPlugin *gst_registry_lookup_bn_locked (GstRegistry * registry,
 203     const char *basename);
 204
 205 #define gst_registry_parent_class parent_class
 206 G_DEFINE_TYPE (GstRegistry, gst_registry, GST_TYPE_OBJECT);
 207
 208 static void
 209 gst_registry_class_init (GstRegistryClass * klass)
 210 {
 211   GObjectClass *gobject_class;
 212
 213   gobject_class = (GObjectClass *) klass;
 214
 215   g_type_class_add_private (klass, sizeof (GstRegistryPrivate));
 216
 217   /**
 218    * GstRegistry::plugin-added:
 219    * @registry: the registry that emitted the signal
 220    * @plugin: the plugin that has been added
 221    *
 222    * Signals that a plugin has been added to the registry (possibly
 223    * replacing a previously-added one by the same name)
 224    */
 225   gst_registry_signals[PLUGIN_ADDED] =
 226       g_signal_new ("plugin-added", G_TYPE_FROM_CLASS (klass),
 227       G_SIGNAL_RUN_LAST, 0, NULL, NULL, g_cclosure_marshal_generic,
 228       G_TYPE_NONE, 1, GST_TYPE_PLUGIN);
 229
 230   /**
 231    * GstRegistry::feature-added:
 232    * @registry: the registry that emitted the signal
 233    * @feature: the feature that has been added
 234    *
 235    * Signals that a feature has been added to the registry (possibly
 236    * replacing a previously-added one by the same name)
 237    */
 238   gst_registry_signals[FEATURE_ADDED] =
 239       g_signal_new ("feature-added", G_TYPE_FROM_CLASS (klass),
 240       G_SIGNAL_RUN_LAST, 0, NULL, NULL, g_cclosure_marshal_generic,
 241       G_TYPE_NONE, 1, GST_TYPE_PLUGIN_FEATURE);
 242
 243   gobject_class->finalize = gst_registry_finalize;
 244 }
 245
 246 static void
 247 gst_registry_init (GstRegistry * registry)
 248 {
 249   registry->priv =
 250       G_TYPE_INSTANCE_GET_PRIVATE (registry, GST_TYPE_REGISTRY,
 251       GstRegistryPrivate);
 252   registry->priv->feature_hash = g_hash_table_new (g_str_hash, g_str_equal);
 253   registry->priv->basename_hash = g_hash_table_new (g_str_hash, g_str_equal);
 254 }
 255
 256 static void
 257 gst_registry_finalize (GObject * object)
 258 {
 259   GstRegistry *registry = GST_REGISTRY (object);
 260   GList *plugins, *p;
 261   GList *features, *f;
 262
 263   plugins = registry->priv->plugins;
 264   registry->priv->plugins = NULL;
 265
 266   GST_DEBUG_OBJECT (registry, "registry finalize");
 267   p = plugins;
 268   while (p) {
 269     GstPlugin *plugin = p->data;
 270
 271     if (plugin) {
 272       GST_LOG_OBJECT (registry, "removing plugin %s",
 273           gst_plugin_get_name (plugin));
 274       gst_object_unref (plugin);
 275     }
 276     p = g_list_next (p);
 277   }
 278   g_list_free (plugins);
 279
 280   features = registry->priv->features;
 281   registry->priv->features = NULL;
 282
 283   f = features;
 284   while (f) {
 285     GstPluginFeature *feature = f->data;
 286
 287     if (feature) {
 288       GST_LOG_OBJECT (registry, "removing feature %p (%s)", feature,
 289           GST_OBJECT_NAME (feature));
 290       gst_object_unparent (GST_OBJECT_CAST (feature));
 291     }
 292     f = g_list_next (f);
 293   }
 294   g_list_free (features);
 295
 296   g_hash_table_destroy (registry->priv->feature_hash);
 297   registry->priv->feature_hash = NULL;
 298   g_hash_table_destroy (registry->priv->basename_hash);
 299   registry->priv->basename_hash = NULL;
 300
 301   if (registry->priv->element_factory_list) {
 302     GST_DEBUG_OBJECT (registry, "Cleaning up cached element factory list");
 303     gst_plugin_feature_list_free (registry->priv->element_factory_list);
 304   }
 305
 306   if (registry->priv->typefind_factory_list) {
 307     GST_DEBUG_OBJECT (registry, "Cleaning up cached typefind factory list");
 308     gst_plugin_feature_list_free (registry->priv->typefind_factory_list);
 309   }
 310
 311   G_OBJECT_CLASS (parent_class)->finalize (object);
 312 }
 313
 314 /**
 315  * gst_registry_get:
 316  *
 317  * Retrieves the singleton plugin registry. The caller does not own a
 318  * reference on the registry, as it is alive as long as GStreamer is
 319  * initialized.
 320  *
 321  * Returns: (transfer none): the #GstRegistry.
 322  */
 323 GstRegistry *
 324 gst_registry_get (void)
 325 {
 326   GstRegistry *registry;
 327
 328   g_mutex_lock (&_gst_registry_mutex);
 329   if (G_UNLIKELY (!_gst_registry_default)) {
 330     _gst_registry_default = g_object_newv (GST_TYPE_REGISTRY, 0, NULL);
 331     gst_object_ref_sink (GST_OBJECT_CAST (_gst_registry_default));
 332   }
 333   registry = _gst_registry_default;
 334   g_mutex_unlock (&_gst_registry_mutex);
 335
 336   return registry;
 337 }
 338
 339 /**
 340  * gst_registry_add_path:
 341  * @registry: the registry to add the path to
 342  * @path: the path to add to the registry
 343  *
 344  * Add the given path to the registry. The syntax of the
 345  * path is specific to the registry. If the path has already been
 346  * added, do nothing.
 347  */
 348 void
 349 gst_registry_add_path (GstRegistry * registry, const gchar * path)
 350 {
 351   g_return_if_fail (GST_IS_REGISTRY (registry));
 352   g_return_if_fail (path != NULL);
 353
 354   if (strlen (path) == 0)
 355     goto empty_path;
 356
 357   GST_OBJECT_LOCK (registry);
 358   if (g_list_find_custom (registry->priv->paths, path, (GCompareFunc) strcmp))
 359     goto was_added;
 360
 361   GST_INFO ("Adding plugin path: \"%s\"", path);
 362   registry->priv->paths =
 363       g_list_append (registry->priv->paths, g_strdup (path));
 364   GST_OBJECT_UNLOCK (registry);
 365
 366   return;
 367
 368 empty_path:
 369   {
 370     GST_INFO ("Ignoring empty plugin path");
 371     return;
 372   }
 373 was_added:
 374   {
 375     g_warning ("path %s already added to registry", path);
 376     GST_OBJECT_UNLOCK (registry);
 377     return;
 378   }
 379 }
 380
 381 /**
 382  * gst_registry_get_path_list:
 383  * @registry: the registry to get the pathlist of
 384  *
 385  * Get the list of paths for the given registry.
 386  *
 387  * Returns: (transfer container) (element-type char*): A #GList of paths as
 388  *     strings. g_list_free after use.
 389  *
 390  * MT safe.
 391  */
 392 GList *
 393 gst_registry_get_path_list (GstRegistry * registry)
 394 {
 395   GList *list;
 396
 397   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 398
 399   GST_OBJECT_LOCK (registry);
 400   /* We don't need to copy the strings, because they won't be deleted
 401    * as long as the GstRegistry is around */
 402   list = g_list_copy (registry->priv->paths);
 403   GST_OBJECT_UNLOCK (registry);
 404
 405   return list;
 406 }
 407
 408
 409 /**
 410  * gst_registry_add_plugin:
 411  * @registry: the registry to add the plugin to
 412  * @plugin: (transfer full): the plugin to add
 413  *
 414  * Add the plugin to the registry. The plugin-added signal will be emitted.
 415  * This function will sink @plugin.
 416  *
 417  * Returns: TRUE on success.
 418  *
 419  * MT safe.
 420  */
 421 gboolean
 422 gst_registry_add_plugin (GstRegistry * registry, GstPlugin * plugin)
 423 {
 424   GstPlugin *existing_plugin;
 425
 426   g_return_val_if_fail (GST_IS_REGISTRY (registry), FALSE);
 427   g_return_val_if_fail (GST_IS_PLUGIN (plugin), FALSE);
 428
 429   GST_OBJECT_LOCK (registry);
 430   if (G_LIKELY (plugin->basename)) {
 431     /* we have a basename, see if we find the plugin */
 432     existing_plugin =
 433         gst_registry_lookup_bn_locked (registry, plugin->basename);
 434     if (existing_plugin) {
 435       GST_DEBUG_OBJECT (registry,
 436           "Replacing existing plugin \"%s\" %p with new plugin %p for filename \"%s\"",
 437           GST_STR_NULL (existing_plugin->filename), existing_plugin, plugin,
 438           GST_STR_NULL (plugin->filename));
 439       /* If the new plugin is blacklisted and the existing one isn't cached, do not
 440        * accept if it's from a different location than the existing one */
 441       if (GST_OBJECT_FLAG_IS_SET (plugin, GST_PLUGIN_FLAG_BLACKLISTED) &&
 442           strcmp (plugin->filename, existing_plugin->filename)) {
 443         GST_WARNING_OBJECT (registry,
 444             "Not replacing plugin because new one (%s) is blacklisted but for a different location than existing one (%s)",
 445             plugin->filename, existing_plugin->filename);
 446         gst_object_unref (plugin);
 447         GST_OBJECT_UNLOCK (registry);
 448         return FALSE;
 449       }
 450       registry->priv->plugins =
 451           g_list_remove (registry->priv->plugins, existing_plugin);
 452       if (G_LIKELY (existing_plugin->basename))
 453         g_hash_table_remove (registry->priv->basename_hash,
 454             existing_plugin->basename);
 455       gst_object_unref (existing_plugin);
 456     }
 457   }
 458
 459   GST_DEBUG_OBJECT (registry, "adding plugin %p for filename \"%s\"",
 460       plugin, GST_STR_NULL (plugin->filename));
 461
 462   registry->priv->plugins = g_list_prepend (registry->priv->plugins, plugin);
 463   if (G_LIKELY (plugin->basename))
 464     g_hash_table_replace (registry->priv->basename_hash, plugin->basename,
 465         plugin);
 466
 467   gst_object_ref_sink (plugin);
 468   GST_OBJECT_UNLOCK (registry);
 469
 470   GST_LOG_OBJECT (registry, "emitting plugin-added for filename \"%s\"",
 471       GST_STR_NULL (plugin->filename));
 472   g_signal_emit (registry, gst_registry_signals[PLUGIN_ADDED], 0, plugin);
 473
 474   return TRUE;
 475 }
 476
 477 static void
 478 gst_registry_remove_features_for_plugin_unlocked (GstRegistry * registry,
 479     GstPlugin * plugin)
 480 {
 481   GList *f;
 482
 483   g_return_if_fail (GST_IS_REGISTRY (registry));
 484   g_return_if_fail (GST_IS_PLUGIN (plugin));
 485
 486   /* Remove all features for this plugin */
 487   f = registry->priv->features;
 488   while (f != NULL) {
 489     GList *next = g_list_next (f);
 490     GstPluginFeature *feature = f->data;
 491
 492     if (G_UNLIKELY (feature && feature->plugin == plugin)) {
 493       GST_DEBUG_OBJECT (registry, "removing feature %p (%s) for plugin %p (%s)",
 494           feature, gst_plugin_feature_get_name (feature), plugin,
 495           plugin->desc.name);
 496
 497       registry->priv->features =
 498           g_list_delete_link (registry->priv->features, f);
 499       g_hash_table_remove (registry->priv->feature_hash,
 500           GST_OBJECT_NAME (feature));
 501       gst_object_unparent (GST_OBJECT_CAST (feature));
 502     }
 503     f = next;
 504   }
 505   registry->priv->cookie++;
 506 }
 507
 508 /**
 509  * gst_registry_remove_plugin:
 510  * @registry: the registry to remove the plugin from
 511  * @plugin: (transfer none): the plugin to remove
 512  *
 513  * Remove the plugin from the registry.
 514  *
 515  * MT safe.
 516  */
 517 void
 518 gst_registry_remove_plugin (GstRegistry * registry, GstPlugin * plugin)
 519 {
 520   g_return_if_fail (GST_IS_REGISTRY (registry));
 521   g_return_if_fail (GST_IS_PLUGIN (plugin));
 522
 523   GST_DEBUG_OBJECT (registry, "removing plugin %p (%s)",
 524       plugin, gst_plugin_get_name (plugin));
 525
 526   GST_OBJECT_LOCK (registry);
 527   registry->priv->plugins = g_list_remove (registry->priv->plugins, plugin);
 528   if (G_LIKELY (plugin->basename))
 529     g_hash_table_remove (registry->priv->basename_hash, plugin->basename);
 530   gst_registry_remove_features_for_plugin_unlocked (registry, plugin);
 531   GST_OBJECT_UNLOCK (registry);
 532   gst_object_unref (plugin);
 533 }
 534
 535 /**
 536  * gst_registry_add_feature:
 537  * @registry: the registry to add the plugin to
 538  * @feature: (transfer full): the feature to add
 539  *
 540  * Add the feature to the registry. The feature-added signal will be emitted.
 541  * This function sinks @feature.
 542  *
 543  * Returns: TRUE on success.
 544  *
 545  * MT safe.
 546  */
 547 gboolean
 548 gst_registry_add_feature (GstRegistry * registry, GstPluginFeature * feature)
 549 {
 550   GstPluginFeature *existing_feature;
 551
 552   g_return_val_if_fail (GST_IS_REGISTRY (registry), FALSE);
 553   g_return_val_if_fail (GST_IS_PLUGIN_FEATURE (feature), FALSE);
 554   g_return_val_if_fail (GST_OBJECT_NAME (feature) != NULL, FALSE);
 555   g_return_val_if_fail (feature->plugin_name != NULL, FALSE);
 556
 557   GST_OBJECT_LOCK (registry);
 558   existing_feature = gst_registry_lookup_feature_locked (registry,
 559       GST_OBJECT_NAME (feature));
 560   if (G_UNLIKELY (existing_feature)) {
 561     GST_DEBUG_OBJECT (registry, "replacing existing feature %p (%s)",
 562         existing_feature, GST_OBJECT_NAME (feature));
 563     /* Remove the existing feature from the list now, before we insert the new
 564      * one, but don't unref yet because the hash is still storing a reference to
 565      * it. */
 566     registry->priv->features =
 567         g_list_remove (registry->priv->features, existing_feature);
 568   }
 569
 570   GST_DEBUG_OBJECT (registry, "adding feature %p (%s)", feature,
 571       GST_OBJECT_NAME (feature));
 572
 573   registry->priv->features = g_list_prepend (registry->priv->features, feature);
 574   g_hash_table_replace (registry->priv->feature_hash, GST_OBJECT_NAME (feature),
 575       feature);
 576
 577   if (G_UNLIKELY (existing_feature)) {
 578     /* We unref now. No need to remove the feature name from the hash table, it
 579      * got replaced by the new feature */
 580     gst_object_unparent (GST_OBJECT_CAST (existing_feature));
 581   }
 582
 583   gst_object_set_parent (GST_OBJECT_CAST (feature), GST_OBJECT_CAST (registry));
 584
 585   registry->priv->cookie++;
 586   GST_OBJECT_UNLOCK (registry);
 587
 588   GST_LOG_OBJECT (registry, "emitting feature-added for %s",
 589       GST_OBJECT_NAME (feature));
 590   g_signal_emit (registry, gst_registry_signals[FEATURE_ADDED], 0, feature);
 591
 592   return TRUE;
 593 }
 594
 595 /**
 596  * gst_registry_remove_feature:
 597  * @registry: the registry to remove the feature from
 598  * @feature: (transfer none): the feature to remove
 599  *
 600  * Remove the feature from the registry.
 601  *
 602  * MT safe.
 603  */
 604 void
 605 gst_registry_remove_feature (GstRegistry * registry, GstPluginFeature * feature)
 606 {
 607   g_return_if_fail (GST_IS_REGISTRY (registry));
 608   g_return_if_fail (GST_IS_PLUGIN_FEATURE (feature));
 609
 610   GST_DEBUG_OBJECT (registry, "removing feature %p (%s)",
 611       feature, gst_plugin_feature_get_name (feature));
 612
 613   GST_OBJECT_LOCK (registry);
 614   registry->priv->features = g_list_remove (registry->priv->features, feature);
 615   g_hash_table_remove (registry->priv->feature_hash, GST_OBJECT_NAME (feature));
 616   registry->priv->cookie++;
 617   GST_OBJECT_UNLOCK (registry);
 618
 619   gst_object_unparent ((GstObject *) feature);
 620 }
 621
 622 /**
 623  * gst_registry_plugin_filter:
 624  * @registry: registry to query
 625  * @filter: (scope call): the filter to use
 626  * @first: only return first match
 627  * @user_data: (closure): user data passed to the filter function
 628  *
 629  * Runs a filter against all plugins in the registry and returns a #GList with
 630  * the results. If the first flag is set, only the first match is
 631  * returned (as a list with a single object).
 632  * Every plugin is reffed; use gst_plugin_list_free() after use, which
 633  * will unref again.
 634  *
 635  * Returns: (transfer full) (element-type Gst.Plugin): a #GList of #GstPlugin.
 636  *     Use gst_plugin_list_free() after usage.
 637  *
 638  * MT safe.
 639  */
 640 GList *
 641 gst_registry_plugin_filter (GstRegistry * registry,
 642     GstPluginFilter filter, gboolean first, gpointer user_data)
 643 {
 644   GList *list = NULL;
 645
 646   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 647
 648   GST_OBJECT_LOCK (registry);
 649   {
 650     const GList *walk;
 651
 652     for (walk = registry->priv->plugins; walk != NULL; walk = walk->next) {
 653       GstPlugin *plugin = walk->data;
 654
 655       if (filter == NULL || filter (plugin, user_data)) {
 656         list = g_list_prepend (list, gst_object_ref (plugin));
 657
 658         if (first)
 659           break;
 660       }
 661     }
 662   }
 663   GST_OBJECT_UNLOCK (registry);
 664
 665   return list;
 666 }
 667
 668 typedef struct
 669 {
 670   const gchar *name;
 671   GType type;
 672 } GstTypeNameData;
 673
 674 static gboolean
 675 gst_plugin_feature_type_name_filter (GstPluginFeature * feature,
 676     GstTypeNameData * data)
 677 {
 678   g_assert (GST_IS_PLUGIN_FEATURE (feature));
 679
 680   return ((data->type == 0 || data->type == G_OBJECT_TYPE (feature)) &&
 681       (data->name == NULL || !strcmp (data->name, GST_OBJECT_NAME (feature))));
 682 }
 683
 684 /* returns TRUE if the list was changed
 685  *
 686  * Must be called with the object lock taken */
 687 static gboolean
 688 gst_registry_get_feature_list_or_create (GstRegistry * registry,
 689     GList ** previous, guint32 * cookie, GType type)
 690 {
 691   gboolean res = FALSE;
 692   GstRegistryPrivate *priv = registry->priv;
 693
 694   if (G_UNLIKELY (!*previous || priv->cookie != *cookie)) {
 695     GstTypeNameData data;
 696     const GList *walk;
 697
 698     if (*previous) {
 699       gst_plugin_feature_list_free (*previous);
 700       *previous = NULL;
 701     }
 702
 703     data.type = type;
 704     data.name = NULL;
 705
 706     for (walk = registry->priv->features; walk != NULL; walk = walk->next) {
 707       GstPluginFeature *feature = walk->data;
 708
 709       if (gst_plugin_feature_type_name_filter (feature, &data)) {
 710         *previous = g_list_prepend (*previous, gst_object_ref (feature));
 711       }
 712     }
 713
 714     *cookie = priv->cookie;
 715     res = TRUE;
 716   }
 717
 718   return res;
 719 }
 720
 721 static gint
 722 type_find_factory_rank_cmp (const GstPluginFeature * fac1,
 723     const GstPluginFeature * fac2)
 724 {
 725   if (G_LIKELY (fac1->rank != fac2->rank))
 726     return fac2->rank - fac1->rank;
 727
 728   /* to make the order in which things happen more deterministic,
 729    * sort by name when the ranks are the same. */
 730   return strcmp (GST_OBJECT_NAME (fac1), GST_OBJECT_NAME (fac2));
 731 }
 732
 733 static GList *
 734 gst_registry_get_element_factory_list (GstRegistry * registry)
 735 {
 736   GList *list;
 737
 738   GST_OBJECT_LOCK (registry);
 739
 740   gst_registry_get_feature_list_or_create (registry,
 741       &registry->priv->element_factory_list, &registry->priv->efl_cookie,
 742       GST_TYPE_ELEMENT_FACTORY);
 743
 744   /* Return reffed copy */
 745   list = gst_plugin_feature_list_copy (registry->priv->element_factory_list);
 746
 747   GST_OBJECT_UNLOCK (registry);
 748
 749   return list;
 750 }
 751
 752 static GList *
 753 gst_registry_get_typefind_factory_list (GstRegistry * registry)
 754 {
 755   GList *list;
 756
 757   GST_OBJECT_LOCK (registry);
 758
 759   if (G_UNLIKELY (gst_registry_get_feature_list_or_create (registry,
 760               &registry->priv->typefind_factory_list,
 761               &registry->priv->tfl_cookie, GST_TYPE_TYPE_FIND_FACTORY)))
 762     registry->priv->typefind_factory_list =
 763         g_list_sort (registry->priv->typefind_factory_list,
 764         (GCompareFunc) type_find_factory_rank_cmp);
 765
 766   /* Return reffed copy */
 767   list = gst_plugin_feature_list_copy (registry->priv->typefind_factory_list);
 768
 769   GST_OBJECT_UNLOCK (registry);
 770
 771   return list;
 772 }
 773
 774 /**
 775  * gst_registry_feature_filter:
 776  * @registry: registry to query
 777  * @filter: (scope call): the filter to use
 778  * @first: only return first match
 779  * @user_data: (closure): user data passed to the filter function
 780  *
 781  * Runs a filter against all features of the plugins in the registry
 782  * and returns a GList with the results.
 783  * If the first flag is set, only the first match is
 784  * returned (as a list with a single object).
 785  *
 786  * Returns: (transfer full) (element-type Gst.PluginFeature): a #GList of
 787  *     #GstPluginFeature. Use gst_plugin_feature_list_free() after usage.
 788  *
 789  * MT safe.
 790  */
 791 GList *
 792 gst_registry_feature_filter (GstRegistry * registry,
 793     GstPluginFeatureFilter filter, gboolean first, gpointer user_data)
 794 {
 795   GList *list = NULL;
 796
 797   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 798
 799   GST_OBJECT_LOCK (registry);
 800   {
 801     const GList *walk;
 802
 803     for (walk = registry->priv->features; walk != NULL; walk = walk->next) {
 804       GstPluginFeature *feature = walk->data;
 805
 806       if (filter == NULL || filter (feature, user_data)) {
 807         list = g_list_prepend (list, gst_object_ref (feature));
 808
 809         if (first)
 810           break;
 811       }
 812     }
 813   }
 814   GST_OBJECT_UNLOCK (registry);
 815
 816   return list;
 817 }
 818
 819 static gboolean
 820 gst_registry_plugin_name_filter (GstPlugin * plugin, const gchar * name)
 821 {
 822   return (plugin->desc.name && !strcmp (plugin->desc.name, name));
 823 }
 824
 825 /**
 826  * gst_registry_find_plugin:
 827  * @registry: the registry to search
 828  * @name: the plugin name to find
 829  *
 830  * Find the plugin with the given name in the registry.
 831  * The plugin will be reffed; caller is responsible for unreffing.
 832  *
 833  * Returns: (transfer full): the plugin with the given name or NULL if the
 834  *     plugin was not found. gst_object_unref() after usage.
 835  *
 836  * MT safe.
 837  */
 838 GstPlugin *
 839 gst_registry_find_plugin (GstRegistry * registry, const gchar * name)
 840 {
 841   GList *walk;
 842   GstPlugin *result = NULL;
 843
 844   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 845   g_return_val_if_fail (name != NULL, NULL);
 846
 847   walk = gst_registry_plugin_filter (registry,
 848       (GstPluginFilter) gst_registry_plugin_name_filter, TRUE, (gpointer) name);
 849   if (walk) {
 850     result = GST_PLUGIN_CAST (walk->data);
 851
 852     gst_object_ref (result);
 853     gst_plugin_list_free (walk);
 854   }
 855
 856   return result;
 857 }
 858
 859 /**
 860  * gst_registry_find_feature:
 861  * @registry: the registry to search
 862  * @name: the pluginfeature name to find
 863  * @type: the pluginfeature type to find
 864  *
 865  * Find the pluginfeature with the given name and type in the registry.
 866  *
 867  * Returns: (transfer full): the pluginfeature with the given name and type
 868  *     or NULL if the plugin was not found. gst_object_unref() after usage.
 869  *
 870  * MT safe.
 871  */
 872 GstPluginFeature *
 873 gst_registry_find_feature (GstRegistry * registry, const gchar * name,
 874     GType type)
 875 {
 876   GstPluginFeature *feature = NULL;
 877
 878   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 879   g_return_val_if_fail (name != NULL, NULL);
 880   g_return_val_if_fail (g_type_is_a (type, GST_TYPE_PLUGIN_FEATURE), NULL);
 881
 882   feature = gst_registry_lookup_feature (registry, name);
 883   if (feature && !g_type_is_a (G_TYPE_FROM_INSTANCE (feature), type)) {
 884     gst_object_unref (feature);
 885     feature = NULL;
 886   }
 887
 888   return feature;
 889 }
 890
 891 /**
 892  * gst_registry_get_feature_list:
 893  * @registry: a #GstRegistry
 894  * @type: a #GType.
 895  *
 896  * Retrieves a #GList of #GstPluginFeature of @type.
 897  *
 898  * Returns: (transfer full) (element-type Gst.PluginFeature): a #GList of
 899  *     #GstPluginFeature of @type. Use gst_plugin_feature_list_free() after use
 900  *
 901  * MT safe.
 902  */
 903 GList *
 904 gst_registry_get_feature_list (GstRegistry * registry, GType type)
 905 {
 906   GstTypeNameData data;
 907
 908   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 909   g_return_val_if_fail (g_type_is_a (type, GST_TYPE_PLUGIN_FEATURE), NULL);
 910
 911   /* Speed up */
 912   if (type == GST_TYPE_ELEMENT_FACTORY)
 913     return gst_registry_get_element_factory_list (registry);
 914   else if (type == GST_TYPE_TYPE_FIND_FACTORY)
 915     return gst_registry_get_typefind_factory_list (registry);
 916
 917   data.type = type;
 918   data.name = NULL;
 919
 920   return gst_registry_feature_filter (registry,
 921       (GstPluginFeatureFilter) gst_plugin_feature_type_name_filter,
 922       FALSE, &data);
 923 }
 924
 925 /**
 926  * gst_registry_get_plugin_list:
 927  * @registry: the registry to search
 928  *
 929  * Get a copy of all plugins registered in the given registry. The refcount
 930  * of each element in the list in incremented.
 931  *
 932  * Returns: (transfer full) (element-type Gst.Plugin): a #GList of #GstPlugin.
 933  *     Use gst_plugin_list_free() after usage.
 934  *
 935  * MT safe.
 936  */
 937 GList *
 938 gst_registry_get_plugin_list (GstRegistry * registry)
 939 {
 940   GList *list;
 941   GList *g;
 942
 943   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 944
 945   GST_OBJECT_LOCK (registry);
 946   list = g_list_copy (registry->priv->plugins);
 947   for (g = list; g; g = g->next) {
 948     gst_object_ref (GST_PLUGIN_CAST (g->data));
 949   }
 950   GST_OBJECT_UNLOCK (registry);
 951
 952   return list;
 953 }
 954
 955 static GstPluginFeature *
 956 gst_registry_lookup_feature_locked (GstRegistry * registry, const char *name)
 957 {
 958   return g_hash_table_lookup (registry->priv->feature_hash, name);
 959 }
 960
 961 /**
 962  * gst_registry_lookup_feature:
 963  * @registry: a #GstRegistry
 964  * @name: a #GstPluginFeature name
 965  *
 966  * Find a #GstPluginFeature with @name in @registry.
 967  *
 968  * Returns: (transfer full): a #GstPluginFeature with its refcount incremented,
 969  *     use gst_object_unref() after usage.
 970  *
 971  * MT safe.
 972  */
 973 GstPluginFeature *
 974 gst_registry_lookup_feature (GstRegistry * registry, const char *name)
 975 {
 976   GstPluginFeature *feature;
 977
 978   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
 979   g_return_val_if_fail (name != NULL, NULL);
 980
 981   GST_OBJECT_LOCK (registry);
 982   feature = gst_registry_lookup_feature_locked (registry, name);
 983   if (feature)
 984     gst_object_ref (feature);
 985   GST_OBJECT_UNLOCK (registry);
 986
 987   return feature;
 988 }
 989
 990 static GstPlugin *
 991 gst_registry_lookup_bn_locked (GstRegistry * registry, const char *basename)
 992 {
 993   return g_hash_table_lookup (registry->priv->basename_hash, basename);
 994 }
 995
 996 static GstPlugin *
 997 gst_registry_lookup_bn (GstRegistry * registry, const char *basename)
 998 {
 999   GstPlugin *plugin;
1000
1001   GST_OBJECT_LOCK (registry);
1002   plugin = gst_registry_lookup_bn_locked (registry, basename);
1003   if (plugin)
1004     gst_object_ref (plugin);
1005   GST_OBJECT_UNLOCK (registry);
1006
1007   return plugin;
1008 }
1009
1010 /**
1011  * gst_registry_lookup:
1012  * @registry: the registry to look up in
1013  * @filename: the name of the file to look up
1014  *
1015  * Look up a plugin in the given registry with the given filename.
1016  * If found, plugin is reffed.
1017  *
1018  * Returns: (transfer full): the #GstPlugin if found, or NULL if not.
1019  *     gst_object_unref() after usage.
1020  */
1021 GstPlugin *
1022 gst_registry_lookup (GstRegistry * registry, const char *filename)
1023 {
1024   GstPlugin *plugin;
1025   gchar *basename;
1026
1027   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
1028   g_return_val_if_fail (filename != NULL, NULL);
1029
1030   basename = g_path_get_basename (filename);
1031   if (G_UNLIKELY (basename == NULL))
1032     return NULL;
1033
1034   plugin = gst_registry_lookup_bn (registry, basename);
1035
1036   g_free (basename);
1037
1038   return plugin;
1039 }
1040
1041 typedef enum
1042 {
1043   REGISTRY_SCAN_HELPER_NOT_STARTED = 0,
1044   REGISTRY_SCAN_HELPER_DISABLED,
1045   REGISTRY_SCAN_HELPER_RUNNING
1046 } GstRegistryScanHelperState;
1047
1048 typedef struct
1049 {
1050   GstRegistry *registry;
1051   GstRegistryScanHelperState helper_state;
1052   GstPluginLoader *helper;
1053   gboolean changed;
1054 } GstRegistryScanContext;
1055
1056 static void
1057 init_scan_context (GstRegistryScanContext * context, GstRegistry * registry)
1058 {
1059   gboolean do_fork;
1060
1061   context->registry = registry;
1062
1063   /* see if forking is enabled and set up the scan helper state accordingly */
1064   do_fork = _gst_enable_registry_fork;
1065   if (do_fork) {
1066     const gchar *fork_env;
1067
1068     /* forking enabled, see if it is disabled with an env var */
1069     if ((fork_env = g_getenv ("GST_REGISTRY_FORK"))) {
1070       /* fork enabled for any value different from "no" */
1071       do_fork = strcmp (fork_env, "no") != 0;
1072     }
1073   }
1074
1075   if (do_fork)
1076     context->helper_state = REGISTRY_SCAN_HELPER_NOT_STARTED;
1077   else
1078     context->helper_state = REGISTRY_SCAN_HELPER_DISABLED;
1079
1080   context->helper = NULL;
1081   context->changed = FALSE;
1082 }
1083
1084 static void
1085 clear_scan_context (GstRegistryScanContext * context)
1086 {
1087   if (context->helper) {
1088     context->changed |= _priv_gst_plugin_loader_funcs.destroy (context->helper);
1089     context->helper = NULL;
1090   }
1091 }
1092
1093 static gboolean
1094 gst_registry_scan_plugin_file (GstRegistryScanContext * context,
1095     const gchar * filename, off_t file_size, time_t file_mtime)
1096 {
1097   gboolean changed = FALSE;
1098   GstPlugin *newplugin = NULL;
1099
1100 #ifdef G_OS_WIN32
1101   /* Disable external plugin loader on Windows until it is ported properly. */
1102   context->helper_state = REGISTRY_SCAN_HELPER_DISABLED;
1103 #endif
1104
1105
1106   /* Have a plugin to load - see if the scan-helper needs starting */
1107   if (context->helper_state == REGISTRY_SCAN_HELPER_NOT_STARTED) {
1108     GST_DEBUG ("Starting plugin scanner for file %s", filename);
1109     context->helper = _priv_gst_plugin_loader_funcs.create (context->registry);
1110     if (context->helper != NULL)
1111       context->helper_state = REGISTRY_SCAN_HELPER_RUNNING;
1112     else {
1113       GST_WARNING ("Failed starting plugin scanner. Scanning in-process");
1114       context->helper_state = REGISTRY_SCAN_HELPER_DISABLED;
1115     }
1116   }
1117
1118   if (context->helper_state == REGISTRY_SCAN_HELPER_RUNNING) {
1119     GST_DEBUG ("Using scan-helper to load plugin %s", filename);
1120     if (!_priv_gst_plugin_loader_funcs.load (context->helper,
1121             filename, file_size, file_mtime)) {
1122       g_warning ("External plugin loader failed. This most likely means that "
1123           "the plugin loader helper binary was not found or could not be run. "
1124           "%s",
1125           (g_getenv ("GST_PLUGIN_PATH") || g_getenv ("GST_PLUGIN_PATH_1_0")) ?
1126           "If you are running an uninstalled GStreamer setup, you might need "
1127           "to update your gst-uninstalled script so that the "
1128           "GST_PLUGIN_SCANNER environment variable gets set." : "");
1129       context->helper_state = REGISTRY_SCAN_HELPER_DISABLED;
1130     }
1131   }
1132
1133   /* Check if the helper is disabled (or just got disabled above) */
1134   if (context->helper_state == REGISTRY_SCAN_HELPER_DISABLED) {
1135     /* Load plugin the old fashioned way... */
1136
1137     /* We don't use a GError here because a failure to load some shared
1138      * objects as plugins is normal (particularly in the uninstalled case)
1139      */
1140     newplugin = gst_plugin_load_file (filename, NULL);
1141   }
1142
1143   if (newplugin) {
1144     GST_DEBUG_OBJECT (context->registry, "marking new plugin %p as registered",
1145         newplugin);
1146     newplugin->registered = TRUE;
1147     gst_object_unref (newplugin);
1148     changed = TRUE;
1149   }
1150 #ifndef GST_DISABLE_REGISTRY
1151   if (!__registry_reuse_plugin_scanner) {
1152     clear_scan_context (context);
1153     context->helper_state = REGISTRY_SCAN_HELPER_NOT_STARTED;
1154   }
1155 #endif
1156
1157   return changed;
1158 }
1159
1160 static gboolean
1161 is_blacklisted_hidden_directory (const gchar * dirent)
1162 {
1163   if (G_LIKELY (dirent[0] != '.'))
1164     return FALSE;
1165
1166   /* skip the .debug directory, these contain elf files that are not
1167    * useful or worse, can crash dlopen () */
1168   if (strcmp (dirent, ".debug") == 0)
1169     return TRUE;
1170
1171   /* can also skip .git and .deps dirs, those won't contain useful files.
1172    * This speeds up scanning a bit in uninstalled setups. */
1173   if (strcmp (dirent, ".git") == 0 || strcmp (dirent, ".deps") == 0)
1174     return TRUE;
1175
1176   return FALSE;
1177 }
1178
1179 static gboolean
1180 gst_registry_scan_path_level (GstRegistryScanContext * context,
1181     const gchar * path, int level)
1182 {
1183   GDir *dir;
1184   const gchar *dirent;
1185   gchar *filename;
1186   GstPlugin *plugin;
1187   gboolean changed = FALSE;
1188
1189   dir = g_dir_open (path, 0, NULL);
1190   if (!dir)
1191     return FALSE;
1192
1193   while ((dirent = g_dir_read_name (dir))) {
1194     GStatBuf file_status;
1195
1196     filename = g_build_filename (path, dirent, NULL);
1197     if (g_stat (filename, &file_status) < 0) {
1198       /* Plugin will be removed from cache after the scan completes if it
1199        * is still marked 'cached' */
1200       g_free (filename);
1201       continue;
1202     }
1203
1204     if (file_status.st_mode & S_IFDIR) {
1205       if (G_UNLIKELY (is_blacklisted_hidden_directory (dirent))) {
1206         GST_TRACE_OBJECT (context->registry, "ignoring %s directory", dirent);
1207         g_free (filename);
1208         continue;
1209       }
1210       /* FIXME 0.11: Don't recurse into directories, this behaviour
1211        * is inconsistent with other PATH environment variables
1212        */
1213       if (level > 0) {
1214         GST_LOG_OBJECT (context->registry, "recursing into directory %s",
1215             filename);
1216         changed |= gst_registry_scan_path_level (context, filename, level - 1);
1217       } else {
1218         GST_LOG_OBJECT (context->registry, "not recursing into directory %s, "
1219             "recursion level too deep", filename);
1220       }
1221       g_free (filename);
1222       continue;
1223     }
1224     if (!(file_status.st_mode & S_IFREG)) {
1225       GST_TRACE_OBJECT (context->registry, "%s is not a regular file, ignoring",
1226           filename);
1227       g_free (filename);
1228       continue;
1229     }
1230     if (!g_str_has_suffix (dirent, G_MODULE_SUFFIX)
1231 #ifdef GST_EXTRA_MODULE_SUFFIX
1232         && !g_str_has_suffix (dirent, GST_EXTRA_MODULE_SUFFIX)
1233 #endif
1234         ) {
1235       GST_TRACE_OBJECT (context->registry,
1236           "extension is not recognized as module file, ignoring file %s",
1237           filename);
1238       g_free (filename);
1239       continue;
1240     }
1241
1242     GST_LOG_OBJECT (context->registry, "file %s looks like a possible module",
1243         filename);
1244
1245     /* try to avoid unnecessary plugin-move pain */
1246     if (g_str_has_prefix (dirent, "libgstvalve") ||
1247         g_str_has_prefix (dirent, "libgstselector")) {
1248       GST_WARNING_OBJECT (context->registry, "ignoring old plugin %s which "
1249           "has been merged into the corelements plugin", filename);
1250       /* Plugin will be removed from cache after the scan completes if it
1251        * is still marked 'cached' */
1252       g_free (filename);
1253       continue;
1254     }
1255
1256     /* plug-ins are considered unique by basename; if the given name
1257      * was already seen by the registry, we ignore it */
1258     plugin = gst_registry_lookup_bn (context->registry, dirent);
1259     if (plugin) {
1260       gboolean env_vars_changed, deps_changed = FALSE;
1261
1262       if (plugin->registered) {
1263         GST_DEBUG_OBJECT (context->registry,
1264             "plugin already registered from path \"%s\"",
1265             GST_STR_NULL (plugin->filename));
1266         g_free (filename);
1267         gst_object_unref (plugin);
1268         continue;
1269       }
1270
1271       env_vars_changed = _priv_plugin_deps_env_vars_changed (plugin);
1272
1273       /* If a file with a certain basename is seen on a different path,
1274        * update the plugin to ensure the registry cache will reflect up
1275        * to date information */
1276
1277       if (plugin->file_mtime == file_status.st_mtime &&
1278           plugin->file_size == file_status.st_size && !env_vars_changed &&
1279           !(deps_changed = _priv_plugin_deps_files_changed (plugin)) &&
1280           !strcmp (plugin->filename, filename)) {
1281         GST_LOG_OBJECT (context->registry, "file %s cached", filename);
1282         GST_OBJECT_FLAG_UNSET (plugin, GST_PLUGIN_FLAG_CACHED);
1283         GST_LOG_OBJECT (context->registry,
1284             "marking plugin %p as registered as %s", plugin, filename);
1285         plugin->registered = TRUE;
1286       } else {
1287         GST_INFO_OBJECT (context->registry, "cached info for %s is stale",
1288             filename);
1289         GST_DEBUG_OBJECT (context->registry, "mtime %" G_GINT64_FORMAT " != %"
1290             G_GINT64_FORMAT " or size %" G_GINT64_FORMAT " != %"
1291             G_GINT64_FORMAT " or external dependency env_vars changed: %d or"
1292             " external dependencies changed: %d or old path %s != new path %s",
1293             (gint64) plugin->file_mtime, (gint64) file_status.st_mtime,
1294             (gint64) plugin->file_size, (gint64) file_status.st_size,
1295             env_vars_changed, deps_changed, plugin->filename, filename);
1296         gst_registry_remove_plugin (context->registry, plugin);
1297         changed |= gst_registry_scan_plugin_file (context, filename,
1298             file_status.st_size, file_status.st_mtime);
1299       }
1300       gst_object_unref (plugin);
1301
1302     } else {
1303       GST_DEBUG_OBJECT (context->registry, "file %s not yet in registry",
1304           filename);
1305       changed |= gst_registry_scan_plugin_file (context, filename,
1306           file_status.st_size, file_status.st_mtime);
1307     }
1308
1309     g_free (filename);
1310   }
1311
1312   g_dir_close (dir);
1313
1314   return changed;
1315 }
1316
1317 static gboolean
1318 gst_registry_scan_path_internal (GstRegistryScanContext * context,
1319     const gchar * path)
1320 {
1321   gboolean changed;
1322
1323   GST_DEBUG_OBJECT (context->registry, "scanning path %s", path);
1324   changed = gst_registry_scan_path_level (context, path, 10);
1325
1326   GST_DEBUG_OBJECT (context->registry, "registry changed in path %s: %d", path,
1327       changed);
1328   return changed;
1329 }
1330
1331 /**
1332  * gst_registry_scan_path:
1333  * @registry: the registry to add found plugins to
1334  * @path: the path to scan
1335  *
1336  * Scan the given path for plugins to add to the registry. The syntax of the
1337  * path is specific to the registry.
1338  *
1339  * Returns: %TRUE if registry changed
1340  */
1341 gboolean
1342 gst_registry_scan_path (GstRegistry * registry, const gchar * path)
1343 {
1344   GstRegistryScanContext context;
1345   gboolean result;
1346
1347   g_return_val_if_fail (GST_IS_REGISTRY (registry), FALSE);
1348   g_return_val_if_fail (path != NULL, FALSE);
1349
1350   init_scan_context (&context, registry);
1351
1352   result = gst_registry_scan_path_internal (&context, path);
1353
1354   clear_scan_context (&context);
1355   result |= context.changed;
1356
1357   return result;
1358 }
1359
1360 static gboolean
1361 _gst_plugin_feature_filter_plugin_name (GstPluginFeature * feature,
1362     gpointer user_data)
1363 {
1364   return (strcmp (feature->plugin_name, (gchar *) user_data) == 0);
1365 }
1366
1367 /**
1368  * gst_registry_get_feature_list_by_plugin:
1369  * @registry: a #GstRegistry.
1370  * @name: a plugin name.
1371  *
1372  * Retrieves a #GList of features of the plugin with name @name.
1373  *
1374  * Returns: (transfer full) (element-type Gst.PluginFeature): a #GList of
1375  *     #GstPluginFeature. Use gst_plugin_feature_list_free() after usage.
1376  */
1377 GList *
1378 gst_registry_get_feature_list_by_plugin (GstRegistry * registry,
1379     const gchar * name)
1380 {
1381   g_return_val_if_fail (GST_IS_REGISTRY (registry), NULL);
1382   g_return_val_if_fail (name != NULL, NULL);
1383
1384   return gst_registry_feature_filter (registry,
1385       _gst_plugin_feature_filter_plugin_name, FALSE, (gpointer) name);
1386 }
1387
1388 /* Unref and delete the default registry */
1389 void
1390 _priv_gst_registry_cleanup (void)
1391 {
1392   GstRegistry *registry;
1393
1394   g_mutex_lock (&_gst_registry_mutex);
1395   if ((registry = _gst_registry_default) != NULL) {
1396     _gst_registry_default = NULL;
1397   }
1398   g_mutex_unlock (&_gst_registry_mutex);
1399
1400   /* unref outside of the lock because we can. */
1401   if (registry)
1402     gst_object_unref (registry);
1403 }
1404
1405 /**
1406  * gst_registry_check_feature_version:
1407  * @registry: a #GstRegistry
1408  * @feature_name: the name of the feature (e.g. "oggdemux")
1409  * @min_major: the minimum major version number
1410  * @min_minor: the minimum minor version number
1411  * @min_micro: the minimum micro version number
1412  *
1413  * Checks whether a plugin feature by the given name exists in
1414  * @registry and whether its version is at least the
1415  * version required.
1416  *
1417  * Returns: #TRUE if the feature could be found and the version is
1418  * the same as the required version or newer, and #FALSE otherwise.
1419  */
1420 gboolean
1421 gst_registry_check_feature_version (GstRegistry * registry,
1422     const gchar * feature_name, guint min_major, guint min_minor,
1423     guint min_micro)
1424 {
1425   GstPluginFeature *feature;
1426   gboolean ret = FALSE;
1427
1428   g_return_val_if_fail (feature_name != NULL, FALSE);
1429
1430   GST_DEBUG ("Looking up plugin feature '%s'", feature_name);
1431
1432   feature = gst_registry_lookup_feature (registry, feature_name);
1433   if (feature) {
1434     ret = gst_plugin_feature_check_version (feature, min_major, min_minor,
1435         min_micro);
1436     gst_object_unref (feature);
1437   } else {
1438     GST_DEBUG ("Could not find plugin feature '%s'", feature_name);
1439   }
1440
1441   return ret;
1442 }
1443
1444 static void
1445 load_plugin_func (gpointer data, gpointer user_data)
1446 {
1447   GstPlugin *plugin;
1448   const gchar *filename;
1449   GError *err = NULL;
1450
1451   filename = (const gchar *) data;
1452   GST_DEBUG ("Pre-loading plugin %s", filename);
1453
1454   plugin = gst_plugin_load_file (filename, &err);
1455
1456   if (plugin) {
1457     GST_INFO ("Loaded plugin: \"%s\"", filename);
1458
1459     gst_registry_add_plugin (gst_registry_get (), plugin);
1460   } else {
1461     if (err) {
1462       /* Report error to user, and free error */
1463       GST_ERROR ("Failed to load plugin: %s", err->message);
1464       g_error_free (err);
1465     } else {
1466       GST_WARNING ("Failed to load plugin: \"%s\"", filename);
1467     }
1468   }
1469 }
1470
1471 #ifndef GST_DISABLE_REGISTRY
1472 /* Unref all plugins marked 'cached', to clear old plugins that no
1473  * longer exist. Returns TRUE if any plugins were removed */
1474 static gboolean
1475 gst_registry_remove_cache_plugins (GstRegistry * registry)
1476 {
1477   GList *g;
1478   GList *g_next;
1479   GstPlugin *plugin;
1480   gboolean changed = FALSE;
1481
1482   g_return_val_if_fail (GST_IS_REGISTRY (registry), FALSE);
1483
1484   GST_OBJECT_LOCK (registry);
1485
1486   GST_DEBUG_OBJECT (registry, "removing cached plugins");
1487   g = registry->priv->plugins;
1488   while (g) {
1489     g_next = g->next;
1490     plugin = g->data;
1491     if (GST_OBJECT_FLAG_IS_SET (plugin, GST_PLUGIN_FLAG_CACHED)) {
1492       GST_DEBUG_OBJECT (registry, "removing cached plugin \"%s\"",
1493           GST_STR_NULL (plugin->filename));
1494       registry->priv->plugins = g_list_delete_link (registry->priv->plugins, g);
1495       if (G_LIKELY (plugin->basename))
1496         g_hash_table_remove (registry->priv->basename_hash, plugin->basename);
1497       gst_registry_remove_features_for_plugin_unlocked (registry, plugin);
1498       gst_object_unref (plugin);
1499       changed = TRUE;
1500     }
1501     g = g_next;
1502   }
1503
1504   GST_OBJECT_UNLOCK (registry);
1505
1506   return changed;
1507 }
1508
1509 typedef enum
1510 {
1511   REGISTRY_SCAN_AND_UPDATE_FAILURE = 0,
1512   REGISTRY_SCAN_AND_UPDATE_SUCCESS_NOT_CHANGED,
1513   REGISTRY_SCAN_AND_UPDATE_SUCCESS_UPDATED
1514 } GstRegistryScanAndUpdateResult;
1515
1516 /*
1517  * scan_and_update_registry:
1518  * @default_registry: the #GstRegistry
1519  * @registry_file: registry filename
1520  * @write_changes: write registry if it has changed?
1521  *
1522  * Scans for registry changes and eventually updates the registry cache.
1523  *
1524  * Return: %REGISTRY_SCAN_AND_UPDATE_FAILURE if the registry could not scanned
1525  *         or updated, %REGISTRY_SCAN_AND_UPDATE_SUCCESS_NOT_CHANGED if the
1526  *         registry is clean and %REGISTRY_SCAN_AND_UPDATE_SUCCESS_UPDATED if
1527  *         it has been updated and the cache needs to be re-read.
1528  */
1529 static GstRegistryScanAndUpdateResult
1530 scan_and_update_registry (GstRegistry * default_registry,
1531     const gchar * registry_file, gboolean write_changes, GError ** error)
1532 {
1533   const gchar *plugin_path;
1534   gboolean changed = FALSE;
1535   GList *l;
1536   GstRegistryScanContext context;
1537
1538   GST_INFO ("Validating plugins from registry cache: %s", registry_file);
1539
1540   init_scan_context (&context, default_registry);
1541
1542   /* It sounds tempting to just compare the mtime of directories with the mtime
1543    * of the registry cache, but it does not work. It would not catch updated
1544    * plugins, which might bring more or less features.
1545    */
1546
1547   /* scan paths specified via --gst-plugin-path */
1548   GST_DEBUG ("scanning paths added via --gst-plugin-path");
1549   for (l = _priv_gst_plugin_paths; l != NULL; l = l->next) {
1550     GST_INFO ("Scanning plugin path: \"%s\"", (gchar *) l->data);
1551     changed |= gst_registry_scan_path_internal (&context, (gchar *) l->data);
1552   }
1553   /* keep plugin_paths around in case a re-scan is forced later on */
1554
1555   /* GST_PLUGIN_PATH specifies a list of directories to scan for
1556    * additional plugins.  These take precedence over the system plugins */
1557   plugin_path = g_getenv ("GST_PLUGIN_PATH_1_0");
1558   if (plugin_path == NULL)
1559     plugin_path = g_getenv ("GST_PLUGIN_PATH");
1560   if (plugin_path) {
1561     char **list;
1562     int i;
1563
1564     GST_DEBUG ("GST_PLUGIN_PATH set to %s", plugin_path);
1565     list = g_strsplit (plugin_path, G_SEARCHPATH_SEPARATOR_S, 0);
1566     for (i = 0; list[i]; i++) {
1567       changed |= gst_registry_scan_path_internal (&context, list[i]);
1568     }
1569     g_strfreev (list);
1570   } else {
1571     GST_DEBUG ("GST_PLUGIN_PATH not set");
1572   }
1573
1574   /* GST_PLUGIN_SYSTEM_PATH specifies a list of plugins that are always
1575    * loaded by default.  If not set, this defaults to the system-installed
1576    * path, and the plugins installed in the user's home directory */
1577   plugin_path = g_getenv ("GST_PLUGIN_SYSTEM_PATH_1_0");
1578   if (plugin_path == NULL)
1579     plugin_path = g_getenv ("GST_PLUGIN_SYSTEM_PATH");
1580   if (plugin_path == NULL) {
1581     char *home_plugins;
1582
1583     GST_DEBUG ("GST_PLUGIN_SYSTEM_PATH not set");
1584
1585     /* plugins in the user's home directory take precedence over
1586      * system-installed ones */
1587     home_plugins = g_build_filename (g_get_user_data_dir (),
1588         "gstreamer-" GST_API_VERSION, "plugins", NULL);
1589
1590     GST_DEBUG ("scanning home plugins %s", home_plugins);
1591     changed |= gst_registry_scan_path_internal (&context, home_plugins);
1592     g_free (home_plugins);
1593
1594     /* add the main (installed) library path */
1595     GST_DEBUG ("scanning main plugins %s", PLUGINDIR);
1596     changed |= gst_registry_scan_path_internal (&context, PLUGINDIR);
1597
1598 #ifdef G_OS_WIN32
1599     {
1600       char *base_dir;
1601       char *dir;
1602
1603       base_dir =
1604           g_win32_get_package_installation_directory_of_module
1605           (_priv_gst_dll_handle);
1606
1607       dir =
1608           g_build_filename (base_dir, "lib", "gstreamer-" GST_API_VERSION,
1609           NULL);
1610       GST_DEBUG ("scanning DLL dir %s", dir);
1611
1612       changed |= gst_registry_scan_path_internal (&context, dir);
1613
1614       g_free (dir);
1615       g_free (base_dir);
1616     }
1617 #endif
1618   } else {
1619     gchar **list;
1620     gint i;
1621
1622     GST_DEBUG ("GST_PLUGIN_SYSTEM_PATH set to %s", plugin_path);
1623     list = g_strsplit (plugin_path, G_SEARCHPATH_SEPARATOR_S, 0);
1624     for (i = 0; list[i]; i++) {
1625       changed |= gst_registry_scan_path_internal (&context, list[i]);
1626     }
1627     g_strfreev (list);
1628   }
1629
1630   clear_scan_context (&context);
1631   changed |= context.changed;
1632
1633   /* Remove cached plugins so stale info is cleared. */
1634   changed |= gst_registry_remove_cache_plugins (default_registry);
1635
1636   if (!changed) {
1637     GST_INFO ("Registry cache has not changed");
1638     return REGISTRY_SCAN_AND_UPDATE_SUCCESS_NOT_CHANGED;
1639   }
1640
1641   if (!write_changes) {
1642     GST_INFO ("Registry cache changed, but writing is disabled. Not writing.");
1643     return REGISTRY_SCAN_AND_UPDATE_FAILURE;
1644   }
1645
1646   GST_INFO ("Registry cache changed. Writing new registry cache");
1647   if (!priv_gst_registry_binary_write_cache (default_registry,
1648           default_registry->priv->plugins, registry_file)) {
1649     g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
1650         _("Error writing registry cache to %s: %s"),
1651         registry_file, g_strerror (errno));
1652     return REGISTRY_SCAN_AND_UPDATE_FAILURE;
1653   }
1654
1655   GST_INFO ("Registry cache written successfully");
1656   return REGISTRY_SCAN_AND_UPDATE_SUCCESS_UPDATED;
1657 }
1658
1659 static gboolean
1660 ensure_current_registry (GError ** error)
1661 {
1662   gchar *registry_file;
1663   GstRegistry *default_registry;
1664   gboolean ret = TRUE;
1665   gboolean do_update = TRUE;
1666   gboolean have_cache = TRUE;
1667
1668   default_registry = gst_registry_get ();
1669
1670   registry_file = g_strdup (g_getenv ("GST_REGISTRY_1_0"));
1671   if (registry_file == NULL)
1672     registry_file = g_strdup (g_getenv ("GST_REGISTRY"));
1673   if (registry_file == NULL) {
1674     registry_file = g_build_filename (g_get_user_cache_dir (),
1675         "gstreamer-" GST_API_VERSION, "registry." TARGET_CPU ".bin", NULL);
1676   }
1677
1678   if (!_gst_disable_registry_cache) {
1679     GST_INFO ("reading registry cache: %s", registry_file);
1680     have_cache = priv_gst_registry_binary_read_cache (default_registry,
1681         registry_file);
1682     /* Only ever read the registry cache once, then disable it for
1683      * subsequent updates during the program lifetime */
1684     _gst_disable_registry_cache = TRUE;
1685   }
1686
1687   if (have_cache) {
1688     do_update = !_priv_gst_disable_registry_update;
1689     if (do_update) {
1690       const gchar *update_env;
1691
1692       if ((update_env = g_getenv ("GST_REGISTRY_UPDATE"))) {
1693         /* do update for any value different from "no" */
1694         do_update = (strcmp (update_env, "no") != 0);
1695       }
1696     }
1697   }
1698
1699   if (do_update) {
1700     const gchar *reuse_env;
1701
1702     if ((reuse_env = g_getenv ("GST_REGISTRY_REUSE_PLUGIN_SCANNER"))) {
1703       /* do reuse for any value different from "no" */
1704       __registry_reuse_plugin_scanner = (strcmp (reuse_env, "no") != 0);
1705     }
1706     /* now check registry */
1707     GST_DEBUG ("Updating registry cache");
1708     scan_and_update_registry (default_registry, registry_file, TRUE, error);
1709   } else {
1710     GST_DEBUG ("Not updating registry cache (disabled)");
1711   }
1712
1713   g_free (registry_file);
1714   GST_INFO ("registry reading and updating done, result = %d", ret);
1715
1716   return ret;
1717 }
1718 #endif /* GST_DISABLE_REGISTRY */
1719
1720 /**
1721  * gst_registry_fork_is_enabled:
1722  *
1723  * By default GStreamer will perform scanning and rebuilding of the
1724  * registry file using a helper child process.
1725  *
1726  * Applications might want to disable this behaviour with the
1727  * gst_registry_fork_set_enabled() function, in which case new plugins
1728  * are scanned (and loaded) into the application process.
1729  *
1730  * Returns: %TRUE if GStreamer will use the child helper process when
1731  * rebuilding the registry.
1732  *
1733  * Since: 0.10.10
1734  */
1735 gboolean
1736 gst_registry_fork_is_enabled (void)
1737 {
1738   return _gst_enable_registry_fork;
1739 }
1740
1741 /**
1742  * gst_registry_fork_set_enabled:
1743  * @enabled: whether rebuilding the registry can use a temporary child helper process.
1744  *
1745  * Applications might want to disable/enable spawning of a child helper process
1746  * when rebuilding the registry. See gst_registry_fork_is_enabled() for more
1747  * information.
1748  *
1749  * Since: 0.10.10
1750  */
1751 void
1752 gst_registry_fork_set_enabled (gboolean enabled)
1753 {
1754   _gst_enable_registry_fork = enabled;
1755 }
1756
1757 /**
1758  * gst_update_registry:
1759  *
1760  * Forces GStreamer to re-scan its plugin paths and update the default
1761  * plugin registry.
1762  *
1763  * Applications will almost never need to call this function, it is only
1764  * useful if the application knows new plugins have been installed (or old
1765  * ones removed) since the start of the application (or, to be precise, the
1766  * first call to gst_init()) and the application wants to make use of any
1767  * newly-installed plugins without restarting the application.
1768  *
1769  * Applications should assume that the registry update is neither atomic nor
1770  * thread-safe and should therefore not have any dynamic pipelines running
1771  * (including the playbin and decodebin elements) and should also not create
1772  * any elements or access the GStreamer registry while the update is in
1773  * progress.
1774  *
1775  * Note that this function may block for a significant amount of time.
1776  *
1777  * Returns: %TRUE if the registry has been updated successfully (does not
1778  *          imply that there were changes), otherwise %FALSE.
1779  *
1780  * Since: 0.10.12
1781  */
1782 gboolean
1783 gst_update_registry (void)
1784 {
1785   gboolean res;
1786
1787 #ifndef GST_DISABLE_REGISTRY
1788   GError *err = NULL;
1789
1790   res = ensure_current_registry (&err);
1791   if (err) {
1792     GST_WARNING ("registry update failed: %s", err->message);
1793     g_error_free (err);
1794   } else {
1795     GST_LOG ("registry update succeeded");
1796   }
1797
1798 #else
1799   GST_WARNING ("registry update failed: %s", "registry disabled");
1800   res = TRUE;
1801 #endif /* GST_DISABLE_REGISTRY */
1802
1803   if (_priv_gst_preload_plugins) {
1804     GST_DEBUG ("Preloading indicated plugins...");
1805     g_slist_foreach (_priv_gst_preload_plugins, load_plugin_func, NULL);
1806   }
1807
1808   return res;
1809 }
1810
1811 /**
1812  * gst_registry_get_feature_list_cookie:
1813  * @registry: the registry
1814  *
1815  * Returns the registrys feature list cookie. This changes
1816  * every time a feature is added or removed from the registry.
1817  *
1818  * Returns: the feature list cookie.
1819  *
1820  * Since: 0.10.26
1821  */
1822 guint32
1823 gst_registry_get_feature_list_cookie (GstRegistry * registry)
1824 {
1825   g_return_val_if_fail (GST_IS_REGISTRY (registry), 0);
1826
1827   return registry->priv->cookie;
1828 }