Changes to handle compilers that don't have variadic macro support. In particular...
[platform/upstream/gstreamer.git] / gst / parse / grammar.y
index 7cdb274..27061c5 100644 (file)
@@ -6,11 +6,20 @@
 #include <stdlib.h>
 
 #include "../gst_private.h"
+#include "../gst-i18n-lib.h"
 
+#include "../gstconfig.h"
 #include "../gstparse.h"
 #include "../gstinfo.h"
+#include "../gsterror.h"
+#include "../gsturi.h"
 #include "types.h"
 
+/* All error messages in this file are user-visible and need to be translated.
+ * Don't start the message with a capital, and don't end them with a period,
+ * as they will be presented inside a sentence/error.
+ */
+  
 #define YYERROR_VERBOSE 1
 #define YYPARSE_PARAM graph
 
@@ -67,12 +76,10 @@ __gst_parse_chain_new ()
 void
 __gst_parse_chain_free (chain_t *data)
 {
-  if (data) {
-    /* g_print ("FREEING CHAIN   (%3u): %p\n", __chains - 1, data); */
-    g_free (data);
-    g_return_if_fail (__chains > 0);
-    __chains--;
-  }
+  /* g_print ("FREEING CHAIN   (%3u): %p\n", __chains - 1, data); */
+  g_free (data);
+  g_return_if_fail (__chains > 0);
+  __chains--;
 }
 
 #endif /* __GST_PARSE_TRACE */
@@ -88,16 +95,13 @@ typedef struct {
 
 #ifdef G_HAVE_ISO_VARARGS
 #define SET_ERROR(error, type, ...) G_STMT_START{ \
-  if (error) { \
-    if (*(error)) { \
-      g_warning (__VA_ARGS__); \
-    } else { \
-      g_set_error ((error), GST_PARSE_ERROR, (type), __VA_ARGS__); \
-    }\
+  GST_CAT_ERROR (GST_CAT_PIPELINE, __VA_ARGS__); \
+  if ((error) && !*(error)) { \
+    g_set_error ((error), GST_PARSE_ERROR, (type), __VA_ARGS__); \
   } \
 }G_STMT_END
 #define ERROR(type, ...) SET_ERROR (((graph_t *) graph)->error, (type), __VA_ARGS__ )
-#ifdef GST_DEBUG_ENABLED
+#ifndef GST_DISABLE_GST_DEBUG
 #  define YYDEBUG 1
    /* bison 1.35 calls this macro with side effects, we need to make sure the
       side effects work - crappy bison
@@ -105,7 +109,7 @@ typedef struct {
  */
 #  define YYFPRINTF(a, ...) G_STMT_START{ \
      gchar *temp = g_strdup_printf (__VA_ARGS__); \
-     GST_CAT_DEBUG (GST_CAT_PIPELINE, temp); \
+     GST_CAT_LOG (GST_CAT_PIPELINE, temp); \
      g_free (temp); \
    }G_STMT_END
 #endif
