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-12 22:52:19 +00:00
parent e71d5af472
commit 8aeb8f010d
1 changed files with 26 additions and 35 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c 240 2008-07-11 14:41:16Z baconevi $ * $Id: parse.c 241 2008-07-12 04:52:19Z baconevi $
* *
* {License} * {License}
*/ */
@ -382,7 +382,7 @@ static global_t gtab[] =
#define MATCH_TERMINATOR(awk) \ #define MATCH_TERMINATOR(awk) \
(MATCH((awk),TOKEN_SEMICOLON) || \ (MATCH((awk),TOKEN_SEMICOLON) || \
((awk->option & ASE_AWK_NEWLINE) && MATCH((awk),TOKEN_NEWLINE))) ((awk->option & ASE_AWK_NEWLINE) && (MATCH((awk),TOKEN_NEWLINE) || MATCH((awk),TOKEN_RBRACE))))
ase_size_t ase_awk_getmaxdepth (ase_awk_t* awk, int type) ase_size_t ase_awk_getmaxdepth (ase_awk_t* awk, int type)
{ {
@ -498,6 +498,8 @@ static int parse (ase_awk_t* awk)
adjust_static_globals (awk); adjust_static_globals (awk);
#define EXIT_PARSE(v) do { n = (v); goto exit_parse; } while(0)
/* the user io handler for the source code input returns 0 when /* the user io handler for the source code input returns 0 when
* it doesn't have any files to open. this is the same condition * it doesn't have any files to open. this is the same condition
* as the source code file is empty. so it will perform the parsing * as the source code file is empty. so it will perform the parsing
@ -505,37 +507,19 @@ static int parse (ase_awk_t* awk)
if (op > 0) if (op > 0)
{ {
/* get the first character */ /* get the first character */
if (get_char(awk) == -1) if (get_char(awk) == -1) EXIT_PARSE(-1);
{
n = -1;
goto exit_parse;
}
/* get the first token */ /* get the first token */
if (get_token(awk) == -1) if (get_token(awk) == -1) EXIT_PARSE(-1);
{
n = -1;
goto exit_parse;
}
while (1) while (1)
{ {
while (MATCH(awk,TOKEN_NEWLINE))
{
if (get_token(awk) == -1) EXIT_PARSE(-1);
}
if (MATCH(awk,TOKEN_EOF)) break; if (MATCH(awk,TOKEN_EOF)) break;
if (MATCH(awk,TOKEN_NEWLINE))
{
if (get_token(awk) == -1)
{
n = -1;
goto exit_parse;
}
continue;
}
if (parse_progunit(awk) == ASE_NULL) if (parse_progunit(awk) == ASE_NULL) EXIT_PARSE(-1);
{
n = -1;
goto exit_parse;
}
} }
if ((awk->option & ASE_AWK_EXPLICIT) && if ((awk->option & ASE_AWK_EXPLICIT) &&
@ -556,8 +540,7 @@ static int parse (ase_awk_t* awk)
SETERRARG (awk, ASE_AWK_EFNNONE, SETERRARG (awk, ASE_AWK_EFNNONE,
(ase_size_t)p->val, (ase_size_t)p->val,
p->key.ptr, p->key.len); p->key.ptr, p->key.len);
n = -1; EXIT_PARSE(-1);
goto exit_parse;
} }
p = ase_map_getnextpair (awk->parse.afns, p, &buckno); p = ase_map_getnextpair (awk->parse.afns, p, &buckno);
@ -570,13 +553,10 @@ static int parse (ase_awk_t* awk)
if (awk->src.ios.out != ASE_NULL) if (awk->src.ios.out != ASE_NULL)
{ {
if (deparse (awk) == -1) if (deparse (awk) == -1) EXIT_PARSE(-1);
{
n = -1;
goto exit_parse;
}
} }
#undef EXIT_PARSE
exit_parse: exit_parse:
if (n == 0) CLRERR (awk); if (n == 0) CLRERR (awk);
if (awk->src.ios.in ( if (awk->src.ios.in (
@ -1252,6 +1232,13 @@ static ase_awk_nde_t* parse_block (
while (1) while (1)
{ {
/* skip new lines within a block */
while (MATCH(awk,TOKEN_NEWLINE))
{
if (get_token(awk) == -1) return ASE_NULL;
}
/* if the EOF is met before the right brace, this is an error */
if (MATCH(awk,TOKEN_EOF)) if (MATCH(awk,TOKEN_EOF))
{ {
ase_awk_tab_remove ( ase_awk_tab_remove (
@ -1263,19 +1250,22 @@ static ase_awk_nde_t* parse_block (
return ASE_NULL; return ASE_NULL;
} }
/* end the block when the right brace is met */
if (MATCH(awk,TOKEN_RBRACE)) if (MATCH(awk,TOKEN_RBRACE))
{ {
if (get_token(awk) == -1) if (get_token(awk) == -1)
{ {
ase_awk_tab_remove ( ase_awk_tab_remove (
&awk->parse.locals, nlocals, &awk->parse.locals, nlocals,
ase_awk_tab_getsize(&awk->parse.locals) - nlocals); ase_awk_tab_getsize(&awk->parse.locals)-nlocals);
if (head != ASE_NULL) ase_awk_clrpt (awk, head); if (head != ASE_NULL) ase_awk_clrpt (awk, head);
return ASE_NULL; return ASE_NULL;
} }
break; break;
} }
/* parse an actual statement in a block */
nde = parse_statement (awk, awk->token.line); nde = parse_statement (awk, awk->token.line);
if (nde == ASE_NULL) if (nde == ASE_NULL)
{ {
@ -1834,6 +1824,7 @@ static ase_awk_nde_t* parse_statement (ase_awk_t* awk, ase_size_t line)
return nde; return nde;
} }
/* parse a non-block statement */
static ase_awk_nde_t* parse_statement_nb (ase_awk_t* awk, ase_size_t line) static ase_awk_nde_t* parse_statement_nb (ase_awk_t* awk, ase_size_t line)
{ {
ase_awk_nde_t* nde; ase_awk_nde_t* nde;