Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv14240
Modified Files:
lex.l
Log Message:
renamed stringdup to xstrdup; bitwise operators
Index: lex.l
===================================================================
RCS file: /cvsroot/agd/server/src/lex.l,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- lex.l 23 Jul 2004 14:23:20 -0000 1.18
+++ lex.l 23 Jul 2004 17:08:21 -0000 1.19
@@ -71,7 +71,7 @@
\\ pos++; BEGIN(in_string_backslash);
\" {
*string_buf_ptr = '\0';
- yylval.str = stringdup(string_buf);
+ yylval.str = xstrdup(string_buf);
BEGIN(INITIAL);
RET(s, yylval.str, L_STRING);
}
@@ -187,11 +187,11 @@
/* fake preprocessor macros */
"__VERSION__" {
- yylval.str = stringdup(PACKAGE_VERSION);
+ yylval.str = xstrdup(PACKAGE_VERSION);
RET(s, "__VERSION__", L_STRING);
}
"__ARCH__" {
- yylval.str = stringdup(PLATFORM);
+ yylval.str = xstrdup(PLATFORM);
RET(s, "__ARCH__", L_STRING);
}
@@ -214,6 +214,14 @@
"%=" RET(s, "%=", L_MOD_EQ);
".." RET(s, "..", L_RANGE);
+"^=" RET(s, "^=", L_BXOR_EQ);
+"|=" RET(s, "|=", L_BOR_EQ);
+"&=" RET(s, "&=", L_BAND_EQ);
+"<<" RET(s, "<<", L_BSL);
+"<<=" RET(s, "<<=", L_BSL_EQ);
+">>" RET(s, ">>", L_BSR);
+">>=" RET(s, ">>=", L_BSR_EQ);
+
"({" RET(s, "({", L_OPEN_ARRAY);
"([" RET(s, "([", L_OPEN_MAPPING);
"(:" RET(s, "(:", L_OPEN_FUNP);
@@ -242,7 +250,7 @@
mixed yylval.i = T_MIXED; RET(s, "mixed", L_DATA_TYPE);
object yylval.i = T_OBJECT; RET(s, "object", L_DATA_TYPE);
{IDENTIFIER} {
- char *str = stringdup(yytext);
+ char *str = xstrdup(yytext);
yylval.str = str;
RET(s, str, L_IDENTIFIER);
}
|
