185 lines
5.4 KiB
Plaintext
185 lines
5.4 KiB
Plaintext
/*
|
|
* XSLPattern lexer
|
|
*
|
|
* Copyright 2010 Adam Martinson for CodeWeavers
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
%{
|
|
#include "config.h"
|
|
#include "wine/port.h"
|
|
|
|
#ifdef HAVE_LIBXML2
|
|
|
|
#include "xslpattern.h"
|
|
#include "xslpattern.tab.h"
|
|
#include "wine/debug.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(msxml);
|
|
|
|
#define SCAN xslpattern_get_extra(yyscanner)
|
|
|
|
#define YY_INPUT(tok_buf, tok_len, max) \
|
|
do { \
|
|
if (SCAN->pos <= SCAN->len) \
|
|
{ \
|
|
tok_len = SCAN->len - SCAN->pos; \
|
|
if (tok_len > max) tok_len = max; \
|
|
memcpy(tok_buf, SCAN->in + SCAN->pos, tok_len); \
|
|
SCAN->pos += tok_len; \
|
|
} \
|
|
else \
|
|
{ \
|
|
tok_len = YY_NULL; \
|
|
} \
|
|
} while (0);
|
|
|
|
#define TOK(tok) TRACE("token: %s : %s\n", #tok, yytext); return tok
|
|
#define OP(tok) *yylval=NULL; TOK(tok)
|
|
#define SYM(tok) *yylval=NULL; TOK(tok)
|
|
#define STR(tok) *yylval=xmlStrdup(BAD_CAST yytext); TOK(tok)
|
|
|
|
|
|
%}
|
|
|
|
%option reentrant bison-bridge
|
|
%option noyywrap
|
|
%option prefix="xslpattern_"
|
|
%option noinput nounput
|
|
|
|
/* From the w3c XML standard
|
|
* <http://www.w3.org/TR/REC-xml/> */
|
|
|
|
/* [2.3] Common Syntactic Constructs */
|
|
WSpace ([[:space:]])
|
|
|
|
NCNameStartChar ([A-Za-z_]|[\xc0-\xd6\xd8-\xf6\xf8-\xff])
|
|
|
|
NameCharEx ([0-9]|[-._\xb7])
|
|
|
|
NCNameChar ({NCNameStartChar}|{NameCharEx})
|
|
|
|
/* From the w3c XML Namespace standard
|
|
* <http://www.w3.org/TR/REC-xml-names/> */
|
|
|
|
/* [3] Declaring Namespaces*/
|
|
NCName ({NCNameStartChar}{NCNameChar}*)
|
|
|
|
/* Mostly verbatim from the w3c XPath standard.
|
|
* <http://www.w3.org/TR/xpath/> */
|
|
|
|
|
|
/* [3.4] Booleans
|
|
* ||, &&, $foo$ are XSLPattern only */
|
|
|
|
OP_Or ("or"|"||"|"$or$")
|
|
OP_And ("and"|"&&"|"$and$")
|
|
OP_Eq ("="|"$eq$")
|
|
OP_IEq ("$ieq$")
|
|
OP_NEq ("!="|"$ne$")
|
|
OP_INEq ("$ine$")
|
|
OP_Lt ("<"|"$lt$")
|
|
OP_ILt ("$ilt$")
|
|
OP_Gt (">"|"$gt$")
|
|
OP_IGt ("$igt$")
|
|
OP_LEq ("<="|"$le$")
|
|
OP_ILEq ("$ile$")
|
|
OP_GEq (">="|"$ge$")
|
|
OP_IGEq ("$ige$")
|
|
OP_Not ("$not$")
|
|
OP_All ("$all$")
|
|
OP_Any ("$any$")
|
|
|
|
/* [3.7] Lexical Structure */
|
|
Literal (([\x22]([^\x22]*)[\x22])|([\x27]([^\x27]*)[\x27]))
|
|
Number ({Digits}("."{Digits}?)?|"."{Digits})
|
|
Digits ([0-9]+)
|
|
|
|
ANY (.)
|
|
|
|
%%
|
|
|
|
{WSpace}+ { /* ignored */ }
|
|
{Literal} { STR(TOK_Literal); }
|
|
"//" { SYM(TOK_DblFSlash); }
|
|
"/" { SYM(TOK_FSlash); }
|
|
".." { SYM(TOK_Parent); }
|
|
"." { SYM(TOK_Self); }
|
|
"::" { SYM(TOK_Axis); }
|
|
":" { SYM(TOK_Colon); }
|
|
"(" { SYM('('); }
|
|
")" { SYM(')'); }
|
|
"[" { SYM('['); }
|
|
"]" { SYM(']'); }
|
|
"@" { SYM('@'); }
|
|
"," { SYM(','); }
|
|
"*" { SYM('*'); }
|
|
{OP_And} { OP(TOK_OpAnd); }
|
|
{OP_Or} { OP(TOK_OpOr); }
|
|
{OP_Not} { OP(TOK_OpNot); }
|
|
{OP_Eq} { OP(TOK_OpEq); }
|
|
{OP_IEq} { OP(TOK_OpIEq); }
|
|
{OP_NEq} { OP(TOK_OpNEq); }
|
|
{OP_INEq} { OP(TOK_OpINEq); }
|
|
{OP_Lt} { OP(TOK_OpLt); }
|
|
{OP_ILt} { OP(TOK_OpILt); }
|
|
{OP_Gt} { OP(TOK_OpGt); }
|
|
{OP_IGt} { OP(TOK_OpIGt); }
|
|
{OP_LEq} { OP(TOK_OpLEq); }
|
|
{OP_ILEq} { OP(TOK_OpILEq); }
|
|
{OP_GEq} { OP(TOK_OpGEq); }
|
|
{OP_IGEq} { OP(TOK_OpIGEq); }
|
|
{OP_All} { OP(TOK_OpAll); }
|
|
{OP_Any} { OP(TOK_OpAny); }
|
|
"|" { SYM('|'); }
|
|
"!" { SYM('!'); }
|
|
{NCName} { STR(TOK_NCName); }
|
|
{Number} { STR(TOK_Number); }
|
|
{ANY} { FIXME("Unexpected character '%s'.\n",yytext); }
|
|
|
|
%%
|
|
|
|
xmlChar* XSLPattern_to_XPath(xmlXPathContextPtr ctxt, xmlChar const* xslpat_str)
|
|
{
|
|
parser_param p;
|
|
TRACE("(%s)\n", wine_dbgstr_a((char const*)xslpat_str));
|
|
memset(&p, 0, sizeof(parser_param));
|
|
p.ctx = ctxt;
|
|
p.in = xslpat_str;
|
|
p.len = xmlStrlen(xslpat_str);
|
|
|
|
xslpattern_lex_init(&p.yyscanner);
|
|
xslpattern_set_extra(&p, p.yyscanner);
|
|
|
|
xslpattern_parse(&p, p.yyscanner);
|
|
|
|
TRACE("=> %s\n", wine_dbgstr_a((char const*)p.out));
|
|
xslpattern_lex_destroy(p.yyscanner);
|
|
|
|
if (p.err)
|
|
{
|
|
xmlFree(p.out);
|
|
return xmlStrdup(xslpat_str);
|
|
}
|
|
else
|
|
{
|
|
return p.out;
|
|
}
|
|
|
|
}
|
|
|
|
#endif /* HAVE_LIBXML2 */
|