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-11-01 04:16:27 +00:00
parent 2fce0a2637
commit 613bca0e88
2 changed files with 77 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
ase/awk/run.c
View File

@ -1,5 +1,5 @@
/* /*
* $Id: run.c,v 1.251 2006-10-31 14:31:46 bacon Exp $ * $Id: run.c,v 1.252 2006-11-01 04:16:08 bacon Exp $
*/ */
#include <ase/awk/awk_i.h> #include <ase/awk/awk_i.h>
@ -3713,25 +3713,55 @@ static ase_awk_val_t* __eval_binop_exp (
n3 = n1 + (n2 << 1); n3 = n1 + (n2 << 1);
if (n3 == 0) if (n3 == 0)
{ {
ase_long_t v = 1; /* left - int, right - int */
while (l2-- > 0) v *= l1; if (l2 >= 0)
res = ase_awk_makeintval (run, v); {
ase_long_t v = 1;
while (l2-- > 0) v *= l1;
res = ase_awk_makeintval (run, v);
}
else if (l1 == 0)
{
PANIC (run, ASE_AWK_EDIVBYZERO);
}
else
{
ase_real_t v = 1.0;
l2 *= -1;
while (l2-- > 0) v /= l1;
res = ase_awk_makerealval (run, v);
}
} }
else if (n3 == 1) else if (n3 == 1)
{ {
/*res = ase_awk_makerealval ( /* left - real, right - int */
run, pow((ase_real_t)r1,(ase_real_t)l2));*/ if (l2 >= 0)
ase_real_t v = 1.0; {
while (l2-- > 0) v *= r1; ase_real_t v = 1.0;
res = ase_awk_makerealval (run, v); while (l2-- > 0) v *= r1;
res = ase_awk_makerealval (run, v);
}
else if (r1 == 0.0)
{
PANIC (run, ASE_AWK_EDIVBYZERO);
}
else
{
ase_real_t v = 1.0;
l2 *= -1;
while (l2-- > 0) v /= r1;
res = ase_awk_makerealval (run, v);
}
} }
else if (n3 == 2) else if (n3 == 2)
{ {
/* left - int, right - real */
res = ase_awk_makerealval (run, res = ase_awk_makerealval (run,
run->awk->syscas.pow((ase_real_t)l1,(ase_real_t)r2)); run->awk->syscas.pow((ase_real_t)l1,(ase_real_t)r2));
} }
else else
{ {
/* left - real, right - real */
ASE_AWK_ASSERT (run->awk, n3 == 3); ASE_AWK_ASSERT (run->awk, n3 == 3);
res = ase_awk_makerealval (run, res = ase_awk_makerealval (run,
run->awk->syscas.pow((ase_real_t)r1,(ase_real_t)r2)); run->awk->syscas.pow((ase_real_t)r1,(ase_real_t)r2));

38
ase/test/awk/pow.awk Normal file
View File

@ -0,0 +1,38 @@
BEGIN {
print 3 ** 2;
print 3 ** -2;
print -2 ** 3;
print -2 ** -3;
print 0 ** 0;
print 0 ** 1;
#print 0 ** -1;
print -1 ** 4;
print -1 ** 5;
print "-------------------";
print 3.0 ** 2;
print 3.0 ** -2;
print -2.0 ** 3;
print -2.0 ** -3;
print 0.0 ** 0;
print 0.0 ** 1;
#print 0.0 ** -1;
print -1.0 ** 4;
print -1.0 ** 5;
print -2.12 ** 3;
print 2.12 ** -3;
print -12.12 ** 3;
print 12.12 ** -3;
print 0.000000001 ** 30;
print 0.000000002 ** 30;
print 0.000000000000000000000000000000000000000000000000000000001 ** 30;
print 0.000000000000000000000000000000000000000000000000000000002 ** 30;
print "-------------------";
}