From f490b1bff8628b4de0acdfbeb06b247f1ceb8345 Mon Sep 17 00:00:00 2001
From: Waldemar Celes <celes@tecgraf.puc-rio.br>
Date: Mon, 15 Aug 1994 11:13:44 -0300
Subject: [PATCH] Implementacao das funcoes 'log', 'log10' e 'exp'.

---
 mathlib.c | 42 +++++++++++++++++++++++++++++++++++++++++-
 1 file changed, 41 insertions(+), 1 deletion(-)

diff --git a/mathlib.c b/mathlib.c
index eb148790..c6dfb20e 100644
--- a/mathlib.c
+++ b/mathlib.c
@@ -3,7 +3,7 @@
 ** Mathematics library to LUA
 */
 
-char *rcs_mathlib="$Id: mathlib.c,v 1.1 1993/12/17 18:41:19 celes Exp celes $";
+char *rcs_mathlib="$Id: mathlib.c,v 1.2 1994/07/20 22:12:27 celes Exp celes $";
 
 #include <stdio.h>		/* NULL */
 #include <math.h>
@@ -214,6 +214,43 @@ static void math_max (void)
 }
 
 
+static void math_log (void)
+{
+ double d;
+ lua_Object o = lua_getparam (1);
+ if (o == NULL)
+ { lua_error ("too few arguments to function `log'"); return; }
+ if (!lua_isnumber(o))
+ { lua_error ("incorrect arguments to function `log'"); return; }
+ d = lua_getnumber(o);
+ lua_pushnumber (log(d));
+}
+
+
+static void math_log10 (void)
+{
+ double d;
+ lua_Object o = lua_getparam (1);
+ if (o == NULL)
+ { lua_error ("too few arguments to function `log10'"); return; }
+ if (!lua_isnumber(o))
+ { lua_error ("incorrect arguments to function `log10'"); return; }
+ d = lua_getnumber(o);
+ lua_pushnumber (log10(d));
+}
+
+
+static void math_exp (void)
+{
+ double d;
+ lua_Object o = lua_getparam (1);
+ if (o == NULL)
+ { lua_error ("too few arguments to function `exp'"); return; }
+ if (!lua_isnumber(o))
+ { lua_error ("incorrect arguments to function `exp'"); return; }
+ d = lua_getnumber(o);
+ lua_pushnumber (exp(d));
+}
 
 /*
 ** Open math library
@@ -234,4 +271,7 @@ void mathlib_open (void)
  lua_register ("pow",   math_pow);
  lua_register ("min",   math_min);
  lua_register ("max",   math_max);
+ lua_register ("log",   math_log);
+ lua_register ("log10", math_log10);
+ lua_register ("exp",   math_exp);
 }