From 7b47ccbdbd725093c2091ada5821480d8b4822b2 Mon Sep 17 00:00:00 2001 From: hyung-hwan Date: Thu, 14 Feb 2008 20:28:44 +0000 Subject: [PATCH] --- ase/awk/parse.c | 292 ------------------------------------------------ 1 file changed, 292 deletions(-) diff --git a/ase/awk/parse.c b/ase/awk/parse.c index 246367d0..66096880 100644 --- a/ase/awk/parse.c +++ b/ase/awk/parse.c @@ -3073,8 +3073,6 @@ static ase_awk_nde_t* parse_primary (ase_awk_t* awk, ase_size_t line) return ASE_NULL; } -#if 0 -ORIGINAL... static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line) { ase_char_t* name_dup; @@ -3337,296 +3335,6 @@ static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line) return ASE_NULL; } } -#endif -static ase_awk_nde_t* parse_primary_ident (ase_awk_t* awk, ase_size_t line) -{ - ase_char_t* name_dup; - ase_size_t name_len; - ase_awk_bfn_t* bfn; - ase_size_t idxa; - ase_char_t name_dup_buf[32]; - - ASE_ASSERT (MATCH(awk,TOKEN_IDENT)); - - if (ASE_STR_LEN(&awk->token.name) < ASE_COUNTOF(name_dup_buf)) - { - ase_strxncpy ( - name_dup_buf, - ASE_COUNTOF(name_dup_buf), - ASE_STR_BUF(&awk->token.name), - ASE_STR_LEN(&awk->token.name)); - name_dup = name_dup_buf; -// TODO: dup on acutal node creationg........ - } - else - { - name_dup = ase_awk_strxdup (awk, - ASE_STR_BUF(&awk->token.name), - ASE_STR_LEN(&awk->token.name)); - if (name_dup == ASE_NULL) - { - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - return ASE_NULL; - } - } - - name_len = ASE_STR_LEN(&awk->token.name); - - -#define FREE_DUP_NAME(awk) \ - do { \ - if (name_dup != name_dup_buf) \ - ASE_AWK_FREE (awk, name_dup); \ - } while (0) - - if (get_token(awk) == -1) - { - FREE_DUP_NAME(awk); - return ASE_NULL; - } - - /* check if name_dup is an intrinsic function name */ - bfn = ase_awk_getbfn (awk, name_dup, name_len); - if (bfn != ASE_NULL) - { - ase_awk_nde_t* nde; - - if (!MATCH(awk,TOKEN_LPAREN)) - { - /* an intrinsic function should be in the form - * of the function call */ - FREE_DUP_NAME(awk); - SETERRTOK (awk, ASE_AWK_ELPAREN); - return ASE_NULL; - } - - nde = parse_fncall (awk, name_dup, name_len, bfn, line); - if (nde == ASE_NULL) FREE_DUP_NAME(awk); - return (ase_awk_nde_t*)nde; - } - - /* now we know that name_dup is a normal identifier. */ - if (MATCH(awk,TOKEN_LBRACK)) - { - ase_awk_nde_t* nde; - nde = parse_hashidx (awk, name_dup, name_len, line); - if (nde == ASE_NULL) FREE_DUP_NAME(awk); - return (ase_awk_nde_t*)nde; - } - else if ((idxa = ase_awk_tab_rrfind ( - &awk->parse.locals, 0, name_dup, name_len)) != (ase_size_t)-1) - { - /* local variable */ - - ase_awk_nde_var_t* nde; - - if (MATCH(awk,TOKEN_LPAREN)) - { - /* a local variable is not a function */ - SETERRARG (awk, ASE_AWK_EFNNAME, line, name_dup, name_len); - FREE_DUP_NAME (awk); - return ASE_NULL; - } - - nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC ( - awk, ASE_SIZEOF(ase_awk_nde_var_t)); - if (nde == ASE_NULL) - { - FREE_DUP_NAME (awk); - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - return ASE_NULL; - } - - nde->type = ASE_AWK_NDE_LOCAL; - nde->line = line; - nde->next = ASE_NULL; - /*nde->id.name = ASE_NULL;*/ - nde->id.name = name_dup; - nde->id.name_len = name_len; - nde->id.idxa = idxa; - nde->idx = ASE_NULL; - - return (ase_awk_nde_t*)nde; - } - else if ((idxa = ase_awk_tab_find ( - &awk->parse.params, 0, name_dup, name_len)) != (ase_size_t)-1) - { - /* parameter */ - - ase_awk_nde_var_t* nde; - - if (MATCH(awk,TOKEN_LPAREN)) - { - /* a parameter is not a function */ - SETERRARG (awk, ASE_AWK_EFNNAME, line, name_dup, name_len); - FREE_DUP_NAME (awk); - return ASE_NULL; - } - - nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC ( - awk, ASE_SIZEOF(ase_awk_nde_var_t)); - if (nde == ASE_NULL) - { - FREE_DUP_NAME (awk); - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - return ASE_NULL; - } - - nde->type = ASE_AWK_NDE_ARG; - nde->line = line; - nde->next = ASE_NULL; - /*nde->id.name = ASE_NULL;*/ - nde->id.name = name_dup; - nde->id.name_len = name_len; - nde->id.idxa = idxa; - nde->idx = ASE_NULL; - - return (ase_awk_nde_t*)nde; - } - else if ((idxa = get_global ( - awk, name_dup, name_len)) != (ase_size_t)-1) - { - /* global variable */ - - ase_awk_nde_var_t* nde; - - if (MATCH(awk,TOKEN_LPAREN)) - { - /* a global variable is not a function */ - SETERRARG (awk, ASE_AWK_EFNNAME, line, name_dup, name_len); - FREE_DUP_NAME (awk); - return ASE_NULL; - } - - nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC ( - awk, ASE_SIZEOF(ase_awk_nde_var_t)); - if (nde == ASE_NULL) - { - FREE_DUP_NAME (awk); - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - return ASE_NULL; - } - - nde->type = ASE_AWK_NDE_GLOBAL; - nde->line = line; - nde->next = ASE_NULL; - /*nde->id.name = ASE_NULL;*/ - nde->id.name = name_dup; - nde->id.name_len = name_len; - nde->id.idxa = idxa; - nde->idx = ASE_NULL; - - return (ase_awk_nde_t*)nde; - } - else if (MATCH(awk,TOKEN_LPAREN)) - { - /* function call */ - ase_awk_nde_t* nde; - - if (awk->option & ASE_AWK_IMPLICIT) - { - if (ase_map_get (awk->parse.named, name_dup, name_len) != ASE_NULL) - { - /* a function call conflicts with a named variable */ - SETERRARG (awk, ASE_AWK_EVARRED, line, name_dup, name_len); - FREE_DUP_NAME (awk); - return ASE_NULL; - } - } - - nde = parse_fncall (awk, name_dup, name_len, ASE_NULL, line); - if (nde == ASE_NULL) - { - FREE_DUP_NAME (awk); - } - return (ase_awk_nde_t*)nde; - } - else - { - /* named variable */ - ase_awk_nde_var_t* nde; - - nde = (ase_awk_nde_var_t*) ASE_AWK_MALLOC ( - awk, ASE_SIZEOF(ase_awk_nde_var_t)); - if (nde == ASE_NULL) - { - FREE_DUP_NAME (awk); - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - return ASE_NULL; - } - - if (awk->option & ASE_AWK_IMPLICIT) - { - #if 0 - if (awk->option & ASE_AWK_UNIQUEFN) - { - #endif - ase_bool_t iscur = ase_false; - - /* the name should not conflict with a function name */ - /* check if it is a builtin function */ - if (ase_awk_getbfn (awk, name_dup, name_len) != ASE_NULL) - { - SETERRARG (awk, ASE_AWK_EBFNRED, line, name_dup, name_len); - goto exit_func; - } - - /* check if it is an AWK function */ - if (awk->tree.cur_afn.ptr != ASE_NULL) - { - iscur = (ase_strxncmp ( - awk->tree.cur_afn.ptr, awk->tree.cur_afn.len, - name_dup, name_len) == 0); - } - - if (iscur || ase_map_get (awk->tree.afns, name_dup, name_len) != ASE_NULL) - { - /* the function is defined previously */ - SETERRARG (awk, ASE_AWK_EAFNRED, line, name_dup, name_len); - goto exit_func; - } - - if (ase_map_get (awk->parse.afns, name_dup, name_len) != ASE_NULL) - { - /* is it one of the function calls found so far? */ - SETERRARG (awk, ASE_AWK_EAFNRED, line, name_dup, name_len); - goto exit_func; - } - #if 0 - } - #endif - - nde->type = ASE_AWK_NDE_NAMED; - nde->line = line; - nde->next = ASE_NULL; - nde->id.name = name_dup; - nde->id.name_len = name_len; - nde->id.idxa = (ase_size_t)-1; - nde->idx = ASE_NULL; - - /* collect unique instances of a named variables for reference */ - if (ase_map_put (awk->parse.named, - name_dup, name_len, (void*)line) == ASE_NULL) - { - SETERRLIN (awk, ASE_AWK_ENOMEM, line); - goto exit_func; - } - - return (ase_awk_nde_t*)nde; - } - - /* undefined variable */ - SETERRARG (awk, ASE_AWK_EUNDEF, line, name_dup, name_len); - - exit_func: - FREE_DUP_NAME (awk); - ASE_AWK_FREE (awk, nde); - - return ASE_NULL; - } - -#undef FREE_DUP_NAME -} static ase_awk_nde_t* parse_hashidx ( ase_awk_t* awk, ase_char_t* name, ase_size_t name_len, ase_size_t line)