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-01-26 08:06:15 +00:00
parent 4196db3cf6
commit 9f3773ad95
1 changed files with 20 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
ase/awk/parse.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: parse.c,v 1.34 2006-01-25 16:11:43 bacon Exp $ * $Id: parse.c,v 1.35 2006-01-26 08:06:15 bacon Exp $
*/ */
#include <xp/awk/awk.h> #include <xp/awk/awk.h>
@ -837,6 +837,9 @@ static xp_awk_node_t* __parse_primary (xp_awk_t* awk)
PANIC (awk, XP_AWK_ENOMEM); PANIC (awk, XP_AWK_ENOMEM);
} }
// TODO:
idxa = __find_variable (awk, name);
if (idxa == (xp_size_t)-1) {
idxa = __find_func_arg (awk, name); idxa = __find_func_arg (awk, name);
if (idxa == (xp_size_t)-1) { if (idxa == (xp_size_t)-1) {
node->type = XP_AWK_NODE_VAR; node->type = XP_AWK_NODE_VAR;
@ -846,6 +849,17 @@ static xp_awk_node_t* __parse_primary (xp_awk_t* awk)
else { else {
node->type = XP_AWK_NODE_ARG; node->type = XP_AWK_NODE_ARG;
node->next = XP_NULL; node->next = XP_NULL;
// TODO: do i need to store the name here???
node->id.name = name;
node->id.idxa = idxa;
}
}
else {
// TODO: differentiate VAR with NAMED_VAR...
node->type = XP_AWK_NODE_VAR;
node->next = XP_NULL;
// TODO: do i need to store the name here???
node->id.name = name;
node->id.idxa = idxa; node->id.idxa = idxa;
} }