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-10 08:07:47 +00:00
parent 75d4e90399
commit 00b3e80690
2 changed files with 16 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c 197 2008-06-09 06:24:10Z baconevi $ * $Id: parse.c 238 2008-07-09 14:07:47Z baconevi $
* *
* {License} * {License}
*/ */
@ -1917,20 +1917,25 @@ static ase_awk_nde_t* parse_statement_nb (ase_awk_t* awk, ase_size_t line)
if (nde == ASE_NULL) return ASE_NULL; if (nde == ASE_NULL) return ASE_NULL;
/* check if a statement ends with a semicolon */ /* check if a statement ends with a semicolon */
if (!MATCH(awk,TOKEN_SEMICOLON)) if (MATCH(awk,TOKEN_SEMICOLON))
{ {
/* eat up the semicolon and read in the next token */
if (get_token(awk) == -1)
{
if (nde != ASE_NULL) ase_awk_clrpt (awk, nde);
return ASE_NULL;
}
}
else if (((awk->option & ASE_AWK_EXPLICIT) && !(awk->option & ASE_AWK_IMPLICIT)) ||
(awk->token.prev.line == awk->token.line && !MATCH(awk,TOKEN_RBRACE)))
{
/* when EXPLICIT, the statement should end with a semicolon.
* otherwise, a new line or a block closer can terminate a statement. */
if (nde != ASE_NULL) ase_awk_clrpt (awk, nde); if (nde != ASE_NULL) ase_awk_clrpt (awk, nde);
SETERRLIN (awk, ASE_AWK_ESTMEND, awk->token.prev.line); SETERRLIN (awk, ASE_AWK_ESTMEND, awk->token.prev.line);
return ASE_NULL; return ASE_NULL;
} }
/* eat up the semicolon and read in the next token */
if (get_token(awk) == -1)
{
if (nde != ASE_NULL) ase_awk_clrpt (awk, nde);
return ASE_NULL;
}
return nde; return nde;
} }

4
ase/lib/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c 237 2008-07-09 13:20:08Z baconevi $ * $Id: run.c 238 2008-07-09 14:07:47Z baconevi $
* *
* {License} * {License}
*/ */
@ -5936,7 +5936,7 @@ static ase_awk_val_t* eval_int (ase_awk_run_t* run, ase_awk_nde_t* nde)
run->errlin = nde->line; run->errlin = nde->line;
return ASE_NULL; return ASE_NULL;
} }
((ase_awk_val_int_t*)val)->nde = nde; ((ase_awk_val_int_t*)val)->nde = nde;
return val; return val;
} }