tools/gst-launch.c

   1 /* GStreamer
   2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
   3  *               2000 Wim Taymans <wtay@chello.be>
   4  *               2004 Thomas Vander Stichele <thomas@apestaart.org>
   5  *
   6  * gst-launch.c: tool to launch GStreamer pipelines from the command line
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Library General Public
  19  * License along with this library; if not, write to the
  20  * Free Software Foundation, Inc., 51 Franklin St, Fifth Floor,
  21  * Boston, MA 02110-1301, USA.
  22  */
  23
  24 #ifdef HAVE_CONFIG_H
  25 #  include "config.h"
  26 #endif
  27
  28 #include <glib.h>
  29 #include <stdio.h>
  30 #include <string.h>
  31 #include <signal.h>
  32 #ifdef HAVE_UNISTD_H
  33 #include <unistd.h>
  34 #endif
  35 #ifdef G_OS_UNIX
  36 #include <glib-unix.h>
  37 #include <sys/wait.h>
  38 #endif
  39 #include <locale.h>             /* for LC_ALL */
  40 #include "tools.h"
  41
  42 extern volatile gboolean glib_on_error_halt;
  43
  44 #ifdef G_OS_UNIX
  45 static void fault_restore (void);
  46 static void fault_spin (void);
  47 #endif
  48
  49 /* event_loop return codes */
  50 typedef enum _EventLoopResult
  51 {
  52   ELR_NO_ERROR = 0,
  53   ELR_ERROR,
  54   ELR_INTERRUPT
  55 } EventLoopResult;
  56
  57 static GstElement *pipeline;
  58 static EventLoopResult caught_error = ELR_NO_ERROR;
  59 static gboolean quiet = FALSE;
  60 static gboolean tags = FALSE;
  61 static gboolean toc = FALSE;
  62 static gboolean messages = FALSE;
  63 static gboolean is_live = FALSE;
  64 static gboolean waiting_eos = FALSE;
  65
  66 /* convenience macro so we don't have to litter the code with if(!quiet) */
  67 #define PRINT if(!quiet)g_print
  68
  69 #ifdef G_OS_UNIX
  70 static void
  71 fault_handler_sighandler (int signum)
  72 {
  73   fault_restore ();
  74
  75   /* printf is used instead of g_print(), since it's less likely to
  76    * deadlock */
  77   switch (signum) {
  78     case SIGSEGV:
  79       fprintf (stderr, "Caught SIGSEGV\n");
  80       break;
  81     case SIGQUIT:
  82       if (!quiet)
  83         printf ("Caught SIGQUIT\n");
  84       break;
  85     default:
  86       fprintf (stderr, "signo:  %d\n", signum);
  87       break;
  88   }
  89
  90   fault_spin ();
  91 }
  92
  93 static void
  94 fault_spin (void)
  95 {
  96   int spinning = TRUE;
  97
  98   glib_on_error_halt = FALSE;
  99   g_on_error_stack_trace ("gst-launch-" GST_API_VERSION);
 100
 101   wait (NULL);
 102
 103   /* FIXME how do we know if we were run by libtool? */
 104   fprintf (stderr,
 105       "Spinning.  Please run 'gdb gst-launch-" GST_API_VERSION " %d' to "
 106       "continue debugging, Ctrl-C to quit, or Ctrl-\\ to dump core.\n",
 107       (gint) getpid ());
 108   while (spinning)
 109     g_usleep (1000000);
 110 }
 111
 112 static void
 113 fault_restore (void)
 114 {
 115   struct sigaction action;
 116
 117   memset (&action, 0, sizeof (action));
 118   action.sa_handler = SIG_DFL;
 119
 120   sigaction (SIGSEGV, &action, NULL);
 121   sigaction (SIGQUIT, &action, NULL);
 122 }
 123
 124 static void
 125 fault_setup (void)
 126 {
 127   struct sigaction action;
 128
 129   memset (&action, 0, sizeof (action));
 130   action.sa_handler = fault_handler_sighandler;
 131
 132   sigaction (SIGSEGV, &action, NULL);
 133   sigaction (SIGQUIT, &action, NULL);
 134 }
 135 #endif /* G_OS_UNIX */
 136
 137 #if 0
 138 typedef struct _GstIndexStats
 139 {
 140   gint id;
 141   gchar *desc;
 142
 143   guint num_frames;
 144   guint num_keyframes;
 145   guint num_dltframes;
 146   GstClockTime last_keyframe;
 147   GstClockTime last_dltframe;
 148   GstClockTime min_keyframe_gap;
 149   GstClockTime max_keyframe_gap;
 150   GstClockTime avg_keyframe_gap;
 151 } GstIndexStats;
 152
 153 static void
 154 entry_added (GstIndex * index, GstIndexEntry * entry, gpointer user_data)
 155 {
 156   GPtrArray *index_stats = (GPtrArray *) user_data;
 157   GstIndexStats *s;
 158
 159   switch (entry->type) {
 160     case GST_INDEX_ENTRY_ID:
 161       /* we have a new writer */
 162       GST_DEBUG_OBJECT (index, "id %d: describes writer %s", entry->id,
 163           GST_INDEX_ID_DESCRIPTION (entry));
 164       if (entry->id >= index_stats->len) {
 165         g_ptr_array_set_size (index_stats, entry->id + 1);
 166       }
 167       s = g_new (GstIndexStats, 1);
 168       s->id = entry->id;
 169       s->desc = g_strdup (GST_INDEX_ID_DESCRIPTION (entry));
 170       s->num_frames = s->num_keyframes = s->num_dltframes = 0;
 171       s->last_keyframe = s->last_dltframe = GST_CLOCK_TIME_NONE;
 172       s->min_keyframe_gap = s->max_keyframe_gap = s->avg_keyframe_gap =
 173           GST_CLOCK_TIME_NONE;
 174       g_ptr_array_index (index_stats, entry->id) = s;
 175       break;
 176     case GST_INDEX_ENTRY_FORMAT:
 177       /* have not found any code calling this */
 178       GST_DEBUG_OBJECT (index, "id %d: registered format %d for %s\n",
 179           entry->id, GST_INDEX_FORMAT_FORMAT (entry),
 180           GST_INDEX_FORMAT_KEY (entry));
 181       break;
 182     case GST_INDEX_ENTRY_ASSOCIATION:
 183     {
 184       gint64 ts;
 185       GstAssocFlags flags = GST_INDEX_ASSOC_FLAGS (entry);
 186
 187       s = g_ptr_array_index (index_stats, entry->id);
 188       gst_index_entry_assoc_map (entry, GST_FORMAT_TIME, &ts);
 189
 190       if (flags & GST_ASSOCIATION_FLAG_KEY_UNIT) {
 191         s->num_keyframes++;
 192
 193         if (GST_CLOCK_TIME_IS_VALID (ts)) {
 194           if (GST_CLOCK_TIME_IS_VALID (s->last_keyframe)) {
 195             GstClockTimeDiff d = GST_CLOCK_DIFF (s->last_keyframe, ts);
 196
 197             if (G_UNLIKELY (d < 0)) {
 198               GST_WARNING ("received out-of-order keyframe at %"
 199                   GST_TIME_FORMAT, GST_TIME_ARGS (ts));
 200               /* FIXME: does it still make sense to use that for the statistics */
 201               d = GST_CLOCK_DIFF (ts, s->last_keyframe);
 202             }
 203
 204             if (GST_CLOCK_TIME_IS_VALID (s->min_keyframe_gap)) {
 205               if (d < s->min_keyframe_gap)
 206                 s->min_keyframe_gap = d;
 207             } else {
 208               s->min_keyframe_gap = d;
 209             }
 210             if (GST_CLOCK_TIME_IS_VALID (s->max_keyframe_gap)) {
 211               if (d > s->max_keyframe_gap)
 212                 s->max_keyframe_gap = d;
 213             } else {
 214               s->max_keyframe_gap = d;
 215             }
 216             if (GST_CLOCK_TIME_IS_VALID (s->avg_keyframe_gap)) {
 217               s->avg_keyframe_gap = (d + s->num_frames * s->avg_keyframe_gap) /
 218                   (s->num_frames + 1);
 219             } else {
 220               s->avg_keyframe_gap = d;
 221             }
 222           }
 223           s->last_keyframe = ts;
 224         }
 225       }
 226       if (flags & GST_ASSOCIATION_FLAG_DELTA_UNIT) {
 227         s->num_dltframes++;
 228         if (GST_CLOCK_TIME_IS_VALID (ts)) {
 229           s->last_dltframe = ts;
 230         }
 231       }
 232       s->num_frames++;
 233
 234       break;
 235     }
 236     default:
 237       break;
 238   }
 239 }
 240
 241 /* print statistics from the entry_added callback, free the entries */
 242 static void
 243 print_index_stats (GPtrArray * index_stats)
 244 {
 245   gint i;
 246
 247   if (index_stats->len) {
 248     g_print ("%s:\n", _("Index statistics"));
 249   }
 250
 251   for (i = 0; i < index_stats->len; i++) {
 252     GstIndexStats *s = g_ptr_array_index (index_stats, i);
 253     if (s) {
 254       g_print ("id %d, %s\n", s->id, s->desc);
 255       if (s->num_frames) {
 256         GstClockTime last_frame = s->last_keyframe;
 257
 258         if (GST_CLOCK_TIME_IS_VALID (s->last_dltframe)) {
 259           if (!GST_CLOCK_TIME_IS_VALID (last_frame) ||
 260               (s->last_dltframe > last_frame))
 261             last_frame = s->last_dltframe;
 262         }
 263
 264         if (GST_CLOCK_TIME_IS_VALID (last_frame)) {
 265           g_print ("  total time               = %" GST_TIME_FORMAT "\n",
 266               GST_TIME_ARGS (last_frame));
 267         }
 268         g_print ("  frame/keyframe rate      = %u / %u = ", s->num_frames,
 269             s->num_keyframes);
 270         if (s->num_keyframes)
 271           g_print ("%lf\n", s->num_frames / (gdouble) s->num_keyframes);
 272         else
 273           g_print ("-\n");
 274         if (s->num_keyframes) {
 275           g_print ("  min/avg/max keyframe gap = %" GST_TIME_FORMAT ", %"
 276               GST_TIME_FORMAT ", %" GST_TIME_FORMAT "\n",
 277               GST_TIME_ARGS (s->min_keyframe_gap),
 278               GST_TIME_ARGS (s->avg_keyframe_gap),
 279               GST_TIME_ARGS (s->max_keyframe_gap));
 280         }
 281       } else {
 282         g_print ("  no stats\n");
 283       }
 284
 285       g_free (s->desc);
 286       g_free (s);
 287     }
 288   }
 289 }
 290 #endif
 291
 292 /* Kids, use the functions from libgstpbutils in gst-plugins-base in your
 293  * own code (we can't do that here because it would introduce a circular
 294  * dependency) */
 295 static gboolean
 296 gst_is_missing_plugin_message (GstMessage * msg)
 297 {
 298   if (GST_MESSAGE_TYPE (msg) != GST_MESSAGE_ELEMENT
 299       || gst_message_get_structure (msg) == NULL)
 300     return FALSE;
 301
 302   return gst_structure_has_name (gst_message_get_structure (msg),
 303       "missing-plugin");
 304 }
 305
 306 static const gchar *
 307 gst_missing_plugin_message_get_description (GstMessage * msg)
 308 {
 309   return gst_structure_get_string (gst_message_get_structure (msg), "name");
 310 }
 311
 312 static void
 313 print_error_message (GstMessage * msg)
 314 {
 315   GError *err = NULL;
 316   gchar *name, *debug = NULL;
 317
 318   name = gst_object_get_path_string (msg->src);
 319   gst_message_parse_error (msg, &err, &debug);
 320
 321   g_printerr (_("ERROR: from element %s: %s\n"), name, err->message);
 322   if (debug != NULL)
 323     g_printerr (_("Additional debug info:\n%s\n"), debug);
 324
 325   g_error_free (err);
 326   g_free (debug);
 327   g_free (name);
 328 }
 329
 330 static void
 331 print_tag (const GstTagList * list, const gchar * tag, gpointer unused)
 332 {
 333   gint i, count;
 334
 335   count = gst_tag_list_get_tag_size (list, tag);
 336
 337   for (i = 0; i < count; i++) {
 338     gchar *str = NULL;
 339
 340     if (gst_tag_get_type (tag) == G_TYPE_STRING) {
 341       if (!gst_tag_list_get_string_index (list, tag, i, &str)) {
 342         g_warning ("Couldn't fetch string for %s tag", tag);
 343         g_assert_not_reached ();
 344       }
 345     } else if (gst_tag_get_type (tag) == GST_TYPE_SAMPLE) {
 346       GstSample *sample = NULL;
 347
 348       if (gst_tag_list_get_sample_index (list, tag, i, &sample)) {
 349         GstBuffer *img = gst_sample_get_buffer (sample);
 350         GstCaps *caps = gst_sample_get_caps (sample);
 351
 352         if (img) {
 353           if (caps) {
 354             gchar *caps_str;
 355
 356             caps_str = gst_caps_to_string (caps);
 357             str = g_strdup_printf ("buffer of %" G_GSIZE_FORMAT " bytes, "
 358                 "type: %s", gst_buffer_get_size (img), caps_str);
 359             g_free (caps_str);
 360           } else {
 361             str = g_strdup_printf ("buffer of %" G_GSIZE_FORMAT " bytes",
 362                 gst_buffer_get_size (img));
 363           }
 364         } else {
 365           str = g_strdup ("NULL buffer");
 366         }
 367       } else {
 368         g_warning ("Couldn't fetch sample for %s tag", tag);
 369         g_assert_not_reached ();
 370       }
 371     } else if (gst_tag_get_type (tag) == GST_TYPE_DATE_TIME) {
 372       GstDateTime *dt = NULL;
 373
 374       gst_tag_list_get_date_time_index (list, tag, i, &dt);
 375       if (!gst_date_time_has_time (dt)) {
 376         str = gst_date_time_to_iso8601_string (dt);
 377       } else {
 378         gdouble tz_offset = gst_date_time_get_time_zone_offset (dt);
 379         gchar tz_str[32];
 380
 381         if (tz_offset != 0.0) {
 382           g_snprintf (tz_str, sizeof (tz_str), "(UTC %s%gh)",
 383               (tz_offset > 0.0) ? "+" : "", tz_offset);
 384         } else {
 385           g_snprintf (tz_str, sizeof (tz_str), "(UTC)");
 386         }
 387
 388         str = g_strdup_printf ("%04u-%02u-%02u %02u:%02u:%02u %s",
 389             gst_date_time_get_year (dt), gst_date_time_get_month (dt),
 390             gst_date_time_get_day (dt), gst_date_time_get_hour (dt),
 391             gst_date_time_get_minute (dt), gst_date_time_get_second (dt),
 392             tz_str);
 393       }
 394       gst_date_time_unref (dt);
 395     } else {
 396       str =
 397           g_strdup_value_contents (gst_tag_list_get_value_index (list, tag, i));
 398     }
 399
 400     if (str) {
 401       PRINT ("%16s: %s\n", i == 0 ? gst_tag_get_nick (tag) : "", str);
 402       g_free (str);
 403     }
 404   }
 405 }
 406
 407 static void
 408 print_tag_foreach (const GstTagList * tags, const gchar * tag,
 409     gpointer user_data)
 410 {
 411   GValue val = { 0, };
 412   gchar *str;
 413   gint depth = GPOINTER_TO_INT (user_data);
 414
 415   if (!gst_tag_list_copy_value (&val, tags, tag))
 416     return;
 417
 418   if (G_VALUE_HOLDS_STRING (&val))
 419     str = g_value_dup_string (&val);
 420   else
 421     str = gst_value_serialize (&val);
 422
 423   g_print ("%*s%s: %s\n", 2 * depth, " ", gst_tag_get_nick (tag), str);
 424   g_free (str);
 425
 426   g_value_unset (&val);
 427 }
 428
 429 #define MAX_INDENT 40
 430
 431 static void
 432 print_toc_entry (gpointer data, gpointer user_data)
 433 {
 434   GstTocEntry *entry = (GstTocEntry *) data;
 435   const gchar spc[MAX_INDENT + 1] = "                                        ";
 436   guint indent = MIN (GPOINTER_TO_UINT (user_data), MAX_INDENT);
 437   const GstTagList *tags;
 438   GList *subentries;
 439   gint64 start, stop;
 440
 441   gst_toc_entry_get_start_stop_times (entry, &start, &stop);
 442
 443   PRINT ("%s%s:", &spc[MAX_INDENT - indent],
 444       gst_toc_entry_type_get_nick (gst_toc_entry_get_entry_type (entry)));
 445   if (GST_CLOCK_TIME_IS_VALID (start)) {
 446     PRINT (" start: %" GST_TIME_FORMAT, GST_TIME_ARGS (start));
 447   }
 448   if (GST_CLOCK_TIME_IS_VALID (stop)) {
 449     PRINT (" stop: %" GST_TIME_FORMAT, GST_TIME_ARGS (stop));
 450   }
 451   PRINT ("\n");
 452   indent += 2;
 453
 454   /* print tags */
 455   tags = gst_toc_entry_get_tags (entry);
 456   if (tags)
 457     gst_tag_list_foreach (tags, print_tag_foreach, GUINT_TO_POINTER (indent));
 458
 459   /* loop over sub-toc entries */
 460   subentries = gst_toc_entry_get_sub_entries (entry);
 461   g_list_foreach (subentries, print_toc_entry, GUINT_TO_POINTER (indent));
 462 }
 463
 464 #ifdef G_OS_UNIX
 465 static guint signal_watch_id;
 466 #endif
 467
 468 #ifdef G_OS_UNIX
 469 /* As the interrupt handler is dispatched from GMainContext as a GSourceFunc
 470  * handler, we can react to this by posting a message. */
 471 static gboolean
 472 intr_handler (gpointer user_data)
 473 {
 474   GstElement *pipeline = (GstElement *) user_data;
 475
 476   PRINT ("handling interrupt.\n");
 477
 478   /* post an application specific message */
 479   gst_element_post_message (GST_ELEMENT (pipeline),
 480       gst_message_new_application (GST_OBJECT (pipeline),
 481           gst_structure_new ("GstLaunchInterrupt",
 482               "message", G_TYPE_STRING, "Pipeline interrupted", NULL)));
 483
 484   /* remove signal handler */
 485   signal_watch_id = 0;
 486   return FALSE;
 487 }
 488
 489 #endif /* G_OS_UNIX */
 490
 491 /* returns ELR_ERROR if there was an error
 492  * or ELR_INTERRUPT if we caught a keyboard interrupt
 493  * or ELR_NO_ERROR otherwise. */
 494 static EventLoopResult
 495 event_loop (GstElement * pipeline, gboolean blocking, gboolean do_progress,
 496     GstState target_state)
 497 {
 498   GstBus *bus;
 499   GstMessage *message = NULL;
 500   EventLoopResult res = ELR_NO_ERROR;
 501   gboolean buffering = FALSE, in_progress = FALSE;
 502   gboolean prerolled = target_state != GST_STATE_PAUSED;
 503
 504   bus = gst_element_get_bus (GST_ELEMENT (pipeline));
 505
 506 #ifdef G_OS_UNIX
 507   signal_watch_id =
 508       g_unix_signal_add (SIGINT, (GSourceFunc) intr_handler, pipeline);
 509 #endif
 510
 511   while (TRUE) {
 512     message = gst_bus_poll (bus, GST_MESSAGE_ANY, blocking ? -1 : 0);
 513
 514     /* if the poll timed out, only when !blocking */
 515     if (message == NULL)
 516       goto exit;
 517
 518     /* check if we need to dump messages to the console */
 519     if (messages) {
 520       GstObject *src_obj;
 521       const GstStructure *s;
 522       guint32 seqnum;
 523
 524       seqnum = gst_message_get_seqnum (message);
 525
 526       s = gst_message_get_structure (message);
 527
 528       src_obj = GST_MESSAGE_SRC (message);
 529
 530       if (GST_IS_ELEMENT (src_obj)) {
 531         PRINT (_("Got message #%u from element \"%s\" (%s): "),
 532             (guint) seqnum, GST_ELEMENT_NAME (src_obj),
 533             GST_MESSAGE_TYPE_NAME (message));
 534       } else if (GST_IS_PAD (src_obj)) {
 535         PRINT (_("Got message #%u from pad \"%s:%s\" (%s): "),
 536             (guint) seqnum, GST_DEBUG_PAD_NAME (src_obj),
 537             GST_MESSAGE_TYPE_NAME (message));
 538       } else if (GST_IS_OBJECT (src_obj)) {
 539         PRINT (_("Got message #%u from object \"%s\" (%s): "),
 540             (guint) seqnum, GST_OBJECT_NAME (src_obj),
 541             GST_MESSAGE_TYPE_NAME (message));
 542       } else {
 543         PRINT (_("Got message #%u (%s): "), (guint) seqnum,
 544             GST_MESSAGE_TYPE_NAME (message));
 545       }
 546
 547       if (s) {
 548         gchar *sstr;
 549
 550         sstr = gst_structure_to_string (s);
 551         PRINT ("%s\n", sstr);
 552         g_free (sstr);
 553       } else {
 554         PRINT ("no message details\n");
 555       }
 556     }
 557
 558     switch (GST_MESSAGE_TYPE (message)) {
 559       case GST_MESSAGE_NEW_CLOCK:
 560       {
 561         GstClock *clock;
 562
 563         gst_message_parse_new_clock (message, &clock);
 564
 565         PRINT ("New clock: %s\n", (clock ? GST_OBJECT_NAME (clock) : "NULL"));
 566         break;
 567       }
 568       case GST_MESSAGE_CLOCK_LOST:
 569         PRINT ("Clock lost, selecting a new one\n");
 570         gst_element_set_state (pipeline, GST_STATE_PAUSED);
 571         gst_element_set_state (pipeline, GST_STATE_PLAYING);
 572         break;
 573       case GST_MESSAGE_EOS:{
 574         waiting_eos = FALSE;
 575         PRINT (_("Got EOS from element \"%s\".\n"),
 576             GST_MESSAGE_SRC_NAME (message));
 577         goto exit;
 578       }
 579       case GST_MESSAGE_TAG:
 580         if (tags) {
 581           GstTagList *tag_list;
 582
 583           if (GST_IS_ELEMENT (GST_MESSAGE_SRC (message))) {
 584             PRINT (_("FOUND TAG      : found by element \"%s\".\n"),
 585                 GST_MESSAGE_SRC_NAME (message));
 586           } else if (GST_IS_PAD (GST_MESSAGE_SRC (message))) {
 587             PRINT (_("FOUND TAG      : found by pad \"%s:%s\".\n"),
 588                 GST_DEBUG_PAD_NAME (GST_MESSAGE_SRC (message)));
 589           } else if (GST_IS_OBJECT (GST_MESSAGE_SRC (message))) {
 590             PRINT (_("FOUND TAG      : found by object \"%s\".\n"),
 591                 GST_MESSAGE_SRC_NAME (message));
 592           } else {
 593             PRINT (_("FOUND TAG\n"));
 594           }
 595
 596           gst_message_parse_tag (message, &tag_list);
 597           gst_tag_list_foreach (tag_list, print_tag, NULL);
 598           gst_tag_list_unref (tag_list);
 599         }
 600         break;
 601       case GST_MESSAGE_TOC:
 602         if (toc) {
 603           GstToc *toc;
 604           GList *entries;
 605           gboolean updated;
 606
 607           if (GST_IS_ELEMENT (GST_MESSAGE_SRC (message))) {
 608             PRINT (_("FOUND TOC      : found by element \"%s\".\n"),
 609                 GST_MESSAGE_SRC_NAME (message));
 610           } else if (GST_IS_OBJECT (GST_MESSAGE_SRC (message))) {
 611             PRINT (_("FOUND TOC      : found by object \"%s\".\n"),
 612                 GST_MESSAGE_SRC_NAME (message));
 613           } else {
 614             PRINT (_("FOUND TOC\n"));
 615           }
 616
 617           gst_message_parse_toc (message, &toc, &updated);
 618           /* recursively loop over toc entries */
 619           entries = gst_toc_get_entries (toc);
 620           g_list_foreach (entries, print_toc_entry, GUINT_TO_POINTER (0));
 621           gst_toc_unref (toc);
 622         }
 623         break;
 624       case GST_MESSAGE_INFO:{
 625         GError *gerror;
 626         gchar *debug;
 627         gchar *name = gst_object_get_path_string (GST_MESSAGE_SRC (message));
 628
 629         gst_message_parse_info (message, &gerror, &debug);
 630         if (debug) {
 631           PRINT (_("INFO:\n%s\n"), debug);
 632         }
 633         g_error_free (gerror);
 634         g_free (debug);
 635         g_free (name);
 636         break;
 637       }
 638       case GST_MESSAGE_WARNING:{
 639         GError *gerror;
 640         gchar *debug;
 641         gchar *name = gst_object_get_path_string (GST_MESSAGE_SRC (message));
 642
 643         /* dump graph on warning */
 644         GST_DEBUG_BIN_TO_DOT_FILE_WITH_TS (GST_BIN (pipeline),
 645             GST_DEBUG_GRAPH_SHOW_ALL, "gst-launch.warning");
 646
 647         gst_message_parse_warning (message, &gerror, &debug);
 648         PRINT (_("WARNING: from element %s: %s\n"), name, gerror->message);
 649         if (debug) {
 650           PRINT (_("Additional debug info:\n%s\n"), debug);
 651         }
 652         g_error_free (gerror);
 653         g_free (debug);
 654         g_free (name);
 655         break;
 656       }
 657       case GST_MESSAGE_ERROR:{
 658         /* dump graph on error */
 659         GST_DEBUG_BIN_TO_DOT_FILE_WITH_TS (GST_BIN (pipeline),
 660             GST_DEBUG_GRAPH_SHOW_ALL, "gst-launch.error");
 661
 662         print_error_message (message);
 663
 664         /* we have an error */
 665         res = ELR_ERROR;
 666         goto exit;
 667       }
 668       case GST_MESSAGE_STATE_CHANGED:{
 669         GstState old, new, pending;
 670
 671         /* we only care about pipeline state change messages */
 672         if (GST_MESSAGE_SRC (message) != GST_OBJECT_CAST (pipeline))
 673           break;
 674
 675         gst_message_parse_state_changed (message, &old, &new, &pending);
 676
 677         /* if we reached the final target state, exit */
 678         if (target_state == GST_STATE_PAUSED && new == target_state) {
 679           prerolled = TRUE;
 680           /* ignore when we are buffering since then we mess with the states
 681            * ourselves. */
 682           if (buffering) {
 683             PRINT (_("Prerolled, waiting for buffering to finish...\n"));
 684             break;
 685           }
 686           if (in_progress) {
 687             PRINT (_("Prerolled, waiting for progress to finish...\n"));
 688             break;
 689           }
 690           goto exit;
 691         }
 692         /* else not an interesting message */
 693         break;
 694       }
 695       case GST_MESSAGE_BUFFERING:{
 696         gint percent;
 697
 698         gst_message_parse_buffering (message, &percent);
 699         PRINT ("%s %d%%  \r", _("buffering..."), percent);
 700
 701         /* no state management needed for live pipelines */
 702         if (is_live)
 703           break;
 704
 705         if (percent == 100) {
 706           /* a 100% message means buffering is done */
 707           buffering = FALSE;
 708           /* if the desired state is playing, go back */
 709           if (target_state == GST_STATE_PLAYING) {
 710             PRINT (_("Done buffering, setting pipeline to PLAYING ...\n"));
 711             gst_element_set_state (pipeline, GST_STATE_PLAYING);
 712           } else if (prerolled && !in_progress)
 713             goto exit;
 714         } else {
 715           /* buffering busy */
 716           if (buffering == FALSE && target_state == GST_STATE_PLAYING) {
 717             /* we were not buffering but PLAYING, PAUSE  the pipeline. */
 718             PRINT (_("Buffering, setting pipeline to PAUSED ...\n"));
 719             gst_element_set_state (pipeline, GST_STATE_PAUSED);
 720           }
 721           buffering = TRUE;
 722         }
 723         break;
 724       }
 725       case GST_MESSAGE_LATENCY:
 726       {
 727         PRINT (_("Redistribute latency...\n"));
 728         gst_bin_recalculate_latency (GST_BIN (pipeline));
 729         break;
 730       }
 731       case GST_MESSAGE_REQUEST_STATE:
 732       {
 733         GstState state;
 734         gchar *name = gst_object_get_path_string (GST_MESSAGE_SRC (message));
 735
 736         gst_message_parse_request_state (message, &state);
 737
 738         PRINT (_("Setting state to %s as requested by %s...\n"),
 739             gst_element_state_get_name (state), name);
 740
 741         gst_element_set_state (pipeline, state);
 742
 743         g_free (name);
 744         break;
 745       }
 746       case GST_MESSAGE_APPLICATION:{
 747         const GstStructure *s;
 748
 749         s = gst_message_get_structure (message);
 750
 751         if (gst_structure_has_name (s, "GstLaunchInterrupt")) {
 752           /* this application message is posted when we caught an interrupt and
 753            * we need to stop the pipeline. */
 754           PRINT (_("Interrupt: Stopping pipeline ...\n"));
 755           res = ELR_INTERRUPT;
 756           goto exit;
 757         }
 758         break;
 759       }
 760       case GST_MESSAGE_PROGRESS:
 761       {
 762         GstProgressType type;
 763         gchar *code, *text;
 764
 765         gst_message_parse_progress (message, &type, &code, &text);
 766
 767         switch (type) {
 768           case GST_PROGRESS_TYPE_START:
 769           case GST_PROGRESS_TYPE_CONTINUE:
 770             if (do_progress) {
 771               in_progress = TRUE;
 772               blocking = TRUE;
 773             }
 774             break;
 775           case GST_PROGRESS_TYPE_COMPLETE:
 776           case GST_PROGRESS_TYPE_CANCELED:
 777           case GST_PROGRESS_TYPE_ERROR:
 778             in_progress = FALSE;
 779             break;
 780           default:
 781             break;
 782         }
 783         PRINT (_("Progress: (%s) %s\n"), code, text);
 784         g_free (code);
 785         g_free (text);
 786
 787         if (do_progress && !in_progress && !buffering && prerolled)
 788           goto exit;
 789         break;
 790       }
 791       case GST_MESSAGE_ELEMENT:{
 792         if (gst_is_missing_plugin_message (message)) {
 793           const gchar *desc;
 794
 795           desc = gst_missing_plugin_message_get_description (message);
 796           PRINT (_("Missing element: %s\n"), desc ? desc : "(no description)");
 797         }
 798         break;
 799       }
 800       case GST_MESSAGE_HAVE_CONTEXT:{
 801         GstContext *context;
 802         const gchar *context_type;
 803         gchar *context_str;
 804
 805         gst_message_parse_have_context (message, &context);
 806
 807         context_type = gst_context_get_context_type (context);
 808         context_str =
 809             gst_structure_to_string (gst_context_get_structure (context));
 810         PRINT (_("Got context from element '%s': %s=%s\n"),
 811             GST_ELEMENT_NAME (GST_MESSAGE_SRC (message)), context_type,
 812             context_str);
 813         g_free (context_str);
 814         gst_context_unref (context);
 815         break;
 816       }
 817       default:
 818         /* just be quiet by default */
 819         break;
 820     }
 821     if (message)
 822       gst_message_unref (message);
 823   }
 824   g_assert_not_reached ();
 825
 826 exit:
 827   {
 828     if (message)
 829       gst_message_unref (message);
 830     gst_object_unref (bus);
 831 #ifdef G_OS_UNIX
 832     if (signal_watch_id > 0)
 833       g_source_remove (signal_watch_id);
 834 #endif
 835     return res;
 836   }
 837 }
 838
 839 static GstBusSyncReply
 840 bus_sync_handler (GstBus * bus, GstMessage * message, gpointer data)
 841 {
 842   GstElement *pipeline = (GstElement *) data;
 843
 844   switch (GST_MESSAGE_TYPE (message)) {
 845     case GST_MESSAGE_STATE_CHANGED:
 846       /* we only care about pipeline state change messages */
 847       if (GST_MESSAGE_SRC (message) == GST_OBJECT_CAST (pipeline)) {
 848         GstState old, new, pending;
 849         gchar *state_transition_name;
 850
 851         gst_message_parse_state_changed (message, &old, &new, &pending);
 852
 853         state_transition_name = g_strdup_printf ("%s_%s",
 854             gst_element_state_get_name (old), gst_element_state_get_name (new));
 855
 856         /* dump graph for (some) pipeline state changes */
 857         {
 858           gchar *dump_name = g_strconcat ("gst-launch.", state_transition_name,
 859               NULL);
 860           GST_DEBUG_BIN_TO_DOT_FILE_WITH_TS (GST_BIN (pipeline),
 861               GST_DEBUG_GRAPH_SHOW_ALL, dump_name);
 862           g_free (dump_name);
 863         }
 864
 865         /* place a marker into e.g. strace logs */
 866         {
 867           gchar *access_name = g_strconcat (g_get_tmp_dir (), G_DIR_SEPARATOR_S,
 868               "gst-launch", G_DIR_SEPARATOR_S, state_transition_name, NULL);
 869           g_file_test (access_name, G_FILE_TEST_EXISTS);
 870           g_free (access_name);
 871         }
 872
 873         g_free (state_transition_name);
 874       }
 875       break;
 876     default:
 877       break;
 878   }
 879   return GST_BUS_PASS;
 880 }
 881
 882 int
 883 main (int argc, char *argv[])
 884 {
 885   /* options */
 886   gboolean verbose = FALSE;
 887   gboolean no_fault = FALSE;
 888   gboolean eos_on_shutdown = FALSE;
 889 #if 0
 890   gboolean check_index = FALSE;
 891 #endif
 892   gchar *savefile = NULL;
 893   gchar *exclude_args = NULL;
 894 #ifndef GST_DISABLE_OPTION_PARSING
 895   GOptionEntry options[] = {
 896     {"tags", 't', 0, G_OPTION_ARG_NONE, &tags,
 897         N_("Output tags (also known as metadata)"), NULL},
 898     {"toc", 'c', 0, G_OPTION_ARG_NONE, &toc,
 899         N_("Output TOC (chapters and editions)"), NULL},
 900     {"verbose", 'v', 0, G_OPTION_ARG_NONE, &verbose,
 901         N_("Output status information and property notifications"), NULL},
 902     {"quiet", 'q', 0, G_OPTION_ARG_NONE, &quiet,
 903         N_("Do not print any progress information"), NULL},
 904     {"messages", 'm', 0, G_OPTION_ARG_NONE, &messages,
 905         N_("Output messages"), NULL},
 906     {"exclude", 'X', 0, G_OPTION_ARG_NONE, &exclude_args,
 907         N_("Do not output status information of TYPE"), N_("TYPE1,TYPE2,...")},
 908     {"no-fault", 'f', 0, G_OPTION_ARG_NONE, &no_fault,
 909         N_("Do not install a fault handler"), NULL},
 910     {"eos-on-shutdown", 'e', 0, G_OPTION_ARG_NONE, &eos_on_shutdown,
 911         N_("Force EOS on sources before shutting the pipeline down"), NULL},
 912 #if 0
 913     {"index", 'i', 0, G_OPTION_ARG_NONE, &check_index,
 914         N_("Gather and print index statistics"), NULL},
 915 #endif
 916     GST_TOOLS_GOPTION_VERSION,
 917     {NULL}
 918   };
 919   GOptionContext *ctx;
 920   GError *err = NULL;
 921 #endif
 922 #if 0
 923   GstIndex *index;
 924   GPtrArray *index_stats = NULL;
 925 #endif
 926   gchar **argvn;
 927   GError *error = NULL;
 928   gulong deep_notify_id = 0;
 929   gint res = 0;
 930
 931   free (malloc (8));            /* -lefence */
 932
 933 #ifdef ENABLE_NLS
 934   bindtextdomain (GETTEXT_PACKAGE, LOCALEDIR);
 935   bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
 936   textdomain (GETTEXT_PACKAGE);
 937 #endif
 938
 939   g_set_prgname ("gst-launch-" GST_API_VERSION);
 940
 941 #ifndef GST_DISABLE_OPTION_PARSING
 942   ctx = g_option_context_new ("PIPELINE-DESCRIPTION");
 943   g_option_context_add_main_entries (ctx, options, GETTEXT_PACKAGE);
 944   g_option_context_add_group (ctx, gst_init_get_option_group ());
 945   if (!g_option_context_parse (ctx, &argc, &argv, &err)) {
 946     if (err)
 947       g_printerr ("Error initializing: %s\n", GST_STR_NULL (err->message));
 948     else
 949       g_printerr ("Error initializing: Unknown error!\n");
 950     exit (1);
 951   }
 952   g_option_context_free (ctx);
 953 #else
 954   gst_init (&argc, &argv);
 955 #endif
 956
 957   gst_tools_print_version ();
 958
 959 #ifdef G_OS_UNIX
 960   if (!no_fault)
 961     fault_setup ();
 962 #endif
 963
 964   /* make a null-terminated version of argv */
 965   argvn = g_new0 (char *, argc);
 966   memcpy (argvn, argv + 1, sizeof (char *) * (argc - 1));
 967   {
 968     pipeline =
 969         (GstElement *) gst_parse_launchv ((const gchar **) argvn, &error);
 970   }
 971   g_free (argvn);
 972
 973   if (!pipeline) {
 974     if (error) {
 975       g_printerr (_("ERROR: pipeline could not be constructed: %s.\n"),
 976           GST_STR_NULL (error->message));
 977       g_error_free (error);
 978     } else {
 979       g_printerr (_("ERROR: pipeline could not be constructed.\n"));
 980     }
 981     return 1;
 982   } else if (error) {
 983     g_printerr (_("WARNING: erroneous pipeline: %s\n"),
 984         GST_STR_NULL (error->message));
 985     g_error_free (error);
 986     return 1;
 987   }
 988
 989   if (verbose) {
 990     gchar **exclude_list =
 991         exclude_args ? g_strsplit (exclude_args, ",", 0) : NULL;
 992     deep_notify_id = g_signal_connect (pipeline, "deep-notify",
 993         G_CALLBACK (gst_object_default_deep_notify), exclude_list);
 994   }
 995
 996   if (!savefile) {
 997     GstState state, pending;
 998     GstStateChangeReturn ret;
 999     GstBus *bus;
1000
1001     /* If the top-level object is not a pipeline, place it in a pipeline. */
1002     if (!GST_IS_PIPELINE (pipeline)) {
1003       GstElement *real_pipeline = gst_element_factory_make ("pipeline", NULL);
1004
1005       if (real_pipeline == NULL) {
1006         g_printerr (_("ERROR: the 'pipeline' element wasn't found.\n"));
1007         return 1;
1008       }
1009       gst_bin_add (GST_BIN (real_pipeline), pipeline);
1010       pipeline = real_pipeline;
1011     }
1012 #if 0
1013     if (check_index) {
1014       /* gst_index_new() creates a null-index, it does not store anything, but
1015        * the entry-added signal works and this is what we use to build the
1016        * statistics */
1017       index = gst_index_new ();
1018       if (index) {
1019         index_stats = g_ptr_array_new ();
1020         g_signal_connect (G_OBJECT (index), "entry-added",
1021             G_CALLBACK (entry_added), index_stats);
1022         g_object_set (G_OBJECT (index), "resolver", GST_INDEX_RESOLVER_GTYPE,
1023             NULL);
1024         gst_element_set_index (pipeline, index);
1025       }
1026     }
1027 #endif
1028
1029     bus = gst_element_get_bus (pipeline);
1030     gst_bus_set_sync_handler (bus, bus_sync_handler, (gpointer) pipeline, NULL);
1031     gst_object_unref (bus);
1032
1033     PRINT (_("Setting pipeline to PAUSED ...\n"));
1034     ret = gst_element_set_state (pipeline, GST_STATE_PAUSED);
1035
1036     switch (ret) {
1037       case GST_STATE_CHANGE_FAILURE:
1038         g_printerr (_("ERROR: Pipeline doesn't want to pause.\n"));
1039         res = -1;
1040         event_loop (pipeline, FALSE, FALSE, GST_STATE_VOID_PENDING);
1041         goto end;
1042       case GST_STATE_CHANGE_NO_PREROLL:
1043         PRINT (_("Pipeline is live and does not need PREROLL ...\n"));
1044         is_live = TRUE;
1045         break;
1046       case GST_STATE_CHANGE_ASYNC:
1047         PRINT (_("Pipeline is PREROLLING ...\n"));
1048         caught_error = event_loop (pipeline, TRUE, TRUE, GST_STATE_PAUSED);
1049         if (caught_error) {
1050           g_printerr (_("ERROR: pipeline doesn't want to preroll.\n"));
1051           res = caught_error;
1052           goto end;
1053         }
1054         state = GST_STATE_PAUSED;
1055         /* fallthrough */
1056       case GST_STATE_CHANGE_SUCCESS:
1057         PRINT (_("Pipeline is PREROLLED ...\n"));
1058         break;
1059     }
1060
1061     caught_error = event_loop (pipeline, FALSE, TRUE, GST_STATE_PLAYING);
1062
1063     if (caught_error) {
1064       g_printerr (_("ERROR: pipeline doesn't want to preroll.\n"));
1065       res = caught_error;
1066     } else {
1067       GstClockTime tfthen, tfnow;
1068       GstClockTimeDiff diff;
1069
1070       PRINT (_("Setting pipeline to PLAYING ...\n"));
1071
1072       if (gst_element_set_state (pipeline,
1073               GST_STATE_PLAYING) == GST_STATE_CHANGE_FAILURE) {
1074         GstMessage *err_msg;
1075         GstBus *bus;
1076
1077         g_printerr (_("ERROR: pipeline doesn't want to play.\n"));
1078         bus = gst_element_get_bus (pipeline);
1079         if ((err_msg = gst_bus_poll (bus, GST_MESSAGE_ERROR, 0))) {
1080           print_error_message (err_msg);
1081           gst_message_unref (err_msg);
1082         }
1083         gst_object_unref (bus);
1084         res = -1;
1085         goto end;
1086       }
1087
1088       tfthen = gst_util_get_timestamp ();
1089       caught_error = event_loop (pipeline, TRUE, FALSE, GST_STATE_PLAYING);
1090       if (eos_on_shutdown && caught_error != ELR_NO_ERROR) {
1091         gboolean ignore_errors;
1092
1093         waiting_eos = TRUE;
1094         if (caught_error == ELR_INTERRUPT) {
1095           PRINT (_("EOS on shutdown enabled -- Forcing EOS on the pipeline\n"));
1096           gst_element_send_event (pipeline, gst_event_new_eos ());
1097           ignore_errors = FALSE;
1098         } else {
1099           PRINT (_("EOS on shutdown enabled -- waiting for EOS after Error\n"));
1100           ignore_errors = TRUE;
1101         }
1102         PRINT (_("Waiting for EOS...\n"));
1103
1104         while (TRUE) {
1105           caught_error = event_loop (pipeline, TRUE, FALSE, GST_STATE_PLAYING);
1106
1107           if (caught_error == ELR_NO_ERROR) {
1108             /* we got EOS */
1109             PRINT (_("EOS received - stopping pipeline...\n"));
1110             break;
1111           } else if (caught_error == ELR_INTERRUPT) {
1112             PRINT (_
1113                 ("Interrupt while waiting for EOS - stopping pipeline...\n"));
1114             res = caught_error;
1115             break;
1116           } else if (caught_error == ELR_ERROR) {
1117             if (!ignore_errors) {
1118               PRINT (_("An error happened while waiting for EOS\n"));
1119               res = caught_error;
1120               break;
1121             }
1122           }
1123         }
1124       }
1125       tfnow = gst_util_get_timestamp ();
1126
1127       diff = GST_CLOCK_DIFF (tfthen, tfnow);
1128
1129       PRINT (_("Execution ended after %" GST_TIME_FORMAT "\n"),
1130           GST_TIME_ARGS (diff));
1131     }
1132
1133     PRINT (_("Setting pipeline to PAUSED ...\n"));
1134     gst_element_set_state (pipeline, GST_STATE_PAUSED);
1135     if (caught_error == ELR_NO_ERROR)
1136       gst_element_get_state (pipeline, &state, &pending, GST_CLOCK_TIME_NONE);
1137
1138     /* iterate mainloop to process pending stuff */
1139     while (g_main_context_iteration (NULL, FALSE));
1140
1141     /* No need to see all those pad caps going to NULL etc., it's just noise */
1142     if (deep_notify_id != 0)
1143       g_signal_handler_disconnect (pipeline, deep_notify_id);
1144
1145     PRINT (_("Setting pipeline to READY ...\n"));
1146     gst_element_set_state (pipeline, GST_STATE_READY);
1147     gst_element_get_state (pipeline, &state, &pending, GST_CLOCK_TIME_NONE);
1148
1149 #if 0
1150     if (check_index) {
1151       print_index_stats (index_stats);
1152       g_ptr_array_free (index_stats, TRUE);
1153     }
1154 #endif
1155
1156   end:
1157     PRINT (_("Setting pipeline to NULL ...\n"));
1158     gst_element_set_state (pipeline, GST_STATE_NULL);
1159   }
1160
1161   PRINT (_("Freeing pipeline ...\n"));
1162   gst_object_unref (pipeline);
1163
1164   gst_deinit ();
1165
1166   return res;
1167 }