[agd-cvs] server/src lex.l,1.18,1.19

[Peep P. <so...@us...>]

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);
 		}