hyung-hwan/qse
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changed a sample program for qse_awk_findfun() and qse_awk_callfun()

Browse Source
This commit is contained in:
hyung-hwan 2011-05-22 10:16:18 +00:00
parent 8f88a97dfc
commit b9933a473b
2 changed files with 34 additions and 88 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

88
qse/lib/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c 468 2011-05-21 16:08:54Z hyunghwan.chung $ * $Id: run.c 469 2011-05-21 16:16:18Z hyunghwan.chung $
* *
Copyright 2006-2011 Chung, Hyung-Hwan. Copyright 2006-2011 Chung, Hyung-Hwan.
This file is part of QSE. This file is part of QSE.
@ -1622,92 +1622,6 @@ qse_awk_val_t* qse_awk_rtx_call (
if (fun == QSE_NULL) return QSE_NULL; if (fun == QSE_NULL) return QSE_NULL;
return qse_awk_rtx_callfun (rtx, fun, args, nargs); return qse_awk_rtx_callfun (rtx, fun, args, nargs);
#if 0
qse_htb_pair_t* pair;
qse_awk_fun_t* fun;
struct capture_retval_data_t crdata;
qse_awk_val_t* v;
struct pafv pafv/*= { args, nargs }*/;
qse_awk_nde_call_t call;
pafv.args = args;
pafv.nargs = nargs;
if (rtx->exit_level >= EXIT_GLOBAL)
{
/* cannot call the function again when exit() is called
* in an AWK program or qse_awk_rtx_stop() is invoked */
SETERR_COD (rtx, QSE_AWK_ENOPER);
return QSE_NULL;
}
/*rtx->exit_level = EXIT_NONE;*/
/* forge a fake node containing a function call */
QSE_MEMSET (&call, 0, QSE_SIZEOF(call));
call.type = QSE_AWK_NDE_FUN;
call.what.fun.name.ptr = (qse_char_t*)name;
call.what.fun.name.len = qse_strlen(name);
call.nargs = nargs;
/* find the function */
pair = qse_htb_search (
rtx->awk->tree.funs,
call.what.fun.name.ptr,
call.what.fun.name.len
);
if (pair == QSE_NULL)
{
SETERR_ARGX (
rtx, QSE_AWK_EFUNNF,
xstr_to_cstr(&call.what.fun.name));
return QSE_NULL;
}
fun = (qse_awk_fun_t*)QSE_HTB_VPTR(pair);
QSE_ASSERT (fun != QSE_NULL);
/* check if the number of arguments given is more than expected */
if (nargs > fun->nargs)
{
/* TODO: is this correct? what if i want to
* allow arbitarary numbers of arguments? */
SETERR_COD (rtx, QSE_AWK_EARGTM);
return QSE_NULL;
}
/* now that the function is found and ok, let's execute it */
crdata.rtx = rtx;
crdata.val = QSE_NULL;
v = __eval_call (
rtx, (qse_awk_nde_t*)&call, QSE_NULL, fun,
push_arg_from_vals, (void*)&pafv,
capture_retval_on_exit,
&crdata
);
if (v == QSE_NULL)
{
/* an error occurred. let's check if it is caused by exit().
* if so, the return value should have been captured into
* crdata.val. */
if (crdata.val != QSE_NULL) v = crdata.val; /* yet it is */
}
else
{
/* thr return value captured in termination by exit()
* is reference-counted up in capture_retval_on_exit().
* let's do the same thing for the return value normally
* returned. */
qse_awk_rtx_refupval (rtx, v);
}
/* return the return value with its reference count at least 1.
* the caller of this function should count down its reference. */
return v;
#endif
} }
static int run_pblocks (qse_awk_rtx_t* run) static int run_pblocks (qse_awk_rtx_t* run)

34
qse/samples/awk/awk04.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: awk04.c 457 2011-05-12 16:16:57Z hyunghwan.chung $ * $Id: awk04.c 469 2011-05-21 16:16:18Z hyunghwan.chung $
* *
Copyright 2006-2011 Chung, Hyung-Hwan. Copyright 2006-2011 Chung, Hyung-Hwan.
This file is part of QSE. This file is part of QSE.
@ -35,6 +35,7 @@ int main ()
qse_size_t len; qse_size_t len;
qse_awk_val_t* rtv = QSE_NULL; qse_awk_val_t* rtv = QSE_NULL;
qse_awk_val_t* arg[2] = { QSE_NULL, QSE_NULL }; qse_awk_val_t* arg[2] = { QSE_NULL, QSE_NULL };
qse_awk_fun_t* fun;
int ret, i, opt; int ret, i, opt;
/* create a main processor */ /* create a main processor */
@ -118,6 +119,37 @@ int main ()
qse_printf (QSE_T("[%.*s]\n"), (int)len, str); qse_printf (QSE_T("[%.*s]\n"), (int)len, str);
qse_awk_rtx_free (rtx, str); qse_awk_rtx_free (rtx, str);
/* call the function again using different API functions */
fun = qse_awk_rtx_findfun (rtx, QSE_T("pow"));
if (fun == QSE_NULL)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
qse_awk_rtx_geterrmsg(rtx));
ret = -1; goto oops;
}
rtv = qse_awk_rtx_callfun (rtx, fun, arg, 2);
if (rtv == QSE_NULL)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
qse_awk_rtx_geterrmsg(rtx));
ret = -1; goto oops;
}
str = qse_awk_rtx_valtocpldup (rtx, rtv, &len);
if (str == QSE_NULL)
{
qse_fprintf (QSE_STDERR, QSE_T("error: %s\n"),
qse_awk_rtx_geterrmsg(rtx));
ret = -1; goto oops;
}
qse_printf (QSE_T("[%.*s]\n"), (int)len, str);
qse_awk_rtx_free (rtx, str);
oops: oops:
/* clear the return value */ /* clear the return value */
if (rtv) qse_awk_rtx_refdownval (rtx, rtv); if (rtv) qse_awk_rtx_refdownval (rtx, rtv);