Add some basic system details such as OS and architecture to the debug output if...
[platform/upstream/gstreamer.git] / gst / gst.c
1 /* GStreamer
2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
3  *                    2000 Wim Taymans <wtay@chello.be>
4  *
5  * gst.c: Initialization and non-pipeline operations
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:gst
25  * @short_description: Media library supporting arbitrary formats and filter
26  *                     graphs.
27  * @see_also: Check out both <ulink url="http://www.cse.ogi.edu/sysl/">OGI's
28  *            pipeline</ulink> and Microsoft's DirectShow for some background.
29  *
30  * GStreamer is a framework for constructing graphs of various filters
31  * (termed elements here) that will handle streaming media.  Any discreet
32  * (packetizable) media type is supported, with provisions for automatically
33  * determining source type.  Formatting/framing information is provided with
34  * a powerful negotiation framework.  Plugins are heavily used to provide for
35  * all elements, allowing one to construct plugins outside of the GST
36  * library, even released binary-only if license require (please don't).
37  *
38  * GStreamer borrows heavily from both the <ulink
39  * url="http://www.cse.ogi.edu/sysl/">OGI media pipeline</ulink> and
40  * Microsoft's DirectShow, hopefully taking the best of both and leaving the
41  * cruft behind. Its interface is slowly getting stable.
42  *
43  * The <application>GStreamer</application> library should be initialized with
44  * gst_init() before it can be used. You should pass pointers to the main argc
45  * and argv variables so that GStreamer can process its own command line
46  * options, as shown in the following example.
47  *
48  * <example>
49  * <title>Initializing the gstreamer library</title>
50  * <programlisting language="c">
51  * int
52  * main (int argc, char *argv[])
53  * {
54  *   // initialize the GStreamer library
55  *   gst_init (&amp;argc, &amp;argv);
56  *   ...
57  * }
58  * </programlisting>
59  * </example>
60  *
61  * It's allowed to pass two NULL pointers to gst_init() in case you don't want
62  * to pass the command line args to GStreamer.
63  *
64  * You can also use GOption to initialize your own parameters as shown in
65  * the next code fragment:
66  * <example>
67  * <title>Initializing own parameters when initializing gstreamer</title>
68  * <programlisting>
69  * static gboolean stats = FALSE;
70  * ...
71  * int
72  * main (int argc, char *argv[])
73  * {
74  *  GOptionEntry options[] = {
75  *   {"tags", 't', 0, G_OPTION_ARG_NONE, &amp;tags,
76  *       N_("Output tags (also known as metadata)"), NULL},
77  *   {NULL}
78  *  };
79  *  ctx = g_option_context_new ("gst-launch");
80  *  g_option_context_add_main_entries (ctx, options, GETTEXT_PACKAGE);
81  *  g_option_context_add_group (ctx, gst_init_get_option_group ());
82  *  if (!g_option_context_parse (ctx, &amp;argc, &amp;argv, &amp;err)) {
83  *    g_print ("Error initializing: &percnt;s\n", GST_STR_NULL (err->message));
84  *    exit (1);
85  *  }
86  *  g_option_context_free (ctx);
87  * ...
88  * }
89  * </programlisting>
90  * </example>
91  *
92  * Use gst_version() to query the library version at runtime or use the
93  * GST_VERSION_* macros to find the version at compile time. Optionally
94  * gst_version_string() returns a printable string.
95  *
96  * The gst_deinit() call is used to clean up all internal resources used
97  * by <application>GStreamer</application>. It is mostly used in unit tests 
98  * to check for leaks.
99  *
100  * Last reviewed on 2006-08-11 (0.10.10)
101  */
102
103 #include "gst_private.h"
104 #include <stdlib.h>
105 #include <stdio.h>
106 #include <sys/types.h>
107 #ifdef HAVE_FORK
108 #include <sys/wait.h>
109 #endif /* HAVE_FORK */
110 #ifdef HAVE_SYS_UTSNAME_H
111 #include <sys/utsname.h>
112 #endif
113 #ifdef HAVE_UNISTD_H
114 #include <unistd.h>
115 #endif
116
117 #include "gst-i18n-lib.h"
118 #include <locale.h>             /* for LC_ALL */
119
120 #include "gst.h"
121
122 #define GST_CAT_DEFAULT GST_CAT_GST_INIT
123
124 #define MAX_PATH_SPLIT  16
125 #define GST_PLUGIN_SEPARATOR ","
126
127 static gboolean gst_initialized = FALSE;
128
129 #ifndef GST_DISABLE_REGISTRY
130 static GList *plugin_paths = NULL;      /* for delayed processing in post_init */
131 #endif
132
133 extern gint _gst_trace_on;
134
135 /* defaults */
136 #ifdef HAVE_FORK
137 #define DEFAULT_FORK TRUE
138 #else
139 #define DEFAULT_FORK FALSE
140 #endif /* HAVE_FORK */
141
142 /* set to TRUE when segfaults need to be left as is, FIXME, this variable is
143  * global. */
144 gboolean _gst_disable_segtrap = FALSE;
145
146 /* control the behaviour of registry rebuild */
147 static gboolean _gst_enable_registry_fork = DEFAULT_FORK;
148
149 static void load_plugin_func (gpointer data, gpointer user_data);
150 static gboolean init_pre (GOptionContext * context, GOptionGroup * group,
151     gpointer data, GError ** error);
152 static gboolean init_post (GOptionContext * context, GOptionGroup * group,
153     gpointer data, GError ** error);
154 static gboolean parse_goption_arg (const gchar * s_opt,
155     const gchar * arg, gpointer data, GError ** err);
156
157 static GSList *preload_plugins = NULL;
158
159 const gchar g_log_domain_gstreamer[] = "GStreamer";
160
161 static void
162 debug_log_handler (const gchar * log_domain,
163     GLogLevelFlags log_level, const gchar * message, gpointer user_data)
164 {
165   g_log_default_handler (log_domain, log_level, message, user_data);
166   /* FIXME: do we still need this ? fatal errors these days are all
167    * other than core errors */
168   /* g_on_error_query (NULL); */
169 }
170
171 enum
172 {
173   ARG_VERSION = 1,
174   ARG_FATAL_WARNINGS,
175 #ifndef GST_DISABLE_GST_DEBUG
176   ARG_DEBUG_LEVEL,
177   ARG_DEBUG,
178   ARG_DEBUG_DISABLE,
179   ARG_DEBUG_NO_COLOR,
180   ARG_DEBUG_HELP,
181 #endif
182   ARG_PLUGIN_SPEW,
183   ARG_PLUGIN_PATH,
184   ARG_PLUGIN_LOAD,
185   ARG_SEGTRAP_DISABLE,
186   ARG_REGISTRY_FORK_DISABLE
187 };
188
189 /* debug-spec ::= category-spec [, category-spec]*
190  * category-spec ::= category:val | val
191  * category ::= [^:]+
192  * val ::= [0-5]
193  */
194
195 #ifndef NUL
196 #define NUL '\0'
197 #endif
198
199 #ifndef GST_DISABLE_GST_DEBUG
200 static gboolean
201 parse_debug_category (gchar * str, const gchar ** category)
202 {
203   if (!str)
204     return FALSE;
205
206   /* works in place */
207   g_strstrip (str);
208
209   if (str[0] != NUL) {
210     *category = str;
211     return TRUE;
212   }
213
214   return FALSE;
215 }
216
217 static gboolean
218 parse_debug_level (gchar * str, gint * level)
219 {
220   if (!str)
221     return FALSE;
222
223   /* works in place */
224   g_strstrip (str);
225
226   if (str[0] != NUL && str[1] == NUL
227       && str[0] >= '0' && str[0] < '0' + GST_LEVEL_COUNT) {
228     *level = str[0] - '0';
229     return TRUE;
230   }
231
232   return FALSE;
233 }
234
235 static void
236 parse_debug_list (const gchar * list)
237 {
238   gchar **split;
239   gchar **walk;
240
241   g_return_if_fail (list != NULL);
242
243   split = g_strsplit (list, ",", 0);
244
245   for (walk = split; *walk; walk++) {
246     if (strchr (*walk, ':')) {
247       gchar **values = g_strsplit (*walk, ":", 2);
248
249       if (values[0] && values[1]) {
250         gint level;
251         const gchar *category;
252
253         if (parse_debug_category (values[0], &category)
254             && parse_debug_level (values[1], &level))
255           gst_debug_set_threshold_for_name (category, level);
256       }
257
258       g_strfreev (values);
259     } else {
260       gint level;
261
262       if (parse_debug_level (*walk, &level))
263         gst_debug_set_default_threshold (level);
264     }
265   }
266
267   g_strfreev (split);
268 }
269 #endif
270
271 /**
272  * gst_init_get_option_group:
273  *
274  * Returns a #GOptionGroup with GStreamer's argument specifications. The
275  * group is set up to use standard GOption callbacks, so when using this
276  * group in combination with GOption parsing methods, all argument parsing
277  * and initialization is automated.
278  *
279  * This function is useful if you want to integrate GStreamer with other
280  * libraries that use GOption (see g_option_context_add_group() ).
281  *
282  * Returns: a pointer to GStreamer's option group. Should be dereferenced
283  * after use.
284  */
285
286 GOptionGroup *
287 gst_init_get_option_group (void)
288 {
289   GOptionGroup *group;
290   const static GOptionEntry gst_args[] = {
291     {"gst-version", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
292         (gpointer) parse_goption_arg, N_("Print the GStreamer version"), NULL},
293     {"gst-fatal-warnings", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
294         (gpointer) parse_goption_arg, N_("Make all warnings fatal"), NULL},
295 #ifndef GST_DISABLE_GST_DEBUG
296     {"gst-debug-help", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
297           (gpointer) parse_goption_arg,
298           N_("Print available debug categories and exit"),
299         NULL},
300     {"gst-debug-level", 0, 0, G_OPTION_ARG_CALLBACK,
301           (gpointer) parse_goption_arg,
302           N_("Default debug level from 1 (only error) to 5 (anything) or "
303               "0 for no output"),
304         N_("LEVEL")},
305     {"gst-debug", 0, 0, G_OPTION_ARG_CALLBACK, (gpointer) parse_goption_arg,
306           N_("Comma-separated list of category_name:level pairs to set "
307               "specific levels for the individual categories. Example: "
308               "GST_AUTOPLUG:5,GST_ELEMENT_*:3"),
309         N_("LIST")},
310     {"gst-debug-no-color", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
311           (gpointer) parse_goption_arg, N_("Disable colored debugging output"),
312         NULL},
313     {"gst-debug-disable", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
314         (gpointer) parse_goption_arg, N_("Disable debugging"), NULL},
315 #endif
316     {"gst-plugin-spew", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
317           (gpointer) parse_goption_arg,
318           N_("Enable verbose plugin loading diagnostics"),
319         NULL},
320     {"gst-plugin-path", 0, 0, G_OPTION_ARG_CALLBACK,
321           (gpointer) parse_goption_arg,
322         N_("Colon-separated paths containing plugins"), N_("PATHS")},
323     {"gst-plugin-load", 0, 0, G_OPTION_ARG_CALLBACK,
324           (gpointer) parse_goption_arg,
325           N_("Comma-separated list of plugins to preload in addition to the "
326               "list stored in environment variable GST_PLUGIN_PATH"),
327         N_("PLUGINS")},
328     {"gst-disable-segtrap", 0, G_OPTION_FLAG_NO_ARG, G_OPTION_ARG_CALLBACK,
329           (gpointer) parse_goption_arg,
330           N_("Disable trapping of segmentation faults during plugin loading"),
331         NULL},
332     {"gst-disable-registry-fork", 0, G_OPTION_FLAG_NO_ARG,
333           G_OPTION_ARG_CALLBACK,
334           (gpointer) parse_goption_arg,
335           N_("Disable the use of fork() while scanning the registry"),
336         NULL},
337     {NULL}
338   };
339
340   group = g_option_group_new ("gst", _("GStreamer Options"),
341       _("Show GStreamer Options"), NULL, NULL);
342   g_option_group_set_parse_hooks (group, (GOptionParseFunc) init_pre,
343       (GOptionParseFunc) init_post);
344
345   g_option_group_add_entries (group, gst_args);
346   g_option_group_set_translation_domain (group, GETTEXT_PACKAGE);
347
348   return group;
349 }
350
351 /**
352  * gst_init_check:
353  * @argc: pointer to application's argc
354  * @argv: pointer to application's argv
355  * @err: pointer to a #GError to which a message will be posted on error
356  *
357  * Initializes the GStreamer library, setting up internal path lists,
358  * registering built-in elements, and loading standard plugins.
359  *
360  * This function will return %FALSE if GStreamer could not be initialized
361  * for some reason.  If you want your program to fail fatally,
362  * use gst_init() instead.
363  *
364  * Returns: %TRUE if GStreamer could be initialized.
365  */
366 gboolean
367 gst_init_check (int *argc, char **argv[], GError ** err)
368 {
369   GOptionGroup *group;
370   GOptionContext *ctx;
371   gboolean res;
372
373   GST_INFO ("initializing GStreamer");
374
375   if (gst_initialized) {
376     GST_DEBUG ("already initialized gst");
377     return TRUE;
378   }
379
380   ctx = g_option_context_new ("- GStreamer initialization");
381   g_option_context_set_ignore_unknown_options (ctx, TRUE);
382   group = gst_init_get_option_group ();
383   g_option_context_add_group (ctx, group);
384   res = g_option_context_parse (ctx, argc, argv, err);
385   g_option_context_free (ctx);
386
387   gst_initialized = res;
388
389   if (res) {
390     GST_INFO ("initialized GStreamer successfully");
391   } else {
392     GST_INFO ("failed to initialize GStreamer");
393   }
394
395   return res;
396 }
397
398 /**
399  * gst_init:
400  * @argc: pointer to application's argc
401  * @argv: pointer to application's argv
402  *
403  * Initializes the GStreamer library, setting up internal path lists,
404  * registering built-in elements, and loading standard plugins.
405  *
406  * <note><para>
407  * This function will terminate your program if it was unable to initialize
408  * GStreamer for some reason.  If you want your program to fall back,
409  * use gst_init_check() instead.
410  * </para></note>
411  *
412  * WARNING: This function does not work in the same way as corresponding
413  * functions in other glib-style libraries, such as gtk_init().  In
414  * particular, unknown command line options cause this function to
415  * abort program execution.
416  */
417 void
418 gst_init (int *argc, char **argv[])
419 {
420   GError *err = NULL;
421
422   if (!gst_init_check (argc, argv, &err)) {
423     g_print ("Could not initialize GStreamer: %s\n",
424         err ? err->message : "unknown error occurred");
425     if (err) {
426       g_error_free (err);
427     }
428     exit (1);
429   }
430 }
431
432 #ifndef GST_DISABLE_REGISTRY
433 static void
434 add_path_func (gpointer data, gpointer user_data)
435 {
436   GST_INFO ("Adding plugin path: \"%s\", will scan later", (gchar *) data);
437   plugin_paths = g_list_append (plugin_paths, g_strdup (data));
438 }
439 #endif
440
441 static void
442 prepare_for_load_plugin_func (gpointer data, gpointer user_data)
443 {
444   preload_plugins = g_slist_prepend (preload_plugins, g_strdup (data));
445 }
446
447 static void
448 load_plugin_func (gpointer data, gpointer user_data)
449 {
450   GstPlugin *plugin;
451   const gchar *filename;
452   GError *err = NULL;
453
454   filename = (const gchar *) data;
455
456   plugin = gst_plugin_load_file (filename, &err);
457
458   if (plugin) {
459     GST_INFO ("Loaded plugin: \"%s\"", filename);
460
461     gst_default_registry_add_plugin (plugin);
462   } else {
463     if (err) {
464       /* Report error to user, and free error */
465       GST_ERROR ("Failed to load plugin: %s\n", err->message);
466       g_error_free (err);
467     } else {
468       GST_WARNING ("Failed to load plugin: \"%s\"", filename);
469     }
470   }
471
472   g_free (data);
473 }
474
475 static void
476 split_and_iterate (const gchar * stringlist, gchar * separator, GFunc iterator,
477     gpointer user_data)
478 {
479   gchar **strings;
480   gint j = 0;
481   gchar *lastlist = g_strdup (stringlist);
482
483   while (lastlist) {
484     strings = g_strsplit (lastlist, separator, MAX_PATH_SPLIT);
485     g_free (lastlist);
486     lastlist = NULL;
487
488     while (strings[j]) {
489       iterator (strings[j], user_data);
490       if (++j == MAX_PATH_SPLIT) {
491         lastlist = g_strdup (strings[j]);
492         j = 0;
493         break;
494       }
495     }
496     g_strfreev (strings);
497   }
498 }
499
500 /* we have no fail cases yet, but maybe in the future */
501 static gboolean
502 init_pre (GOptionContext * context, GOptionGroup * group, gpointer data,
503     GError ** error)
504 {
505   /* GStreamer was built against a GLib >= 2.8 and is therefore not doing
506    * the refcount hack. Check that it isn't being run against an older GLib */
507   if (glib_major_version < 2 ||
508       (glib_major_version == 2 && glib_minor_version < 8)) {
509     g_warning ("GStreamer was compiled against GLib %d.%d.%d but is running"
510         " against %d.%d.%d. This will cause reference counting issues",
511         GLIB_MAJOR_VERSION, GLIB_MINOR_VERSION, GLIB_MICRO_VERSION,
512         glib_major_version, glib_minor_version, glib_micro_version);
513   }
514
515   g_type_init ();
516
517   if (g_thread_supported ()) {
518     /* somebody already initialized threading */
519   } else {
520     g_thread_init (NULL);
521   }
522   /* we need threading to be enabled right here */
523   _gst_debug_init ();
524
525 #ifdef ENABLE_NLS
526   setlocale (LC_ALL, "");
527   bindtextdomain (GETTEXT_PACKAGE, LOCALEDIR);
528 #endif /* ENABLE_NLS */
529
530 #ifndef GST_DISABLE_GST_DEBUG
531   {
532     const gchar *debug_list;
533
534     if (g_getenv ("GST_DEBUG_NO_COLOR") != NULL)
535       gst_debug_set_colored (FALSE);
536
537     debug_list = g_getenv ("GST_DEBUG");
538     if (debug_list) {
539       parse_debug_list (debug_list);
540     }
541   }
542 #endif
543   /* This is the earliest we can make stuff show up in the logs.
544    * So give some useful info about GStreamer here */
545   GST_INFO ("Initializing GStreamer Core Library version %s", VERSION);
546   GST_INFO ("Using library installed in %s", LIBDIR);
547
548   /* Print some basic system details if possible (OS/architecture) */
549 #ifdef HAVE_SYS_UTSNAME_H
550   {
551     struct utsname sys_details;
552
553     if (uname (&sys_details) == 0) {
554       GST_INFO ("%s %s %s %s %s", sys_details.sysname,
555           sys_details.nodename, sys_details.release, sys_details.version,
556           sys_details.machine);
557     }
558   }
559 #endif
560
561   return TRUE;
562 }
563
564 static gboolean
565 gst_register_core_elements (GstPlugin * plugin)
566 {
567   /* register some standard builtin types */
568   if (!gst_element_register (plugin, "bin", GST_RANK_PRIMARY,
569           GST_TYPE_BIN) ||
570       !gst_element_register (plugin, "pipeline", GST_RANK_PRIMARY,
571           GST_TYPE_PIPELINE)
572       )
573     g_assert_not_reached ();
574
575   return TRUE;
576 }
577
578 static GstPluginDesc plugin_desc = {
579   GST_VERSION_MAJOR,
580   GST_VERSION_MINOR,
581   "staticelements",
582   "core elements linked into the GStreamer library",
583   gst_register_core_elements,
584   VERSION,
585   GST_LICENSE,
586   PACKAGE,
587   GST_PACKAGE_NAME,
588   GST_PACKAGE_ORIGIN,
589
590   GST_PADDING_INIT
591 };
592
593 #ifndef GST_DISABLE_REGISTRY
594
595 /*
596  * scan_and_update_registry:
597  * @default_registry: the #GstRegistry
598  * @registry_file: registry filename
599  * @write_changes: write registry if it has changed?
600  *
601  * Scans for registry changes and evntualy updates the registry cache. 
602  *
603  * Return: %TRUE if the registry could be updated
604  */
605 static gboolean
606 scan_and_update_registry (GstRegistry * default_registry,
607     const gchar * registry_file, gboolean write_changes, GError ** error)
608 {
609   const gchar *plugin_path;
610   gboolean changed = FALSE;
611   GList *l;
612
613   GST_DEBUG ("reading registry cache: %s", registry_file);
614   gst_registry_xml_read_cache (default_registry, registry_file);
615
616   /* scan paths specified via --gst-plugin-path */
617   GST_DEBUG ("scanning paths added via --gst-plugin-path");
618   for (l = plugin_paths; l != NULL; l = l->next) {
619     GST_INFO ("Scanning plugin path: \"%s\"", (gchar *) l->data);
620     /* CHECKME: add changed |= here as well? */
621     gst_registry_scan_path (default_registry, (gchar *) l->data);
622     g_free (l->data);
623   }
624   g_list_free (plugin_paths);
625   plugin_paths = NULL;
626
627   /* GST_PLUGIN_PATH specifies a list of directories to scan for
628    * additional plugins.  These take precedence over the system plugins */
629   plugin_path = g_getenv ("GST_PLUGIN_PATH");
630   if (plugin_path) {
631     char **list;
632     int i;
633
634     GST_DEBUG ("GST_PLUGIN_PATH set to %s", plugin_path);
635     list = g_strsplit (plugin_path, G_SEARCHPATH_SEPARATOR_S, 0);
636     for (i = 0; list[i]; i++) {
637       changed |= gst_registry_scan_path (default_registry, list[i]);
638     }
639     g_strfreev (list);
640   } else {
641     GST_DEBUG ("GST_PLUGIN_PATH not set");
642   }
643
644   /* GST_PLUGIN_SYSTEM_PATH specifies a list of plugins that are always
645    * loaded by default.  If not set, this defaults to the system-installed
646    * path, and the plugins installed in the user's home directory */
647   plugin_path = g_getenv ("GST_PLUGIN_SYSTEM_PATH");
648   if (plugin_path == NULL) {
649     char *home_plugins;
650
651     GST_DEBUG ("GST_PLUGIN_SYSTEM_PATH not set");
652
653     /* plugins in the user's home directory take precedence over
654      * system-installed ones */
655     home_plugins = g_build_filename (g_get_home_dir (),
656         ".gstreamer-" GST_MAJORMINOR, "plugins", NULL);
657     changed |= gst_registry_scan_path (default_registry, home_plugins);
658     g_free (home_plugins);
659
660     /* add the main (installed) library path */
661     changed |= gst_registry_scan_path (default_registry, PLUGINDIR);
662   } else {
663     gchar **list;
664     gint i;
665
666     GST_DEBUG ("GST_PLUGIN_SYSTEM_PATH set to %s", plugin_path);
667     list = g_strsplit (plugin_path, G_SEARCHPATH_SEPARATOR_S, 0);
668     for (i = 0; list[i]; i++) {
669       changed |= gst_registry_scan_path (default_registry, list[i]);
670     }
671     g_strfreev (list);
672   }
673
674   /* Remove cached plugins so stale info is cleared. */
675   changed |= _priv_gst_registry_remove_cache_plugins (default_registry);
676
677   if (!changed) {
678     GST_INFO ("Registry cache has not changed");
679     return TRUE;
680   }
681
682   if (!write_changes) {
683     GST_INFO ("Registry cached changed, but writing is disabled. Not writing.");
684     return TRUE;
685   }
686
687   GST_INFO ("Registry cache changed. Writing new registry cache");
688   if (!gst_registry_xml_write_cache (default_registry, registry_file)) {
689     g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
690         _("Error writing registry cache to %s: %s"),
691         registry_file, g_strerror (errno));
692     return FALSE;
693   }
694
695   GST_INFO ("Registry cache written successfully");
696   return TRUE;
697 }
698
699 static gboolean
700 ensure_current_registry_nonforking (GstRegistry * default_registry,
701     const gchar * registry_file, GError ** error)
702 {
703   /* fork() not available */
704   GST_DEBUG ("Updating registry cache in-process");
705   scan_and_update_registry (default_registry, registry_file, TRUE, error);
706   return TRUE;
707 }
708
709 /* when forking is not available this function always does nothing but return
710  * TRUE immediatly */
711 static gboolean
712 ensure_current_registry_forking (GstRegistry * default_registry,
713     const gchar * registry_file, GError ** error)
714 {
715 #ifdef HAVE_FORK
716   pid_t pid;
717   int pfd[2];
718   int ret;
719
720   /* We fork here, and let the child read and possibly rebuild the registry.
721    * After that, the parent will re-read the freshly generated registry. */
722   GST_DEBUG ("forking to update registry");
723
724   if (pipe (pfd) == -1) {
725     g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
726         _("Error re-scanning registry %s: %s"),
727         ", could not create pipes. Error", g_strerror (errno));
728     return FALSE;
729   }
730
731   pid = fork ();
732   if (pid == -1) {
733     GST_ERROR ("Failed to fork()");
734     g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
735         _("Error re-scanning registry %s: %s"),
736         ", failed to fork. Error", g_strerror (errno));
737     return FALSE;
738   }
739
740   if (pid == 0) {
741     gboolean res;
742     gchar res_byte;
743
744     /* this is the child. Close the read pipe */
745     (void) close (pfd[0]);
746
747     GST_DEBUG ("child reading registry cache");
748     res =
749         scan_and_update_registry (default_registry, registry_file, TRUE, NULL);
750
751     /* need to use _exit, so that any exit handlers registered don't
752      * bring down the main program */
753     GST_DEBUG ("child exiting: %s", (res) ? "SUCCESS" : "FAILURE");
754
755     /* make valgrind happy (yes, you can call it insane) */
756     g_free ((char *) registry_file);
757
758     /* write a result byte to the pipe */
759     res_byte = res ? '1' : '0';
760     do {
761       ret = write (pfd[1], &res_byte, 1);
762     } while (ret == -1 && errno == EINTR);
763     /* if ret == -1 now, we could not write to pipe, probably 
764      * means parent has exited before us */
765     (void) close (pfd[1]);
766
767     _exit (0);
768   } else {
769     gchar res_byte;
770
771     /* parent. Close write pipe */
772     (void) close (pfd[1]);
773
774     /* Wait for result from the pipe */
775     GST_DEBUG ("Waiting for data from child");
776     do {
777       ret = read (pfd[0], &res_byte, 1);
778     } while (ret == -1 && errno == EINTR);
779
780     if (ret == -1) {
781       g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
782           _("Error re-scanning registry %s: %s"),
783           ", read returned error", g_strerror (errno));
784       close (pfd[0]);
785       return FALSE;
786     }
787     (void) close (pfd[0]);
788
789     /* Wait to ensure the child is reaped, but ignore the result */
790     GST_DEBUG ("parent waiting on child");
791     waitpid (pid, NULL, 0);
792     GST_DEBUG ("parent done waiting on child");
793
794     if (ret == 0) {
795       GST_ERROR ("child did not exit normally, terminated by signal");
796       g_set_error (error, GST_CORE_ERROR, GST_CORE_ERROR_FAILED,
797           _("Error re-scanning registry %s"), ", child terminated by signal");
798       return FALSE;
799     }
800
801     if (res_byte == '1') {
802       GST_DEBUG ("Child succeeded. Parent reading registry cache");
803       gst_registry_xml_read_cache (default_registry, registry_file);
804     } else {
805       GST_DEBUG ("Child failed. Parent re-scanning registry, ignoring errors.");
806       scan_and_update_registry (default_registry, registry_file, FALSE, NULL);
807     }
808   }
809 #endif /* HAVE_FORK */
810   return TRUE;
811 }
812
813 static gboolean
814 ensure_current_registry (GError ** error)
815 {
816   char *registry_file;
817   GstRegistry *default_registry;
818   gboolean ret;
819   gboolean do_fork;
820
821   default_registry = gst_registry_get_default ();
822   registry_file = g_strdup (g_getenv ("GST_REGISTRY"));
823   if (registry_file == NULL) {
824     registry_file = g_build_filename (g_get_home_dir (),
825         ".gstreamer-" GST_MAJORMINOR, "registry." HOST_CPU ".xml", NULL);
826   }
827
828   /* first see if forking is enabled */
829   do_fork = _gst_enable_registry_fork;
830   if (do_fork) {
831     const gchar *fork_env;
832
833     /* forking enabled, see if it is disabled with an env var */
834     if ((fork_env = g_getenv ("GST_REGISTRY_FORK"))) {
835       /* fork enabled for any value different from "no" */
836       do_fork = strcmp (fork_env, "no") != 0;
837     }
838   }
839
840   /* now check registry with or without forking */
841   if (do_fork) {
842     GST_DEBUG ("forking for registry rebuild");
843     ret = ensure_current_registry_forking (default_registry, registry_file,
844         error);
845   } else {
846     GST_DEBUG ("requested not to fork for registry rebuild");
847     ret = ensure_current_registry_nonforking (default_registry, registry_file,
848         error);
849   }
850
851   g_free (registry_file);
852
853   return ret;
854 }
855 #endif /* GST_DISABLE_REGISTRY */
856
857 /*
858  * this bit handles:
859  * - initalization of threads if we use them
860  * - log handler
861  * - initial output
862  * - initializes gst_format
863  * - registers a bunch of types for gst_objects
864  *
865  * - we don't have cases yet where this fails, but in the future
866  *   we might and then it's nice to be able to return that
867  */
868 static gboolean
869 init_post (GOptionContext * context, GOptionGroup * group, gpointer data,
870     GError ** error)
871 {
872   GLogLevelFlags llf;
873
874 #ifndef GST_DISABLE_TRACE
875   GstTrace *gst_trace;
876 #endif /* GST_DISABLE_TRACE */
877
878   llf = G_LOG_LEVEL_CRITICAL | G_LOG_LEVEL_ERROR | G_LOG_FLAG_FATAL;
879   g_log_set_handler (g_log_domain_gstreamer, llf, debug_log_handler, NULL);
880
881   _priv_gst_quarks_initialize ();
882   _gst_format_initialize ();
883   _gst_query_initialize ();
884   gst_object_get_type ();
885   gst_pad_get_type ();
886   gst_element_factory_get_type ();
887   gst_element_get_type ();
888   gst_type_find_factory_get_type ();
889   gst_bin_get_type ();
890
891 #ifndef GST_DISABLE_INDEX
892   gst_index_factory_get_type ();
893 #endif /* GST_DISABLE_INDEX */
894 #ifndef GST_DISABLE_URI
895   gst_uri_handler_get_type ();
896 #endif /* GST_DISABLE_URI */
897
898   gst_structure_get_type ();
899   _gst_value_initialize ();
900   gst_caps_get_type ();
901   _gst_event_initialize ();
902   _gst_buffer_initialize ();
903   _gst_message_initialize ();
904   _gst_tag_initialize ();
905
906   /* register core plugins */
907   _gst_plugin_register_static (&plugin_desc);
908
909   _gst_plugin_initialize ();
910
911   /*
912    * Any errors happening below this point are non-fatal, we therefore mark
913    * gstreamer as being initialized, since it is the case from a plugin point of
914    * view.
915    *
916    * If anything fails, it will be put back to FALSE in gst_init_check().
917    * This allows some special plugins that would call gst_init() to not cause a
918    * looping effect (i.e. initializing GStreamer twice).
919    */
920   gst_initialized = TRUE;
921
922 #ifndef GST_DISABLE_REGISTRY
923   if (!ensure_current_registry (error))
924     return FALSE;
925 #endif /* GST_DISABLE_REGISTRY */
926
927   /* if we need to preload plugins */
928   if (preload_plugins) {
929     g_slist_foreach (preload_plugins, load_plugin_func, NULL);
930     g_slist_free (preload_plugins);
931     preload_plugins = NULL;
932   }
933 #ifndef GST_DISABLE_TRACE
934   _gst_trace_on = 0;
935   if (_gst_trace_on) {
936     gst_trace = gst_trace_new ("gst.trace", 1024);
937     gst_trace_set_default (gst_trace);
938   }
939 #endif /* GST_DISABLE_TRACE */
940
941   return TRUE;
942 }
943
944 #ifndef GST_DISABLE_GST_DEBUG
945 static gboolean
946 select_all (GstPlugin * plugin, gpointer user_data)
947 {
948   return TRUE;
949 }
950
951 static gint
952 sort_by_category_name (gconstpointer a, gconstpointer b)
953 {
954   return strcmp (gst_debug_category_get_name ((GstDebugCategory *) a),
955       gst_debug_category_get_name ((GstDebugCategory *) b));
956 }
957 static void
958 gst_debug_help (void)
959 {
960   GSList *list, *walk;
961   GList *list2, *g;
962
963   /* Need to ensure the registry is loaded to get debug categories */
964   if (!init_post (NULL, NULL, NULL, NULL))
965     exit (1);
966
967   list2 = gst_registry_plugin_filter (gst_registry_get_default (),
968       select_all, FALSE, NULL);
969
970   /* FIXME this is gross.  why don't debug have categories PluginFeatures? */
971   for (g = list2; g; g = g_list_next (g)) {
972     GstPlugin *plugin = GST_PLUGIN_CAST (g->data);
973
974     gst_plugin_load (plugin);
975   }
976   g_list_free (list2);
977
978   list = gst_debug_get_all_categories ();
979   walk = list = g_slist_sort (list, sort_by_category_name);
980
981   g_print ("\n");
982   g_print ("name                  level    description\n");
983   g_print ("---------------------+--------+--------------------------------\n");
984
985   while (walk) {
986     GstDebugCategory *cat = (GstDebugCategory *) walk->data;
987
988     if (gst_debug_is_colored ()) {
989       gchar *color = gst_debug_construct_term_color (cat->color);
990
991       g_print ("%s%-20s\033[00m  %1d %s  %s%s\033[00m\n",
992           color,
993           gst_debug_category_get_name (cat),
994           gst_debug_category_get_threshold (cat),
995           gst_debug_level_get_name (gst_debug_category_get_threshold (cat)),
996           color, gst_debug_category_get_description (cat));
997       g_free (color);
998     } else {
999       g_print ("%-20s  %1d %s  %s\n", gst_debug_category_get_name (cat),
1000           gst_debug_category_get_threshold (cat),
1001           gst_debug_level_get_name (gst_debug_category_get_threshold (cat)),
1002           gst_debug_category_get_description (cat));
1003     }
1004     walk = g_slist_next (walk);
1005   }
1006   g_slist_free (list);
1007   g_print ("\n");
1008 }
1009 #endif
1010
1011 static gboolean
1012 parse_one_option (gint opt, const gchar * arg, GError ** err)
1013 {
1014   switch (opt) {
1015     case ARG_VERSION:
1016       g_print ("GStreamer Core Library version %s\n", PACKAGE_VERSION);
1017       exit (0);
1018     case ARG_FATAL_WARNINGS:{
1019       GLogLevelFlags fatal_mask;
1020
1021       fatal_mask = g_log_set_always_fatal (G_LOG_FATAL_MASK);
1022       fatal_mask |= G_LOG_LEVEL_WARNING | G_LOG_LEVEL_CRITICAL;
1023       g_log_set_always_fatal (fatal_mask);
1024       break;
1025     }
1026 #ifndef GST_DISABLE_GST_DEBUG
1027     case ARG_DEBUG_LEVEL:{
1028       gint tmp = 0;
1029
1030       tmp = strtol (arg, NULL, 0);
1031       if (tmp >= 0 && tmp < GST_LEVEL_COUNT) {
1032         gst_debug_set_default_threshold (tmp);
1033       }
1034       break;
1035     }
1036     case ARG_DEBUG:
1037       parse_debug_list (arg);
1038       break;
1039     case ARG_DEBUG_NO_COLOR:
1040       gst_debug_set_colored (FALSE);
1041       break;
1042     case ARG_DEBUG_DISABLE:
1043       gst_debug_set_active (FALSE);
1044       break;
1045     case ARG_DEBUG_HELP:
1046       gst_debug_help ();
1047       exit (0);
1048 #endif
1049     case ARG_PLUGIN_SPEW:
1050       break;
1051     case ARG_PLUGIN_PATH:
1052 #ifndef GST_DISABLE_REGISTRY
1053       split_and_iterate (arg, G_SEARCHPATH_SEPARATOR_S, add_path_func, NULL);
1054 #endif /* GST_DISABLE_REGISTRY */
1055       break;
1056     case ARG_PLUGIN_LOAD:
1057       split_and_iterate (arg, ",", prepare_for_load_plugin_func, NULL);
1058       break;
1059     case ARG_SEGTRAP_DISABLE:
1060       _gst_disable_segtrap = TRUE;
1061       break;
1062     case ARG_REGISTRY_FORK_DISABLE:
1063       _gst_enable_registry_fork = FALSE;
1064       break;
1065     default:
1066       g_set_error (err, G_OPTION_ERROR, G_OPTION_ERROR_UNKNOWN_OPTION,
1067           _("Unknown option"));
1068       return FALSE;
1069   }
1070
1071   return TRUE;
1072 }
1073
1074 static gboolean
1075 parse_goption_arg (const gchar * opt,
1076     const gchar * arg, gpointer data, GError ** err)
1077 {
1078   static const struct
1079   {
1080     gchar *opt;
1081     int val;
1082   } options[] = {
1083     {
1084     "--gst-version", ARG_VERSION}, {
1085     "--gst-fatal-warnings", ARG_FATAL_WARNINGS},
1086 #ifndef GST_DISABLE_GST_DEBUG
1087     {
1088     "--gst-debug-level", ARG_DEBUG_LEVEL}, {
1089     "--gst-debug", ARG_DEBUG}, {
1090     "--gst-debug-disable", ARG_DEBUG_DISABLE}, {
1091     "--gst-debug-no-color", ARG_DEBUG_NO_COLOR}, {
1092     "--gst-debug-help", ARG_DEBUG_HELP},
1093 #endif
1094     {
1095     "--gst-plugin-spew", ARG_PLUGIN_SPEW}, {
1096     "--gst-plugin-path", ARG_PLUGIN_PATH}, {
1097     "--gst-plugin-load", ARG_PLUGIN_LOAD}, {
1098     "--gst-disable-segtrap", ARG_SEGTRAP_DISABLE}, {
1099     "--gst-disable-registry-fork", ARG_REGISTRY_FORK_DISABLE}, {
1100     NULL}
1101   };
1102   gint val = 0, n;
1103
1104   for (n = 0; options[n].opt; n++) {
1105     if (!strcmp (opt, options[n].opt)) {
1106       val = options[n].val;
1107       break;
1108     }
1109   }
1110
1111   return parse_one_option (val, arg, err);
1112 }
1113
1114 extern GstRegistry *_gst_registry_default;
1115
1116 /**
1117  * gst_deinit:
1118  *
1119  * Clean up any resources created by GStreamer in gst_init().
1120  *
1121  * It is normally not needed to call this function in a normal application
1122  * as the resources will automatically be freed when the program terminates.
1123  * This function is therefore mostly used by testsuites and other memory
1124  * profiling tools.
1125  *
1126  * After this call GStreamer (including this method) should not be used anymore. 
1127  */
1128 void
1129 gst_deinit (void)
1130 {
1131   GstClock *clock;
1132
1133   GST_INFO ("deinitializing GStreamer");
1134
1135   if (!gst_initialized) {
1136     GST_DEBUG ("already deinitialized");
1137     return;
1138   }
1139
1140   clock = gst_system_clock_obtain ();
1141   gst_object_unref (clock);
1142   gst_object_unref (clock);
1143
1144   _priv_gst_registry_cleanup ();
1145
1146   gst_initialized = FALSE;
1147   GST_INFO ("deinitialized GStreamer");
1148 }
1149
1150 /**
1151  * gst_version:
1152  * @major: pointer to a guint to store the major version number
1153  * @minor: pointer to a guint to store the minor version number
1154  * @micro: pointer to a guint to store the micro version number
1155  * @nano:  pointer to a guint to store the nano version number
1156  *
1157  * Gets the version number of the GStreamer library.
1158  */
1159 void
1160 gst_version (guint * major, guint * minor, guint * micro, guint * nano)
1161 {
1162   g_return_if_fail (major);
1163   g_return_if_fail (minor);
1164   g_return_if_fail (micro);
1165   g_return_if_fail (nano);
1166
1167   *major = GST_VERSION_MAJOR;
1168   *minor = GST_VERSION_MINOR;
1169   *micro = GST_VERSION_MICRO;
1170   *nano = GST_VERSION_NANO;
1171 }
1172
1173 /**
1174  * gst_version_string:
1175  *
1176  * This function returns a string that is useful for describing this version
1177  * of GStreamer to the outside world: user agent strings, logging, ...
1178  *
1179  * Returns: a newly allocated string describing this version of GStreamer.
1180  */
1181
1182 gchar *
1183 gst_version_string ()
1184 {
1185   guint major, minor, micro, nano;
1186
1187   gst_version (&major, &minor, &micro, &nano);
1188   if (nano == 0)
1189     return g_strdup_printf ("GStreamer %d.%d.%d", major, minor, micro);
1190   else if (nano == 1)
1191     return g_strdup_printf ("GStreamer %d.%d.%d (CVS)", major, minor, micro);
1192   else
1193     return g_strdup_printf ("GStreamer %d.%d.%d (prerelease)", major, minor,
1194         micro);
1195 }
1196
1197 /**
1198  * gst_segtrap_is_enabled:
1199  *
1200  * Some functions in the GStreamer core might install a custom SIGSEGV handler
1201  * to better catch and report errors to the application. Currently this feature
1202  * is enabled by default when loading plugins.
1203  *
1204  * Applications might want to disable this behaviour with the
1205  * gst_segtrap_set_enabled() function. This is typically done if the application
1206  * wants to install its own handler without GStreamer interfering.
1207  *
1208  * Returns: %TRUE if GStreamer is allowed to install a custom SIGSEGV handler.
1209  *
1210  * Since: 0.10.10
1211  */
1212 gboolean
1213 gst_segtrap_is_enabled (void)
1214 {
1215   /* yeps, it's enabled when it's not disabled */
1216   return !_gst_disable_segtrap;
1217 }
1218
1219 /**
1220  * gst_segtrap_set_enabled:
1221  * @enabled: whether a custom SIGSEGV handler should be installed.
1222  *
1223  * Applications might want to disable/enable the SIGSEGV handling of
1224  * the GStreamer core. See gst_segtrap_is_enabled() for more information.
1225  *
1226  * Since: 0.10.10
1227  */
1228 void
1229 gst_segtrap_set_enabled (gboolean enabled)
1230 {
1231   _gst_disable_segtrap = !enabled;
1232 }
1233
1234 /**
1235  * gst_registry_fork_is_enabled:
1236  *
1237  * By default GStreamer will perform a fork() when scanning and rebuilding the
1238  * registry file. 
1239  *
1240  * Applications might want to disable this behaviour with the
1241  * gst_registry_fork_set_enabled() function. 
1242  *
1243  * Returns: %TRUE if GStreamer will use fork() when rebuilding the registry. On
1244  * platforms without fork(), this function will always return %FALSE.
1245  *
1246  * Since: 0.10.10
1247  */
1248 gboolean
1249 gst_registry_fork_is_enabled (void)
1250 {
1251   return _gst_enable_registry_fork;
1252 }
1253
1254 /**
1255  * gst_registry_fork_set_enabled:
1256  * @enabled: whether rebuilding the registry may fork
1257  *
1258  * Applications might want to disable/enable the usage of fork() when rebuilding
1259  * the registry. See gst_registry_fork_is_enabled() for more information.
1260  *
1261  * On platforms without fork(), this function will have no effect on the return
1262  * value of gst_registry_fork_is_enabled().
1263  *
1264  * Since: 0.10.10
1265  */
1266 void
1267 gst_registry_fork_set_enabled (gboolean enabled)
1268 {
1269 #ifdef HAVE_FORK
1270   _gst_enable_registry_fork = enabled;
1271 #endif /* HAVE_FORK */
1272 }