gst/gstparse.c

   1 /* GStreamer
   2  * Copyright (C) 1999,2000 Erik Walthinsen <omega@cse.ogi.edu>
   3  *                    2000 Wim Taymans <wtay@chello.be>
   4  *
   5  * :
   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 #define DEBUG(format,args...)
  24 #define DEBUG_NOPREFIX(format,args...)
  25 #define VERBOSE(format,args...)
  26
  27 #define GST_PARSE_LISTPAD(list)   ((GstPad*)(list->data))
  28
  29 #include <string.h>
  30
  31 #include "gst_private.h"
  32 #include "gstparse.h"
  33 #include "gstpipeline.h"
  34 #include "gstthread.h"
  35 #include "gstutils.h"
  36
  37 typedef struct _gst_parse_priv gst_parse_priv;
  38 struct _gst_parse_priv {
  39   guint bincount;
  40   guint threadcount;
  41   gint binlevel;
  42   GHashTable *elementcounts;
  43   gboolean verbose;
  44   gboolean debug;
  45 };
  46
  47 typedef struct _gst_parse_delayed_pad gst_parse_delayed_pad;
  48 struct _gst_parse_delayed_pad {
  49   gchar *name;
  50   GstPad *peer;
  51 };
  52
  53 /* FIXME need to either revive this, or have pad->padtemplate connections in core
  54 static void
  55 gst_parse_newpad(GstElement *element,GstPad *pad,launch_delayed_pad *peer)
  56 {
  57   gst_info("have NEW_PAD signal\n");
  58   // if it matches, connect it
  59   if (!strcmp(GST_PAD_NAME(pad),peer->name)) {
  60     gst_pad_connect(pad,peer->peer);
  61     gst_info("delayed connect of '%s' to '%s'\n",
  62              GST_PAD_NAME(pad),GST_PAD_NAME(peer->peer));
  63   }
  64 }
  65 */
  66
  67 typedef struct {
  68   gchar *srcpadname;
  69   GstPad *target;
  70   GstElement *pipeline;
  71 } dyn_connect;
  72
  73 static void have_eos (void)
  74 {
  75   DEBUG ("I have eos on the first element\n");
  76   exit (0);
  77 }
  78
  79 static void
  80 dynamic_connect (GstElement *element, GstPad *newpad, gpointer data)
  81 {
  82   dyn_connect *connect = (dyn_connect *)data;
  83
  84   if (!strcmp (gst_pad_get_name (newpad), connect->srcpadname)) {
  85     gst_element_set_state (connect->pipeline, GST_STATE_PAUSED);
  86     gst_pad_connect (newpad, connect->target);
  87     gst_element_set_state (connect->pipeline, GST_STATE_PLAYING);
  88   }
  89 }
  90
  91 static gchar *
  92 gst_parse_unique_name(gchar *type,gst_parse_priv *priv)
  93 {
  94   gpointer tmp;
  95   gint count;
  96
  97   tmp = g_hash_table_lookup (priv->elementcounts,type);
  98   count = GPOINTER_TO_INT (tmp);
  99   count++;
 100   g_hash_table_insert(priv->elementcounts,type,GINT_TO_POINTER(count));
 101
 102   return g_strdup_printf("%s%d",type,count-1);
 103 }
 104
 105
 106
 107 static gint
 108 gst_parse_launch_cmdline(int argc,char *argv[],GstBin *parent,gst_parse_priv *priv)
 109 {
 110   gint i = 0, j = 0;
 111   gchar *arg;
 112   GstElement *element = NULL, *previous = NULL, *prevelement = NULL;
 113   gchar closingchar = '\0';
 114   gint len;
 115   gchar *ptr;
 116   gchar *sinkpadname = NULL, *srcpadname = NULL, *tempname;
 117   GstPad *temppad;
 118   GSList *sinkpads = NULL, *srcpads = NULL;
 119   gint numsrcpads = 0, numsinkpads = 0;
 120   GList *pads;
 121   gint elementcount = 0;
 122   gint retval = 0;
 123
 124   priv->binlevel++;
 125
 126   if (GST_IS_PIPELINE(parent)) { closingchar = '\0';DEBUG("in pipeline "); }
 127   else if (GST_IS_THREAD(parent)) { closingchar = '}';DEBUG("in thread "); }
 128   else { closingchar = ')';DEBUG("in bin "); }
 129   DEBUG_NOPREFIX("%s\n",GST_ELEMENT_NAME (GST_ELEMENT (parent)));
 130
 131   while (i < argc) {
 132     arg = argv[i];
 133     // FIXME this is a lame solution for problems with the first parser
 134     if (arg == NULL) { i++;continue; }
 135     len = strlen(arg);
 136     element = NULL;
 137     DEBUG("** ARGUMENT is '%s'\n",arg);
 138
 139     // a null that slipped through the reconstruction
 140     if (len == 0) {
 141       DEBUG("random arg, FIXME\n");
 142       i++;
 143       continue;
 144
 145     // end of the container
 146     } else if (arg[0] == closingchar) {
 147       // time to finish off this bin
 148       DEBUG("exiting container %s\n",GST_ELEMENT_NAME (GST_ELEMENT (parent)));
 149       retval = i+1;
 150       break;
 151
 152     // a pad connection
 153     } else if ((ptr = strchr(arg,'!'))) {
 154       DEBUG("attempting to connect pads together....\n");
 155
 156       // if it starts with the !
 157       if (arg[0] == '!') {
 158         srcpadname = NULL;
 159         // if there's a sinkpad...
 160         if (len > 1)
 161           sinkpadname = &arg[1];
 162         else
 163           sinkpadname = NULL;
 164       } else {
 165         srcpadname = g_strndup(arg,(ptr-arg));
 166         // if there's a sinkpad
 167         if (len > (ptr-arg)+1)
 168           sinkpadname = &ptr[1];
 169         else
 170           sinkpadname = NULL;
 171       }
 172
 173       GST_DEBUG(0,"have srcpad %s, sinkpad %s\n",srcpadname,sinkpadname);
 174
 175       g_slist_free(srcpads);
 176       srcpads = NULL;
 177       numsrcpads=0;
 178       tempname=NULL;
 179
 180       // find src pads
 181       if (srcpadname != NULL) {
 182         while (1){
 183           // split name at commas
 184           if ((ptr = strchr(srcpadname,','))){
 185             tempname = g_strndup(srcpadname,(ptr-srcpadname));
 186             srcpadname = &ptr[1];
 187           } else {
 188             tempname = srcpadname;
 189           }
 190
 191           // look for pad with that name
 192           if ((temppad = gst_element_get_pad(previous,tempname))){
 193             srcpads = g_slist_append(srcpads,temppad);
 194             numsrcpads++;
 195           }
 196
 197           // try to create a pad using that padtemplate name
 198           else if ((temppad = gst_element_request_pad_by_name(previous,tempname))) {
 199             srcpads = g_slist_append(srcpads,temppad);
 200             numsrcpads++;
 201           }
 202           if (!temppad) {
 203             GST_DEBUG(0,"NO SUCH pad %s in element %s\n",tempname,GST_ELEMENT_NAME(previous));
 204           } else {
 205             GST_DEBUG(0,"have src pad %s:%s\n",GST_DEBUG_PAD_NAME(temppad));
 206           }
 207
 208           // if there is no more commas in srcpadname then we're done
 209           if (tempname == srcpadname) break;
 210           g_free(tempname);
 211         }
 212       }
 213       else {
 214         // check through the list to find the first sink pad
 215         GST_DEBUG(0,"CHECKING through element %s for pad named %s\n",GST_ELEMENT_NAME(previous),srcpadname);
 216         pads = gst_element_get_pad_list(previous);
 217         while (pads) {
 218           temppad = GST_PARSE_LISTPAD(pads);
 219           GST_DEBUG(0,"have pad %s:%s\n",GST_DEBUG_PAD_NAME(temppad));
 220           if (GST_IS_GHOST_PAD(temppad)) GST_DEBUG(0,"it's a ghost pad\n");
 221           if (gst_pad_get_direction (temppad) == GST_PAD_SRC){
 222             srcpads = g_slist_append(srcpads,temppad);
 223             numsrcpads++;
 224             break;
 225           }
 226           pads = g_list_next (pads);
 227         }
 228         if (!srcpads) GST_DEBUG(0,"error, can't find a src pad!!!\n");
 229         else GST_DEBUG(0,"have src pad %s:%s\n",GST_DEBUG_PAD_NAME(GST_PARSE_LISTPAD(srcpads)));
 230       }
 231
 232     // argument with = in it
 233     } else if (strstr(arg, "=")) {
 234       gchar * argname;
 235       gchar * argval;
 236       gchar * pos = strstr(arg, "=");
 237       // we have an argument
 238       argname = arg;
 239       pos[0] = '\0';
 240       argval = pos+1;
 241
 242       GST_DEBUG(0,"attempting to set argument '%s' to '%s' on element '%s'\n",
 243             argname,argval,GST_ELEMENT_NAME(previous));
 244       gst_util_set_object_arg (G_OBJECT(previous), argname, argval);
 245       g_free(argname);
 246
 247     // element or argument, or beginning of bin or thread
 248     } else if (arg[0] == '[') {
 249       // we have the start of a name of the preceding element.
 250       // rename previous element to next arg.
 251       if (arg[1] != '\0') {
 252         fprintf(stderr,"error, unexpected junk after [\n");
 253         return GST_PARSE_ERROR_SYNTAX;
 254       }
 255       i++;
 256       if (i < argc) {
 257         gst_element_set_name(previous, argv[i]);
 258       } else {
 259         fprintf(stderr,"error, expected element name, found end of arguments\n");
 260         return GST_PARSE_ERROR_SYNTAX;
 261       }
 262       i++;
 263       if (i >= argc) {
 264         fprintf(stderr,"error, expected ], found end of arguments\n");
 265         return GST_PARSE_ERROR_SYNTAX;
 266       } else if (strcmp(argv[i], "]") != 0) {
 267         fprintf(stderr,"error, expected ], found '%s'\n", argv[i]);
 268         return GST_PARSE_ERROR_SYNTAX;
 269       }
 270     } else {
 271       DEBUG("have element or bin/thread\n");
 272       // if we have a bin or thread starting
 273       if (strchr("({",arg[0])) {
 274         if (arg[0] == '(') {
 275           // create a bin and add it to the current parent
 276           element = gst_bin_new(g_strdup_printf("bin%d",priv->bincount++));
 277           if (!element) {
 278             fprintf(stderr,"Couldn't create a bin!\n");
 279             return GST_PARSE_ERROR_CREATING_ELEMENT;
 280           }
 281           GST_DEBUG(0,"CREATED bin %s\n",GST_ELEMENT_NAME(element));
 282         } else if (arg[0] == '{') {
 283           // create a thread and add it to the current parent
 284           element = gst_thread_new(g_strdup_printf("thread%d",priv->threadcount++));
 285           if (!element) {
 286             fprintf(stderr,"Couldn't create a thread!\n");
 287             return GST_PARSE_ERROR_CREATING_ELEMENT;
 288           }
 289           GST_DEBUG(0,"CREATED thread %s\n",GST_ELEMENT_NAME(element));
 290         } else {
 291           DEBUG("error in parser, unexpected symbol, FIXME\n");
 292           i++;
 293           continue;
 294         }
 295
 296         j = gst_parse_launch_cmdline(argc - i, argv + i + 1, GST_BIN (element), priv);
 297         //check for parse error
 298         if (j < 0) return j;
 299         i += j;
 300
 301       } else {
 302         // we have an element
 303         DEBUG("attempting to create element '%s'\n",arg);
 304         ptr = gst_parse_unique_name(arg,priv);
 305         element = gst_elementfactory_make(arg,ptr);
 306         g_free(ptr);
 307         if (!element) {
 308 #ifndef GST_DISABLE_REGISTRY
 309           fprintf(stderr,"Couldn't create a '%s', no such element or need to run gstreamer-register?\n",arg);
 310 #else
 311           fprintf(stderr,"Couldn't create a '%s', no such element or need to load pluginn?\n",arg);
 312 #endif
 313           return GST_PARSE_ERROR_NOSUCH_ELEMENT;
 314         }
 315         GST_DEBUG(0,"CREATED element %s\n",GST_ELEMENT_NAME(element));
 316       }
 317
 318       gst_bin_add (GST_BIN (parent), element);
 319       elementcount++;
 320
 321       g_slist_free(sinkpads);
 322       sinkpads = NULL;
 323       numsinkpads=0;
 324       tempname=NULL;
 325
 326       // find sink pads
 327       if (sinkpadname != NULL) {
 328         while (1){
 329           // split name at commas
 330           if ((ptr = strchr(sinkpadname,','))){
 331             tempname = g_strndup(sinkpadname,(ptr-sinkpadname));
 332             sinkpadname = &ptr[1];
 333           } else {
 334             tempname = sinkpadname;
 335           }
 336
 337           // look for pad with that name
 338           if ((temppad = gst_element_get_pad(element,tempname))){
 339             sinkpads = g_slist_append(sinkpads,temppad);
 340             numsinkpads++;
 341           }
 342
 343           // try to create a pad using that padtemplate name
 344           else if ((temppad = gst_element_request_pad_by_name(element,tempname))) {
 345             sinkpads = g_slist_append(sinkpads,temppad);
 346             numsinkpads++;
 347           }
 348           if (!temppad) {
 349             GST_DEBUG(0,"NO SUCH pad %s in element %s\n",tempname,GST_ELEMENT_NAME(element));
 350           } else {
 351             GST_DEBUG(0,"have sink pad %s:%s\n",GST_DEBUG_PAD_NAME(temppad));
 352           }
 353
 354           // if there is no more commas in sinkpadname then we're done
 355           if (tempname == sinkpadname) break;
 356           g_free(tempname);
 357         }
 358       }
 359       else {
 360         // check through the list to find the first sink pad
 361         pads = gst_element_get_pad_list(element);
 362         while (pads) {
 363           temppad = GST_PAD(pads->data);
 364           pads = g_list_next (pads);
 365           if (gst_pad_get_direction (temppad) == GST_PAD_SINK){
 366             sinkpads = g_slist_append(sinkpads,temppad);
 367             numsinkpads++;
 368             break;
 369           }
 370         }
 371       }
 372
 373       if (!sinkpads) GST_DEBUG(0,"can't find a sink pad for element\n");
 374       else GST_DEBUG(0,"have sink pad %s:%s\n",GST_DEBUG_PAD_NAME(GST_PARSE_LISTPAD(sinkpads)));
 375
 376       if (!srcpads && sinkpads && previous) {
 377         dyn_connect *connect = g_malloc (sizeof (dyn_connect));
 378
 379         connect->srcpadname = srcpadname;
 380         connect->target = GST_PARSE_LISTPAD(sinkpads);
 381         connect->pipeline = parent;
 382
 383         GST_DEBUG(0,"SETTING UP dynamic connection %s:%s and %s:%s\n",
 384           gst_element_get_name (previous),
 385           srcpadname,
 386           GST_DEBUG_PAD_NAME(GST_PARSE_LISTPAD(sinkpads)));
 387
 388         g_signal_connect (G_OBJECT (previous), "new_pad",
 389                           G_CALLBACK (dynamic_connect), connect);
 390       }
 391       else {
 392         for (j=0; (j<numsrcpads) && (j<numsinkpads); j++){
 393           GST_DEBUG(0,"CONNECTING %s:%s and %s:%s\n",
 394             GST_DEBUG_PAD_NAME(GST_PARSE_LISTPAD(g_slist_nth(srcpads,j))),
 395             GST_DEBUG_PAD_NAME(GST_PARSE_LISTPAD(g_slist_nth(sinkpads,j))));
 396           gst_pad_connect(
 397             GST_PARSE_LISTPAD(g_slist_nth(srcpads,j)),
 398             GST_PARSE_LISTPAD(g_slist_nth(sinkpads,j)));
 399         }
 400       }
 401
 402       g_slist_free(srcpads);
 403       srcpads = NULL;
 404
 405       g_slist_free(sinkpads);
 406       sinkpads = NULL;
 407
 408       // thomas: if we're the first element, connect eos signal
 409       if (elementcount == 1)
 410       {
 411         g_signal_connect (G_OBJECT (element), "eos", have_eos, NULL);
 412
 413       }
 414       // if we're the first element, ghost all the sinkpads
 415       if (elementcount == 1) {
 416         DEBUG("first element, ghosting all of %s's sink pads to parent %s\n",
 417               GST_ELEMENT_NAME(element),GST_ELEMENT_NAME(GST_ELEMENT(parent)));
 418         pads = gst_element_get_pad_list (element);
 419         while (pads) {
 420           temppad = GST_PAD (pads->data);
 421           pads = g_list_next (pads);
 422           if (!temppad) DEBUG("much oddness, pad doesn't seem to exist\n");
 423           else if (gst_pad_get_direction (temppad) == GST_PAD_SINK) {
 424             gst_element_add_ghost_pad (GST_ELEMENT (parent), temppad,
 425 g_strdup_printf("%s-ghost",GST_PAD_NAME(temppad)));
 426             GST_DEBUG(0,"GHOSTED %s:%s to %s as %s-ghost\n",
 427                       GST_DEBUG_PAD_NAME(temppad),GST_ELEMENT_NAME(GST_ELEMENT(parent)),GST_PAD_NAME(temppad));
 428           }
 429         }
 430       }
 431
 432       previous = element;
 433       if (!GST_IS_BIN(element)) prevelement = element;
 434     }
 435
 436     i++;
 437   }
 438
 439   // ghost all the src pads of the bin
 440   if (prevelement != NULL) {
 441     DEBUG("last element, ghosting all of %s's src pads to parent %s\n",
 442           GST_ELEMENT_NAME(prevelement),GST_ELEMENT_NAME(GST_ELEMENT(parent)));
 443     pads = gst_element_get_pad_list (prevelement);
 444     while (pads) {
 445       temppad = GST_PAD (pads->data);
 446       pads = g_list_next (pads);
 447       if (!temppad) DEBUG("much oddness, pad doesn't seem to exist\n");
 448       else if (gst_pad_get_direction (temppad) == GST_PAD_SRC) {
 449         gst_element_add_ghost_pad (GST_ELEMENT (parent), temppad,
 450 g_strdup_printf("%s-ghost",GST_PAD_NAME(temppad)));
 451         GST_DEBUG(0,"GHOSTED %s:%s to %s as %s-ghost\n",
 452 GST_DEBUG_PAD_NAME(temppad),GST_ELEMENT_NAME (parent),GST_PAD_NAME(temppad));
 453       }
 454     }
 455   }
 456
 457   priv->binlevel--;
 458
 459   if (retval) return retval;
 460
 461   DEBUG (closingchar != '\0'?
 462          "returning IN THE WRONG PLACE\n" :
 463          "ending pipeline\n");
 464
 465   return i+1;
 466 }
 467
 468 /**
 469  * gst_parse_launch:
 470  * @cmdline: the command line describing the pipeline
 471  * @parent: the parent bin for the resulting pipeline
 472  *
 473  * Create a new pipeline based on command line syntax.
 474  *
 475  * Returns: ?
 476  */
 477 gint
 478 gst_parse_launch(const gchar *cmdline,GstBin *parent)
 479 {
 480   gst_parse_priv priv;
 481   gchar **argvn;
 482   gint newargc;
 483   gint i;
 484   const gchar *cp, *start, *end;
 485   gchar *temp;
 486   GSList *string_list = NULL, *slist;
 487
 488   priv.bincount = 0;
 489   priv.threadcount = 0;
 490   priv.binlevel = 0;
 491   priv.elementcounts = NULL;
 492   priv.verbose = FALSE;
 493   priv.debug = FALSE;
 494
 495   end = cmdline + strlen(cmdline);
 496   newargc = 0;
 497
 498   temp = "";
 499
 500   // Extract the arguments to a gslist in reverse order
 501   for (cp = cmdline; cp < end; ) {
 502     i = strcspn(cp, "([{}]) \"\\");
 503
 504     if (i > 0) {
 505       temp = g_strconcat (temp, g_strndup (cp, i), NULL);
 506
 507       // see if we have an escape char
 508       if (cp[i] != '\\') {
 509         // normal argument - copy and add to the list
 510         string_list = g_slist_prepend(string_list, temp);
 511         newargc++;
 512         temp = "";
 513       }
 514       else {
 515         temp = g_strconcat (temp, g_strndup (&cp[++i], 1), NULL);
 516       }
 517       cp += i;
 518     }
 519
 520     // skip spaces
 521     while (cp < end && *cp == ' ') {
 522       cp++;
 523     }
 524
 525     // handle quoted arguments
 526     if (*cp == '"') {
 527       start = ++cp;
 528
 529       // find matching quote
 530       while (cp < end && *cp != '"')
 531         cp++;
 532
 533       // make sure we got it
 534       if (cp == end) {
 535         g_warning("gst_parse_launch: Unbalanced quote in command line");
 536         // FIXME: The list leaks here
 537         return 0;
 538       }
 539
 540       // copy the string sans quotes
 541       string_list = g_slist_prepend(string_list, g_strndup(start, cp - start));
 542       newargc++;
 543       cp += 2; // skip the quote aswell
 544     }
 545
 546     // brackets exist in a separate argument slot
 547     if (*cp && strchr("([{}])", *cp)) {
 548       string_list = g_slist_prepend(string_list, g_strndup(cp, 1));
 549       newargc++;
 550       cp++;
 551     }
 552   }
 553
 554   // now allocate the new argv array
 555   argvn = g_new0(char *,newargc);
 556   GST_DEBUG(0,"got %d args\n",newargc);
 557
 558   // reverse the list and put the strings in the new array
 559   i = newargc;
 560
 561   for (slist = string_list; slist; slist = slist->next)
 562     argvn[--i] = slist->data;
 563
 564   g_slist_free(string_list);
 565
 566   // print them out
 567   for (i=0;i<newargc;i++) {
 568     GST_DEBUG(0,"arg %d is: %s\n",i,argvn[i]);
 569   }
 570
 571   // set up the elementcounts hash
 572   priv.elementcounts = g_hash_table_new(g_str_hash,g_str_equal);
 573
 574   // do it!
 575   i = gst_parse_launch_cmdline(newargc,argvn,parent,&priv);
 576
 577 //  GST_DEBUG(0, "Finished - freeing temporary argument array");
 578 //  g_strfreev(argvn);
 579
 580   return i;
 581 }
 582