mirror of
https://gitlab.freedesktop.org/gstreamer/gstreamer.git
synced 2024-11-18 07:47:17 +00:00
8cf0d17c3f
Original commit message from CVS: fix caps parsing. Some evil person (me?\!) disallowed the dot as a character in caps
135 lines
3.1 KiB
Text
135 lines
3.1 KiB
Text
%{
|
|
#include <math.h>
|
|
#include <ctype.h>
|
|
#include <string.h>
|
|
|
|
#include "../gst_private.h"
|
|
|
|
#include "types.h"
|
|
#include "../gstinfo.h"
|
|
#include "../gsturi.h"
|
|
#include "grammar.tab.h"
|
|
|
|
#ifdef G_HAVE_ISO_VARARGS
|
|
#define PRINT(...) GST_CAT_DEBUG (GST_CAT_PIPELINE, "flex: "__VA_ARGS__)
|
|
#elif defined(G_HAVE_GNUC_VARARGS)
|
|
#define PRINT(args...) GST_CAT_DEBUG (GST_CAT_PIPELINE, "flex: "##args)
|
|
#else
|
|
#define PRINT(args...)
|
|
#endif
|
|
|
|
#define YY_DECL int _gst_parse_yylex (YYSTYPE *lvalp)
|
|
%}
|
|
|
|
_operator [(){}.:!,;=]
|
|
_identifier [[:alpha:]][[:alnum:]\-_%]*
|
|
|
|
_char ("\\".)|([^[:space:]])
|
|
_string {_char}+|("\""([^\"]|"\\\"")*"\"")|("'"([^']|"\\\"")*"'")
|
|
|
|
_comma [[:space:]]*","[[:space:]]*
|
|
_assign [[:space:]]*"="[[:space:]]*
|
|
|
|
_protocol [[:alpha:]][[:alnum:]+-\.]*
|
|
_url {_protocol}"://"{_string}|["."{_identifier}]?"/"{_string}
|
|
|
|
/* we must do this here, because nearly everything matches a {_string} */
|
|
_assignment {_identifier}{_assign}{_string}
|
|
|
|
/* get pad/element references and stuff with dots right */
|
|
_padref "."{_identifier}
|
|
_ref {_identifier}"."{_identifier}?
|
|
_binref {_identifier}[[:space:]]*"."[[:space:]]*"("
|
|
|
|
/* links */
|
|
_mimechar ([[:alnum:]-])
|
|
_mimetype ({_mimechar}+"/"{_mimechar}+)|("\""([^\"]|"\\\"")*"\"")|("'"([^']|"\\\"")*"'")
|
|
_capschar ("\\".)|([^[:space:]\;!\,\(\)\]\[])
|
|
_capsstring {_capschar}+|("\""([^\"]|"\\\"")*"\"")|("'"([^']|"\\\"")*"'")
|
|
_caps {_mimetype}(","[^!]|{_capsstring})*
|
|
_link ("!"[[:space:]]*{_caps}([[:space:]]*";"[[:space:]]*{_caps})*[[:space:]]*"!")|("!")
|
|
|
|
%x value
|
|
%option noyywrap
|
|
%option nounput
|
|
%%
|
|
|
|
{_assignment} {
|
|
/* "=" */
|
|
PRINT ("ASSIGNMENT: %s\n", yytext);
|
|
lvalp->s = gst_parse_strdup (yytext);
|
|
BEGIN (INITIAL);
|
|
return ASSIGNMENT;
|
|
}
|
|
|
|
{_padref} {
|
|
yytext++;
|
|
PRINT ("PADREF: %s\n", yytext);
|
|
lvalp->s = gst_parse_strdup (yytext);
|
|
BEGIN (INITIAL);
|
|
return PADREF;
|
|
}
|
|
|
|
{_ref} {
|
|
PRINT ("REF: %s\n", yytext);
|
|
lvalp->s = gst_parse_strdup (yytext);
|
|
BEGIN (INITIAL);
|
|
return REF;
|
|
}
|
|
|
|
{_binref} {
|
|
gchar *pos = yytext;
|
|
while (!g_ascii_isspace (*pos) && (*pos != '.')) pos++;
|
|
*pos = '\0';
|
|
PRINT ("BINREF: %s\n", yytext);
|
|
lvalp->s = gst_parse_strdup (yytext);
|
|
BEGIN (INITIAL);
|
|
return BINREF;
|
|
}
|
|
|
|
{_identifier} {
|
|
PRINT ("IDENTIFIER: %s\n", yytext);
|
|
lvalp->s = gst_parse_strdup (yytext);
|
|
BEGIN (INITIAL);
|
|
return IDENTIFIER;
|
|
}
|
|
|
|
{_link} {
|
|
gchar *c = yytext;
|
|
PRINT ("LINK: %s\n", yytext);
|
|
c++;
|
|
if (*c) {
|
|
while (g_ascii_isspace (*c)) c++;
|
|
c = lvalp->s = gst_parse_strdup (c);
|
|
while (*c) c++;
|
|
g_assert (*--c == '!');
|
|
while (g_ascii_isspace (*--c));
|
|
*++c = '\0';
|
|
} else {
|
|
lvalp->s = NULL;
|
|
}
|
|
BEGIN (INITIAL);
|
|
return LINK;
|
|
}
|
|
{_url} {
|
|
PRINT ("URL: %s\n", yytext);
|
|
if (gst_uri_is_valid (yytext)) {
|
|
lvalp->s = g_strdup (yytext);
|
|
} else {
|
|
lvalp->s = gst_uri_construct ("file", yytext);
|
|
}
|
|
gst_parse_unescape (lvalp->s);
|
|
BEGIN (INITIAL);
|
|
return PARSE_URL;
|
|
}
|
|
|
|
{_operator} { PRINT ("OPERATOR: [%s]\n", yytext); return *yytext; }
|
|
|
|
[[:space:]]+ { PRINT ("SPACE: [%s]\n", yytext); }
|
|
|
|
. {
|
|
printf ("???: %s\n", yytext);
|
|
return *yytext;
|
|
}
|
|
|
|
%%
|