@@ -113,75 +117,102 @@ typedef struct {
 #elif defined(G_HAVE_GNUC_VARARGS)
 
 #define SET_ERROR(error, type, args...) G_STMT_START{ \
-  if (error) { \
-    if (*(error)) { \
-      g_warning ( ## args ); \
-    } else { \
-      g_set_error ((error), GST_PARSE_ERROR, (type), ## args ); \
-    }\
+  GST_CAT_ERROR (GST_CAT_PIPELINE, args ); \
+  if ((error) && !*(error)) { \
+    g_set_error ((error), GST_PARSE_ERROR, (type), args ); \
   } \
 }G_STMT_END
-#define ERROR(type, args...) SET_ERROR (((graph_t *) graph)->error, (type), ## args )
-#ifdef GST_DEBUG_ENABLED
+#define ERROR(type, args...) SET_ERROR (((graph_t *) graph)->error, (type) , args )
+#ifndef GST_DISABLE_GST_DEBUG
 #  define YYDEBUG 1
    /* bison 1.35 calls this macro with side effects, we need to make sure the
       side effects work - crappy bison
-#  define YYFPRINTF(a, args...) GST_CAT_DEBUG (GST_CAT_PIPELINE, ## args )
+#  define YYFPRINTF(a, args...) GST_CAT_DEBUG (GST_CAT_PIPELINE, args )
  */
 #  define YYFPRINTF(a, args...) G_STMT_START{ \
-     gchar *temp = g_strdup_printf ( ## args ); \
-     GST_CAT_DEBUG (GST_CAT_PIPELINE, temp); \
+     gchar *temp = g_strdup_printf ( args ); \
+     GST_CAT_LOG (GST_CAT_PIPELINE, temp); \
      g_free (temp); \
    }G_STMT_END
 #endif
 
-#else
+#elif defined(G_HAVE_ISO_VARARGS)
 
 #define SET_ERROR(error, type, ...) G_STMT_START{ \
-  if (error) { \
-    if (*(error)) { \
-      g_warning ("error while parsing"); \
-    } else { \
-      g_set_error ((error), GST_PARSE_ERROR, (type), "error while parsing"); \
-    }\
+  GST_CAT_ERROR (GST_CAT_PIPELINE, "error while parsing" ); \
+  if ((error) && !*(error)) { \
+    g_set_error ((error), GST_PARSE_ERROR, (type), "error while parsing"); \
   } \
 }G_STMT_END
 #define ERROR(type, ...) SET_ERROR (((graph_t *) graph)->error, (type), "error while parsing")
-#ifdef GST_DEBUG_ENABLED
+#ifndef GST_DISABLE_GST_DEBUG
 #  define YYDEBUG 1
 #endif
 
-#endif /* G_HAVE_ISO_VARARGS */
+#else
+
+static inline void
+SET_ERROR (GError **error, gint type, const char *format, ...)
+{
+  if (error) {
+    if (*error) {
+      g_warning ("error while parsing");
+    } else {
+      va_list varargs;
+      char *string;
+
+      va_start (varargs, format);
+      string = g_strdup_vprintf (format, varargs);
+      va_end (varargs);
+      
+      g_set_error (error, GST_PARSE_ERROR, type, string);
+
+      g_free (string);
+    }
+  }
+}
+
+#ifndef GST_DISABLE_GST_DEBUG
+#  define YYDEBUG 1
+static inline void
+YYPRINTF(const char *format, ...)
+{
+  va_list varargs;
+  gchar *temp;
+  
+  va_start (varargs, format);
+  temp = g_strdup_vprintf ( format, varargs );
+  GST_CAT_LOG (GST_CAT_PIPELINE, "%s", temp);
+  g_free (temp);
+  va_end (varargs);
+}
+#endif
+
+#endif
 
 #define GST_BIN_MAKE(res, type, chainval, assign) G_STMT_START{ \
   chain_t *chain = chainval; \
   GSList *walk; \
   GstBin *bin = (GstBin *) gst_element_factory_make (type, NULL); \
   if (!chain) { \
-    ERROR (GST_PARSE_ERROR_EMPTY_BIN, "Specified empty bin \"%s\", not allowed", type); \
+    SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_EMPTY_BIN, _("specified empty bin \"%s\", not allowed"), type); \
     g_slist_foreach (assign, (GFunc) gst_parse_strfree, NULL); \
     g_slist_free (assign); \
     YYERROR; \
   } else if (!bin) { \
-    ERROR (GST_PARSE_ERROR_NO_SUCH_ELEMENT, "No bin \"%s\", omitting...", type); \
+    SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_NO_SUCH_ELEMENT, _("no bin \"%s\", skipping"), type); \
     g_slist_foreach (assign, (GFunc) gst_parse_strfree, NULL); \
     g_slist_free (assign); \
     res = chain; \
   } else { \
-    walk = chain->elements; \
-    while (walk) { \
+    for (walk = chain->elements; walk; walk = walk->next ) \
       gst_bin_add (bin, GST_ELEMENT (walk->data)); \
-      walk = walk->next; \
-    } \
     g_slist_free (chain->elements); \
     chain->elements = g_slist_prepend (NULL, bin); \
     res = chain; \
     /* set the properties now */ \
-    walk = assign; \
-    while (walk) { \
+    for (walk = assign; walk; walk = walk->next) \
       gst_parse_element_set ((gchar *) walk->data, GST_ELEMENT (bin), graph); \
-      walk = g_slist_next (walk); \
-    } \
     g_slist_free (assign); \
   } \
 }G_STMT_END
