You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
216 lines
6.8 KiB
216 lines
6.8 KiB
4 years ago
|
/*******************************************************************
|
||
|
|
* Description: encode/decode attribute lists
|
||
|
|
*
|
||
|
|
* Originated: 03-06-2000
|
||
|
|
* Original Author: Mike Day - md@soft-hackle.net
|
||
|
|
*
|
||
|
|
* Copyright (C) Michael Day, 2000-2001
|
||
|
|
*
|
||
|
|
* This program is free software; you can redistribute it and/or
|
||
|
|
* modify it under the terms of the GNU General Public License
|
||
|
|
* as published by the Free Software Foundation; either version 2
|
||
|
|
* of the License, or (at your option) any later version.
|
||
|
|
*
|
||
|
|
* This program 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 General Public License for more details.
|
||
|
|
*
|
||
|
|
* You should have received a copy of the GNU General Public License
|
||
|
|
* along with this program; if not, write to the Free Software
|
||
|
|
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||
|
|
|
||
|
|
*******************************************************************/
|
||
|
|
|
||
|
|
|
||
|
|
%{
|
||
|
|
|
||
|
|
#undef YYLMAX
|
||
|
|
#define YYLMAX 2048
|
||
|
|
|
||
|
|
#define yymaxdepth slp_attr_maxdepth
|
||
|
|
#define yyparse slp_attr_parse
|
||
|
|
#define yylex slp_attr_lex
|
||
|
|
#define yyerror slp_attr_error
|
||
|
|
#define yylval slp_attr_lval
|
||
|
|
#define yychar slp_attr_char
|
||
|
|
#define yydebug slp_attr_debug
|
||
|
|
#define yypact slp_attr_pact
|
||
|
|
#define yyr1 slp_attr_r1
|
||
|
|
#define yyr2 slp_attr_r2
|
||
|
|
#define yydef slp_attr_def
|
||
|
|
#define yychk slp_attr_chk
|
||
|
|
#define yypgo slp_attr_pgo
|
||
|
|
#define yyact slp_attr_act
|
||
|
|
#define yyexca slp_attr_exca
|
||
|
|
#define yyerrflag slp_attr_errflag
|
||
|
|
#define yynerrs slp_attr_nerrs
|
||
|
|
#define yyps slp_attr_ps
|
||
|
|
#define yypv slp_attr_pv
|
||
|
|
#define yys slp_attr_s
|
||
|
|
#define yy_yys slp_attr_yys
|
||
|
|
#define yystate slp_attr_state
|
||
|
|
#define yytmp slp_attr_tmp
|
||
|
|
#define yyv slp_attr_v
|
||
|
|
#define yy_yyv slp_attr_yyv
|
||
|
|
#define yyval slp_attr_val
|
||
|
|
#define yylloc slp_attr_lloc
|
||
|
|
#define yyreds slp_attr_reds
|
||
|
|
#define yytoks slp_attr_toks
|
||
|
|
#define yylhs slp_attr_yylhs
|
||
|
|
#define yylen slp_attr_yylen
|
||
|
|
#define yydefred slp_attr_yydefred
|
||
|
|
#define yydgoto slp_attr_yydgoto
|
||
|
|
#define yysindex slp_attr_yysindex
|
||
|
|
#define yyrindex slp_attr_yyrindex
|
||
|
|
#define yygindex slp_attr_yygindex
|
||
|
|
#define yytable slp_attr_yytable
|
||
|
|
#define yycheck slp_attr_yycheck
|
||
|
|
#define yyname slp_attr_yyname
|
||
|
|
#define yyrule slp_attr_yyrule
|
||
|
|
#define YY_NO_UNPUT
|
||
|
|
|
||
|
|
#include "slp_attr.h"
|
||
|
|
#include "slp_attr_y.h"
|
||
|
|
#include "slp_xmalloc.h"
|
||
|
|
|
||
|
|
static char buf[2052];
|
||
|
|
|
||
|
|
void slp_attr_error(char *, ...);
|
||
|
|
|
||
|
|
int slp_attr_wrap(void);
|
||
|
|
|
||
|
|
int slp_attr_lex(void);
|
||
|
|
|
||
|
|
void slp_attr_close_lexer(unsigned int handle);
|
||
|
|
|
||
|
|
unsigned int slp_attr_init_lexer(char *s);
|
||
|
|
|
||
|
|
|
||
|
|
%}
|
||
|
|
|
||
|
|
/* {} */
|
||
|
|
digit [0-9]
|
||
|
|
hexdigit [0-9a-fA-F]
|
||
|
|
escaped ("\\"([a-fA-F0-9]{2}))
|
||
|
|
reserved [(),\\!<=>~\x00-\x1f]
|
||
|
|
res_tag [(),\\!<>~\x00-\x1f*_\r\n\t]
|
||
|
|
res_val [*_\r\n\t]
|
||
|
|
tag [^(),\\!<=>~\x00-\x1f]
|
||
|
|
val [^(),\\!<>~\x00-\x1f*_\r\n\t]
|
||
|
|
|
||
|
|
/*
|
||
|
|
this lexer cycles through three states. in the initial state,
|
||
|
|
it is looking strictly for attribute tags. If, in the initial
|
||
|
|
state it finds a '(' it anticipates an attribute-value pair
|
||
|
|
and changes to ATTRIBUTE state .
|
||
|
|
|
||
|
|
in the ATTRIBUTE state is is looking for either a closing ')'
|
||
|
|
or a '='. If it sees a closing ')' it changes to the initial state.
|
||
|
|
if it sees an '=' it changes to the VALUE state and looks for
|
||
|
|
the attribute value. After seeing the attribute value, it looks
|
||
|
|
for a either a ')' or a ','. If it sees a ')' it closes the attribute
|
||
|
|
and returns to the initial state.
|
||
|
|
|
||
|
|
if, during the VALUE state the lexer sees a ',' it decides it is
|
||
|
|
looking at a multi-valued attribute and returns a special _MULTIVAL
|
||
|
|
token to the parser. The parser uses this to construct additional
|
||
|
|
attribute-value pairs for each value in the multi-val statement.
|
||
|
|
*/
|
||
|
|
%option noyywrap
|
||
|
|
%x ATTR
|
||
|
|
%x VALUE
|
||
|
|
%%
|
||
|
|
|
||
|
|
[ \t\v\f]* { ; }
|
||
|
|
|
||
|
|
"," { yylval._i = *yytext; return(yylval._i); }
|
||
|
|
"(" { BEGIN ATTR; yylval._i = *yytext; return(yylval._i); }
|
||
|
|
{tag}+ {
|
||
|
|
if (yyleng > 0) {
|
||
|
|
if(NULL != (yylval._s = xstrdup(yytext)))
|
||
|
|
return(_TAG);
|
||
|
|
else
|
||
|
|
return(0L);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* anything else in the initial state is an error */
|
||
|
|
. {yyerror("error in lexer - initial state\n");}
|
||
|
|
|
||
|
|
<ATTR>[ \t\v\f]* { ; }
|
||
|
|
<ATTR>"=" {BEGIN VALUE; yylval._i = *yytext; return(yylval._i);}
|
||
|
|
<ATTR>{tag}+ {
|
||
|
|
if (yyleng > 0 ) {
|
||
|
|
if(NULL != (yylval._s = xstrdup(yytext)))
|
||
|
|
return(_TAG);
|
||
|
|
else
|
||
|
|
return(0L);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
/* make it legal to have just an attr tag enclosed in parens */
|
||
|
|
<ATTR>")" {BEGIN INITIAL; yylval._i = *yytext; return(yylval._i); }
|
||
|
|
|
||
|
|
/* anything else in the attribute state is an error */
|
||
|
|
<ATTR>. {yyerror("error in lexer - attribute state\n");}
|
||
|
|
|
||
|
|
<VALUE>[ \t\v\f]* { ; }
|
||
|
|
<VALUE>"," {yylval._i = *yytext; return(_MULTIVAL);}
|
||
|
|
|
||
|
|
<VALUE>[-+][0-9]+ |
|
||
|
|
<VALUE>[-+]"0"[xX]{hexdigit}+ { yylval._i = strtol(yytext, (char **) 0, 0); return _INT ;};
|
||
|
|
|
||
|
|
<VALUE>[0-9]+ |
|
||
|
|
<VALUE>"0"[xX]{hexdigit}+ { yylval._i = strtoul(yytext, (char **)0, 0); return _INT; };
|
||
|
|
|
||
|
|
|
||
|
|
<VALUE>[tT][rR][uU][eE] {return(_TRUE);}
|
||
|
|
<VALUE>[fF][aA][lL][sS][eE] {return(_FALSE);}
|
||
|
|
|
||
|
|
<VALUE>{val}+ {
|
||
|
|
if (yyleng > 0) {
|
||
|
|
if(NULL != (yylval._s = xstrdup(yytext)))
|
||
|
|
return(_STRING);
|
||
|
|
else
|
||
|
|
return(0L);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
<VALUE>{escaped}+ {
|
||
|
|
if (yyleng > 0) {
|
||
|
|
if(NULL != (yylval._s = xstrdup(yytext)))
|
||
|
|
return(_ESCAPED);
|
||
|
|
else
|
||
|
|
return(0L);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
<VALUE>")" {BEGIN INITIAL; yylval._i = *yytext; return(yylval._i);}
|
||
|
|
|
||
|
|
/* anything else in the value state is an error */
|
||
|
|
<VALUE>. {yyerror("error in lexer - value state\n");}
|
||
|
|
|
||
|
|
%%
|
||
|
|
|
||
|
|
unsigned int slp_attr_init_lexer(char *s)
|
||
|
|
{
|
||
|
|
memset(&buf[0], 0x00, 2052);
|
||
|
|
strncpy(&buf[0], s, 2052);
|
||
|
|
return((unsigned int)yy_scan_buffer(&buf[0], strlen(s) + 2));
|
||
|
|
}
|
||
|
|
|
||
|
|
void attr_close_lexer(unsigned int handle)
|
||
|
|
{
|
||
|
|
// assert(handle != 0);
|
||
|
|
yy_delete_buffer((YY_BUFFER_STATE)handle);
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
void yyerror(char *s, ...)
|
||
|
|
{
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
|