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

added qse_awk_rtx_valtombs()/qse_awk_rtx_valtostr()

Browse Source 
added sys::kill() to awk
added sys::SIGXXXX to awk
added or enhanced uci::XXXX in awk
This commit is contained in:
hyung-hwan
2012-10-31 08:31:58 +00:00
parent 3db3ab2249
commit a3af4c3eed
14 changed files with 935 additions and 429 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
qse/cmd/awk/awk.c
View File

@ -251,7 +251,7 @@ static qse_htb_walk_t print_awk_value (
qse_awk_rtx_geterrinf (rtx, &oerrinf);
str = qse_awk_rtx_valtocpldup (rtx, QSE_HTB_VPTR(pair), &len);
str = qse_awk_rtx_valtostrdup (rtx, QSE_HTB_VPTR(pair), &len);
if (str == QSE_NULL)
{
if (qse_awk_rtx_geterrnum(rtx) == QSE_AWK_EVALTYPE)
@ -333,7 +333,7 @@ static void dprint_return (qse_awk_rtx_t* rtx, qse_awk_val_t* ret)
}
else
{
str = qse_awk_rtx_valtocpldup (rtx, ret, &len);
str = qse_awk_rtx_valtostrdup (rtx, ret, &len);
if (str == QSE_NULL)
{
dprint (QSE_T("[RETURN] - ***OUT OF MEMORY***\n"));
@ -1071,6 +1071,9 @@ static int awk_main (int argc, qse_char_t* argv[])
retv = arg.call?
qse_awk_rtx_callwithstrs (rtx, arg.call, arg.icf.ptr, arg.icf.size):
qse_awk_rtx_loop (rtx);
unset_intr_run ();
if (retv)
{
qse_long_t tmp;
@ -1081,10 +1084,7 @@ static int awk_main (int argc, qse_char_t* argv[])
ret = 0;
if (qse_awk_rtx_valtolong (rtx, retv, &tmp) >= 0) ret = tmp;
}
unset_intr_run ();
if (ret <= -1)
else
{
print_rtxerr (rtx);
goto oops;