From 613bca0e885d2fd651f082941e3d5d0c951d1770 Mon Sep 17 00:00:00 2001
From: hyung-hwan <hyunghwan.chung@gmail.com>
Date: Wed, 1 Nov 2006 04:16:27 +0000
Subject: [PATCH] *** empty log message ***

---
 ase/awk/run.c        | 48 +++++++++++++++++++++++++++++++++++---------
 ase/test/awk/pow.awk | 38 +++++++++++++++++++++++++++++++++++
 2 files changed, 77 insertions(+), 9 deletions(-)
 create mode 100644 ase/test/awk/pow.awk

diff --git a/ase/awk/run.c b/ase/awk/run.c
index b103dff7..ba1b4db0 100644
--- a/ase/awk/run.c
+++ b/ase/awk/run.c
@@ -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>
@@ -3713,25 +3713,55 @@ static ase_awk_val_t* __eval_binop_exp (
 	n3 = n1 + (n2 << 1);
 	if (n3 == 0)
 	{
-		ase_long_t v = 1;
-		while (l2-- > 0) v *= l1;
-		res = ase_awk_makeintval (run, v);
+		/* left - int, right - int */
+		if (l2 >= 0)
+		{
+			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)
 	{
-		/*res = ase_awk_makerealval (
-			run, pow((ase_real_t)r1,(ase_real_t)l2));*/
-		ase_real_t v = 1.0;
-		while (l2-- > 0) v *= r1;
-		res = ase_awk_makerealval (run, v);
+		/* left - real, right - int */
+		if (l2 >= 0)
+		{
+			ase_real_t v = 1.0;
+			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)
 	{
+		/* left - int, right - real */
 		res = ase_awk_makerealval (run, 
 			run->awk->syscas.pow((ase_real_t)l1,(ase_real_t)r2));
 	}
 	else
 	{
+		/* left - real, right - real */
 		ASE_AWK_ASSERT (run->awk, n3 == 3);
 		res = ase_awk_makerealval (run,
 			run->awk->syscas.pow((ase_real_t)r1,(ase_real_t)r2));
diff --git a/ase/test/awk/pow.awk b/ase/test/awk/pow.awk
new file mode 100644
index 00000000..91452ca0
--- /dev/null
+++ b/ase/test/awk/pow.awk
@@ -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 "-------------------";
+}
+