@@ -210,28 +241,13 @@ typedef struct {
   MAKE_LINK (link, NULL, _src, pads, NULL, NULL, NULL); \
 }G_STMT_END
 
-static inline void gst_parse_unescape (gchar *str)
-{
-  gchar *walk;
-  
-  g_return_if_fail (str != NULL);
-  
-  walk = str;
-  
-  while (*walk) {
-    if (*walk == '\\')
-      walk++;
-    *str = *walk;
-    str++;
-    walk++;
-  }
-  *str = '\0';
-}
 static void
 gst_parse_element_set (gchar *value, GstElement *element, graph_t *graph)
 {
   GParamSpec *pspec;
   gchar *pos = value;
+  GValue v = { 0, }; 
+  GValue v2 = { 0, };
   /* parse the string, so the property name is null-terminated an pos points
      to the beginning of the value */
   while (!g_ascii_isspace (*pos) && (*pos != '=')) pos++; 
@@ -250,8 +266,6 @@ gst_parse_element_set (gchar *value, GstElement *element, graph_t *graph)
   }
   gst_parse_unescape (pos); 
   if ((pspec = g_object_class_find_property (G_OBJECT_GET_CLASS (element), value))) { 
-    GValue v = { 0, }; 
-    GValue v2 = { 0, };
     g_value_init (&v, G_PARAM_SPEC_VALUE_TYPE(pspec)); 
     switch (G_TYPE_FUNDAMENTAL (G_PARAM_SPEC_VALUE_TYPE (pspec))) {
     case G_TYPE_STRING:
@@ -311,7 +325,7 @@ gst_parse_element_set (gchar *value, GstElement *element, graph_t *graph)
       gchar *endptr;
       gdouble d;
       g_value_init (&v2, G_TYPE_DOUBLE); 
-      d = strtod (pos, &endptr);
+      d = g_ascii_strtod (pos, &endptr);
       if (*endptr != '\0') goto error_conversion;
       g_value_set_double (&v2, d);
       if (!g_value_transform (&v2, &v)) goto error_conversion;
@@ -324,21 +338,25 @@ gst_parse_element_set (gchar *value, GstElement *element, graph_t *graph)
     }
     g_object_set_property (G_OBJECT (element), value, &v); 
   } else { 
-    ERROR (GST_PARSE_ERROR_NO_SUCH_PROPERTY, "No property \"%s\" in element \"%s\"", value, GST_ELEMENT_NAME (element)); 
+    SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_NO_SUCH_PROPERTY, _("no property \"%s\" in element \"%s\""), value, GST_ELEMENT_NAME (element)); 
   }
 
 out:
   gst_parse_strfree (value);
+  if (G_IS_VALUE (&v))
+    g_value_unset (&v);
+  if (G_IS_VALUE (&v2))
+    g_value_unset (&v2);
   return;
   
 error:
-  ERROR (GST_PARSE_ERROR_COULD_NOT_SET_PROPERTY,
-         "Could not set property \"%s\" in element \"%s\" to \"%s\""
+  SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_COULD_NOT_SET_PROPERTY,
+         _("could not set property \"%s\" in element \"%s\" to \"%s\"")
         value, GST_ELEMENT_NAME (element), pos); 
   goto out;
 error_conversion:
