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 2007-01-01 15:06:52 +00:00
parent aa8d89434f
commit ced6010a72
1 changed files with 244 additions and 67 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

311
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.313 2006-12-31 14:33:01 bacon Exp $ * $Id: run.c,v 1.314 2007-01-01 15:06:52 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -161,7 +161,8 @@ static ase_awk_val_t* __eval_binop_ma (
static ase_awk_val_t* __eval_binop_nm ( static ase_awk_val_t* __eval_binop_nm (
ase_awk_run_t* run, ase_awk_nde_t* left, ase_awk_nde_t* right); ase_awk_run_t* run, ase_awk_nde_t* left, ase_awk_nde_t* right);
static ase_awk_val_t* __eval_binop_match0 ( static ase_awk_val_t* __eval_binop_match0 (
ase_awk_run_t* run, ase_awk_val_t* left, ase_awk_val_t* right, int ret); ase_awk_run_t* run, ase_awk_val_t* left, ase_awk_val_t* right,
ase_size_t lline, ase_size_t rline, int ret);
static ase_awk_val_t* __eval_unary (ase_awk_run_t* run, ase_awk_nde_t* nde); static ase_awk_val_t* __eval_unary (ase_awk_run_t* run, ase_awk_nde_t* nde);
static ase_awk_val_t* __eval_incpre (ase_awk_run_t* run, ase_awk_nde_t* nde); static ase_awk_val_t* __eval_incpre (ase_awk_run_t* run, ase_awk_nde_t* nde);
@ -1738,8 +1739,11 @@ static int __run_block0 (ase_awk_run_t* run, ase_awk_nde_blk_t* nde)
ase_awk_refdownval (run, run->inrec.d0); ase_awk_refdownval (run, run->inrec.d0);
if (run->errnum == ASE_AWK_EIOHANDLER) if (run->errnum == ASE_AWK_EIOHANDLER)
PANIC_I (run, ASE_AWK_ECOUTDT); {
else return -1; ase_awk_setrunerror (
run, ASE_AWK_ECOUTDT, nde->line, ASE_NULL);
}
return -1;
} }
n = ase_awk_writeextio_str ( n = ase_awk_writeextio_str (
@ -1750,8 +1754,11 @@ static int __run_block0 (ase_awk_run_t* run, ase_awk_nde_blk_t* nde)
ase_awk_refdownval (run, run->inrec.d0); ase_awk_refdownval (run, run->inrec.d0);
if (run->errnum == ASE_AWK_EIOHANDLER) if (run->errnum == ASE_AWK_EIOHANDLER)
PANIC_I (run, ASE_AWK_ECOUTDT); {
else return -1; ase_awk_setrunerror (
run, ASE_AWK_ECOUTDT, nde->line, ASE_NULL);
}
return -1;
} }
ase_awk_refdownval (run, run->inrec.d0); ase_awk_refdownval (run, run->inrec.d0);
@ -2937,14 +2944,20 @@ static ase_awk_val_t* __eval_expression (ase_awk_run_t* run, ase_awk_nde_t* nde)
if (n == -1) if (n == -1)
{ {
ase_awk_refdownval (run, v); ase_awk_refdownval (run, v);
PANIC (run, errnum);
ase_Awk_setrunerror (run, errnum, nde->line, ASE_NULL);
return ASE_NULL;
} }
} }
ase_awk_refdownval (run, v); ase_awk_refdownval (run, v);
v = ase_awk_makeintval (run, (n != 0)); v = ase_awk_makeintval (run, (n != 0));
if (v == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (v == ASE_NULL)
{
ase_Awk_setrunerror (run, ASE_AWK_ENOMEM, nde->line, ASE_NULL);
return ASE_NULL;
}
} }
return v; return v;
@ -3302,7 +3315,8 @@ static ase_awk_val_t* __do_assignment_map (
if (n < 0) if (n < 0)
{ {
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
PANIC (run, ASE_AWK_ENOMEM); ase_awk_setrunerror (run, ASE_AWK_ENOMEM, var->line, ASE_NULL);
return ASE_NULL;
} }
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
@ -3327,9 +3341,18 @@ static ase_awk_val_t* __do_assignment_pos (
n = ase_awk_valtonum (run, v, &lv, &rv); n = ase_awk_valtonum (run, v, &lv, &rv);
ase_awk_refdownval (run, v); ase_awk_refdownval (run, v);
if (n == -1) PANIC (run, ASE_AWK_EPOSIDX); if (n == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EPOSIDX, pos->line, ASE_NULL);
return ASE_NULL;
}
if (n == 1) lv = (ase_long_t)rv; if (n == 1) lv = (ase_long_t)rv;
if (!IS_VALID_POSIDX(lv)) PANIC (run, ASE_AWK_EPOSIDX); if (!IS_VALID_POSIDX(lv))
{
ase_awk_setrunerror (
run, ASE_AWK_EPOSIDX, pos->line, ASE_NULL);
return ASE_NULL;
}
if (val->type == ASE_AWK_VAL_STR) if (val->type == ASE_AWK_VAL_STR)
{ {
@ -3338,7 +3361,8 @@ static ase_awk_val_t* __do_assignment_pos (
} }
else else
{ {
str = ase_awk_valtostr (run, val, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len); str = ase_awk_valtostr (
run, val, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len);
if (str == ASE_NULL) return ASE_NULL; if (str == ASE_NULL) return ASE_NULL;
} }
@ -3437,6 +3461,10 @@ static ase_awk_val_t* __eval_binary (ase_awk_run_t* run, ase_awk_nde_t* nde)
ASE_AWK_ASSERT (run->awk, __binop_func[exp->opcode] != ASE_NULL); ASE_AWK_ASSERT (run->awk, __binop_func[exp->opcode] != ASE_NULL);
res = __binop_func[exp->opcode] (run, left, right); res = __binop_func[exp->opcode] (run, left, right);
if (res == ASE_NULL)
{
ase_awk_setrunerror (run, run->errnum, nde->line, ASE_NULL);
}
ase_awk_refdownval (run, left); ase_awk_refdownval (run, left);
ase_awk_refdownval (run, right); ase_awk_refdownval (run, right);
@ -3453,7 +3481,11 @@ static ase_awk_val_t* __eval_binop_lor (
res = ase_awk_makeintval (run, res = ase_awk_makeintval (run,
ase_awk_valtobool(run left) || ase_awk_valtobool(run,right)); ase_awk_valtobool(run left) || ase_awk_valtobool(run,right));
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, left->line, ASE_NULL);
return ASE_NULL;
}
return res; return res;
*/ */
@ -3468,7 +3500,6 @@ static ase_awk_val_t* __eval_binop_lor (
ase_awk_refupval (run, lv); ase_awk_refupval (run, lv);
if (ase_awk_valtobool (run, lv)) if (ase_awk_valtobool (run, lv))
{ {
/*res = ase_awk_makeintval (run, 1);*/
res = ase_awk_val_one; res = ase_awk_val_one;
} }
else else
@ -3482,14 +3513,12 @@ static ase_awk_val_t* __eval_binop_lor (
} }
ase_awk_refupval (run, rv); ase_awk_refupval (run, rv);
/*res = ase_awk_makeintval (run, (ase_awk_valtobool(run,rv)? 1: 0));*/
res = ase_awk_valtobool(run,rv)? ase_awk_val_one: ase_awk_val_zero; res = ase_awk_valtobool(run,rv)? ase_awk_val_one: ase_awk_val_zero;
ase_awk_refdownval (run, rv); ase_awk_refdownval (run, rv);
} }
ase_awk_refdownval (run, lv); ase_awk_refdownval (run, lv);
/*if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM);*/
return res; return res;
} }
@ -3501,7 +3530,11 @@ static ase_awk_val_t* __eval_binop_land (
res = ase_awk_makeintval (run, res = ase_awk_makeintval (run,
ase_awk_valtobool(run,left) && ase_awk_valtobool(run,right)); ase_awk_valtobool(run,left) && ase_awk_valtobool(run,right));
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, left->line, ASE_NULL);
return ASE_NULL;
}
return res; return res;
*/ */
@ -3516,7 +3549,6 @@ static ase_awk_val_t* __eval_binop_land (
ase_awk_refupval (run, lv); ase_awk_refupval (run, lv);
if (!ase_awk_valtobool (run, lv)) if (!ase_awk_valtobool (run, lv))
{ {
/*res = ase_awk_makeintval (run, 0);*/
res = ase_awk_val_zero; res = ase_awk_val_zero;
} }
else else
@ -3530,14 +3562,12 @@ static ase_awk_val_t* __eval_binop_land (
} }
ase_awk_refupval (run, rv); ase_awk_refupval (run, rv);
/*res = ase_awk_makeintval (run, (ase_awk_valtobool(run,rv)? 1: 0));*/
res = ase_awk_valtobool(run,rv)? ase_awk_val_one: ase_awk_val_zero; res = ase_awk_valtobool(run,rv)? ase_awk_val_one: ase_awk_val_zero;
ase_awk_refdownval (run, rv); ase_awk_refdownval (run, rv);
} }
ase_awk_refdownval (run, lv); ase_awk_refdownval (run, lv);
/*if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM);*/
return res; return res;
} }
@ -3556,7 +3586,8 @@ static ase_awk_val_t* __eval_binop_in (
/* the compiler should have handled this case */ /* the compiler should have handled this case */
ASE_AWK_ASSERT (run->awk, ASE_AWK_ASSERT (run->awk,
!"should never happen - in needs a plain variable"); !"should never happen - in needs a plain variable");
PANIC (run, ASE_AWK_EINTERN);
ase_awk_setrunerror (run, ASE_AWK_EINTERN, right->line, ASE_NULL);
return ASE_NULL; return ASE_NULL;
} }
@ -3596,7 +3627,9 @@ static ase_awk_val_t* __eval_binop_in (
{ {
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
ase_awk_refdownval (run, rv); ase_awk_refdownval (run, rv);
PANIC (run, ASE_AWK_ENOMEM); ase_awk_setrunerror (
run, ASE_AWK_ENOMEM, right->line, ASE_NULL);
return ASE_NULL;
}*/ }*/
res = (ase_awk_map_get (map, str, len) == ASE_NULL)? res = (ase_awk_map_get (map, str, len) == ASE_NULL)?
ase_awk_val_zero: ase_awk_val_one; ase_awk_val_zero: ase_awk_val_one;
@ -3627,7 +3660,11 @@ static ase_awk_val_t* __eval_binop_bor (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3); ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3);
@ -3636,7 +3673,11 @@ static ase_awk_val_t* __eval_binop_bor (
(n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1|(ase_long_t)r2): (n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1|(ase_long_t)r2):
ase_awk_makeintval(run,(ase_long_t)r1|(ase_long_t)r2); ase_awk_makeintval(run,(ase_long_t)r1|(ase_long_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -3651,7 +3692,11 @@ static ase_awk_val_t* __eval_binop_bxor (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3); ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3);
@ -3660,7 +3705,11 @@ static ase_awk_val_t* __eval_binop_bxor (
(n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1^(ase_long_t)r2): (n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1^(ase_long_t)r2):
ase_awk_makeintval(run,(ase_long_t)r1^(ase_long_t)r2); ase_awk_makeintval(run,(ase_long_t)r1^(ase_long_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -3675,7 +3724,11 @@ static ase_awk_val_t* __eval_binop_band (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3); ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3);
@ -3684,7 +3737,11 @@ static ase_awk_val_t* __eval_binop_band (
(n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1&(ase_long_t)r2): (n3 == 2)? ase_awk_makeintval(run,(ase_long_t)l1&(ase_long_t)r2):
ase_awk_makeintval(run,(ase_long_t)r1&(ase_long_t)r2); ase_awk_makeintval(run,(ase_long_t)r1&(ase_long_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -3782,7 +3839,7 @@ static int __cmp_int_str (
str = ase_awk_valtostr (run, left, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len); str = ase_awk_valtostr (run, left, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len);
if (str == ASE_NULL) if (str == ASE_NULL)
{ {
run->errnum = ASE_AWK_ENOMEM; ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return CMP_ERROR; return CMP_ERROR;
} }
@ -3856,7 +3913,7 @@ static int __cmp_real_str (
str = ase_awk_valtostr (run, left, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len); str = ase_awk_valtostr (run, left, ASE_AWK_VALTOSTR_CLEAR, ASE_NULL, &len);
if (str == ASE_NULL) if (str == ASE_NULL)
{ {
run->errnum = ASE_AWK_ENOMEM; ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return CMP_ERROR; return CMP_ERROR;
} }
@ -3938,7 +3995,7 @@ static int __cmp_val (
if (left->type == ASE_AWK_VAL_MAP || right->type == ASE_AWK_VAL_MAP) if (left->type == ASE_AWK_VAL_MAP || right->type == ASE_AWK_VAL_MAP)
{ {
/* a map can't be compared againt other values */ /* a map can't be compared againt other values */
run->errnum = ASE_AWK_EOPERAND; ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return CMP_ERROR; return CMP_ERROR;
} }
@ -4011,7 +4068,11 @@ static ase_awk_val_t* __eval_binop_lshift (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
@ -4019,9 +4080,17 @@ static ase_awk_val_t* __eval_binop_lshift (
res = ase_awk_makeintval ( res = ase_awk_makeintval (
run, (ase_long_t)l1<<(ase_long_t)l2); run, (ase_long_t)l1<<(ase_long_t)l2);
} }
else PANIC (run, ASE_AWK_EOPERAND); else
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4036,7 +4105,11 @@ static ase_awk_val_t* __eval_binop_rshift (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
@ -4044,9 +4117,17 @@ static ase_awk_val_t* __eval_binop_rshift (
res = ase_awk_makeintval ( res = ase_awk_makeintval (
run, (ase_long_t)l1>>(ase_long_t)l2); run, (ase_long_t)l1>>(ase_long_t)l2);
} }
else PANIC (run, ASE_AWK_EOPERAND); else
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4061,7 +4142,11 @@ static ase_awk_val_t* __eval_binop_plus (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
/* /*
n1 n2 n3 n1 n2 n3
0 0 = 0 0 0 = 0
@ -4076,7 +4161,11 @@ static ase_awk_val_t* __eval_binop_plus (
(n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1+(ase_real_t)r2): (n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1+(ase_real_t)r2):
ase_awk_makerealval(run,(ase_real_t)r1+(ase_real_t)r2); ase_awk_makerealval(run,(ase_real_t)r1+(ase_real_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4091,7 +4180,11 @@ static ase_awk_val_t* __eval_binop_minus (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3); ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3);
@ -4100,7 +4193,11 @@ static ase_awk_val_t* __eval_binop_minus (
(n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1-(ase_real_t)r2): (n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1-(ase_real_t)r2):
ase_awk_makerealval(run,(ase_real_t)r1-(ase_real_t)r2); ase_awk_makerealval(run,(ase_real_t)r1-(ase_real_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4115,7 +4212,11 @@ static ase_awk_val_t* __eval_binop_mul (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3); ASE_AWK_ASSERT (run->awk, n3 >= 0 && n3 <= 3);
@ -4124,7 +4225,11 @@ static ase_awk_val_t* __eval_binop_mul (
(n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1*(ase_real_t)r2): (n3 == 2)? ase_awk_makerealval(run,(ase_real_t)l1*(ase_real_t)r2):
ase_awk_makerealval(run,(ase_real_t)r1*(ase_real_t)r2); ase_awk_makerealval(run,(ase_real_t)r1*(ase_real_t)r2);
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4139,12 +4244,20 @@ static ase_awk_val_t* __eval_binop_div (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO); if (l2 == 0)
{
ase_awk_setrunerror (run, ASE_AWK_EDIVBY0, 0, ASE_NULL);
return ASE_NULL;
}
if (((ase_long_t)l1 % (ase_long_t)l2) == 0) if (((ase_long_t)l1 % (ase_long_t)l2) == 0)
{ {
@ -4174,7 +4287,11 @@ static ase_awk_val_t* __eval_binop_div (
run, (ase_real_t)r1 / (ase_real_t)r2); run, (ase_real_t)r1 / (ase_real_t)r2);
} }
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4189,12 +4306,20 @@ static ase_awk_val_t* __eval_binop_idiv (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO); if (l2 == 0)
{
ase_awk_setrunerror (run, ASE_AWK_EDIVBY0, 0, ASE_NULL);
return ASE_NULL;
}
res = ase_awk_makeintval ( res = ase_awk_makeintval (
run, (ase_long_t)l1 / (ase_long_t)l2); run, (ase_long_t)l1 / (ase_long_t)l2);
} }
@ -4216,7 +4341,11 @@ static ase_awk_val_t* __eval_binop_idiv (
res = ase_awk_makeintval (run, (ase_long_t)quo); res = ase_awk_makeintval (run, (ase_long_t)quo);
} }
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4231,18 +4360,34 @@ static ase_awk_val_t* __eval_binop_mod (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
if (l2 == 0) PANIC (run, ASE_AWK_EDIVBYZERO); if (l2 == 0)
{
ase_awk_setrunerror (run, ASE_AWK_EDIVBY0, 0, ASE_NULL);
return ASE_NULL;
}
res = ase_awk_makeintval ( res = ase_awk_makeintval (
run, (ase_long_t)l1 % (ase_long_t)l2); run, (ase_long_t)l1 % (ase_long_t)l2);
} }
else PANIC (run, ASE_AWK_EOPERAND); else
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4260,7 +4405,11 @@ static ase_awk_val_t* __eval_binop_exp (
n1 = ase_awk_valtonum (run, left, &l1, &r1); n1 = ase_awk_valtonum (run, left, &l1, &r1);
n2 = ase_awk_valtonum (run, right, &l2, &r2); n2 = ase_awk_valtonum (run, right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (run, ASE_AWK_EOPERAND); if (n1 == -1 || n2 == -1)
{
ase_awk_setrunerror (run, ASE_AWK_EOPERAND, 0, ASE_NULL);
return ASE_NULL;
}
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
@ -4274,7 +4423,8 @@ static ase_awk_val_t* __eval_binop_exp (
} }
else if (l1 == 0) else if (l1 == 0)
{ {
PANIC (run, ASE_AWK_EDIVBYZERO); ase_awk_setrunerror (run, ASE_AWK_EDIVBY0, 0, ASE_NULL);
return ASE_NULL;
} }
else else
{ {
@ -4295,7 +4445,8 @@ static ase_awk_val_t* __eval_binop_exp (
} }
else if (r1 == 0.0) else if (r1 == 0.0)
{ {
PANIC (run, ASE_AWK_EDIVBYZERO); ase_awk_setrunerror (run, ASE_AWK_EDIVBY0, 0, ASE_NULL);
return ASE_NULL;
} }
else else
{ {
@ -4319,7 +4470,12 @@ static ase_awk_val_t* __eval_binop_exp (
run->awk->sysfns.pow((ase_real_t)r1,(ase_real_t)r2)); run->awk->sysfns.pow((ase_real_t)r1,(ase_real_t)r2));
} }
if (res == ASE_NULL) PANIC (run, ASE_AWK_ENOMEM); if (res == ASE_NULL)
{
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
}
return res; return res;
} }
@ -4347,7 +4503,9 @@ static ase_awk_val_t* __eval_binop_concat (
{ {
ASE_AWK_FREE (run->awk, strl); ASE_AWK_FREE (run->awk, strl);
ASE_AWK_FREE (run->awk, strr); ASE_AWK_FREE (run->awk, strr);
PANIC (run, ASE_AWK_ENOMEM);
ase_awk_setrunerror (run, ASE_AWK_ENOMEM, 0, ASE_NULL);
return ASE_NULL;
} }
ASE_AWK_FREE (run->awk, strl); ASE_AWK_FREE (run->awk, strl);
@ -4381,7 +4539,8 @@ static ase_awk_val_t* __eval_binop_ma (
ase_awk_refupval (run, rv); ase_awk_refupval (run, rv);
res = __eval_binop_match0 (run, lv, rv, 1); res = __eval_binop_match0 (
run, lv, rv, left->line, right->line, 1);
ase_awk_refdownval (run, lv); ase_awk_refdownval (run, lv);
ase_awk_refdownval (run, rv); ase_awk_refdownval (run, rv);
@ -4411,7 +4570,8 @@ static ase_awk_val_t* __eval_binop_nm (
ase_awk_refupval (run, rv); ase_awk_refupval (run, rv);
res = __eval_binop_match0 (run, lv, rv, 0); res = __eval_binop_match0 (
run, lv, rv, left->line, right->line, 0);
ase_awk_refdownval (run, lv); ase_awk_refdownval (run, lv);
ase_awk_refdownval (run, rv); ase_awk_refdownval (run, rv);
@ -4420,7 +4580,8 @@ static ase_awk_val_t* __eval_binop_nm (
} }
static ase_awk_val_t* __eval_binop_match0 ( static ase_awk_val_t* __eval_binop_match0 (
ase_awk_run_t* run, ase_awk_val_t* left, ase_awk_val_t* right, int ret) ase_awk_run_t* run, ase_awk_val_t* left, ase_awk_val_t* right,
ase_size_t lline, ase_size_t rline, int ret)
{ {
ase_awk_val_t* res; ase_awk_val_t* res;
int n, errnum; int n, errnum;
@ -4439,7 +4600,10 @@ static ase_awk_val_t* __eval_binop_match0 (
((ase_awk_val_str_t*)right)->buf, ((ase_awk_val_str_t*)right)->buf,
((ase_awk_val_str_t*)right)->len, &errnum); ((ase_awk_val_str_t*)right)->len, &errnum);
if (rex_code == ASE_NULL) if (rex_code == ASE_NULL)
PANIC (run, errnum); {
ase_awk_setrunerror (run, errnum, rline, ASE_NULL);
return ASE_NULL;
}
} }
else else
{ {
@ -4451,7 +4615,9 @@ static ase_awk_val_t* __eval_binop_match0 (
if (rex_code == ASE_NULL) if (rex_code == ASE_NULL)
{ {
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
PANIC (run, errnum);
ase_awk_setrunerror (run, errnum, rline, ASE_NULL);
return ASE_NULL;
} }
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
@ -4469,7 +4635,9 @@ static ase_awk_val_t* __eval_binop_match0 (
{ {
if (right->type != ASE_AWK_VAL_REX) if (right->type != ASE_AWK_VAL_REX)
ASE_AWK_FREE (run->awk, rex_code); ASE_AWK_FREE (run->awk, rex_code);
PANIC (run, errnum);
ase_awk_setrunerror (run, errnum, lline, ASE_NULL);
return ASE_NULL;
} }
res = ase_awk_makeintval (run, (n == ret)); res = ase_awk_makeintval (run, (n == ret));
@ -4477,7 +4645,10 @@ static ase_awk_val_t* __eval_binop_match0 (
{ {
if (right->type != ASE_AWK_VAL_REX) if (right->type != ASE_AWK_VAL_REX)
ASE_AWK_FREE (run->awk, rex_code); ASE_AWK_FREE (run->awk, rex_code);
PANIC (run, ASE_AWK_ENOMEM);
ase_awk_setrunerror (
run, ASE_AWK_ENOMEM, lline, ASE_NULL);
return ASE_NULL;
} }
} }
else else
@ -4500,7 +4671,10 @@ static ase_awk_val_t* __eval_binop_match0 (
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
if (right->type != ASE_AWK_VAL_REX) if (right->type != ASE_AWK_VAL_REX)
ASE_AWK_FREE (run->awk, rex_code); ASE_AWK_FREE (run->awk, rex_code);
PANIC (run, errnum);
ase_awk_setrunerror (
run, errnum, lline, ASE_NULL);
return ASE_NULL;
} }
res = ase_awk_makeintval (run, (n == ret)); res = ase_awk_makeintval (run, (n == ret));
@ -4509,7 +4683,10 @@ static ase_awk_val_t* __eval_binop_match0 (
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);
if (right->type != ASE_AWK_VAL_REX) if (right->type != ASE_AWK_VAL_REX)
ASE_AWK_FREE (run->awk, rex_code); ASE_AWK_FREE (run->awk, rex_code);
PANIC (run, ASE_AWK_ENOMEM);
ase_awk_setrunerror (
run, ASE_AWK_ENOMEM, lline, ASE_NULL);
return ASE_NULL;
} }
ASE_AWK_FREE (run->awk, str); ASE_AWK_FREE (run->awk, str);