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-05-02 15:06:01 +00:00
parent 2f18d2d539
commit b145e38f97
2 changed files with 37 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.98 2006-04-30 17:12:51 bacon Exp $
* $Id: parse.c,v 1.99 2006-05-02 15:06:01 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -1893,14 +1893,42 @@ static xp_awk_nde_t* __parse_primary (xp_awk_t* awk)
static xp_awk_nde_t* __parse_hashidx (xp_awk_t* awk, xp_char_t* name)
{
xp_awk_nde_t* idx;
xp_awk_nde_t* idx, * tmp, * last;
xp_awk_nde_var_t* nde;
xp_size_t idxa;
if (__get_token(awk) == -1) return XP_NULL;
idx = XP_NULL;
last = XP_NULL;
idx = __parse_expression (awk);
if (idx == XP_NULL) return XP_NULL;
do
{
if (__get_token(awk) == -1)
{
if (idx != XP_NULL) xp_awk_clrpt (idx);
return XP_NULL;
}
tmp = __parse_expression (awk);
if (tmp == XP_NULL)
{
if (idx != XP_NULL) xp_awk_clrpt (idx);
return XP_NULL;
}
if (idx == XP_NULL)
{
xp_assert (last == XP_NULL);
idx = tmp; last = tmp;
}
else
{
tmp->next = last;
last = tmp;
}
}
while (MATCH(awk,TOKEN_COMMA));
xp_assert (idx != XP_NULL);
if (!MATCH(awk,TOKEN_RBRACK))
{

3
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/*
* $Id: run.c,v 1.80 2006-04-30 17:10:30 bacon Exp $
* $Id: run.c,v 1.81 2006-05-02 15:06:01 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -888,6 +888,7 @@ static int __run_exit_statement (xp_awk_run_t* run, xp_awk_nde_exit_t* nde)
static int __run_next_statement (xp_awk_run_t* run, xp_awk_nde_next_t* nde)
{
/* TODO */
xp_printf (XP_TEXT("**** next NOT IMPLEMENTED...\n"));
return -1;
}