tools/gst-inspect.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-inspect.c: tool to inspect the GStreamer registry
   7  *
   8  * This library is free software; you can redistribute it and/or
   9  * modify it under the terms of the GNU Library General Public
  10  * License as published by the Free Software Foundation; either
  11  * version 2 of the License, or (at your option) any later version.
  12  *
  13  * This library is distributed in the hope that it will be useful,
  14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  16  * Library General Public License for more details.
  17  *
  18  * You should have received a copy of the GNU Library General Public
  19  * License along with this library; if not, write to the
  20  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  21  * Boston, MA 02111-1307, USA.
  22  */
  23
  24 #ifdef HAVE_CONFIG_H
  25 #  include "config.h"
  26 #endif
  27
  28 #include <gst/controller/gstcontroller.h>
  29
  30 #include "tools.h"
  31
  32 #include <string.h>
  33 #include <locale.h>
  34 #include <libintl.h>
  35 #include <glib/gprintf.h>
  36
  37 static char *_name;
  38
  39 static int print_element_info (GstElementFactory * factory,
  40     gboolean print_names);
  41
  42 void
  43 n_print (const char *format, ...)
  44 {
  45   va_list args;
  46   gint retval;
  47
  48   if (_name)
  49     g_print (_name);
  50
  51   va_start (args, format);
  52   retval = g_vprintf (format, args);
  53   va_end (args);
  54 }
  55
  56 static gboolean
  57 print_field (GQuark field, const GValue * value, gpointer pfx)
  58 {
  59   gchar *str = gst_value_serialize (value);
  60
  61   n_print ("%s  %15s: %s\n", (gchar *) pfx, g_quark_to_string (field), str);
  62   g_free (str);
  63   return TRUE;
  64 }
  65
  66 static void
  67 print_caps (const GstCaps * caps, const gchar * pfx)
  68 {
  69   guint i;
  70
  71   g_return_if_fail (caps != NULL);
  72
  73   if (gst_caps_is_any (caps)) {
  74     n_print ("%sANY\n", pfx);
  75     return;
  76   }
  77   if (gst_caps_is_empty (caps)) {
  78     n_print ("%sEMPTY\n", pfx);
  79     return;
  80   }
  81
  82   for (i = 0; i < gst_caps_get_size (caps); i++) {
  83     GstStructure *structure = gst_caps_get_structure (caps, i);
  84
  85     n_print ("%s%s\n", pfx, gst_structure_get_name (structure));
  86     gst_structure_foreach (structure, print_field, (gpointer) pfx);
  87   }
  88 }
  89
  90 #if 0
  91 static void
  92 print_formats (const GstFormat * formats)
  93 {
  94   while (formats && *formats) {
  95     const GstFormatDefinition *definition;
  96
  97     definition = gst_format_get_details (*formats);
  98     if (definition)
  99       n_print ("\t\t(%d):\t%s (%s)\n", *formats,
 100           definition->nick, definition->description);
 101     else
 102       n_print ("\t\t(%d):\tUnknown format\n", *formats);
 103
 104     formats++;
 105   }
 106 }
 107 #endif
 108
 109 static void
 110 print_query_types (const GstQueryType * types)
 111 {
 112   while (types && *types) {
 113     const GstQueryTypeDefinition *definition;
 114
 115     definition = gst_query_type_get_details (*types);
 116     if (definition)
 117       n_print ("\t\t(%d):\t%s (%s)\n", *types,
 118           definition->nick, definition->description);
 119     else
 120       n_print ("\t\t(%d):\tUnknown query format\n", *types);
 121
 122     types++;
 123   }
 124 }
 125
 126 #ifndef GST_DISABLE_ENUMTYPES
 127 #if 0
 128 static void
 129 print_event_masks (const GstEventMask * masks)
 130 {
 131   GType event_type;
 132   GEnumClass *klass;
 133   GType event_flags;
 134   GFlagsClass *flags_class = NULL;
 135
 136   event_type = gst_event_type_get_type ();
 137   klass = (GEnumClass *) g_type_class_ref (event_type);
 138
 139   while (masks && masks->type) {
 140     GEnumValue *value;
 141     gint flags = 0, index = 0;
 142
 143     switch (masks->type) {
 144       case GST_EVENT_SEEK:
 145         flags = masks->flags;
 146         event_flags = gst_seek_type_get_type ();
 147         flags_class = (GFlagsClass *) g_type_class_ref (event_flags);
 148         break;
 149       default:
 150         break;
 151     }
 152
 153     value = g_enum_get_value (klass, masks->type);
 154     g_print ("\t\t%s ", value->value_nick);
 155
 156     while (flags) {
 157       GFlagsValue *value;
 158
 159       if (flags & 1) {
 160         value = g_flags_get_first_value (flags_class, 1 << index);
 161
 162         if (value)
 163           g_print ("| %s ", value->value_nick);
 164         else
 165           g_print ("| ? ");
 166       }
 167       flags >>= 1;
 168       index++;
 169     }
 170     g_print ("\n");
 171
 172     masks++;
 173   }
 174 }
 175 #endif
 176 #else
 177 static void
 178 print_event_masks (const GstEventMask * masks)
 179 {
 180 }
 181 #endif
 182
 183 static char *
 184 get_rank_name (gint rank)
 185 {
 186   switch (rank) {
 187     case GST_RANK_NONE:
 188       return "none";
 189     case GST_RANK_MARGINAL:
 190       return "marginal";
 191     case GST_RANK_SECONDARY:
 192       return "secondary";
 193     case GST_RANK_PRIMARY:
 194       return "primary";
 195     default:
 196       return "unknown";
 197   }
 198 }
 199
 200 static void
 201 print_factory_details_info (GstElementFactory * factory)
 202 {
 203   n_print ("Factory Details:\n");
 204   n_print ("  Long name:\t%s\n", factory->details.longname);
 205   n_print ("  Class:\t%s\n", factory->details.klass);
 206   n_print ("  Description:\t%s\n", factory->details.description);
 207   n_print ("  Author(s):\t%s\n", factory->details.author);
 208   n_print ("  Rank:\t\t%s (%d)\n",
 209       get_rank_name (GST_PLUGIN_FEATURE (factory)->rank),
 210       GST_PLUGIN_FEATURE (factory)->rank);
 211   n_print ("\n");
 212 }
 213
 214 static void
 215 print_hierarchy (GType type, gint level, gint * maxlevel)
 216 {
 217   GType parent;
 218   gint i;
 219
 220   parent = g_type_parent (type);
 221
 222   *maxlevel = *maxlevel + 1;
 223   level++;
 224
 225   if (parent)
 226     print_hierarchy (parent, level, maxlevel);
 227
 228   if (_name)
 229     g_print (_name);
 230
 231   for (i = 1; i < *maxlevel - level; i++)
 232     g_print ("      ");
 233   if (*maxlevel - level)
 234     g_print (" +----");
 235
 236   g_print ("%s\n", g_type_name (type));
 237
 238   if (level == 1)
 239     n_print ("\n");
 240 }
 241
 242 static void
 243 print_interfaces (GType type)
 244 {
 245   guint n_ifaces;
 246   GType *iface, *ifaces = g_type_interfaces (type, &n_ifaces);
 247
 248   if (ifaces) {
 249     if (n_ifaces) {
 250       g_print ("%s", _name);
 251       g_print (_("Implemented Interfaces:\n"));
 252       iface = ifaces;
 253       while (*iface) {
 254         g_print ("%s  %s\n", _name, g_type_name (*iface));
 255         iface++;
 256       }
 257       g_print ("%s\n", _name);
 258       g_free (ifaces);
 259     }
 260   }
 261 }
 262
 263 static void
 264 print_element_properties_info (GstElement * element)
 265 {
 266   GParamSpec **property_specs;
 267   guint num_properties, i;
 268   gboolean readable;
 269   gboolean first_flag;
 270
 271   property_specs = g_object_class_list_properties
 272       (G_OBJECT_GET_CLASS (element), &num_properties);
 273   n_print ("\n");
 274   n_print ("Element Properties:\n");
 275
 276   for (i = 0; i < num_properties; i++) {
 277     GValue value = { 0, };
 278     GParamSpec *param = property_specs[i];
 279
 280     readable = FALSE;
 281
 282     g_value_init (&value, param->value_type);
 283
 284     n_print ("  %-20s: %s\n", g_param_spec_get_name (param),
 285         g_param_spec_get_blurb (param));
 286
 287     first_flag = TRUE;
 288     n_print ("%-23.23s flags: ", "");
 289     if (param->flags & G_PARAM_READABLE) {
 290       g_object_get_property (G_OBJECT (element), param->name, &value);
 291       readable = TRUE;
 292       g_print ((first_flag ? "" : ", "));
 293       g_print (_("readable"));
 294       first_flag = FALSE;
 295     }
 296     if (param->flags & G_PARAM_WRITABLE) {
 297       g_print ((first_flag ? "" : ", "));
 298       g_print (_("writable"));
 299       first_flag = FALSE;
 300     }
 301     if (param->flags & GST_PARAM_CONTROLLABLE) {
 302       g_print ((first_flag ? "" : ", "));
 303       g_print (_("controllable"));
 304       first_flag = FALSE;
 305     }
 306     n_print ("\n");
 307
 308     switch (G_VALUE_TYPE (&value)) {
 309       case G_TYPE_STRING:
 310       {
 311         GParamSpecString *pstring = G_PARAM_SPEC_STRING (param);
 312
 313         n_print ("%-23.23s String. ", "");
 314
 315         if (pstring->default_value == NULL)
 316           g_print ("Default: null ");
 317         else
 318           g_print ("Default: \"%s\" ", pstring->default_value);
 319
 320         if (readable) {
 321           const char *string_val = g_value_get_string (&value);
 322
 323           if (string_val == NULL)
 324             g_print ("Current: null");
 325           else
 326             g_print ("Current: \"%s\"", string_val);
 327         }
 328         break;
 329       }
 330       case G_TYPE_BOOLEAN:
 331       {
 332         GParamSpecBoolean *pboolean = G_PARAM_SPEC_BOOLEAN (param);
 333
 334         n_print ("%-23.23s Boolean. ", "");
 335         g_print ("Default: %s ", (pboolean->default_value ? "true" : "false"));
 336         if (readable)
 337           g_print ("Current: %s",
 338               (g_value_get_boolean (&value) ? "true" : "false"));
 339         break;
 340       }
 341       case G_TYPE_ULONG:
 342       {
 343         GParamSpecULong *pulong = G_PARAM_SPEC_ULONG (param);
 344
 345         n_print ("%-23.23s Unsigned Long. ", "");
 346         g_print ("Range: %lu - %lu Default: %lu ",
 347             pulong->minimum, pulong->maximum, pulong->default_value);
 348         if (readable)
 349           g_print ("Current: %lu", g_value_get_ulong (&value));
 350         break;
 351       }
 352       case G_TYPE_LONG:
 353       {
 354         GParamSpecLong *plong = G_PARAM_SPEC_LONG (param);
 355
 356         n_print ("%-23.23s Long. ", "");
 357         g_print ("Range: %ld - %ld Default: %ld ",
 358             plong->minimum, plong->maximum, plong->default_value);
 359         if (readable)
 360           g_print ("Current: %ld", g_value_get_long (&value));
 361         break;
 362       }
 363       case G_TYPE_UINT:
 364       {
 365         GParamSpecUInt *puint = G_PARAM_SPEC_UINT (param);
 366
 367         n_print ("%-23.23s Unsigned Integer. ", "");
 368         g_print ("Range: %u - %u Default: %u ",
 369             puint->minimum, puint->maximum, puint->default_value);
 370         if (readable)
 371           g_print ("Current: %u", g_value_get_uint (&value));
 372         break;
 373       }
 374       case G_TYPE_INT:
 375       {
 376         GParamSpecInt *pint = G_PARAM_SPEC_INT (param);
 377
 378         n_print ("%-23.23s Integer. ", "");
 379         g_print ("Range: %d - %d Default: %d ",
 380             pint->minimum, pint->maximum, pint->default_value);
 381         if (readable)
 382           g_print ("Current: %d", g_value_get_int (&value));
 383         break;
 384       }
 385       case G_TYPE_UINT64:
 386       {
 387         GParamSpecUInt64 *puint64 = G_PARAM_SPEC_UINT64 (param);
 388
 389         n_print ("%-23.23s Unsigned Integer64. ", "");
 390         g_print ("Range: %" G_GUINT64_FORMAT " - %" G_GUINT64_FORMAT
 391             " Default: %" G_GUINT64_FORMAT " ",
 392             puint64->minimum, puint64->maximum, puint64->default_value);
 393         if (readable)
 394           g_print ("Current: %" G_GUINT64_FORMAT, g_value_get_uint64 (&value));
 395         break;
 396       }
 397       case G_TYPE_INT64:
 398       {
 399         GParamSpecInt64 *pint64 = G_PARAM_SPEC_INT64 (param);
 400
 401         n_print ("%-23.23s Integer64. ", "");
 402         g_print ("Range: %" G_GINT64_FORMAT " - %" G_GINT64_FORMAT
 403             " Default: %" G_GINT64_FORMAT " ",
 404             pint64->minimum, pint64->maximum, pint64->default_value);
 405         if (readable)
 406           g_print ("Current: %" G_GINT64_FORMAT, g_value_get_int64 (&value));
 407         break;
 408       }
 409       case G_TYPE_FLOAT:
 410       {
 411         GParamSpecFloat *pfloat = G_PARAM_SPEC_FLOAT (param);
 412
 413         n_print ("%-23.23s Float. ", "");
 414         g_print ("Range: %15.7g - %15.7g Default: %15.7g ",
 415             pfloat->minimum, pfloat->maximum, pfloat->default_value);
 416         if (readable)
 417           g_print ("Current: %15.7g", g_value_get_float (&value));
 418         break;
 419       }
 420       case G_TYPE_DOUBLE:
 421       {
 422         GParamSpecDouble *pdouble = G_PARAM_SPEC_DOUBLE (param);
 423
 424         n_print ("%-23.23s Double. ", "");
 425         g_print ("Range: %15.7g - %15.7g Default: %15.7g ",
 426             pdouble->minimum, pdouble->maximum, pdouble->default_value);
 427         if (readable)
 428           g_print ("Current: %15.7g", g_value_get_double (&value));
 429         break;
 430       }
 431       default:
 432         if (param->value_type == GST_TYPE_CAPS) {
 433           const GstCaps *caps = gst_value_get_caps (&value);
 434
 435           if (!caps)
 436             n_print ("%-23.23s Caps (NULL)", "");
 437           else {
 438             print_caps (caps, "                           ");
 439           }
 440         } else if (G_IS_PARAM_SPEC_ENUM (param)) {
 441           GEnumValue *values;
 442           guint j = 0;
 443           gint enum_value;
 444
 445           values = G_ENUM_CLASS (g_type_class_ref (param->value_type))->values;
 446           enum_value = g_value_get_enum (&value);
 447
 448           while (values[j].value_name) {
 449             if (values[j].value == enum_value)
 450               break;
 451             j++;
 452           }
 453
 454           n_print ("%-23.23s Enum \"%s\" Current: %d, \"%s\"", "",
 455               g_type_name (G_VALUE_TYPE (&value)),
 456               enum_value, values[j].value_nick);
 457
 458           j = 0;
 459           while (values[j].value_name) {
 460             g_print ("\n%s%-23.23s    %d) %-16s - %s", "",
 461                 _name, values[j].value, values[j].value_nick,
 462                 values[j].value_name);
 463             j++;
 464           }
 465           /* g_type_class_unref (ec); */
 466         } else if (G_IS_PARAM_SPEC_FLAGS (param)) {
 467           GFlagsValue *values;
 468           guint j = 0;
 469           gint flags_value;
 470           GString *flags = NULL;
 471
 472           values = G_FLAGS_CLASS (g_type_class_ref (param->value_type))->values;
 473           flags_value = g_value_get_flags (&value);
 474
 475           while (values[j].value_name) {
 476             if (values[j].value & flags_value) {
 477               if (flags) {
 478                 g_string_append_printf (flags, " | %s", values[j].value_nick);
 479               } else {
 480                 flags = g_string_new (values[j].value_nick);
 481               }
 482             }
 483             j++;
 484           }
 485
 486           n_print ("%-23.23s Flags \"%s\" Current: %d, \"%s\"", "",
 487               g_type_name (G_VALUE_TYPE (&value)),
 488               flags_value, (flags ? flags->str : "(none)"));
 489
 490           j = 0;
 491           while (values[j].value_name) {
 492             g_print ("\n%s%-23.23s    (%d): \t%s", "",
 493                 _name, values[j].value, values[j].value_nick);
 494             j++;
 495           }
 496
 497           if (flags)
 498             g_string_free (flags, TRUE);
 499         } else if (G_IS_PARAM_SPEC_OBJECT (param)) {
 500           n_print ("%-23.23s Object of type \"%s\"", "",
 501               g_type_name (param->value_type));
 502         } else if (G_IS_PARAM_SPEC_BOXED (param)) {
 503           n_print ("%-23.23s Boxed pointer of type \"%s\"", "",
 504               g_type_name (param->value_type));
 505         } else if (G_IS_PARAM_SPEC_POINTER (param)) {
 506           if (param->value_type != G_TYPE_POINTER) {
 507             n_print ("%-23.23s Pointer of type \"%s\".", "",
 508                 g_type_name (param->value_type));
 509           } else {
 510             n_print ("%-23.23s Pointer.", "");
 511           }
 512         } else {
 513           n_print ("%-23.23s Unknown type %ld \"%s\"", "", param->value_type,
 514               g_type_name (param->value_type));
 515         }
 516         break;
 517     }
 518     if (!readable)
 519       g_print (" Write only\n");
 520     else
 521       g_print ("\n");
 522   }
 523   if (num_properties == 0)
 524     n_print ("  none\n");
 525
 526   g_free (property_specs);
 527 }
 528
 529 static void
 530 print_pad_templates_info (GstElement * element, GstElementFactory * factory)
 531 {
 532   GstElementClass *gstelement_class;
 533   const GList *pads;
 534   GstStaticPadTemplate *padtemplate;
 535
 536   n_print ("Pad Templates:\n");
 537   if (!factory->numpadtemplates) {
 538     n_print ("  none\n");
 539     return;
 540   }
 541
 542   gstelement_class = GST_ELEMENT_CLASS (G_OBJECT_GET_CLASS (element));
 543
 544   pads = factory->staticpadtemplates;
 545   while (pads) {
 546     padtemplate = (GstStaticPadTemplate *) (pads->data);
 547     pads = g_list_next (pads);
 548
 549     if (padtemplate->direction == GST_PAD_SRC)
 550       n_print ("  SRC template: '%s'\n", padtemplate->name_template);
 551     else if (padtemplate->direction == GST_PAD_SINK)
 552       n_print ("  SINK template: '%s'\n", padtemplate->name_template);
 553     else
 554       n_print ("  UNKNOWN!!! template: '%s'\n", padtemplate->name_template);
 555
 556     if (padtemplate->presence == GST_PAD_ALWAYS)
 557       n_print ("    Availability: Always\n");
 558     else if (padtemplate->presence == GST_PAD_SOMETIMES)
 559       n_print ("    Availability: Sometimes\n");
 560     else if (padtemplate->presence == GST_PAD_REQUEST) {
 561       n_print ("    Availability: On request\n");
 562       n_print ("      Has request_new_pad() function: %s\n",
 563           GST_DEBUG_FUNCPTR_NAME (gstelement_class->request_new_pad));
 564     } else
 565       n_print ("    Availability: UNKNOWN!!!\n");
 566
 567     if (padtemplate->static_caps.string) {
 568       n_print ("    Capabilities:\n");
 569       print_caps (gst_static_caps_get (&padtemplate->static_caps), "      ");
 570     }
 571
 572     n_print ("\n");
 573   }
 574 }
 575
 576 static void
 577 print_element_flag_info (GstElement * element)
 578 {
 579   gboolean have_flags = FALSE;
 580
 581   n_print ("\n");
 582   n_print ("Element Flags:\n");
 583
 584   if (!have_flags)
 585     n_print ("  no flags set\n");
 586
 587   if (GST_IS_BIN (element)) {
 588     n_print ("\n");
 589     n_print ("Bin Flags:\n");
 590     if (!have_flags)
 591       n_print ("  no flags set\n");
 592   }
 593 }
 594
 595 static void
 596 print_implementation_info (GstElement * element)
 597 {
 598   GstObjectClass *gstobject_class;
 599   GstElementClass *gstelement_class;
 600
 601   gstobject_class = GST_OBJECT_CLASS (G_OBJECT_GET_CLASS (element));
 602   gstelement_class = GST_ELEMENT_CLASS (G_OBJECT_GET_CLASS (element));
 603
 604   n_print ("\n");
 605   n_print ("Element Implementation:\n");
 606
 607   n_print ("  No loopfunc(), must be chain-based or not configured yet\n");
 608
 609   n_print ("  Has change_state() function: %s\n",
 610       GST_DEBUG_FUNCPTR_NAME (gstelement_class->change_state));
 611 #ifndef GST_DISABLE_LOADSAVE
 612   n_print ("  Has custom save_thyself() function: %s\n",
 613       GST_DEBUG_FUNCPTR_NAME (gstobject_class->save_thyself));
 614   n_print ("  Has custom restore_thyself() function: %s\n",
 615       GST_DEBUG_FUNCPTR_NAME (gstobject_class->restore_thyself));
 616 #endif
 617 }
 618
 619 static void
 620 print_clocking_info (GstElement * element)
 621 {
 622   if (!gst_element_requires_clock (element) &&
 623       !(gst_element_provides_clock (element) &&
 624           gst_element_get_clock (element))) {
 625     n_print ("\n");
 626     n_print ("Element has no clocking capabilities.");
 627     return;
 628   }
 629
 630   n_print ("\n");
 631   n_print ("Clocking Interaction:\n");
 632   if (gst_element_requires_clock (element)) {
 633     n_print ("  element requires a clock\n");
 634   }
 635
 636   if (gst_element_provides_clock (element)) {
 637     GstClock *clock;
 638
 639     clock = gst_element_get_clock (element);
 640     if (clock)
 641       n_print ("  element provides a clock: %s\n", GST_OBJECT_NAME (clock));
 642     else
 643       n_print ("  element is supposed to provide a clock but returned NULL\n");
 644   }
 645 }
 646
 647 #ifndef GST_DISABLE_INDEX
 648 static void
 649 print_index_info (GstElement * element)
 650 {
 651   if (gst_element_is_indexable (element)) {
 652     n_print ("\n");
 653     n_print ("Indexing capabilities:\n");
 654     n_print ("  element can do indexing\n");
 655   } else {
 656     n_print ("\n");
 657     n_print ("Element has no indexing capabilities.\n");
 658   }
 659 }
 660 #else
 661 static void
 662 print_index_info (GstElement * element)
 663 {
 664 }
 665 #endif
 666
 667 static void
 668 print_pad_info (GstElement * element)
 669 {
 670   const GList *pads;
 671   GstPad *pad;
 672
 673   n_print ("\n");
 674   n_print ("Pads:\n");
 675
 676   if (!element->numpads) {
 677     n_print ("  none\n");
 678     return;
 679   }
 680
 681   pads = element->pads;
 682   while (pads) {
 683     pad = GST_PAD (pads->data);
 684     pads = g_list_next (pads);
 685
 686     n_print ("");
 687
 688     if (gst_pad_get_direction (pad) == GST_PAD_SRC)
 689       g_print ("  SRC: '%s'", gst_pad_get_name (pad));
 690     else if (gst_pad_get_direction (pad) == GST_PAD_SINK)
 691       g_print ("  SINK: '%s'", gst_pad_get_name (pad));
 692     else
 693       g_print ("  UNKNOWN!!!: '%s'", gst_pad_get_name (pad));
 694
 695     g_print ("\n");
 696
 697     n_print ("    Implementation:\n");
 698     if (pad->chainfunc)
 699       n_print ("      Has chainfunc(): %s\n",
 700           GST_DEBUG_FUNCPTR_NAME (pad->chainfunc));
 701     if (pad->getrangefunc)
 702       n_print ("      Has getrangefunc(): %s\n",
 703           GST_DEBUG_FUNCPTR_NAME (pad->getrangefunc));
 704     if (pad->eventfunc != gst_pad_event_default)
 705       n_print ("      Has custom eventfunc(): %s\n",
 706           GST_DEBUG_FUNCPTR_NAME (pad->eventfunc));
 707     if (pad->queryfunc != gst_pad_query_default)
 708       n_print ("      Has custom queryfunc(): %s\n",
 709           GST_DEBUG_FUNCPTR_NAME (pad->queryfunc));
 710     if (pad->querytypefunc != gst_pad_get_query_types_default) {
 711       n_print ("        Provides query types:\n");
 712       print_query_types (gst_pad_get_query_types (pad));
 713     }
 714
 715     if (pad->intlinkfunc != gst_pad_get_internal_links_default)
 716       n_print ("      Has custom intconnfunc(): %s\n",
 717           GST_DEBUG_FUNCPTR_NAME (pad->intlinkfunc));
 718
 719     if (pad->bufferallocfunc)
 720       n_print ("      Has bufferallocfunc(): %s\n",
 721           GST_DEBUG_FUNCPTR_NAME (pad->bufferallocfunc));
 722
 723     if (pad->padtemplate)
 724       n_print ("    Pad Template: '%s'\n", pad->padtemplate->name_template);
 725
 726     if (pad->caps) {
 727       n_print ("    Capabilities:\n");
 728       print_caps (pad->caps, "      ");
 729     }
 730   }
 731 }
 732
 733 #if 0
 734 static gint
 735 compare_signal_names (GSignalQuery * a, GSignalQuery * b)
 736 {
 737   return strcmp (a->signal_name, b->signal_name);
 738 }
 739 #endif
 740
 741 static void
 742 print_signal_info (GstElement * element)
 743 {
 744   /* Signals/Actions Block */
 745   guint *signals;
 746   guint nsignals;
 747   gint i = 0, j, k;
 748   GSignalQuery *query = NULL;
 749   GType type;
 750   GSList *found_signals, *l;
 751
 752   for (k = 0; k < 2; k++) {
 753     found_signals = NULL;
 754     for (type = G_OBJECT_TYPE (element); type; type = g_type_parent (type)) {
 755       if (type == GST_TYPE_ELEMENT || type == GST_TYPE_OBJECT)
 756         break;
 757
 758       if (type == GST_TYPE_BIN && G_OBJECT_TYPE (element) != GST_TYPE_BIN)
 759         continue;
 760
 761       signals = g_signal_list_ids (type, &nsignals);
 762       for (i = 0; i < nsignals; i++) {
 763         query = g_new0 (GSignalQuery, 1);
 764         g_signal_query (signals[i], query);
 765
 766         if ((k == 0 && !(query->signal_flags & G_SIGNAL_ACTION)) ||
 767             (k == 1 && (query->signal_flags & G_SIGNAL_ACTION)))
 768           found_signals = g_slist_append (found_signals, query);
 769       }
 770     }
 771
 772     if (found_signals) {
 773       n_print ("\n");
 774       if (k == 0)
 775         n_print ("Element Signals:\n");
 776       else
 777         n_print ("Element Actions:\n");
 778     } else {
 779       continue;
 780     }
 781
 782     for (l = found_signals; l; l = l->next) {
 783       gchar *indent;
 784       int indent_len;
 785
 786       query = (GSignalQuery *) l->data;
 787       indent_len = strlen (query->signal_name) +
 788           strlen (g_type_name (query->return_type)) + 24;
 789
 790       indent = g_new0 (gchar, indent_len + 1);
 791       memset (indent, ' ', indent_len);
 792
 793       n_print ("  \"%s\" :  %s user_function (%s* object",
 794           query->signal_name,
 795           g_type_name (query->return_type), g_type_name (type));
 796
 797       for (j = 0; j < query->n_params; j++) {
 798         if (G_TYPE_IS_FUNDAMENTAL (query->param_types[j])) {
 799           g_print (",\n%s%s%s arg%d", _name, indent,
 800               g_type_name (query->param_types[j]), j);
 801         } else if (G_TYPE_IS_ENUM (query->param_types[j])) {
 802           g_print (",\n%s%s%s arg%d", _name, indent,
 803               g_type_name (query->param_types[j]), j);
 804         } else {
 805           g_print (",\n%s%s%s* arg%d", _name, indent,
 806               g_type_name (query->param_types[j]), j);
 807         }
 808       }
 809
 810       if (k == 0)
 811         g_print (",\n%s%sgpointer user_data);\n", _name, indent);
 812       else
 813         g_print (");\n");
 814
 815       g_free (indent);
 816     }
 817
 818     if (found_signals) {
 819       g_slist_foreach (found_signals, (GFunc) g_free, NULL);
 820       g_slist_free (found_signals);
 821     }
 822   }
 823 }
 824
 825 static void
 826 print_children_info (GstElement * element)
 827 {
 828   GList *children;
 829
 830   if (!GST_IS_BIN (element))
 831     return;
 832
 833   children = (GList *) GST_BIN (element)->children;
 834   if (children) {
 835     n_print ("\n");
 836     g_print ("Children:\n");
 837   }
 838
 839   while (children) {
 840     n_print ("  %s\n", GST_ELEMENT_NAME (GST_ELEMENT (children->data)));
 841     children = g_list_next (children);
 842   }
 843 }
 844
 845 static void
 846 print_element_list (gboolean print_all)
 847 {
 848   int plugincount = 0, featurecount = 0;
 849   GList *plugins, *orig_plugins;
 850
 851   orig_plugins = plugins = gst_default_registry_get_plugin_list ();
 852   while (plugins) {
 853     GList *features, *orig_features;
 854     GstPlugin *plugin;
 855
 856     plugin = (GstPlugin *) (plugins->data);
 857     plugins = g_list_next (plugins);
 858     plugincount++;
 859
 860     orig_features = features =
 861         gst_registry_get_feature_list_by_plugin (gst_registry_get_default (),
 862         plugin->desc.name);
 863     while (features) {
 864       GstPluginFeature *feature;
 865
 866       feature = GST_PLUGIN_FEATURE (features->data);
 867       featurecount++;
 868
 869       if (GST_IS_ELEMENT_FACTORY (feature)) {
 870         GstElementFactory *factory;
 871
 872         factory = GST_ELEMENT_FACTORY (feature);
 873         if (print_all)
 874           print_element_info (factory, TRUE);
 875         else
 876           g_print ("%s:  %s: %s\n", plugin->desc.name,
 877               GST_PLUGIN_FEATURE_NAME (factory), factory->details.longname);
 878       }
 879 #ifndef GST_DISABLE_INDEX
 880       else if (GST_IS_INDEX_FACTORY (feature)) {
 881         GstIndexFactory *factory;
 882
 883         factory = GST_INDEX_FACTORY (feature);
 884         if (!print_all)
 885           g_print ("%s:  %s: %s\n", plugin->desc.name,
 886               GST_PLUGIN_FEATURE_NAME (factory), factory->longdesc);
 887       }
 888 #endif
 889       else if (GST_IS_TYPE_FIND_FACTORY (feature)) {
 890         GstTypeFindFactory *factory;
 891
 892         factory = GST_TYPE_FIND_FACTORY (feature);
 893         if (!print_all)
 894           g_print ("%s: %s: ", plugin->desc.name,
 895               gst_plugin_feature_get_name (feature));
 896         if (factory->extensions) {
 897           guint i = 0;
 898
 899           while (factory->extensions[i]) {
 900             if (!print_all)
 901               g_print ("%s%s", i > 0 ? ", " : "", factory->extensions[i]);
 902             i++;
 903           }
 904           if (!print_all)
 905             g_print ("\n");
 906         } else {
 907           if (!print_all)
 908             g_print ("no extensions\n");
 909         }
 910       } else {
 911         if (!print_all)
 912           n_print ("%s:  %s (%s)\n", plugin->desc.name,
 913               GST_PLUGIN_FEATURE_NAME (feature),
 914               g_type_name (G_OBJECT_TYPE (feature)));
 915       }
 916
 917       features = g_list_next (features);
 918     }
 919
 920     gst_plugin_feature_list_free (orig_features);
 921   }
 922
 923   gst_plugin_list_free (orig_plugins);
 924
 925   g_print ("\n");
 926   g_print (_("Total count: "));
 927   g_print (ngettext ("%d plugin", "%d plugins", plugincount), plugincount);
 928   g_print (", ");
 929   g_print (ngettext ("%d feature", "%d features", featurecount), featurecount);
 930   g_print ("\n");
 931 }
 932
 933 static void
 934 print_plugin_info (GstPlugin * plugin)
 935 {
 936   n_print ("Plugin Details:\n");
 937   n_print ("  Name:\t\t\t%s\n", plugin->desc.name);
 938   n_print ("  Description:\t\t%s\n", plugin->desc.description);
 939   n_print ("  Filename:\t\t%s\n",
 940       plugin->filename ? plugin->filename : "(null)");
 941   n_print ("  Version:\t\t%s\n", plugin->desc.version);
 942   n_print ("  License:\t\t%s\n", plugin->desc.license);
 943   n_print ("  Source module:\t%s\n", plugin->desc.source);
 944   n_print ("  Binary package:\t%s\n", plugin->desc.package);
 945   n_print ("  Origin URL:\t\t%s\n", plugin->desc.origin);
 946   n_print ("\n");
 947 }
 948
 949 static void
 950 print_plugin_features (GstPlugin * plugin)
 951 {
 952   GList *features;
 953   gint num_features = 0;
 954   gint num_elements = 0;
 955   gint num_types = 0;
 956   gint num_indexes = 0;
 957   gint num_other = 0;
 958
 959   features =
 960       gst_registry_get_feature_list_by_plugin (gst_registry_get_default (),
 961       plugin->desc.name);
 962
 963   while (features) {
 964     GstPluginFeature *feature;
 965
 966     feature = GST_PLUGIN_FEATURE (features->data);
 967
 968     if (GST_IS_ELEMENT_FACTORY (feature)) {
 969       GstElementFactory *factory;
 970
 971       factory = GST_ELEMENT_FACTORY (feature);
 972       n_print ("  %s: %s\n", GST_PLUGIN_FEATURE_NAME (factory),
 973           factory->details.longname);
 974       num_elements++;
 975     }
 976 #ifndef GST_DISABLE_INDEX
 977     else if (GST_IS_INDEX_FACTORY (feature)) {
 978       GstIndexFactory *factory;
 979
 980       factory = GST_INDEX_FACTORY (feature);
 981       n_print ("  %s: %s\n", GST_OBJECT_NAME (factory), factory->longdesc);
 982       num_indexes++;
 983     }
 984 #endif
 985     else if (GST_IS_TYPE_FIND_FACTORY (feature)) {
 986       GstTypeFindFactory *factory;
 987
 988       factory = GST_TYPE_FIND_FACTORY (feature);
 989       if (factory->extensions) {
 990         guint i = 0;
 991
 992         g_print ("%s type: ", plugin->desc.name);
 993         while (factory->extensions[i]) {
 994           g_print ("%s%s", i > 0 ? ", " : "", factory->extensions[i]);
 995           i++;
 996         }
 997         g_print ("\n");
 998       } else
 999         g_print ("%s type: N/A\n", plugin->desc.name);
1000
1001       num_types++;
1002     } else {
1003       n_print ("  %s (%s)\n", gst_object_get_name (GST_OBJECT (feature)),
1004           g_type_name (G_OBJECT_TYPE (feature)));
1005       num_other++;
1006     }
1007     num_features++;
1008     features = g_list_next (features);
1009   }
1010   n_print ("\n");
1011   n_print ("  %d features:\n", num_features);
1012   if (num_elements > 0)
1013     n_print ("  +-- %d elements\n", num_elements);
1014   if (num_types > 0)
1015     n_print ("  +-- %d types\n", num_types);
1016   if (num_indexes > 0)
1017     n_print ("  +-- %d indexes\n", num_indexes);
1018   if (num_other > 0)
1019     n_print ("  +-- %d other objects\n", num_other);
1020
1021   n_print ("\n");
1022 }
1023
1024 static int
1025 print_element_features (const gchar * element_name)
1026 {
1027   GstPluginFeature *feature;
1028
1029   /* FIXME implement other pretty print function for these */
1030 #ifndef GST_DISABLE_INDEX
1031   feature = gst_default_registry_find_feature (element_name,
1032       GST_TYPE_INDEX_FACTORY);
1033   if (feature) {
1034     n_print ("%s: an index\n", element_name);
1035     return 0;
1036   }
1037 #endif
1038   feature = gst_default_registry_find_feature (element_name,
1039       GST_TYPE_TYPE_FIND_FACTORY);
1040   if (feature) {
1041     n_print ("%s: a typefind function\n", element_name);
1042     return 0;
1043   }
1044
1045   return -1;
1046 }
1047
1048 static int
1049 print_element_info (GstElementFactory * factory, gboolean print_names)
1050 {
1051   GstElement *element;
1052   gint maxlevel = 0;
1053
1054   factory =
1055       GST_ELEMENT_FACTORY (gst_plugin_feature_load (GST_PLUGIN_FEATURE
1056           (factory)));
1057
1058   if (!factory) {
1059     g_print ("element plugin couldn't be loaded\n");
1060     return -1;
1061   }
1062
1063   element = gst_element_factory_create (factory, NULL);
1064   if (!element) {
1065     g_print ("couldn't construct element for some reason\n");
1066     return -1;
1067   }
1068
1069   if (print_names)
1070     _name = g_strdup_printf ("%s: ", GST_PLUGIN_FEATURE (factory)->name);
1071   else
1072     _name = "";
1073
1074   print_factory_details_info (factory);
1075   if (GST_PLUGIN_FEATURE (factory)->plugin_name) {
1076     GstPlugin *plugin;
1077
1078     plugin = gst_registry_find_plugin (gst_registry_get_default (),
1079         GST_PLUGIN_FEATURE (factory)->plugin_name);
1080     if (plugin) {
1081       print_plugin_info (plugin);
1082     }
1083   }
1084
1085   print_hierarchy (G_OBJECT_TYPE (element), 0, &maxlevel);
1086   print_interfaces (G_OBJECT_TYPE (element));
1087
1088   print_pad_templates_info (element, factory);
1089   print_element_flag_info (element);
1090   print_implementation_info (element);
1091   print_clocking_info (element);
1092   print_index_info (element);
1093   print_pad_info (element);
1094   print_element_properties_info (element);
1095   print_signal_info (element);
1096   print_children_info (element);
1097
1098   if (_name[0] != '\0')
1099     g_free (_name);
1100
1101   return 0;
1102 }
1103
1104 int
1105 main (int argc, char *argv[])
1106 {
1107   gboolean print_all = FALSE;
1108   GOptionEntry options[] = {
1109     {"print-all", 'a', 0, G_OPTION_ARG_NONE, &print_all,
1110         N_("Print all elements"), NULL},
1111     GST_TOOLS_GOPTION_VERSION,
1112     {NULL}
1113   };
1114   GOptionContext *ctx;
1115   GError *err = NULL;
1116
1117 #ifdef ENABLE_NLS
1118   bindtextdomain (GETTEXT_PACKAGE, LOCALEDIR);
1119   bind_textdomain_codeset (GETTEXT_PACKAGE, "UTF-8");
1120   textdomain (GETTEXT_PACKAGE);
1121 #endif
1122
1123   ctx = g_option_context_new ("[ELEMENT-NAME | PLUGIN-NAME]");
1124   g_option_context_add_main_entries (ctx, options, GETTEXT_PACKAGE);
1125   g_option_context_add_group (ctx, gst_init_get_option_group ());
1126   if (!g_option_context_parse (ctx, &argc, &argv, &err)) {
1127     g_print ("Error initializing: %s\n", err->message);
1128     exit (1);
1129   }
1130   g_option_context_free (ctx);
1131
1132   gst_tools_print_version ("gst-inspect");
1133
1134   if (print_all && argc > 2) {
1135     g_print ("-a requires no extra arguments\n");
1136     return 1;
1137   }
1138
1139   /* if no arguments, print out list of elements */
1140   if (argc == 1 || print_all) {
1141     print_element_list (print_all);
1142     /* else we try to get a factory */
1143   } else {
1144     GstElementFactory *factory;
1145     GstPlugin *plugin;
1146     const char *arg = argv[argc - 1];
1147     int retval;
1148
1149     factory = gst_element_factory_find (arg);
1150     /* if there's a factory, print out the info */
1151     if (factory) {
1152       retval = print_element_info (factory, print_all);
1153       gst_object_unref (factory);
1154     } else {
1155       retval = print_element_features (arg);
1156     }
1157
1158     /* otherwise check if it's a plugin */
1159     if (retval) {
1160       plugin = gst_default_registry_find_plugin (arg);
1161
1162       /* if there is such a plugin, print out info */
1163       if (plugin) {
1164         print_plugin_info (plugin);
1165         print_plugin_features (plugin);
1166       } else {
1167         GError *error = NULL;
1168
1169         if (g_file_test (arg, G_FILE_TEST_EXISTS)) {
1170           plugin = gst_plugin_load_file (arg, &error);
1171
1172           if (plugin) {
1173             print_plugin_info (plugin);
1174             print_plugin_features (plugin);
1175           } else {
1176             g_print (_("Could not load plugin file: %s\n"), error->message);
1177             g_error_free (error);
1178             return -1;
1179           }
1180         } else {
1181           g_print (_("No such element or plugin '%s'\n"), arg);
1182           return -1;
1183         }
1184       }
1185     }
1186   }
1187
1188   return 0;
1189 }