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-04-16 06:16:42 +00:00
parent dd49dc9e1f
commit a83e38a2e0
1 changed files with 170 additions and 328 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

498
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.50 2006-04-16 04:31:38 bacon Exp $ * $Id: run.c,v 1.51 2006-04-16 06:16:42 bacon Exp $
*/ */
#include <xp/awk/awk_i.h> #include <xp/awk/awk_i.h>
@ -115,9 +115,8 @@ static int __raw_push (xp_awk_t* awk, void* val);
static void __raw_pop (xp_awk_t* awk); static void __raw_pop (xp_awk_t* awk);
static void __raw_pop_times (xp_awk_t* awk, xp_size_t times); static void __raw_pop_times (xp_awk_t* awk, xp_size_t times);
static xp_awk_val_t* __str_to_num ( static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r);
xp_awk_t* awk, xp_awk_val_str_t* str, static int __str_to_num (xp_awk_val_str_t* str, xp_long_t* l, xp_real_t* r);
void (*helper) (void*,void*), void* user_data);
typedef xp_awk_val_t* (*binop_func_t) ( typedef xp_awk_val_t* (*binop_func_t) (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right); xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right);
@ -1325,112 +1324,39 @@ static xp_awk_val_t* __eval_binop_rshift (
static xp_awk_val_t* __eval_binop_plus ( static xp_awk_val_t* __eval_binop_plus (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
/* TODO: improve this ............ */ n1 = __val_to_num (left, &l1, &r1);
if (left->type == XP_AWK_VAL_NIL) n2 = __val_to_num (right, &l2, &r2);
{
if (right->type == XP_AWK_VAL_NIL)
{
res = xp_awk_val_nil;
}
else if (right->type == XP_AWK_VAL_INT)
{
res = xp_awk_makeintval (
awk, ((xp_awk_val_int_t*)right)->val);
}
else if (right->type == XP_AWK_VAL_REAL)
{
res = xp_awk_makerealval (
awk, ((xp_awk_val_real_t*)right)->val);
}
else if (right->type == XP_AWK_VAL_STR)
{
res = __str_to_num (
awk, (xp_awk_val_str_t*)right, __helper, NULL);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_INT)
{
if (right->type == XP_AWK_VAL_INT)
{
xp_long_t r =
((xp_awk_val_int_t*)left)->val +
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r);
}
else if (right->type == XP_AWK_VAL_REAL)
{
xp_real_t r =
((xp_awk_val_int_t*)left)->val +
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_STR)
{
xp_long_t r =
((xp_awk_val_int_t*)left)->val +
xp_awk_strtolong(((xp_awk_val_str_t*)right)->buf,0,XP_NULL);
/* don't care about ((xp_awk_val_str_t*)right)->len */
res = xp_awk_makeintval (awk, r);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_REAL)
{
if (right->type == XP_AWK_VAL_INT)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val +
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_REAL)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val +
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_STR)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val +
xp_awk_strtoreal(((xp_awk_val_str_t*)right)->buf);
/* don't care about ((xp_awk_val_str_t*)right)->len */
res = xp_awk_makerealval (awk, r);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_STR)
{
if (right->type == XP_AWK_VAL_STR) if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
{ /*
res = xp_awk_makestrval2 ( n1 n2 n3
((xp_awk_val_str_t*)left)->buf, 0 0 = 0
((xp_awk_val_str_t*)left)->len, 1 0 = 1
((xp_awk_val_str_t*)right)->buf, 0 1 = 2
((xp_awk_val_str_t*)right)->len); 1 1 = 3
} */
else n3 = n1 + (n2 << 1);
{ if (n3 == 0)
PANIC (awk, XP_AWK_EOPERAND); {
} res = xp_awk_makeintval (awk, (xp_long_t)l1 + (xp_long_t)l2);
}
else if (n3 == 1)
{
res = xp_awk_makerealval (awk, (xp_real_t)r1 + (xp_real_t)l2);
}
else if (n3 == 2)
{
res = xp_awk_makerealval (awk, (xp_real_t)l1 + (xp_real_t)r2);
} }
else else
{ {
PANIC (awk, XP_AWK_EOPERAND); xp_assert (n3 == 3);
res = xp_awk_makerealval (awk, (xp_real_t)r1 + (xp_real_t)r2);
} }
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
@ -1440,110 +1366,33 @@ static xp_awk_val_t* __eval_binop_plus (
static xp_awk_val_t* __eval_binop_minus ( static xp_awk_val_t* __eval_binop_minus (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
if (left->type == XP_AWK_VAL_NIL) n1 = __val_to_num (left, &l1, &r1);
{ n2 = __val_to_num (right, &l2, &r2);
if (right->type == XP_AWK_VAL_NIL)
{
res = xp_awk_val_nil;
}
else if (right->type == XP_AWK_VAL_INT)
{
res = xp_awk_makeintval (
awk, -((xp_awk_val_int_t*)right)->val);
}
else if (right->type == XP_AWK_VAL_REAL)
{
res = xp_awk_makerealval (
awk, -((xp_awk_val_real_t*)right)->val);
}
else if (right->type == XP_AWK_VAL_STR)
{
res = __str_to_num (
awk, (xp_awk_val_str_t*)right, __helper, NULL);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_INT)
{
if (right->type == XP_AWK_VAL_INT)
{
xp_long_t r =
((xp_awk_val_int_t*)left)->val -
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r);
}
else if (right->type == XP_AWK_VAL_REAL)
{
xp_real_t r =
((xp_awk_val_int_t*)left)->val -
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_STR)
{
xp_long_t r =
((xp_awk_val_int_t*)left)->val -
xp_awk_strtolong(((xp_awk_val_str_t*)right)->buf,0,XP_NULL);
res = xp_awk_makeintval (awk, r);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_REAL)
{
if (right->type == XP_AWK_VAL_INT)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val -
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_REAL)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val -
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
}
else if (right->type == XP_AWK_VAL_STR)
{
xp_real_t r =
((xp_awk_val_real_t*)left)->val -
xp_awk_strtoreal(((xp_awk_val_str_t*)right)->buf);
/* don't care about ((xp_awk_val_str_t*)right)->len */
res = xp_awk_makerealval (awk, r);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
}
}
else if (left->type == XP_AWK_VAL_STR)
{
if (right->type == XP_AWK_VAL_STR) if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
{
res = xp_awk_makestrval2 ( n3 = n1 + (n2 << 1);
((xp_awk_val_str_t*)left)->buf, if (n3 == 0)
((xp_awk_val_str_t*)left)->len, {
((xp_awk_val_str_t*)right)->buf, res = xp_awk_makeintval (awk, (xp_long_t)l1 - (xp_long_t)l2);
((xp_awk_val_str_t*)right)->len); }
} else if (n3 == 1)
else {
{ res = xp_awk_makerealval (awk, (xp_real_t)r1 - (xp_real_t)l2);
PANIC (awk, XP_AWK_EOPERAND); }
} else if (n3 == 2)
{
res = xp_awk_makerealval (awk, (xp_real_t)l1 - (xp_real_t)r2);
} }
else else
{ {
PANIC (awk, XP_AWK_EOPERAND); xp_assert (n3 == 3);
res = xp_awk_makerealval (awk, (xp_real_t)r1 - (xp_real_t)r2);
} }
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
@ -1553,44 +1402,33 @@ static xp_awk_val_t* __eval_binop_minus (
static xp_awk_val_t* __eval_binop_mul ( static xp_awk_val_t* __eval_binop_mul (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
if (left->type == XP_AWK_VAL_INT && n1 = __val_to_num (left, &l1, &r1);
right->type == XP_AWK_VAL_INT) n2 = __val_to_num (right, &l2, &r2);
{
xp_long_t r;
r = ((xp_awk_val_int_t*)left)->val * if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r); n3 = n1 + (n2 << 1);
} if (n3 == 0)
else if (left->type == XP_AWK_VAL_REAL &&
right->type == XP_AWK_VAL_REAL)
{ {
xp_real_t r; res = xp_awk_makeintval (awk, (xp_long_t)l1 * (xp_long_t)l2);
r = ((xp_awk_val_real_t*)left)->val *
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else if (left->type == XP_AWK_VAL_INT && else if (n3 == 1)
right->type == XP_AWK_VAL_REAL)
{ {
xp_real_t r; res = xp_awk_makerealval (awk, (xp_real_t)r1 * (xp_real_t)l2);
r = ((xp_awk_val_int_t*)left)->val *
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else if (left->type == XP_AWK_VAL_REAL && else if (n3 == 2)
right->type == XP_AWK_VAL_INT)
{ {
xp_real_t r; res = xp_awk_makerealval (awk, (xp_real_t)l1 * (xp_real_t)r2);
r = ((xp_awk_val_real_t*)left)->val *
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else else
{ {
PANIC (awk, XP_AWK_EOPERAND); xp_assert (n3 == 3);
res = xp_awk_makerealval (awk, (xp_real_t)r1 * (xp_real_t)r2);
} }
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
@ -1600,49 +1438,34 @@ static xp_awk_val_t* __eval_binop_mul (
static xp_awk_val_t* __eval_binop_div ( static xp_awk_val_t* __eval_binop_div (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
if (left->type == XP_AWK_VAL_INT && n1 = __val_to_num (left, &l1, &r1);
right->type == XP_AWK_VAL_INT) n2 = __val_to_num (right, &l2, &r2);
{
xp_long_t r;
if (((xp_awk_val_int_t*)right)->val == 0) if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
{
PANIC (awk, XP_AWK_EDIVBYZERO);
}
r = ((xp_awk_val_int_t*)left)->val / n3 = n1 + (n2 << 1);
((xp_awk_val_int_t*)right)->val; if (n3 == 0)
res = xp_awk_makeintval (awk, r);
}
else if (left->type == XP_AWK_VAL_REAL &&
right->type == XP_AWK_VAL_REAL)
{ {
xp_real_t r; if (l2 == 0) PANIC (awk, XP_AWK_EDIVBYZERO);
r = ((xp_awk_val_real_t*)left)->val / res = xp_awk_makeintval (awk, (xp_long_t)l1 / (xp_long_t)l2);
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else if (left->type == XP_AWK_VAL_INT && else if (n3 == 1)
right->type == XP_AWK_VAL_REAL)
{ {
xp_real_t r; res = xp_awk_makerealval (awk, (xp_real_t)r1 / (xp_real_t)l2);
r = ((xp_awk_val_int_t*)left)->val /
((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else if (left->type == XP_AWK_VAL_REAL && else if (n3 == 2)
right->type == XP_AWK_VAL_INT)
{ {
xp_real_t r; res = xp_awk_makerealval (awk, (xp_real_t)l1 / (xp_real_t)r2);
r = ((xp_awk_val_real_t*)left)->val /
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makerealval (awk, r);
} }
else else
{ {
PANIC (awk, XP_AWK_EOPERAND); xp_assert (n3 == 3);
res = xp_awk_makerealval (awk, (xp_real_t)r1 / (xp_real_t)r2);
} }
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
@ -1652,26 +1475,23 @@ static xp_awk_val_t* __eval_binop_div (
static xp_awk_val_t* __eval_binop_mod ( static xp_awk_val_t* __eval_binop_mod (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
if (left->type == XP_AWK_VAL_INT && n1 = __val_to_num (left, &l1, &r1);
right->type == XP_AWK_VAL_INT) n2 = __val_to_num (right, &l2, &r2);
if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
n3 = n1 + (n2 << 1);
if (n3 == 0)
{ {
xp_long_t r; if (l2 == 0) PANIC (awk, XP_AWK_EDIVBYZERO);
res = xp_awk_makeintval (awk, (xp_long_t)l1 % (xp_long_t)l2);
if (((xp_awk_val_int_t*)right)->val == 0)
{
PANIC (awk, XP_AWK_EDIVBYZERO);
}
r = ((xp_awk_val_int_t*)left)->val %
((xp_awk_val_int_t*)right)->val;
res = xp_awk_makeintval (awk, r);
}
else
{
PANIC (awk, XP_AWK_EOPERAND);
} }
else PANIC (awk, XP_AWK_EOPERAND);
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
return res; return res;
@ -1680,44 +1500,38 @@ static xp_awk_val_t* __eval_binop_mod (
static xp_awk_val_t* __eval_binop_exp ( static xp_awk_val_t* __eval_binop_exp (
xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right) xp_awk_t* awk, xp_awk_val_t* left, xp_awk_val_t* right)
{ {
xp_awk_val_t* res = XP_NULL; int n1, n2, n3;
xp_long_t l1, l2;
xp_real_t r1, r2;
xp_awk_val_t* res;
if (left->type == XP_AWK_VAL_INT && n1 = __val_to_num (left, &l1, &r1);
right->type == XP_AWK_VAL_INT) n2 = __val_to_num (right, &l2, &r2);
{
xp_long_t r = 1;
xp_long_t cnt = ((xp_awk_val_int_t*)right)->val;
while (cnt-- > 0) r *= ((xp_awk_val_int_t*)left)->val; if (n1 == -1 || n2 == -1) PANIC (awk, XP_AWK_EOPERAND);
res = xp_awk_makeintval (awk, r);
} n3 = n1 + (n2 << 1);
else if (left->type == XP_AWK_VAL_INT && if (n3 == 0)
right->type == XP_AWK_VAL_REAL)
{ {
/* TODO: write own pow... */ xp_long_t v = 1;
xp_real_t x = ((xp_awk_val_int_t*)left)->val; while (l2-- > 0) v *= l1;
xp_real_t y = ((xp_awk_val_real_t*)right)->val; res = xp_awk_makeintval (awk, v);
res = xp_awk_makerealval (awk, pow (x, y));
} }
else if (left->type == XP_AWK_VAL_REAL && else if (n3 == 1)
right->type == XP_AWK_VAL_INT)
{ {
/* TODO: write own pow... */ res = xp_awk_makerealval (
xp_real_t x = ((xp_awk_val_real_t*)left)->val; awk, pow((xp_real_t)r1,(xp_real_t)l2));
xp_real_t y = ((xp_awk_val_int_t*)right)->val;
res = xp_awk_makerealval (awk, pow (x, y));
} }
else if (left->type == XP_AWK_VAL_REAL && else if (n3 == 2)
right->type == XP_AWK_VAL_REAL)
{ {
/* TODO: wirte own pow... */ res = xp_awk_makerealval (
xp_real_t x = ((xp_awk_val_real_t*)left)->val; awk, pow((xp_real_t)l1,(xp_real_t)r2));
xp_real_t y = ((xp_awk_val_real_t*)right)->val;
res = xp_awk_makerealval (awk, pow (x, y));
} }
else else
{ {
PANIC (awk, XP_AWK_EOPERAND); xp_assert (n3 == 3);
res = xp_awk_makerealval (
awk, pow((xp_real_t)r1,(xp_real_t)r2));
} }
if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM); if (res == XP_NULL) PANIC (awk, XP_AWK_ENOMEM);
@ -2346,34 +2160,62 @@ static void __raw_pop_times (xp_awk_t* awk, xp_size_t times)
} }
} }
static xp_awk_val_t* __str_to_num ( static int __val_to_num (xp_awk_val_t* v, xp_long_t* l, xp_real_t* r)
xp_awk_t* awk, xp_awk_val_str_t* str, {
void (*helper) (void*,void*), void* user_data) if (v->type == XP_AWK_VAL_NIL)
{
*l = 0;
return 0;
}
if (v->type == XP_AWK_VAL_INT)
{
*l = ((xp_awk_val_int_t*)v)->val;
return 0;
}
if (v->type == XP_AWK_VAL_REAL)
{
*r = ((xp_awk_val_real_t*)v)->val;
return 1;
}
if (v->type == XP_AWK_VAL_STR)
{
const xp_char_t* endptr;
/* don't care about val->len */
*l = xp_awk_strtolong (((xp_awk_val_str_t*)v)->buf, 0, &endptr);
if (*endptr == XP_CHAR('.') ||
*endptr == XP_CHAR('E') ||
*endptr == XP_CHAR('e'))
{
*r = xp_awk_strtoreal (((xp_awk_val_str_t*)v)->buf);
return 1; /* real */
}
return 0; /* long */
}
xp_assert (!"should never happen - invalid value type");
return -1; /* error */
}
static int __str_to_num (xp_awk_val_str_t* str, xp_long_t* l, xp_real_t* r)
{ {
xp_long_t l;
const xp_char_t* endptr; const xp_char_t* endptr;
xp_awk_val_t* res;
/* don't care about str->len */ /* don't care about str->len */
l = xp_awk_strtolong (str->buf, 0, &endptr); *l = xp_awk_strtolong (str->buf, 0, &endptr);
if (*endptr == XP_CHAR('.') || if (*endptr == XP_CHAR('.') ||
*endptr == XP_CHAR('E') || *endptr == XP_CHAR('E') ||
*endptr == XP_CHAR('e')) *endptr == XP_CHAR('e'))
{ {
xp_real_t r; *r = xp_awk_strtoreal (((xp_awk_val_str_t*)str)->buf);
return 1; /* real */
r = xp_awk_strtoreal (
((xp_awk_val_str_t*)str)->buf);
res = helper (&r, user_data);
//res = xp_awk_makerealval (awk, r * factor);
}
else
{
res = helper (&l, user_data);
//res = xp_awk_makeintval (awk, l * factor);
} }
return res; return 0; /* long */
} }