gst/gstplugin.c

   1 /* GStreamer
   2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
   3  *                    2000 Wim Taymans <wtay@chello.be>
   4  *
   5  * gstplugin.c: Plugin subsystem for loading elements, types, and libs
   6  *
   7  * This library is free software; you can redistribute it and/or
   8  * modify it under the terms of the GNU Library General Public
   9  * License as published by the Free Software Foundation; either
  10  * version 2 of the License, or (at your option) any later version.
  11  *
  12  * This library is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * Library General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU Library General Public
  18  * License along with this library; if not, write to the
  19  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  20  * Boston, MA 02111-1307, USA.
  21  */
  22
  23 /**
  24  * SECTION:gstplugin
  25  * @short_description: Container for features loaded from a shared object module
  26  * @see_also: #GstPluginFeature, #GstElementFactory
  27  *
  28  * GStreamer is extensible, so #GstElement instances can be loaded at runtime.
  29  * A plugin system can provide one or more of the basic
  30  * <application>GStreamer</application> #GstPluginFeature subclasses.
  31  *
  32  * A plugin should export a symbol <symbol>gst_plugin_desc</symbol> that is a
  33  * struct of type #GstPluginDesc.
  34  * the plugin loader will check the version of the core library the plugin was
  35  * linked against and will create a new #GstPlugin. It will then call the
  36  * #GstPluginInitFunc function that was provided in the
  37  * <symbol>gst_plugin_desc</symbol>.
  38  *
  39  * Once you have a handle to a #GstPlugin (e.g. from the #GstRegistry), you
  40  * can add any object that subclasses #GstPluginFeature.
  41  *
  42  * Usually plugins are always automaticlly loaded so you don't need to call
  43  * gst_plugin_load() explicitly to bring it into memory. There are options to
  44  * statically link plugins to an app or even use GStreamer without a plugin
  45  * repository in which case gst_plugin_load() can be needed to bring the plugin
  46  * into memory.
  47  */
  48
  49 #ifdef HAVE_CONFIG_H
  50 #include "config.h"
  51 #endif
  52
  53 #include "gst_private.h"
  54
  55 #include <glib/gstdio.h>
  56 #include <sys/types.h>
  57 #ifdef HAVE_DIRENT_H
  58 #include <dirent.h>
  59 #endif
  60 #ifdef HAVE_UNISTD_H
  61 #include <unistd.h>
  62 #endif
  63 #include <signal.h>
  64 #include <errno.h>
  65
  66 #include "glib-compat-private.h"
  67
  68 #include <gst/gst.h>
  69
  70 #define GST_CAT_DEFAULT GST_CAT_PLUGIN_LOADING
  71
  72 static guint _num_static_plugins;       /* 0    */
  73 static GstPluginDesc *_static_plugins;  /* NULL */
  74 static gboolean _gst_plugin_inited;
  75 static gchar **_plugin_loading_whitelist;       /* NULL */
  76
  77 /* static variables for segfault handling of plugin loading */
  78 static char *_gst_plugin_fault_handler_filename = NULL;
  79
  80 /* list of valid licenses.
  81  * One of these must be specified or the plugin won't be loaded
  82  * Contact gstreamer-devel@lists.sourceforge.net if your license should be
  83  * added.
  84  *
  85  * GPL: http://www.gnu.org/copyleft/gpl.html
  86  * LGPL: http://www.gnu.org/copyleft/lesser.html
  87  * QPL: http://www.trolltech.com/licenses/qpl.html
  88  * MPL: http://www.opensource.org/licenses/mozilla1.1.php
  89  * MIT/X11: http://www.opensource.org/licenses/mit-license.php
  90  * 3-clause BSD: http://www.opensource.org/licenses/bsd-license.php
  91  */
  92 static const gchar *valid_licenses[] = {
  93   "LGPL",                       /* GNU Lesser General Public License */
  94   "GPL",                        /* GNU General Public License */
  95   "QPL",                        /* Trolltech Qt Public License */
  96   "GPL/QPL",                    /* Combi-license of GPL + QPL */
  97   "MPL",                        /* MPL 1.1 license */
  98   "BSD",                        /* 3-clause BSD license */
  99   "MIT/X11",                    /* MIT/X11 license */
 100   "Proprietary",                /* Proprietary license */
 101   GST_LICENSE_UNKNOWN,          /* some other license */
 102   NULL
 103 };
 104
 105 static GstPlugin *gst_plugin_register_func (GstPlugin * plugin,
 106     const GstPluginDesc * desc, gpointer user_data);
 107 static void gst_plugin_desc_copy (GstPluginDesc * dest,
 108     const GstPluginDesc * src);
 109
 110 static void gst_plugin_ext_dep_free (GstPluginDep * dep);
 111
 112 G_DEFINE_TYPE (GstPlugin, gst_plugin, GST_TYPE_OBJECT);
 113
 114 static void
 115 gst_plugin_init (GstPlugin * plugin)
 116 {
 117   plugin->priv =
 118       G_TYPE_INSTANCE_GET_PRIVATE (plugin, GST_TYPE_PLUGIN, GstPluginPrivate);
 119 }
 120
 121 static void
 122 gst_plugin_finalize (GObject * object)
 123 {
 124   GstPlugin *plugin = GST_PLUGIN_CAST (object);
 125   GstRegistry *registry = gst_registry_get_default ();
 126   GList *g;
 127
 128   GST_DEBUG ("finalizing plugin %" GST_PTR_FORMAT, plugin);
 129   for (g = registry->plugins; g; g = g->next) {
 130     if (g->data == (gpointer) plugin) {
 131       g_warning ("removing plugin that is still in registry");
 132     }
 133   }
 134   g_free (plugin->filename);
 135   g_free (plugin->basename);
 136
 137   g_list_foreach (plugin->priv->deps, (GFunc) gst_plugin_ext_dep_free, NULL);
 138   g_list_free (plugin->priv->deps);
 139   plugin->priv->deps = NULL;
 140
 141   if (plugin->priv->cache_data) {
 142     gst_structure_free (plugin->priv->cache_data);
 143   }
 144
 145   G_OBJECT_CLASS (gst_plugin_parent_class)->finalize (object);
 146 }
 147
 148 static void
 149 gst_plugin_class_init (GstPluginClass * klass)
 150 {
 151   G_OBJECT_CLASS (klass)->finalize = gst_plugin_finalize;
 152
 153   g_type_class_add_private (klass, sizeof (GstPluginPrivate));
 154 }
 155
 156 GQuark
 157 gst_plugin_error_quark (void)
 158 {
 159   static GQuark quark = 0;
 160
 161   if (!quark)
 162     quark = g_quark_from_static_string ("gst_plugin_error");
 163   return quark;
 164 }
 165
 166 #ifndef GST_REMOVE_DEPRECATED
 167 #ifdef GST_DISABLE_DEPRECATED
 168 void _gst_plugin_register_static (GstPluginDesc * desc);
 169 #endif
 170 /* this function can be called in the GCC constructor extension, before
 171  * the _gst_plugin_initialize() was called. In that case, we store the
 172  * plugin description in a list to initialize it when we open the main
 173  * module later on.
 174  * When the main module is known, we can register the plugin right away.
 175  */
 176 void
 177 _gst_plugin_register_static (GstPluginDesc * desc)
 178 {
 179   g_return_if_fail (desc != NULL);
 180
 181   if (!_gst_plugin_inited) {
 182     /* We can't use any GLib functions here, since g_thread_init hasn't been
 183      * called yet, and we can't call it here either, or programs that don't
 184      * guard their g_thread_init calls in main() will just abort */
 185     ++_num_static_plugins;
 186     _static_plugins =
 187         realloc (_static_plugins, _num_static_plugins * sizeof (GstPluginDesc));
 188     /* assume strings in the GstPluginDesc are static const or live forever */
 189     _static_plugins[_num_static_plugins - 1] = *desc;
 190   } else {
 191     gst_plugin_register_static (desc->major_version, desc->minor_version,
 192         desc->name, desc->description, desc->plugin_init, desc->version,
 193         desc->license, desc->source, desc->package, desc->origin);
 194   }
 195 }
 196 #endif
 197
 198 /**
 199  * gst_plugin_register_static:
 200  * @major_version: the major version number of the GStreamer core that the
 201  *     plugin was compiled for, you can just use GST_VERSION_MAJOR here
 202  * @minor_version: the minor version number of the GStreamer core that the
 203  *     plugin was compiled for, you can just use GST_VERSION_MINOR here
 204  * @name: a unique name of the plugin (ideally prefixed with an application- or
 205  *     library-specific namespace prefix in order to avoid name conflicts in
 206  *     case a similar plugin with the same name ever gets added to GStreamer)
 207  * @description: description of the plugin
 208  * @init_func: pointer to the init function of this plugin.
 209  * @version: version string of the plugin
 210  * @license: effective license of plugin. Must be one of the approved licenses
 211  *     (see #GstPluginDesc above) or the plugin will not be registered.
 212  * @source: source module plugin belongs to
 213  * @package: shipped package plugin belongs to
 214  * @origin: URL to provider of plugin
 215  *
 216  * Registers a static plugin, ie. a plugin which is private to an application
 217  * or library and contained within the application or library (as opposed to
 218  * being shipped as a separate module file).
 219  *
 220  * You must make sure that GStreamer has been initialised (with gst_init() or
 221  * via gst_init_get_option_group()) before calling this function.
 222  *
 223  * Returns: TRUE if the plugin was registered correctly, otherwise FALSE.
 224  *
 225  * Since: 0.10.16
 226  */
 227 gboolean
 228 gst_plugin_register_static (gint major_version, gint minor_version,
 229     const gchar * name, const gchar * description, GstPluginInitFunc init_func,
 230     const gchar * version, const gchar * license, const gchar * source,
 231     const gchar * package, const gchar * origin)
 232 {
 233   GstPluginDesc desc = { major_version, minor_version, name, description,
 234     init_func, version, license, source, package, origin, NULL,
 235   };
 236   GstPlugin *plugin;
 237   gboolean res = FALSE;
 238
 239   g_return_val_if_fail (name != NULL, FALSE);
 240   g_return_val_if_fail (description != NULL, FALSE);
 241   g_return_val_if_fail (init_func != NULL, FALSE);
 242   g_return_val_if_fail (version != NULL, FALSE);
 243   g_return_val_if_fail (license != NULL, FALSE);
 244   g_return_val_if_fail (source != NULL, FALSE);
 245   g_return_val_if_fail (package != NULL, FALSE);
 246   g_return_val_if_fail (origin != NULL, FALSE);
 247
 248   /* make sure gst_init() has been called */
 249   g_return_val_if_fail (_gst_plugin_inited != FALSE, FALSE);
 250
 251   GST_LOG ("attempting to load static plugin \"%s\" now...", name);
 252   plugin = g_object_newv (GST_TYPE_PLUGIN, 0, NULL);
 253   if (gst_plugin_register_func (plugin, &desc, NULL) != NULL) {
 254     GST_INFO ("registered static plugin \"%s\"", name);
 255     res = gst_default_registry_add_plugin (plugin);
 256     GST_INFO ("added static plugin \"%s\", result: %d", name, res);
 257   }
 258   return res;
 259 }
 260
 261 /**
 262  * gst_plugin_register_static_full:
 263  * @major_version: the major version number of the GStreamer core that the
 264  *     plugin was compiled for, you can just use GST_VERSION_MAJOR here
 265  * @minor_version: the minor version number of the GStreamer core that the
 266  *     plugin was compiled for, you can just use GST_VERSION_MINOR here
 267  * @name: a unique name of the plugin (ideally prefixed with an application- or
 268  *     library-specific namespace prefix in order to avoid name conflicts in
 269  *     case a similar plugin with the same name ever gets added to GStreamer)
 270  * @description: description of the plugin
 271  * @init_full_func: pointer to the init function with user data of this plugin.
 272  * @version: version string of the plugin
 273  * @license: effective license of plugin. Must be one of the approved licenses
 274  *     (see #GstPluginDesc above) or the plugin will not be registered.
 275  * @source: source module plugin belongs to
 276  * @package: shipped package plugin belongs to
 277  * @origin: URL to provider of plugin
 278  * @user_data: gpointer to user data
 279  *
 280  * Registers a static plugin, ie. a plugin which is private to an application
 281  * or library and contained within the application or library (as opposed to
 282  * being shipped as a separate module file) with a #GstPluginInitFullFunc
 283  * which allows user data to be passed to the callback function (useful
 284  * for bindings).
 285  *
 286  * You must make sure that GStreamer has been initialised (with gst_init() or
 287  * via gst_init_get_option_group()) before calling this function.
 288  *
 289  * Returns: TRUE if the plugin was registered correctly, otherwise FALSE.
 290  *
 291  * Since: 0.10.24
 292  *
 293  */
 294 gboolean
 295 gst_plugin_register_static_full (gint major_version, gint minor_version,
 296     const gchar * name, const gchar * description,
 297     GstPluginInitFullFunc init_full_func, const gchar * version,
 298     const gchar * license, const gchar * source, const gchar * package,
 299     const gchar * origin, gpointer user_data)
 300 {
 301   GstPluginDesc desc = { major_version, minor_version, name, description,
 302     (GstPluginInitFunc) init_full_func, version, license, source, package,
 303     origin, NULL,
 304   };
 305   GstPlugin *plugin;
 306   gboolean res = FALSE;
 307
 308   g_return_val_if_fail (name != NULL, FALSE);
 309   g_return_val_if_fail (description != NULL, FALSE);
 310   g_return_val_if_fail (init_full_func != NULL, FALSE);
 311   g_return_val_if_fail (version != NULL, FALSE);
 312   g_return_val_if_fail (license != NULL, FALSE);
 313   g_return_val_if_fail (source != NULL, FALSE);
 314   g_return_val_if_fail (package != NULL, FALSE);
 315   g_return_val_if_fail (origin != NULL, FALSE);
 316
 317   /* make sure gst_init() has been called */
 318   g_return_val_if_fail (_gst_plugin_inited != FALSE, FALSE);
 319
 320   GST_LOG ("attempting to load static plugin \"%s\" now...", name);
 321   plugin = g_object_newv (GST_TYPE_PLUGIN, 0, NULL);
 322   if (gst_plugin_register_func (plugin, &desc, user_data) != NULL) {
 323     GST_INFO ("registered static plugin \"%s\"", name);
 324     res = gst_default_registry_add_plugin (plugin);
 325     GST_INFO ("added static plugin \"%s\", result: %d", name, res);
 326   }
 327   return res;
 328 }
 329
 330 void
 331 _gst_plugin_initialize (void)
 332 {
 333   const gchar *whitelist;
 334   guint i;
 335
 336   _gst_plugin_inited = TRUE;
 337
 338   whitelist = g_getenv ("GST_PLUGIN_LOADING_WHITELIST");
 339   if (whitelist != NULL && *whitelist != '\0') {
 340     _plugin_loading_whitelist = g_strsplit (whitelist,
 341         G_SEARCHPATH_SEPARATOR_S, -1);
 342     for (i = 0; _plugin_loading_whitelist[i] != NULL; ++i) {
 343       GST_INFO ("plugins whitelist entry: %s", _plugin_loading_whitelist[i]);
 344     }
 345   }
 346
 347   /* now register all static plugins */
 348   GST_INFO ("registering %u static plugins", _num_static_plugins);
 349   for (i = 0; i < _num_static_plugins; ++i) {
 350     gst_plugin_register_static (_static_plugins[i].major_version,
 351         _static_plugins[i].minor_version, _static_plugins[i].name,
 352         _static_plugins[i].description, _static_plugins[i].plugin_init,
 353         _static_plugins[i].version, _static_plugins[i].license,
 354         _static_plugins[i].source, _static_plugins[i].package,
 355         _static_plugins[i].origin);
 356   }
 357
 358   if (_static_plugins) {
 359     free (_static_plugins);
 360     _static_plugins = NULL;
 361     _num_static_plugins = 0;
 362   }
 363 }
 364
 365 /* Whitelist entry format:
 366  *
 367  *   plugin1,plugin2@pathprefix or
 368  *   plugin1,plugin2@* or just
 369  *   plugin1,plugin2 or
 370  *   source-package@pathprefix or
 371  *   source-package@* or just
 372  *   source-package
 373  *
 374  * ie. the bit before the path will be checked against both the plugin
 375  * name and the plugin's source package name, to keep the format simple.
 376  */
 377 static gboolean
 378 gst_plugin_desc_matches_whitelist_entry (GstPluginDesc * desc,
 379     const gchar * filename, const gchar * pattern)
 380 {
 381   const gchar *sep;
 382   gboolean ret = FALSE;
 383   gchar *name;
 384
 385   GST_LOG ("Whitelist pattern '%s', plugin: %s of %s@%s", pattern, desc->name,
 386       desc->source, GST_STR_NULL (filename));
 387
 388   /* do we have a path prefix? */
 389   sep = strchr (pattern, '@');
 390   if (sep != NULL && strcmp (sep, "@*") != 0 && strcmp (sep, "@") != 0) {
 391     /* paths are not canonicalised or treated with realpath() here. This
 392      * should be good enough for our use case, since we just use the paths
 393      * autotools uses, and those will be constructed from the same prefix. */
 394     if (filename != NULL && !g_str_has_prefix (filename, sep + 1))
 395       return FALSE;
 396
 397     GST_LOG ("%s matches path prefix %s", GST_STR_NULL (filename), sep + 1);
 398   }
 399
 400   if (sep != NULL) {
 401     name = g_strndup (pattern, (gsize) (sep - pattern));
 402   } else {
 403     name = g_strdup (pattern);
 404   }
 405
 406   g_strstrip (name);
 407   if (!g_ascii_isalnum (*name)) {
 408     GST_WARNING ("Invalid whitelist pattern: %s", pattern);
 409     goto done;
 410   }
 411
 412   /* now check plugin names / source package name */
 413   if (strchr (name, ',') == NULL) {
 414     /* only a single name: either a plugin name or the source package name */
 415     ret = (strcmp (desc->source, name) == 0 || strcmp (desc->name, name) == 0);
 416   } else {
 417     gchar **n, **names;
 418
 419     /* multiple names: assume these are plugin names */
 420     names = g_strsplit (name, ",", -1);
 421     for (n = names; n != NULL && *n != NULL; ++n) {
 422       g_strstrip (*n);
 423       if (strcmp (desc->name, *n) == 0) {
 424         ret = TRUE;
 425         break;
 426       }
 427     }
 428     g_strfreev (names);
 429   }
 430
 431   GST_LOG ("plugin / source package name match: %d", ret);
 432
 433 done:
 434
 435   g_free (name);
 436   return ret;
 437 }
 438
 439 gboolean
 440 priv_gst_plugin_desc_is_whitelisted (GstPluginDesc * desc,
 441     const gchar * filename)
 442 {
 443   gchar **entry;
 444
 445   if (_plugin_loading_whitelist == NULL)
 446     return TRUE;
 447
 448   for (entry = _plugin_loading_whitelist; *entry != NULL; ++entry) {
 449     if (gst_plugin_desc_matches_whitelist_entry (desc, filename, *entry)) {
 450       GST_LOG ("Plugin %s is in whitelist", filename);
 451       return TRUE;
 452     }
 453   }
 454
 455   GST_LOG ("Plugin %s (package %s, file %s) not in whitelist", desc->name,
 456       desc->source, filename);
 457   return FALSE;
 458 }
 459
 460 gboolean
 461 priv_gst_plugin_loading_have_whitelist (void)
 462 {
 463   return (_plugin_loading_whitelist != NULL);
 464 }
 465
 466 guint32
 467 priv_gst_plugin_loading_get_whitelist_hash (void)
 468 {
 469   guint32 hash = 0;
 470
 471   if (_plugin_loading_whitelist != NULL) {
 472     gchar **w;
 473
 474     for (w = _plugin_loading_whitelist; *w != NULL; ++w)
 475       hash = (hash << 1) ^ g_str_hash (*w);
 476   }
 477
 478   return hash;
 479 }
 480
 481 /* this function could be extended to check if the plugin license matches the
 482  * applications license (would require the app to register its license somehow).
 483  * We'll wait for someone who's interested in it to code it :)
 484  */
 485 static gboolean
 486 gst_plugin_check_license (const gchar * license)
 487 {
 488   const gchar **check_license = valid_licenses;
 489
 490   g_assert (check_license);
 491
 492   while (*check_license) {
 493     if (strcmp (license, *check_license) == 0)
 494       return TRUE;
 495     check_license++;
 496   }
 497   return FALSE;
 498 }
 499
 500 static gboolean
 501 gst_plugin_check_version (gint major, gint minor)
 502 {
 503   /* return NULL if the major and minor version numbers are not compatible */
 504   /* with ours. */
 505   if (major != GST_VERSION_MAJOR || minor != GST_VERSION_MINOR)
 506     return FALSE;
 507
 508   return TRUE;
 509 }
 510
 511 static GstPlugin *
 512 gst_plugin_register_func (GstPlugin * plugin, const GstPluginDesc * desc,
 513     gpointer user_data)
 514 {
 515   if (!gst_plugin_check_version (desc->major_version, desc->minor_version)) {
 516     if (GST_CAT_DEFAULT)
 517       GST_WARNING ("plugin \"%s\" has incompatible version, not loading",
 518           plugin->filename);
 519     return NULL;
 520   }
 521
 522   if (!desc->license || !desc->description || !desc->source ||
 523       !desc->package || !desc->origin) {
 524     if (GST_CAT_DEFAULT)
 525       GST_WARNING ("plugin \"%s\" has incorrect GstPluginDesc, not loading",
 526           plugin->filename);
 527     return NULL;
 528   }
 529
 530   if (!gst_plugin_check_license (desc->license)) {
 531     if (GST_CAT_DEFAULT)
 532       GST_WARNING ("plugin \"%s\" has invalid license \"%s\", not loading",
 533           plugin->filename, desc->license);
 534     return NULL;
 535   }
 536
 537   if (GST_CAT_DEFAULT)
 538     GST_LOG ("plugin \"%s\" looks good", GST_STR_NULL (plugin->filename));
 539
 540   gst_plugin_desc_copy (&plugin->desc, desc);
 541
 542   /* make resident so we're really sure it never gets unloaded again.
 543    * Theoretically this is not needed, but practically it doesn't hurt.
 544    * And we're rather safe than sorry. */
 545   if (plugin->module)
 546     g_module_make_resident (plugin->module);
 547
 548   if (user_data) {
 549     if (!(((GstPluginInitFullFunc) (desc->plugin_init)) (plugin, user_data))) {
 550       if (GST_CAT_DEFAULT)
 551         GST_WARNING ("plugin \"%s\" failed to initialise", plugin->filename);
 552       return NULL;
 553     }
 554   } else {
 555     if (!((desc->plugin_init) (plugin))) {
 556       if (GST_CAT_DEFAULT)
 557         GST_WARNING ("plugin \"%s\" failed to initialise", plugin->filename);
 558       return NULL;
 559     }
 560   }
 561
 562   if (GST_CAT_DEFAULT)
 563     GST_LOG ("plugin \"%s\" initialised", GST_STR_NULL (plugin->filename));
 564
 565   return plugin;
 566 }
 567
 568 #ifdef HAVE_SIGACTION
 569 static struct sigaction oldaction;
 570 static gboolean _gst_plugin_fault_handler_is_setup = FALSE;
 571
 572 /*
 573  * _gst_plugin_fault_handler_restore:
 574  * segfault handler restorer
 575  */
 576 static void
 577 _gst_plugin_fault_handler_restore (void)
 578 {
 579   if (!_gst_plugin_fault_handler_is_setup)
 580     return;
 581
 582   _gst_plugin_fault_handler_is_setup = FALSE;
 583
 584   sigaction (SIGSEGV, &oldaction, NULL);
 585 }
 586
 587 /*
 588  * _gst_plugin_fault_handler_sighandler:
 589  * segfault handler implementation
 590  */
 591 static void
 592 _gst_plugin_fault_handler_sighandler (int signum)
 593 {
 594   /* We need to restore the fault handler or we'll keep getting it */
 595   _gst_plugin_fault_handler_restore ();
 596
 597   switch (signum) {
 598     case SIGSEGV:
 599       g_print ("\nERROR: ");
 600       g_print ("Caught a segmentation fault while loading plugin file:\n");
 601       g_print ("%s\n\n", _gst_plugin_fault_handler_filename);
 602       g_print ("Please either:\n");
 603       g_print ("- remove it and restart.\n");
 604       g_print ("- run with --gst-disable-segtrap and debug.\n");
 605       exit (-1);
 606       break;
 607     default:
 608       g_print ("Caught unhandled signal on plugin loading\n");
 609       break;
 610   }
 611 }
 612
 613 /*
 614  * _gst_plugin_fault_handler_setup:
 615  * sets up the segfault handler
 616  */
 617 static void
 618 _gst_plugin_fault_handler_setup (void)
 619 {
 620   struct sigaction action;
 621
 622   /* if asked to leave segfaults alone, just return */
 623   if (!gst_segtrap_is_enabled ())
 624     return;
 625
 626   if (_gst_plugin_fault_handler_is_setup)
 627     return;
 628
 629   _gst_plugin_fault_handler_is_setup = TRUE;
 630
 631   memset (&action, 0, sizeof (action));
 632   action.sa_handler = _gst_plugin_fault_handler_sighandler;
 633
 634   sigaction (SIGSEGV, &action, &oldaction);
 635 }
 636 #else /* !HAVE_SIGACTION */
 637 static void
 638 _gst_plugin_fault_handler_restore (void)
 639 {
 640 }
 641
 642 static void
 643 _gst_plugin_fault_handler_setup (void)
 644 {
 645 }
 646 #endif /* HAVE_SIGACTION */
 647
 648 /* g_time_val_from_iso8601() doesn't do quite what we want */
 649 static gboolean
 650 check_release_datetime (const gchar * date_time)
 651 {
 652   guint64 val;
 653
 654   /* we require YYYY-MM-DD or YYYY-MM-DDTHH:MMZ format */
 655   if (!g_ascii_isdigit (*date_time))
 656     return FALSE;
 657
 658   val = g_ascii_strtoull (date_time, (gchar **) & date_time, 10);
 659   if (val < 2000 || val > 2100 || *date_time != '-')
 660     return FALSE;
 661
 662   val = g_ascii_strtoull (date_time + 1, (gchar **) & date_time, 10);
 663   if (val == 0 || val > 12 || *date_time != '-')
 664     return FALSE;
 665
 666   val = g_ascii_strtoull (date_time + 1, (gchar **) & date_time, 10);
 667   if (val == 0 || val > 32)
 668     return FALSE;
 669
 670   /* end of string or date/time separator + HH:MMZ */
 671   if (*date_time == 'T' || *date_time == ' ') {
 672     val = g_ascii_strtoull (date_time + 1, (gchar **) & date_time, 10);
 673     if (val > 24 || *date_time != ':')
 674       return FALSE;
 675
 676     val = g_ascii_strtoull (date_time + 1, (gchar **) & date_time, 10);
 677     if (val > 59 || *date_time != 'Z')
 678       return FALSE;
 679
 680     ++date_time;
 681   }
 682
 683   return (*date_time == '\0');
 684 }
 685
 686 static GStaticMutex gst_plugin_loading_mutex = G_STATIC_MUTEX_INIT;
 687
 688 #define CHECK_PLUGIN_DESC_FIELD(desc,field,fn)                               \
 689   if (G_UNLIKELY ((desc)->field == NULL)) {                                  \
 690     GST_ERROR ("GstPluginDesc for '%s' has no %s", fn, G_STRINGIFY (field)); \
 691   }
 692
 693 /**
 694  * gst_plugin_load_file:
 695  * @filename: the plugin filename to load
 696  * @error: pointer to a NULL-valued GError
 697  *
 698  * Loads the given plugin and refs it.  Caller needs to unref after use.
 699  *
 700  * Returns: a reference to the existing loaded GstPlugin, a reference to the
 701  * newly-loaded GstPlugin, or NULL if an error occurred.
 702  */
 703 GstPlugin *
 704 gst_plugin_load_file (const gchar * filename, GError ** error)
 705 {
 706   GstPluginDesc *desc;
 707   GstPlugin *plugin;
 708   GModule *module;
 709   gboolean ret;
 710   gpointer ptr;
 711   GStatBuf file_status;
 712   GstRegistry *registry;
 713   gboolean new_plugin = TRUE;
 714
 715   g_return_val_if_fail (filename != NULL, NULL);
 716
 717   registry = gst_registry_get_default ();
 718   g_static_mutex_lock (&gst_plugin_loading_mutex);
 719
 720   plugin = gst_registry_lookup (registry, filename);
 721   if (plugin) {
 722     if (plugin->module) {
 723       /* already loaded */
 724       g_static_mutex_unlock (&gst_plugin_loading_mutex);
 725       return plugin;
 726     } else {
 727       /* load plugin and update fields */
 728       new_plugin = FALSE;
 729     }
 730   }
 731
 732   GST_CAT_DEBUG (GST_CAT_PLUGIN_LOADING, "attempt to load plugin \"%s\"",
 733       filename);
 734
 735   if (g_module_supported () == FALSE) {
 736     GST_CAT_DEBUG (GST_CAT_PLUGIN_LOADING, "module loading not supported");
 737     g_set_error (error,
 738         GST_PLUGIN_ERROR,
 739         GST_PLUGIN_ERROR_MODULE, "Dynamic loading not supported");
 740     goto return_error;
 741   }
 742
 743   if (g_stat (filename, &file_status)) {
 744     GST_CAT_DEBUG (GST_CAT_PLUGIN_LOADING, "problem accessing file");
 745     g_set_error (error,
 746         GST_PLUGIN_ERROR,
 747         GST_PLUGIN_ERROR_MODULE, "Problem accessing file %s: %s", filename,
 748         g_strerror (errno));
 749     goto return_error;
 750   }
 751
 752   module = g_module_open (filename, G_MODULE_BIND_LOCAL);
 753   if (module == NULL) {
 754     GST_CAT_WARNING (GST_CAT_PLUGIN_LOADING, "module_open failed: %s",
 755         g_module_error ());
 756     g_set_error (error,
 757         GST_PLUGIN_ERROR, GST_PLUGIN_ERROR_MODULE, "Opening module failed: %s",
 758         g_module_error ());
 759     /* If we failed to open the shared object, then it's probably because a
 760      * plugin is linked against the wrong libraries. Print out an easy-to-see
 761      * message in this case. */
 762     g_warning ("Failed to load plugin '%s': %s", filename, g_module_error ());
 763     goto return_error;
 764   }
 765
 766   ret = g_module_symbol (module, "gst_plugin_desc", &ptr);
 767   if (!ret) {
 768     GST_DEBUG ("Could not find plugin entry point in \"%s\"", filename);
 769     g_set_error (error,
 770         GST_PLUGIN_ERROR,
 771         GST_PLUGIN_ERROR_MODULE,
 772         "File \"%s\" is not a GStreamer plugin", filename);
 773     g_module_close (module);
 774     goto return_error;
 775   }
 776
 777   desc = (GstPluginDesc *) ptr;
 778
 779   if (priv_gst_plugin_loading_have_whitelist () &&
 780       !priv_gst_plugin_desc_is_whitelisted (desc, filename)) {
 781     GST_INFO ("Whitelist specified and plugin not in whitelist, not loading: "
 782         "name=%s, package=%s, file=%s", desc->name, desc->source, filename);
 783     g_set_error (error, GST_PLUGIN_ERROR, GST_PLUGIN_ERROR_MODULE,
 784         "Not loading plugin file \"%s\", not in whitelist", filename);
 785     g_module_close (module);
 786     goto return_error;
 787   }
 788
 789   if (new_plugin) {
 790     plugin = g_object_newv (GST_TYPE_PLUGIN, 0, NULL);
 791     plugin->file_mtime = file_status.st_mtime;
 792     plugin->file_size = file_status.st_size;
 793     plugin->filename = g_strdup (filename);
 794     plugin->basename = g_path_get_basename (filename);
 795   }
 796
 797   plugin->module = module;
 798   plugin->orig_desc = desc;
 799
 800   if (new_plugin) {
 801     /* check plugin description: complain about bad values but accept them, to
 802      * maintain backwards compatibility (FIXME: 0.11) */
 803     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, name, filename);
 804     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, description, filename);
 805     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, version, filename);
 806     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, license, filename);
 807     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, source, filename);
 808     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, package, filename);
 809     CHECK_PLUGIN_DESC_FIELD (plugin->orig_desc, origin, filename);
 810
 811     if (plugin->orig_desc->release_datetime != NULL &&
 812         !check_release_datetime (plugin->orig_desc->release_datetime)) {
 813       GST_ERROR ("GstPluginDesc for '%s' has invalid datetime '%s'",
 814           filename, plugin->orig_desc->release_datetime);
 815       plugin->orig_desc->release_datetime = NULL;
 816     }
 817   }
 818
 819   GST_LOG ("Plugin %p for file \"%s\" prepared, calling entry function...",
 820       plugin, filename);
 821
 822   /* this is where we load the actual .so, so let's trap SIGSEGV */
 823   _gst_plugin_fault_handler_setup ();
 824   _gst_plugin_fault_handler_filename = plugin->filename;
 825
 826   GST_LOG ("Plugin %p for file \"%s\" prepared, registering...",
 827       plugin, filename);
 828
 829   if (!gst_plugin_register_func (plugin, plugin->orig_desc, NULL)) {
 830     /* remove signal handler */
 831     _gst_plugin_fault_handler_restore ();
 832     GST_DEBUG ("gst_plugin_register_func failed for plugin \"%s\"", filename);
 833     /* plugin == NULL */
 834     g_set_error (error,
 835         GST_PLUGIN_ERROR,
 836         GST_PLUGIN_ERROR_MODULE,
 837         "File \"%s\" appears to be a GStreamer plugin, but it failed to initialize",
 838         filename);
 839     goto return_error;
 840   }
 841
 842   /* remove signal handler */
 843   _gst_plugin_fault_handler_restore ();
 844   _gst_plugin_fault_handler_filename = NULL;
 845   GST_INFO ("plugin \"%s\" loaded", plugin->filename);
 846
 847   if (new_plugin) {
 848     gst_object_ref (plugin);
 849     gst_default_registry_add_plugin (plugin);
 850   }
 851
 852   g_static_mutex_unlock (&gst_plugin_loading_mutex);
 853   return plugin;
 854
 855 return_error:
 856   {
 857     if (plugin)
 858       gst_object_unref (plugin);
 859     g_static_mutex_unlock (&gst_plugin_loading_mutex);
 860     return NULL;
 861   }
 862 }
 863
 864 static void
 865 gst_plugin_desc_copy (GstPluginDesc * dest, const GstPluginDesc * src)
 866 {
 867   dest->major_version = src->major_version;
 868   dest->minor_version = src->minor_version;
 869   dest->name = g_intern_string (src->name);
 870   dest->description = g_intern_string (src->description);
 871   dest->plugin_init = src->plugin_init;
 872   dest->version = g_intern_string (src->version);
 873   dest->license = g_intern_string (src->license);
 874   dest->source = g_intern_string (src->source);
 875   dest->package = g_intern_string (src->package);
 876   dest->origin = g_intern_string (src->origin);
 877   dest->release_datetime = g_intern_string (src->release_datetime);
 878 }
 879
 880 /**
 881  * gst_plugin_get_name:
 882  * @plugin: plugin to get the name of
 883  *
 884  * Get the short name of the plugin
 885  *
 886  * Returns: the name of the plugin
 887  */
 888 const gchar *
 889 gst_plugin_get_name (GstPlugin * plugin)
 890 {
 891   g_return_val_if_fail (plugin != NULL, NULL);
 892
 893   return plugin->desc.name;
 894 }
 895
 896 /**
 897  * gst_plugin_get_description:
 898  * @plugin: plugin to get long name of
 899  *
 900  * Get the long descriptive name of the plugin
 901  *
 902  * Returns: the long name of the plugin
 903  */
 904 G_CONST_RETURN gchar *
 905 gst_plugin_get_description (GstPlugin * plugin)
 906 {
 907   g_return_val_if_fail (plugin != NULL, NULL);
 908
 909   return plugin->desc.description;
 910 }
 911
 912 /**
 913  * gst_plugin_get_filename:
 914  * @plugin: plugin to get the filename of
 915  *
 916  * get the filename of the plugin
 917  *
 918  * Returns: the filename of the plugin
 919  */
 920 G_CONST_RETURN gchar *
 921 gst_plugin_get_filename (GstPlugin * plugin)
 922 {
 923   g_return_val_if_fail (plugin != NULL, NULL);
 924
 925   return plugin->filename;
 926 }
 927
 928 /**
 929  * gst_plugin_get_version:
 930  * @plugin: plugin to get the version of
 931  *
 932  * get the version of the plugin
 933  *
 934  * Returns: the version of the plugin
 935  */
 936 G_CONST_RETURN gchar *
 937 gst_plugin_get_version (GstPlugin * plugin)
 938 {
 939   g_return_val_if_fail (plugin != NULL, NULL);
 940
 941   return plugin->desc.version;
 942 }
 943
 944 /**
 945  * gst_plugin_get_license:
 946  * @plugin: plugin to get the license of
 947  *
 948  * get the license of the plugin
 949  *
 950  * Returns: the license of the plugin
 951  */
 952 G_CONST_RETURN gchar *
 953 gst_plugin_get_license (GstPlugin * plugin)
 954 {
 955   g_return_val_if_fail (plugin != NULL, NULL);
 956
 957   return plugin->desc.license;
 958 }
 959
 960 /**
 961  * gst_plugin_get_source:
 962  * @plugin: plugin to get the source of
 963  *
 964  * get the source module the plugin belongs to.
 965  *
 966  * Returns: the source of the plugin
 967  */
 968 G_CONST_RETURN gchar *
 969 gst_plugin_get_source (GstPlugin * plugin)
 970 {
 971   g_return_val_if_fail (plugin != NULL, NULL);
 972
 973   return plugin->desc.source;
 974 }
 975
 976 /**
 977  * gst_plugin_get_package:
 978  * @plugin: plugin to get the package of
 979  *
 980  * get the package the plugin belongs to.
 981  *
 982  * Returns: the package of the plugin
 983  */
 984 G_CONST_RETURN gchar *
 985 gst_plugin_get_package (GstPlugin * plugin)
 986 {
 987   g_return_val_if_fail (plugin != NULL, NULL);
 988
 989   return plugin->desc.package;
 990 }
 991
 992 /**
 993  * gst_plugin_get_origin:
 994  * @plugin: plugin to get the origin of
 995  *
 996  * get the URL where the plugin comes from
 997  *
 998  * Returns: the origin of the plugin
 999  */
