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-06-03 15:56:31 +00:00
parent 7aa5501055
commit b8e2aa8dc9
1 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/*
* $Id: parse.c,v 1.106 2006-05-13 16:33:07 bacon Exp $
* $Id: parse.c,v 1.107 2006-06-03 15:56:31 bacon Exp $
*/
#include <xp/awk/awk_i.h>
@ -83,6 +83,7 @@ enum
TOKEN_RETURN,
TOKEN_EXIT,
TOKEN_DELETE,
TOKEN_GETLINE,
TOKEN_NEXT,
TOKEN_NEXTFILE,
@ -188,6 +189,7 @@ static struct __kwent __kwtab[] =
{ XP_T("return"), TOKEN_RETURN, 0 },
{ XP_T("exit"), TOKEN_EXIT, 0 },
{ XP_T("delete"), TOKEN_DELETE, 0 },
{ XP_T("getline"), TOKEN_GETLINE, 0 },
{ XP_T("next"), TOKEN_NEXT, 0 },
{ XP_T("nextfile"), TOKEN_NEXTFILE, 0 },
@ -1064,6 +1066,11 @@ static xp_awk_nde_t* __parse_statement_nb (xp_awk_t* awk)
if (__get_token(awk) == -1) return XP_NULL;
nde = __parse_delete(awk);
}
else if (MATCH(awk,TOKEN_GETLINE))
{
if (__get_token(awk) == -1) return XP_NULL;
nde = __parse_getline(awk);
}
else if (MATCH(awk,TOKEN_NEXT))
{
if (__get_token(awk) == -1) return XP_NULL;
@ -2552,6 +2559,12 @@ static xp_awk_nde_t* __parse_delete (xp_awk_t* awk)
return XP_NULL;
}
static xp_awk_nde_t* __parse_getline (xp_awk_t* awk)
{
/* TODO: implement this... */
return XP_NULL;
}
static xp_awk_nde_t* __parse_next (xp_awk_t* awk)
{
xp_awk_nde_next_t* nde;