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

*** empty log message ***

Browse Source
This commit is contained in:
hyung-hwan 2006-04-24 11:36:12 +00:00
parent e5224ad96d
commit 8ca03d1397
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ase/awk/awk.h
View File

@ -1,5 +1,5 @@
/*
* $Id: awk.h,v 1.56 2006-04-24 11:25:59 bacon Exp $
* $Id: awk.h,v 1.57 2006-04-24 11:36:12 bacon Exp $
*/
#ifndef _XP_AWK_AWK_H_
@ -35,7 +35,8 @@ enum
XP_AWK_UNIQUE = (1 << 2), /* a function name should not coincide to be a variable name */
XP_AWK_SHADING = (1 << 3), /* allow variable shading */
XP_AWK_SHIFT = (1 << 4), /* support shift operators */
XP_AWK_HASHSIGN = (1 << 5) /* support comments by a hash sign */
XP_AWK_HASHSIGN = (1 << 5), /* support comments by a hash sign */
XP_AWK_DBLSLASHES = (1 << 6) /* support comments by double slashes */
};
/* run options */

5
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.89 2006-04-24 11:25:59 bacon Exp $
* $Id: parse.c,v 1.90 2006-04-24 11:36:12 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -2571,7 +2571,6 @@ static int __get_token (xp_awk_t* awk)
}
else if (c == XP_CHAR('/'))
{
/* TODO: handle regular expression here... /^pattern$/ */
GET_CHAR_TO (awk, c);
if (c == XP_CHAR('='))
@ -2925,7 +2924,7 @@ static int __skip_comment (xp_awk_t* awk)
if (c != XP_CHAR('/')) return 0; /* not a comment */
GET_CHAR_TO (awk, c);
if (c == XP_CHAR('/'))
if ((awk->opt.parse & XP_AWK_DBLSLASHES) && c == XP_CHAR('/'))
{
do
{