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 2007-02-18 11:21:34 +00:00
parent 6515dc2036
commit 8df5e66f4f
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.242 2007-02-18 11:12:18 bacon Exp $ * $Id: parse.c,v 1.243 2007-02-18 11:21:34 bacon Exp $
* *
* {License} * {License}
*/ */
@ -4203,7 +4203,8 @@ static int __get_token (ase_awk_t* awk)
if (__get_char (awk) == -1) return -1; if (__get_char (awk) == -1) return -1;
c = awk->src.lex.curc; c = awk->src.lex.curc;
if (ASE_AWK_ISDIGIT (awk, c)) if ((awk->option & ASE_AWK_EXPLICIT) == 0 &&
ASE_AWK_ISDIGIT (awk, c))
{ {
awk->src.lex.curc = ASE_T('.'); awk->src.lex.curc = ASE_T('.');
if (__unget_char (awk, c) == -1) return -1; if (__unget_char (awk, c) == -1) return -1;

4
ase/test/awk/awk.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk.c,v 1.165 2007-02-11 14:08:08 bacon Exp $ * $Id: awk.c,v 1.166 2007-02-18 11:21:19 bacon Exp $
*/ */
#include <ase/awk/awk.h> #include <ase/awk/awk.h>
@ -796,7 +796,7 @@ static int awk_main (int argc, ase_char_t* argv[])
ase_awk_runarg_t runarg[128]; ase_awk_runarg_t runarg[128];
int deparse = 0; int deparse = 0;
opt = ASE_AWK_IMPLICIT | opt = ASE_AWK_IMPLICIT |
ASE_AWK_EXPLICIT | ASE_AWK_EXPLICIT |
ASE_AWK_UNIQUEFN | ASE_AWK_UNIQUEFN |
ASE_AWK_IDIV | ASE_AWK_IDIV |