diff --git a/ase/awk/parse.c b/ase/awk/parse.c index 3d06675e..0cc59578 100644 --- a/ase/awk/parse.c +++ b/ase/awk/parse.c @@ -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 @@ -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;