1000 G_CONST_RETURN gchar *
1001 gst_plugin_get_origin (GstPlugin * plugin)
1002 {
1003   g_return_val_if_fail (plugin != NULL, NULL);
1004
1005   return plugin->desc.origin;
1006 }
1007
1008 /**
1009  * gst_plugin_get_module:
1010  * @plugin: plugin to query
1011  *
1012  * Gets the #GModule of the plugin. If the plugin isn't loaded yet, NULL is
1013  * returned.
1014  *
1015  * Returns: module belonging to the plugin or NULL if the plugin isn't
1016  *          loaded yet.
1017  */
1018 GModule *
1019 gst_plugin_get_module (GstPlugin * plugin)
1020 {
1021   g_return_val_if_fail (plugin != NULL, NULL);
1022
1023   return plugin->module;
1024 }
1025
1026 /**
1027  * gst_plugin_is_loaded:
1028  * @plugin: plugin to query
1029  *
1030  * queries if the plugin is loaded into memory
1031  *
1032  * Returns: TRUE is loaded, FALSE otherwise
1033  */
1034 gboolean
1035 gst_plugin_is_loaded (GstPlugin * plugin)
1036 {
1037   g_return_val_if_fail (plugin != NULL, FALSE);
1038
1039   return (plugin->module != NULL || plugin->filename == NULL);
1040 }
1041
1042 /**
1043  * gst_plugin_get_cache_data:
1044  * @plugin: a plugin
1045  *
1046  * Gets the plugin specific data cache. If it is %NULL there is no cached data
1047  * stored. This is the case when the registry is getting rebuilt.
1048  *
1049  * Returns: The cached data as a #GstStructure or %NULL.
1050  *
1051  * Since: 0.10.24
1052  */
1053 G_CONST_RETURN GstStructure *
1054 gst_plugin_get_cache_data (GstPlugin * plugin)
1055 {
1056   g_return_val_if_fail (GST_IS_PLUGIN (plugin), NULL);
1057
1058   return plugin->priv->cache_data;
1059 }
1060
1061 /**
1062  * gst_plugin_set_cache_data:
1063  * @plugin: a plugin
1064  * @cache_data: a structure containing the data to cache
1065  *
1066  * Adds plugin specific data to cache. Passes the ownership of the structure to
1067  * the @plugin.
1068  *
1069  * The cache is flushed every time the registry is rebuilt.
1070  *
1071  * Since: 0.10.24
1072  */
1073 void
1074 gst_plugin_set_cache_data (GstPlugin * plugin, GstStructure * cache_data)
1075 {
1076   g_return_if_fail (GST_IS_PLUGIN (plugin));
1077   g_return_if_fail (GST_IS_STRUCTURE (cache_data));
1078
1079   if (plugin->priv->cache_data) {
1080     gst_structure_free (plugin->priv->cache_data);
1081   }
1082   plugin->priv->cache_data = cache_data;
1083 }
1084
1085 #if 0
1086 /**
1087  * gst_plugin_feature_list:
1088  * @plugin: plugin to query
1089  * @filter: the filter to use
1090  * @first: only return first match
1091  * @user_data: user data passed to the filter function
1092  *
1093  * Runs a filter against all plugin features and returns a GList with
1094  * the results. If the first flag is set, only the first match is
1095  * returned (as a list with a single object).
1096  *
1097  * Returns: a GList of features, g_list_free after use.
1098  */
1099 GList *
1100 gst_plugin_feature_filter (GstPlugin * plugin,
1101     GstPluginFeatureFilter filter, gboolean first, gpointer user_data)
1102 {
1103   GList *list;
1104   GList *g;
1105
1106   list = gst_filter_run (plugin->features, (GstFilterFunc) filter, first,
1107       user_data);
1108   for (g = list; g; g = g->next) {
1109     gst_object_ref (plugin);
1110   }
1111
1112   return list;
1113 }
1114
1115 typedef struct
1116 {
1117   GstPluginFeatureFilter filter;
1118   gboolean first;
1119   gpointer user_data;
1120   GList *result;
1121 }
1122 FeatureFilterData;
1123
1124 static gboolean
1125 _feature_filter (GstPlugin * plugin, gpointer user_data)
1126 {
1127   GList *result;
1128   FeatureFilterData *data = (FeatureFilterData *) user_data;
1129
1130   result = gst_plugin_feature_filter (plugin, data->filter, data->first,
1131       data->user_data);
1132   if (result) {
1133     data->result = g_list_concat (data->result, result);
1134     return TRUE;
1135   }
1136   return FALSE;
1137 }
1138
1139 /**
1140  * gst_plugin_list_feature_filter:
1141  * @list: a #GList of plugins to query
1142  * @filter: the filter function to use
1143  * @first: only return first match
1144  * @user_data: user data passed to the filter function
1145  *
1146  * Runs a filter against all plugin features of the plugins in the given
1147  * list and returns a GList with the results.
1148  * If the first flag is set, only the first match is
1149  * returned (as a list with a single object).
1150  *
1151  * Returns: a GList of features, g_list_free after use.
1152  */
1153 GList *
1154 gst_plugin_list_feature_filter (GList * list,
1155     GstPluginFeatureFilter filter, gboolean first, gpointer user_data)
1156 {
1157   FeatureFilterData data;
1158   GList *result;
1159
1160   data.filter = filter;
1161   data.first = first;
1162   data.user_data = user_data;
1163   data.result = NULL;
1164
1165   result = gst_filter_run (list, (GstFilterFunc) _feature_filter, first, &data);
1166   g_list_free (result);
1167
1168   return data.result;
1169 }
1170 #endif
1171
1172 /**
1173  * gst_plugin_name_filter:
1174  * @plugin: the plugin to check
1175  * @name: the name of the plugin
1176  *
1177  * A standard filter that returns TRUE when the plugin is of the
1178  * given name.
1179  *
1180  * Returns: TRUE if the plugin is of the given name.
1181  */
1182 gboolean
1183 gst_plugin_name_filter (GstPlugin * plugin, const gchar * name)
1184 {
1185   return (plugin->desc.name && !strcmp (plugin->desc.name, name));
1186 }
1187
1188 #if 0
1189 /**
1190  * gst_plugin_find_feature:
1191  * @plugin: plugin to get the feature from
1192  * @name: The name of the feature to find
1193  * @type: The type of the feature to find
1194  *
1195  * Find a feature of the given name and type in the given plugin.
1196  *
1197  * Returns: a GstPluginFeature or NULL if the feature was not found.
1198  */
1199 GstPluginFeature *
1200 gst_plugin_find_feature (GstPlugin * plugin, const gchar * name, GType type)
1201 {
1202   GList *walk;
1203   GstPluginFeature *result = NULL;
1204   GstTypeNameData data;
1205
1206   g_return_val_if_fail (name != NULL, NULL);
1207
1208   data.type = type;
1209   data.name = name;
1210
1211   walk = gst_filter_run (plugin->features,
1212       (GstFilterFunc) gst_plugin_feature_type_name_filter, TRUE, &data);
1213
1214   if (walk) {
1215     result = GST_PLUGIN_FEATURE (walk->data);
1216
1217     gst_object_ref (result);
1218     gst_plugin_feature_list_free (walk);
1219   }
1220
1221   return result;
1222 }
1223 #endif
1224
1225 #if 0
1226 static gboolean
1227 gst_plugin_feature_name_filter (GstPluginFeature * feature, const gchar * name)
1228 {
1229   return !strcmp (name, GST_PLUGIN_FEATURE_NAME (feature));
1230 }
1231 #endif
1232
1233 #if 0
1234 /**
1235  * gst_plugin_find_feature_by_name:
1236  * @plugin: plugin to get the feature from
1237  * @name: The name of the feature to find
1238  *
1239  * Find a feature of the given name in the given plugin.
1240  *
1241  * Returns: a GstPluginFeature or NULL if the feature was not found.
1242  */
1243 GstPluginFeature *
1244 gst_plugin_find_feature_by_name (GstPlugin * plugin, const gchar * name)
1245 {
1246   GList *walk;
1247   GstPluginFeature *result = NULL;
1248
1249   g_return_val_if_fail (name != NULL, NULL);
1250
1251   walk = gst_filter_run (plugin->features,
1252       (GstFilterFunc) gst_plugin_feature_name_filter, TRUE, (void *) name);
1253
1254   if (walk) {
1255     result = GST_PLUGIN_FEATURE (walk->data);
1256
1257     gst_object_ref (result);
1258     gst_plugin_feature_list_free (walk);
1259   }
1260
1261   return result;
1262 }
1263 #endif
1264
1265 /**
1266  * gst_plugin_load_by_name:
1267  * @name: name of plugin to load
1268  *
1269  * Load the named plugin. Refs the plugin.
1270  *
1271  * Returns: A reference to a loaded plugin, or NULL on error.
1272  */
1273 GstPlugin *
1274 gst_plugin_load_by_name (const gchar * name)
1275 {
1276   GstPlugin *plugin, *newplugin;
1277   GError *error = NULL;
1278
1279   GST_DEBUG ("looking up plugin %s in default registry", name);
1280   plugin = gst_registry_find_plugin (gst_registry_get_default (), name);
1281   if (plugin) {
1282     GST_DEBUG ("loading plugin %s from file %s", name, plugin->filename);
1283     newplugin = gst_plugin_load_file (plugin->filename, &error);
1284     gst_object_unref (plugin);
1285
1286     if (!newplugin) {
1287       GST_WARNING ("load_plugin error: %s", error->message);
1288       g_error_free (error);
1289       return NULL;
1290     }
1291     /* newplugin was reffed by load_file */
1292     return newplugin;
1293   }
1294
1295   GST_DEBUG ("Could not find plugin %s in registry", name);
1296   return NULL;
1297 }
1298
1299 /**
1300  * gst_plugin_load:
1301  * @plugin: plugin to load
1302  *
1303  * Loads @plugin. Note that the *return value* is the loaded plugin; @plugin is
1304  * untouched. The normal use pattern of this function goes like this:
1305  *
1306  * <programlisting>
1307  * GstPlugin *loaded_plugin;
1308  * loaded_plugin = gst_plugin_load (plugin);
1309  * // presumably, we're no longer interested in the potentially-unloaded plugin
1310  * gst_object_unref (plugin);
1311  * plugin = loaded_plugin;
1312  * </programlisting>
1313  *
1314  * Returns: A reference to a loaded plugin, or NULL on error.
1315  */
1316 GstPlugin *
1317 gst_plugin_load (GstPlugin * plugin)
1318 {
1319   GError *error = NULL;
1320   GstPlugin *newplugin;
1321
1322   if (gst_plugin_is_loaded (plugin)) {
1323     return plugin;
1324   }
1325
1326   if (!(newplugin = gst_plugin_load_file (plugin->filename, &error)))
1327     goto load_error;
1328
1329   return newplugin;
1330
1331 load_error:
1332   {
1333     GST_WARNING ("load_plugin error: %s", error->message);
1334     g_error_free (error);
1335     return NULL;
1336   }
1337 }
1338
1339 /**
1340  * gst_plugin_list_free:
1341  * @list: list of #GstPlugin
1342  *
1343  * Unrefs each member of @list, then frees the list.
1344  */
1345 void
1346 gst_plugin_list_free (GList * list)
1347 {
1348   GList *g;
1349
1350   for (g = list; g; g = g->next) {
1351     gst_object_unref (GST_PLUGIN_CAST (g->data));
1352   }
1353   g_list_free (list);
1354 }
1355
1356 /* ===== plugin dependencies ===== */
1357
1358 /* Scenarios:
1359  * ENV + xyz     where ENV can contain multiple values separated by SEPARATOR
1360  *               xyz may be "" (if ENV contains path to file rather than dir)
1361  * ENV + *xyz   same as above, but xyz acts as suffix filter
1362  * ENV + xyz*   same as above, but xyz acts as prefix filter (is this needed?)
1363  * ENV + *xyz*  same as above, but xyz acts as strstr filter (is this needed?)
1364  *
1365  * same as above, with additional paths hard-coded at compile-time:
1366  *   - only check paths + ... if ENV is not set or yields not paths
1367  *   - always check paths + ... in addition to ENV
1368  *
1369  * When user specifies set of environment variables, he/she may also use e.g.
1370  * "HOME/.mystuff/plugins", and we'll expand the content of $HOME with the
1371  * remainder
1372  */
1373
1374 /* we store in registry:
1375  *  sets of:
1376  *   {
1377  *     - environment variables (array of strings)
1378  *     - last hash of env variable contents (uint) (so we can avoid doing stats
1379  *       if one of the env vars has changed; premature optimisation galore)
1380  *     - hard-coded paths (array of strings)
1381  *     - xyz filename/suffix/prefix strings (array of strings)
1382  *     - flags (int)
1383  *     - last hash of file/dir stats (int)
1384  *   }
1385  *   (= struct GstPluginDep)
1386  */
1387
1388 static guint
1389 gst_plugin_ext_dep_get_env_vars_hash (GstPlugin * plugin, GstPluginDep * dep)
1390 {
1391   gchar **e;
1392   guint hash;
1393
1394   /* there's no deeper logic to what we do here; all we want to know (when
1395    * checking if the plugin needs to be rescanned) is whether the content of
1396    * one of the environment variables in the list is different from when it
1397    * was last scanned */
1398   hash = 0;
1399   for (e = dep->env_vars; e != NULL && *e != NULL; ++e) {
1400     const gchar *val;
1401     gchar env_var[256];
1402
1403     /* order matters: "val",NULL needs to yield a different hash than
1404      * NULL,"val", so do a shift here whether the var is set or not */
1405     hash = hash << 5;
1406
1407     /* want environment variable at beginning of string */
1408     if (!g_ascii_isalnum (**e)) {
1409       GST_WARNING_OBJECT (plugin, "string prefix is not a valid environment "
1410           "variable string: %s", *e);
1411       continue;
1412     }
1413
1414     /* user is allowed to specify e.g. "HOME/.pitivi/plugins" */
1415     g_strlcpy (env_var, *e, sizeof (env_var));
1416     g_strdelimit (env_var, "/\\", '\0');
1417
1418     if ((val = g_getenv (env_var)))
1419       hash += g_str_hash (val);
1420   }
1421
1422   return hash;
1423 }
1424
1425 gboolean
1426 _priv_plugin_deps_env_vars_changed (GstPlugin * plugin)
1427 {
1428   GList *l;
1429
1430   for (l = plugin->priv->deps; l != NULL; l = l->next) {
1431     GstPluginDep *dep = l->data;
1432
1433     if (dep->env_hash != gst_plugin_ext_dep_get_env_vars_hash (plugin, dep))
1434       return TRUE;
1435   }
1436
1437   return FALSE;
1438 }
1439
1440 static GList *
1441 gst_plugin_ext_dep_extract_env_vars_paths (GstPlugin * plugin,
1442     GstPluginDep * dep)
1443 {
1444   gchar **evars;
1445   GList *paths = NULL;
1446
1447   for (evars = dep->env_vars; evars != NULL && *evars != NULL; ++evars) {
1448     const gchar *e;
1449     gchar **components;
1450
1451     /* want environment variable at beginning of string */
1452     if (!g_ascii_isalnum (**evars)) {
1453       GST_WARNING_OBJECT (plugin, "string prefix is not a valid environment "
1454           "variable string: %s", *evars);
1455       continue;
1456     }
1457
1458     /* user is allowed to specify e.g. "HOME/.pitivi/plugins", which we want to
1459      * split into the env_var name component and the path component */
1460     components = g_strsplit_set (*evars, "/\\", 2);
1461     g_assert (components != NULL);
1462
1463     e = g_getenv (components[0]);
1464     GST_LOG_OBJECT (plugin, "expanding %s = '%s' (path suffix: %s)",
1465         components[0], GST_STR_NULL (e), GST_STR_NULL (components[1]));
1466
1467     if (components[1] != NULL) {
1468       g_strdelimit (components[1], "/\\", G_DIR_SEPARATOR);
1469     }
1470
1471     if (e != NULL && *e != '\0') {
1472       gchar **arr;
1473       guint i;
1474
1475       arr = g_strsplit (e, G_SEARCHPATH_SEPARATOR_S, -1);
1476
1477       for (i = 0; arr != NULL && arr[i] != NULL; ++i) {
1478         gchar *full_path;
1479
1480         if (!g_path_is_absolute (arr[i])) {
1481           GST_INFO_OBJECT (plugin, "ignoring environment variable content '%s'"
1482               ": either not an absolute path or not a path at all", arr[i]);
1483           continue;
1484         }
1485
1486         if (components[1] != NULL) {
1487           full_path = g_build_filename (arr[i], components[1], NULL);
1488         } else {
1489           full_path = g_strdup (arr[i]);
1490         }
1491
1492         if (!g_list_find_custom (paths, full_path, (GCompareFunc) strcmp)) {
1493           GST_LOG_OBJECT (plugin, "path: '%s'", full_path);
1494           paths = g_list_prepend (paths, full_path);
1495           full_path = NULL;
1496         } else {
1497           GST_LOG_OBJECT (plugin, "path: '%s' (duplicate,ignoring)", full_path);
1498           g_free (full_path);
1499         }
1500       }
1501
1502       g_strfreev (arr);
1503     }
1504
1505     g_strfreev (components);
1506   }
1507
1508   GST_LOG_OBJECT (plugin, "Extracted %d paths from environment",
1509       g_list_length (paths));
1510
1511   return paths;
1512 }
1513
1514 static guint
1515 gst_plugin_ext_dep_get_hash_from_stat_entry (GStatBuf * s)
1516 {
1517   if (!(s->st_mode & (S_IFDIR | S_IFREG)))
1518     return (guint) - 1;
1519
1520   /* completely random formula */
1521   return ((s->st_size << 3) + (s->st_mtime << 5)) ^ s->st_ctime;
1522 }
1523
1524 static gboolean
1525 gst_plugin_ext_dep_direntry_matches (GstPlugin * plugin, const gchar * entry,
1526     const gchar ** filenames, GstPluginDependencyFlags flags)
1527 {
1528   /* no filenames specified, match all entries for now (could probably
1529    * optimise by just taking the dir stat hash or so) */
1530   if (filenames == NULL || *filenames == NULL || **filenames == '\0')
1531     return TRUE;
1532
1533   while (*filenames != NULL) {
1534     /* suffix match? */
1535     if (((flags & GST_PLUGIN_DEPENDENCY_FLAG_FILE_NAME_IS_SUFFIX)) &&
1536         g_str_has_suffix (entry, *filenames)) {
1537       return TRUE;
1538       /* else it's an exact match that's needed */
1539     } else if (strcmp (entry, *filenames) == 0) {
1540       return TRUE;
1541     }
1542     GST_LOG ("%s does not match %s, flags=0x%04x", entry, *filenames, flags);
1543     ++filenames;
1544   }
1545   return FALSE;
1546 }
1547
1548 static guint
1549 gst_plugin_ext_dep_scan_dir_and_match_names (GstPlugin * plugin,
1550     const gchar * path, const gchar ** filenames,
1551     GstPluginDependencyFlags flags, int depth)
1552 {
1553   const gchar *entry;
1554   gboolean recurse_dirs;
1555   GError *err = NULL;
1556   GDir *dir;
1557   guint hash = 0;
1558
1559   recurse_dirs = ! !(flags & GST_PLUGIN_DEPENDENCY_FLAG_RECURSE);
1560
1561   dir = g_dir_open (path, 0, &err);
1562   if (dir == NULL) {
1563     GST_DEBUG_OBJECT (plugin, "g_dir_open(%s) failed: %s", path, err->message);
1564     g_error_free (err);
1565     return (guint) - 1;
1566   }
1567
1568   /* FIXME: we're assuming here that we always get the directory entries in
1569    * the same order, and not in a random order */
1570   while ((entry = g_dir_read_name (dir))) {
1571     gboolean have_match;
1572     GStatBuf s;
1573     gchar *full_path;
1574     guint fhash;
1575
1576     have_match =
1577         gst_plugin_ext_dep_direntry_matches (plugin, entry, filenames, flags);
1578
1579     /* avoid the stat if possible */
1580     if (!have_match && !recurse_dirs)
1581       continue;
1582
1583     full_path = g_build_filename (path, entry, NULL);
1584     if (g_stat (full_path, &s) < 0) {
1585       fhash = (guint) - 1;
1586       GST_LOG_OBJECT (plugin, "stat: %s (error: %s)", full_path,
1587           g_strerror (errno));
1588     } else if (have_match) {
1589       fhash = gst_plugin_ext_dep_get_hash_from_stat_entry (&s);
1590       GST_LOG_OBJECT (plugin, "stat: %s (result: %u)", full_path, fhash);
1591     } else if ((s.st_mode & (S_IFDIR))) {
1592       fhash = gst_plugin_ext_dep_scan_dir_and_match_names (plugin, full_path,
1593           filenames, flags, depth + 1);
1594     } else {
1595       /* it's not a name match, we want to recurse, but it's not a directory */
1596       g_free (full_path);
1597       continue;
1598     }
1599
1600     hash = (hash + fhash) << 1;
1601     g_free (full_path);
1602   }
1603
1604   g_dir_close (dir);
1605   return hash;
1606 }
1607
1608 static guint
1609 gst_plugin_ext_dep_scan_path_with_filenames (GstPlugin * plugin,
1610     const gchar * path, const gchar ** filenames,
1611     GstPluginDependencyFlags flags)
1612 {
1613   const gchar *empty_filenames[] = { "", NULL };
1614   gboolean recurse_into_dirs, partial_names;
1615   guint i, hash = 0;
1616
1617   /* to avoid special-casing below (FIXME?) */
1618   if (filenames == NULL || *filenames == NULL)
1619     filenames = empty_filenames;
1620
1621   recurse_into_dirs = ! !(flags & GST_PLUGIN_DEPENDENCY_FLAG_RECURSE);
1622   partial_names = ! !(flags & GST_PLUGIN_DEPENDENCY_FLAG_FILE_NAME_IS_SUFFIX);
1623
1624   /* if we can construct the exact paths to check with the data we have, just
1625    * stat them one by one; this is more efficient than opening the directory
1626    * and going through each entry to see if it matches one of our filenames. */
1627   if (!recurse_into_dirs && !partial_names) {
1628     for (i = 0; filenames[i] != NULL; ++i) {
1629       GStatBuf s;
1630       gchar *full_path;
1631       guint fhash;
1632
1633       full_path = g_build_filename (path, filenames[i], NULL);
1634       if (g_stat (full_path, &s) < 0) {
1635         fhash = (guint) - 1;
1636         GST_LOG_OBJECT (plugin, "stat: %s (error: %s)", full_path,
1637             g_strerror (errno));
1638       } else {
1639         fhash = gst_plugin_ext_dep_get_hash_from_stat_entry (&s);
1640         GST_LOG_OBJECT (plugin, "stat: %s (result: %08x)", full_path, fhash);
1641       }
1642       hash = (hash + fhash) << 1;
1643       g_free (full_path);
1644     }
1645   } else {
1646     hash = gst_plugin_ext_dep_scan_dir_and_match_names (plugin, path,
1647         filenames, flags, 0);
1648   }
1649
1650   return hash;
1651 }
1652
1653 static guint
1654 gst_plugin_ext_dep_get_stat_hash (GstPlugin * plugin, GstPluginDep * dep)
1655 {
1656   gboolean paths_are_default_only;
1657   GList *scan_paths;
1658   guint scan_hash = 0;
1659
1660   GST_LOG_OBJECT (plugin, "start");
1661
1662   paths_are_default_only =
1663       dep->flags & GST_PLUGIN_DEPENDENCY_FLAG_PATHS_ARE_DEFAULT_ONLY;
1664
1665   scan_paths = gst_plugin_ext_dep_extract_env_vars_paths (plugin, dep);
1666
1667   if (scan_paths == NULL || !paths_are_default_only) {
1668     gchar **paths;
1669
1670     for (paths = dep->paths; paths != NULL && *paths != NULL; ++paths) {
1671       const gchar *path = *paths;
1672
1673       if (!g_list_find_custom (scan_paths, path, (GCompareFunc) strcmp)) {
1674         GST_LOG_OBJECT (plugin, "path: '%s'", path);
1675         scan_paths = g_list_prepend (scan_paths, g_strdup (path));
1676       } else {
1677         GST_LOG_OBJECT (plugin, "path: '%s' (duplicate, ignoring)", path);
1678       }
1679     }
1680   }
1681
1682   /* not that the order really matters, but it makes debugging easier */
1683   scan_paths = g_list_reverse (scan_paths);
1684
1685   while (scan_paths != NULL) {
1686     const gchar *path = scan_paths->data;
1687
1688     scan_hash += gst_plugin_ext_dep_scan_path_with_filenames (plugin, path,
1689         (const gchar **) dep->names, dep->flags);
1690     scan_hash = scan_hash << 1;
1691
1692     g_free (scan_paths->data);
1693     scan_paths = g_list_delete_link (scan_paths, scan_paths);
1694   }
1695
1696   GST_LOG_OBJECT (plugin, "done, scan_hash: %08x", scan_hash);
1697   return scan_hash;
1698 }
1699
1700 gboolean
1701 _priv_plugin_deps_files_changed (GstPlugin * plugin)
1702 {
1703   GList *l;
1704
1705   for (l = plugin->priv->deps; l != NULL; l = l->next) {
1706     GstPluginDep *dep = l->data;
1707
1708     if (dep->stat_hash != gst_plugin_ext_dep_get_stat_hash (plugin, dep))
1709       return TRUE;
1710   }
1711
1712   return FALSE;
1713 }
1714
1715 static void
1716 gst_plugin_ext_dep_free (GstPluginDep * dep)
1717 {
1718   g_strfreev (dep->env_vars);
1719   g_strfreev (dep->paths);
1720   g_strfreev (dep->names);
1721   g_slice_free (GstPluginDep, dep);
1722 }
1723
1724 static gboolean
1725 gst_plugin_ext_dep_strv_equal (gchar ** arr1, gchar ** arr2)
1726 {
1727   if (arr1 == arr2)
1728     return TRUE;
1729   if (arr1 == NULL || arr2 == NULL)
1730     return FALSE;
1731   for (; *arr1 != NULL && *arr2 != NULL; ++arr1, ++arr2) {
1732     if (strcmp (*arr1, *arr2) != 0)
1733       return FALSE;
1734   }
1735   return (*arr1 == *arr2);
1736 }
1737
1738 static gboolean
1739 gst_plugin_ext_dep_equals (GstPluginDep * dep, const gchar ** env_vars,
1740     const gchar ** paths, const gchar ** names, GstPluginDependencyFlags flags)
1741 {
1742   if (dep->flags != flags)
1743     return FALSE;
1744
1745   return gst_plugin_ext_dep_strv_equal (dep->env_vars, (gchar **) env_vars) &&
1746       gst_plugin_ext_dep_strv_equal (dep->paths, (gchar **) paths) &&
1747       gst_plugin_ext_dep_strv_equal (dep->names, (gchar **) names);
1748 }
1749
1750 /**
1751  * gst_plugin_add_dependency:
1752  * @plugin: a #GstPlugin
1753  * @env_vars: NULL-terminated array of environent variables affecting the
1754  *     feature set of the plugin (e.g. an environment variable containing
1755  *     paths where to look for additional modules/plugins of a library),
1756  *     or NULL. Environment variable names may be followed by a path component
1757  *      which will be added to the content of the environment variable, e.g.
1758  *      "HOME/.mystuff/plugins".
1759  * @paths: NULL-terminated array of directories/paths where dependent files
1760  *     may be.
1761  * @names: NULL-terminated array of file names (or file name suffixes,
1762  *     depending on @flags) to be used in combination with the paths from
1763  *     @paths and/or the paths extracted from the environment variables in
1764  *     @env_vars, or NULL.
1765  * @flags: optional flags, or #GST_PLUGIN_DEPENDENCY_FLAG_NONE
1766  *
1767  * Make GStreamer aware of external dependencies which affect the feature
1768  * set of this plugin (ie. the elements or typefinders associated with it).
1769  *
1770  * GStreamer will re-inspect plugins with external dependencies whenever any
1771  * of the external dependencies change. This is useful for plugins which wrap
1772  * other plugin systems, e.g. a plugin which wraps a plugin-based visualisation
1773  * library and makes visualisations available as GStreamer elements, or a
1774  * codec loader which exposes elements and/or caps dependent on what external
1775  * codec libraries are currently installed.
1776  *
1777  * Since: 0.10.22
1778  */
1779 void
1780 gst_plugin_add_dependency (GstPlugin * plugin, const gchar ** env_vars,
1781     const gchar ** paths, const gchar ** names, GstPluginDependencyFlags flags)
1782 {
1783   GstPluginDep *dep;
1784   GList *l;
1785
1786   g_return_if_fail (GST_IS_PLUGIN (plugin));
1787
1788   if ((env_vars == NULL || env_vars[0] == NULL) &&
1789       (paths == NULL || paths[0] == NULL)) {
1790     GST_DEBUG_OBJECT (plugin,
1791         "plugin registered empty dependency set. Ignoring");
1792     return;
1793   }
1794
1795   for (l = plugin->priv->deps; l != NULL; l = l->next) {
1796     if (gst_plugin_ext_dep_equals (l->data, env_vars, paths, names, flags)) {
1797       GST_LOG_OBJECT (plugin, "dependency already registered");
1798       return;
1799     }
1800   }
1801
1802   dep = g_slice_new (GstPluginDep);
1803
1804   dep->env_vars = g_strdupv ((gchar **) env_vars);
1805   dep->paths = g_strdupv ((gchar **) paths);
1806   dep->names = g_strdupv ((gchar **) names);
1807   dep->flags = flags;
1808
1809   dep->env_hash = gst_plugin_ext_dep_get_env_vars_hash (plugin, dep);
1810   dep->stat_hash = gst_plugin_ext_dep_get_stat_hash (plugin, dep);
1811
1812   plugin->priv->deps = g_list_append (plugin->priv->deps, dep);
1813
1814   GST_DEBUG_OBJECT (plugin, "added dependency:");
1815   for (; env_vars != NULL && *env_vars != NULL; ++env_vars)
1816     GST_DEBUG_OBJECT (plugin, " evar: %s", *env_vars);
1817   for (; paths != NULL && *paths != NULL; ++paths)
1818     GST_DEBUG_OBJECT (plugin, " path: %s", *paths);
1819   for (; names != NULL && *names != NULL; ++names)
1820     GST_DEBUG_OBJECT (plugin, " name: %s", *names);
1821 }
1822
1823 /**
1824  * gst_plugin_add_dependency_simple:
1825  * @plugin: the #GstPlugin
1826  * @env_vars: one or more environent variables (separated by ':', ';' or ','),
1827  *      or NULL. Environment variable names may be followed by a path component
1828  *      which will be added to the content of the environment variable, e.g.
1829  *      "HOME/.mystuff/plugins:MYSTUFF_PLUGINS_PATH"
1830  * @paths: one ore more directory paths (separated by ':' or ';' or ','),
1831  *      or NULL. Example: "/usr/lib/mystuff/plugins"
1832  * @names: one or more file names or file name suffixes (separated by commas),
1833  *   or NULL
1834  * @flags: optional flags, or #GST_PLUGIN_DEPENDENCY_FLAG_NONE
1835  *
1836  * Make GStreamer aware of external dependencies which affect the feature
1837  * set of this plugin (ie. the elements or typefinders associated with it).
1838  *
1839  * GStreamer will re-inspect plugins with external dependencies whenever any
1840  * of the external dependencies change. This is useful for plugins which wrap
1841  * other plugin systems, e.g. a plugin which wraps a plugin-based visualisation
1842  * library and makes visualisations available as GStreamer elements, or a
1843  * codec loader which exposes elements and/or caps dependent on what external
1844  * codec libraries are currently installed.
1845  *
1846  * Convenience wrapper function for gst_plugin_add_dependency() which
1847  * takes simple strings as arguments instead of string arrays, with multiple
1848  * arguments separated by predefined delimiters (see above).
1849  *
1850  * Since: 0.10.22
1851  */
1852 void
1853 gst_plugin_add_dependency_simple (GstPlugin * plugin,
1854     const gchar * env_vars, const gchar * paths, const gchar * names,
1855     GstPluginDependencyFlags flags)
1856 {
1857   gchar **a_evars = NULL;
1858   gchar **a_paths = NULL;
1859   gchar **a_names = NULL;
1860
1861   if (env_vars)
1862     a_evars = g_strsplit_set (env_vars, ":;,", -1);
1863   if (paths)
1864     a_paths = g_strsplit_set (paths, ":;,", -1);
1865   if (names)
1866     a_names = g_strsplit_set (names, ",", -1);
1867
1868   gst_plugin_add_dependency (plugin, (const gchar **) a_evars,
1869       (const gchar **) a_paths, (const gchar **) a_names, flags);
1870
1871   if (a_evars)
1872     g_strfreev (a_evars);
1873   if (a_paths)
1874     g_strfreev (a_paths);
1875   if (a_names)
1876     g_strfreev (a_names);
1877 }