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