hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Browse Source
This commit is contained in:
hyung-hwan 2008-07-23 07:01:49 +00:00
parent 6e9876f9c2
commit aca2acab75
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ase/include/ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.h 279 2008-07-21 05:27:34Z baconevi $ * $Id: awk.h 282 2008-07-22 13:01:49Z baconevi $
* *
* {License} * {License}
*/ */
@ -157,6 +157,8 @@ enum ase_awk_option_t
/* allow variable shading */ /* allow variable shading */
/*ASE_AWK_SHADING = (1 << 3),*/ /*ASE_AWK_SHADING = (1 << 3),*/
#endif #endif
/* change ^ from exponentation to bitwise xor */
ASE_AWK_BXOR = (1 << 3),
/* support shift operators */ /* support shift operators */
ASE_AWK_SHIFT = (1 << 4), ASE_AWK_SHIFT = (1 << 4),

8
ase/lib/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c 271 2008-07-20 12:42:39Z baconevi $ * $Id: parse.c 282 2008-07-22 13:01:49Z baconevi $
* *
* {License} * {License}
*/ */
@ -4785,13 +4785,15 @@ static int get_token (ase_awk_t* awk)
if (c == ASE_T('=')) if (c == ASE_T('='))
{ {
SET_TOKEN_TYPE (awk, TOKEN_BXOR_ASSIGN); SET_TOKEN_TYPE (awk, ((awk->option & ASE_AWK_BXOR)?
TOKEN_BXOR_ASSIGN: TOKEN_EXP_ASSIGN));
ADD_TOKEN_CHAR (awk, c); ADD_TOKEN_CHAR (awk, c);
GET_CHAR (awk); GET_CHAR (awk);
} }
else else
{ {
SET_TOKEN_TYPE (awk, TOKEN_BXOR); SET_TOKEN_TYPE (awk, ((awk->option & ASE_AWK_BXOR)?
TOKEN_BXOR: TOKEN_EXP));
} }
} }
else if (c == ASE_T('+')) else if (c == ASE_T('+'))