-  ERROR (GST_PARSE_ERROR_COULD_NOT_SET_PROPERTY,
-         "Could not convert \"%s\" so that it fits property \"%s\" in element \"%s\"",
+  SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_COULD_NOT_SET_PROPERTY,
+         _("could not convert \"%s\" so that it fits property \"%s\" in element \"%s\""),
          pos, value, GST_ELEMENT_NAME (element)); 
   goto out;
 }
@@ -351,7 +369,7 @@ gst_parse_free_link (link_t *link)
   g_slist_foreach (link->sink_pads, (GFunc) gst_parse_strfree, NULL);
   g_slist_free (link->src_pads);
   g_slist_free (link->sink_pads);
-  gst_caps_unref (link->caps);
+  if (link->caps) gst_caps_free (link->caps);
   gst_parse_link_free (link);  
 }
 static void
@@ -364,9 +382,8 @@ gst_parse_element_lock (GstElement *element, gboolean lock)
   if (gst_element_is_locked_state (element) == lock)
     return;
   /* check if we have an unlocked peer */
-  while (walk) {
+  for (; walk; walk = walk->next) {
     pad = (GstPad *) GST_PAD_REALIZE (walk->data);
-    walk = walk->next;
     if (GST_PAD_IS_SINK (pad) && GST_PAD_PEER (pad) &&
         !gst_element_is_locked_state (GST_PAD_PARENT (GST_PAD_PEER (pad)))) {
       unlocked_peer = TRUE;
@@ -375,18 +392,25 @@ gst_parse_element_lock (GstElement *element, gboolean lock)
   }  
   
   if (!(lock && unlocked_peer)) {
+    GST_CAT_DEBUG (GST_CAT_PIPELINE, "setting locked state on element");
     gst_element_set_locked_state (element, lock);
     if (!lock)
-      gst_element_sync_state_with_parent (element);
+    {
+      /* try to sync state with parent */
+      GST_CAT_DEBUG (GST_CAT_PIPELINE, "trying to sync state of element with parent");
+      /* FIXME: it would be nice if we can figure out why it failed
+         (e.g. caps nego) and give an error about that instead. */
+      if (!gst_element_sync_state_with_parent (element))
+        GST_ELEMENT_ERROR (element, CORE, STATE_CHANGE, (NULL), (NULL));
+    }
   } else {
     return;
   }
   
   /* check if there are other pads to (un)lock */
   walk = (GList *) gst_element_get_pad_list (element);
-  while (walk) {
+  for  (; walk; walk = walk->next) {
     pad = (GstPad *) GST_PAD_REALIZE (walk->data);
-    walk = walk->next;
     if (GST_PAD_IS_SRC (pad) && GST_PAD_PEER (pad)) {
       GstElement *next = GST_ELEMENT (GST_OBJECT_PARENT (GST_PAD_PEER (pad)));
       if (gst_element_is_locked_state (next) != lock)
@@ -411,7 +435,7 @@ gst_parse_found_pad (GstElement *src, GstPad *pad, gpointer data)
     g_signal_handler_disconnect (src, link->signal_id);
     g_free (link->src_pad);
     g_free (link->sink_pad);
-    gst_caps_unref (link->caps);
+    if (link->caps) gst_caps_free (link->caps);
     if (!gst_element_is_locked_state (src))
       gst_parse_element_lock (link->sink, FALSE);
     g_free (link);
@@ -424,7 +448,7 @@ gst_parse_perform_delayed_link (GstElement *src, const gchar *src_pad,
 {
   GList *templs = gst_element_get_pad_template_list (src);
         
-  while (templs) {
+  for (; templs; templs = templs->next) {
     GstPadTemplate *templ = (GstPadTemplate *) templs->data;
     if ((GST_PAD_TEMPLATE_DIRECTION (templ) == GST_PAD_SRC) && (GST_PAD_TEMPLATE_PRESENCE(templ) == GST_PAD_SOMETIMES))
     {
@@ -438,16 +462,19 @@ gst_parse_perform_delayed_link (GstElement *src, const gchar *src_pad,
       data->src_pad = g_strdup (src_pad);
       data->sink = sink;
       data->sink_pad = g_strdup (sink_pad);
-      data->caps = gst_caps_ref (caps);
+      if (caps) {
+       data->caps = gst_caps_copy (caps);
+      } else {
+       data->caps = NULL;
+      }
       data->signal_id = g_signal_connect (G_OBJECT (src), "new_pad", 
                                          G_CALLBACK (gst_parse_found_pad), data);
       return TRUE;
     }
-    templs = g_list_next (templs);
   }
   return FALSE;
 }
-/**
+/*
  * performs a link and frees the struct. src and sink elements must be given
  * return values   0 - link performed
  *                 1 - link delayed
@@ -463,10 +490,11 @@ gst_parse_perform_link (link_t *link, graph_t *graph)
   g_assert (GST_IS_ELEMENT (src));
   g_assert (GST_IS_ELEMENT (sink));
   
-  GST_CAT_INFO (GST_CAT_PIPELINE, "linking %s(%s):%u to %s(%s):%u with caps \"%s\"", 
-                GST_ELEMENT_NAME (src), link->src_name ? link->src_name : "---", g_slist_length (srcs),
-                GST_ELEMENT_NAME (sink), link->sink_name ? link->sink_name : "---", g_slist_length (sinks),
-               link->caps ? gst_caps_to_string (link->caps) : "-");
+  GST_CAT_INFO (GST_CAT_PIPELINE, "linking %s:%s to %s:%s (%u/%u) with caps \"%" GST_PTR_FORMAT "\"", 
+                GST_ELEMENT_NAME (src), link->src_name ? link->src_name : "(any)",
+                GST_ELEMENT_NAME (sink), link->sink_name ? link->sink_name : "(any)",
+                g_slist_length (srcs), g_slist_length (sinks),
+               link->caps);
 
   if (!srcs || !sinks) {
     if (gst_element_link_pads_filtered (src, srcs ? (const gchar *) srcs->data : NULL,
@@ -513,7 +541,7 @@ success:
   return 0;
   
 error:
-  ERROR (GST_PARSE_ERROR_LINK, "could not link %s to %s", GST_ELEMENT_NAME (src), GST_ELEMENT_NAME (sink));
+  SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("could not link %s to %s"), GST_ELEMENT_NAME (src), GST_ELEMENT_NAME (sink));
   gst_parse_free_link (link);
   return -1;
 }
@@ -532,6 +560,7 @@ static int yyerror (const char *s);
     graph_t *g;
 }
 
+%token <s> PARSE_URL
 %token <s> IDENTIFIER
 %left <s> REF PADREF BINREF
 %token <s> ASSIGNMENT
@@ -542,7 +571,7 @@ static int yyerror (const char *s);
 %type <l> reference
 %type <l> linkpart link
 %type <p> linklist
-%type <e> element
+%type <e> element 
 %type <p> padlist pads assignments
 
 %left '{' '}' '(' ')'
@@ -557,7 +586,7 @@ static int yyerror (const char *s);
 
 element:       IDENTIFIER                    { $$ = gst_element_factory_make ($1, NULL); 
                                                if (!$$)
-                                                 ERROR (GST_PARSE_ERROR_NO_SUCH_ELEMENT, "No element \"%s\"", $1);
+                                                 SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_NO_SUCH_ELEMENT, _("no element \"%s\""), $1);
                                                gst_parse_strfree ($1);
                                                if (!$$)
                                                  YYERROR;
@@ -566,12 +595,11 @@ element:  IDENTIFIER                    { $$ = gst_element_factory_make ($1, NULL);
                                                $$ = $1;
                                              }
        ;
-       
 assignments:   /* NOP */                     { $$ = NULL; }
        |       assignments ASSIGNMENT        { $$ = g_slist_prepend ($1, $2); }
        ;               
-bin:           '{' assignments chain '}'     { GST_BIN_MAKE ($$, "thread", $3, $2); }
-        |       '(' assignments chain ')'     { GST_BIN_MAKE ($$, "bin", $3, $2); }
+bin:           '{' assignments chain '}' { GST_BIN_MAKE ($$, "thread", $3, $2); }
+        |       '(' assignments chain ')' { GST_BIN_MAKE ($$, "bin", $3, $2); }
         |       BINREF assignments chain ')'  { GST_BIN_MAKE ($$, $1, $3, $2); 
                                                gst_parse_strfree ($1);
                                              }
@@ -609,10 +637,8 @@ link:              linkpart LINK linkpart        { $$ = $1;
                                                if ($2) {
                                                  $$->caps = gst_caps_from_string ($2);
                                                  if (!$$->caps)
-                                                   ERROR (GST_PARSE_ERROR_LINK, "could not parse caps \"%s\"", $2);
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("could not parse caps \"%s\""), $2);
                                                  gst_parse_strfree ($2);
-                                                 gst_caps_ref($$->caps);
-                                                 gst_caps_sink($$->caps);
                                                }
                                                $$->sink_name = $3->src_name;
                                                $$->sink_pads = $3->src_pads;
@@ -633,13 +659,13 @@ chain:    element                       { $$ = gst_parse_chain_new ();
        |       bin                           { $$ = $1; }
        |       chain chain                   { if ($1->back && $2->front) {
                                                  if (!$1->back->sink_name) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without source element");
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without source element"));
                                                    gst_parse_free_link ($1->back);
                                                  } else {
                                                    ((graph_t *) graph)->links = g_slist_prepend (((graph_t *) graph)->links, $1->back);
                                                  }
                                                  if (!$2->front->src_name) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without sink element");
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without sink element"));
                                                    gst_parse_free_link ($2->front);
                                                  } else {
                                                    ((graph_t *) graph)->links = g_slist_prepend (((graph_t *) graph)->links, $2->front);
@@ -667,24 +693,10 @@ chain:    element                       { $$ = gst_parse_chain_new ();
                                                $1->last = $2->last;
                                                $1->back = $2->back;
                                                $1->elements = g_slist_concat ($1->elements, $2->elements);
-                                               gst_parse_chain_free ($2);
+                                               if ($2)
+                                                 gst_parse_chain_free ($2);
                                                $$ = $1;
                                              }
-       |       link chain                    { if ($2->front) {
-                                                 if (!$2->front->src_name) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without source element");
-                                                   gst_parse_free_link ($2->front);
-                                                 } else {
-                                                   ((graph_t *) graph)->links = g_slist_prepend (((graph_t *) graph)->links, $2->front);
-                                                 }
-                                               }
-                                               if (!$1->sink_name) {
-                                                 $1->sink = $2->first;
-                                               }
-                                               $2->front = $1;
-                                               $$ = $2;
-                                             }
-                                       
        |       chain linklist                { GSList *walk;
                                                if ($1->back) {
                                                  $2 = g_slist_prepend ($2, $1->back);
@@ -694,18 +706,16 @@ chain:    element                       { $$ = gst_parse_chain_new ();
                                                    ((link_t *) $2->data)->src = $1->last;
                                                  }                                               
                                                }
-                                               walk = $2;
-                                               while (walk) {
+                                               for (walk = $2; walk; walk = walk->next) {
                                                  link_t *link = (link_t *) walk->data;
-                                                 walk = walk->next;
-                                                 if (!link->sink_name && walk) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without sink element");
+                                                 if (!link->sink_name && walk->next) {
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without sink element"));
                                                    gst_parse_free_link (link);
                                                  } else if (!link->src_name && !link->src) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without source element");
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without source element"));
                                                    gst_parse_free_link (link);
                                                  } else {
-                                                   if (walk) {
+                                                   if (walk->next) {
                                                      ((graph_t *) graph)->links = g_slist_prepend (((graph_t *) graph)->links, link);
                                                    } else {
                                                      $1->back = link;
@@ -716,15 +726,67 @@ chain:    element                       { $$ = gst_parse_chain_new ();
                                                $$ = $1;
                                              }
        |       chain error                   { $$ = $1; }
+       |       link chain                    { if ($2->front) {
+                                                 if (!$2->front->src_name) {
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without source element"));
+                                                   gst_parse_free_link ($2->front);
+                                                 } else {
+                                                   ((graph_t *) graph)->links = g_slist_prepend (((graph_t *) graph)->links, $2->front);
+                                                 }
+                                               }
+                                               if (!$1->sink_name) {
+                                                 $1->sink = $2->first;
+                                               }
+                                               $2->front = $1;
+                                               $$ = $2;
+                                             }
+       |       PARSE_URL chain               { $$ = $2;
+                                               if ($$->front) {
+                                                 GstElement *element = 
+                                                         gst_element_make_from_uri (GST_URI_SRC, $1, NULL);
+                                                 if (!element) {
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_NO_SUCH_ELEMENT, 
+                                                           _("no source element for URI \"%s\""), $1);
+                                                 } else {
+                                                   $$->front->src = element;
+                                                   ((graph_t *) graph)->links = g_slist_prepend (
+                                                           ((graph_t *) graph)->links, $$->front);
+                                                   $$->front = NULL;
+                                                   $$->elements = g_slist_prepend ($$->elements, element);
+                                                 }
+                                               } else {
+                                                 SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, 
+                                                         _("no element to link URI \"%s\" to"), $1);
+                                               }
+                                               g_free ($1);
+                                             }
+       |       link PARSE_URL                { GstElement *element =
+                                                         gst_element_make_from_uri (GST_URI_SINK, $2, NULL);
+                                               if (!element) {
+                                                 SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_NO_SUCH_ELEMENT, 
+                                                         _("no sink element for URI \"%s\""), $2);
+                                                 YYERROR;
+                                               } else if ($1->sink_name || $1->sink_pads) {
+                                                 SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, 
+                                                         _("could not link sink element for URI \"%s\""), $2);
+                                                 YYERROR;
+                                               } else {
+                                                 $$ = gst_parse_chain_new ();
+                                                 $$->first = $$->last = element;
+                                                 $$->front = $1;
+                                                 $$->front->sink = element;
+                                                 $$->elements = g_slist_prepend (NULL, element);
+                                               }
+                                               g_free ($2);
+                                             }
        ;
-       
-graph:         /* NOP */                     { ERROR (GST_PARSE_ERROR_EMPTY, "Empty pipeline not allowed");
+graph:         /* NOP */                     { SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_EMPTY, _("empty pipeline not allowed"));
                                                $$ = (graph_t *) graph;
                                              }
        |       chain                         { $$ = (graph_t *) graph;
                                                if ($1->front) {
                                                  if (!$1->front->src_name) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without source element");
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without source element"));
                                                    gst_parse_free_link ($1->front);
                                                  } else {
                                                    $$->links = g_slist_prepend ($$->links, $1->front);
@@ -733,7 +795,7 @@ graph:              /* NOP */                     { ERROR (GST_PARSE_ERROR_EMPTY, "Empty pipeline not all
                                                }
                                                if ($1->back) {
                                                  if (!$1->back->sink_name) {
-                                                   ERROR (GST_PARSE_ERROR_LINK, "link without sink element");
+                                                   SET_ERROR (((graph_t *) graph)->error, GST_PARSE_ERROR_LINK, _("link without sink element"));
                                                    gst_parse_free_link ($1->back);
                                                  } else {
                                                    $$->links = g_slist_prepend ($$->links, $1->back);
@@ -757,11 +819,12 @@ static int
 yyerror (const char *s)
 {
   /* FIXME: This should go into the GError somehow, but how? */
-  g_warning ("error: %s\n", s);
+  g_warning ("error: %s", s);
   return -1;
 }
 
-int _gst_parse_yy_scan_string (char*);
+struct yy_buffer_state * _gst_parse_yy_scan_string (char*);
+void _gst_parse_yy_delete_buffer (struct yy_buffer_state *);
 GstElement *
 _gst_parse_launch (const gchar *str, GError **error)
 {
@@ -770,6 +833,7 @@ _gst_parse_launch (const gchar *str, GError **error)
   GSList *walk;
   GstBin *bin = NULL;
   GstElement *ret;
+  struct yy_buffer_state *buf;
   
   g_return_val_if_fail (str != NULL, NULL);
 
@@ -783,20 +847,21 @@ _gst_parse_launch (const gchar *str, GError **error)
 #endif /* __GST_PARSE_TRACE */
 
   dstr = g_strdup (str);
-  _gst_parse_yy_scan_string (dstr);
+  buf = _gst_parse_yy_scan_string (dstr);
 
-#ifdef GST_DEBUG_ENABLED
+#ifndef GST_DISABLE_GST_DEBUG
   yydebug = 1;
 #endif
 
   if (yyparse (&g) != 0) {
-    SET_ERROR (error, GST_PARSE_ERROR_SYNTAX, "Unrecoverable syntax error while parsing pipeline");
+    SET_ERROR (error, GST_PARSE_ERROR_SYNTAX, "Unrecoverable syntax error while parsing pipeline %s", str);
     
     goto error1;
   }
   g_free (dstr);
+  _gst_parse_yy_delete_buffer (buf);
   
-  GST_CAT_INFO (GST_CAT_PIPELINE, "got %u elements and %u links", g.chain ? g_slist_length (g.chain->elements) : 0, g_slist_length (g.links));
+  GST_CAT_DEBUG (GST_CAT_PIPELINE, "got %u elements and %u links", g.chain ? g_slist_length (g.chain->elements) : 0, g_slist_length (g.links));
   
   if (!g.chain) {
     ret = NULL;
@@ -806,26 +871,23 @@ _gst_parse_launch (const gchar *str, GError **error)
     g_slist_free (((chain_t *) g.chain)->elements);
     if (GST_IS_BIN (ret))
       bin = GST_BIN (ret);
+    gst_parse_chain_free (g.chain);
   } else {  
     /* put all elements in our bin */
     bin = GST_BIN (gst_element_factory_make ("pipeline", NULL));
     g_assert (bin);
-    walk = g.chain->elements;
-    while (walk) {
+    
+    for (walk = g.chain->elements; walk; walk = walk->next)
       gst_bin_add (bin, GST_ELEMENT (walk->data));
-      walk = g_slist_next (walk);  
-    }
+    
     g_slist_free (g.chain->elements);
     ret = GST_ELEMENT (bin);
+    gst_parse_chain_free (g.chain);
   }
-  gst_parse_chain_free (g.chain);
   
   /* remove links */
-  walk = g.links;
-  while (walk) {
+  for (walk = g.links; walk; walk = walk->next) {
     link_t *l = (link_t *) walk->data;
-    GstElement *sink;
-    walk = g_slist_next (walk);
     if (!l->src) {
       if (l->src_name) {
         if (bin) {
@@ -854,7 +916,6 @@ _gst_parse_launch (const gchar *str, GError **error)
         continue;
       }
     }
-    sink = l->sink;
     gst_parse_perform_link (l, &g);
   }
   g_slist_free (g.links);
@@ -873,23 +934,16 @@ error1:
   g_free (dstr);
   
   if (g.chain) {
-    walk = g.chain->elements;
-    while (walk) {
-      gst_object_unref (GST_OBJECT (walk->data));
-      walk = walk->next;
-    }
+    g_slist_foreach (g.chain->elements, (GFunc)gst_object_unref, NULL);
     g_slist_free (g.chain->elements);
+    gst_parse_chain_free (g.chain);
   }
-  gst_parse_chain_free (g.chain);
-  
-  walk = g.links;
-  while (walk) {
-    gst_parse_free_link ((link_t *) walk->data);
-    walk = walk->next;
-  }
+
+  g_slist_foreach (g.links, (GFunc)gst_parse_free_link, NULL);
   g_slist_free (g.links);
   
-  g_assert (*error);
+  if (error)
+    g_assert (*error);
   ret = NULL;
   
   goto out;