new functions "frexp" and "ldexp"

2 files changed, 20 insertions, 6 deletions

diff --git a/lmathlib.c b/lmathlib.c
index ad462535..8b8babaa 100644
--- a/lmathlib.c
+++ b/lmathlib.c
@@ -1,5 +1,5 @@
 /*
-** $Id: lmathlib.c,v 1.7 1997/12/09 13:35:19 roberto Exp roberto $
+** $Id: lmathlib.c,v 1.8 1997/12/26 18:36:31 roberto Exp roberto $
 ** Lua standard mathematical library
 ** See Copyright Notice in lua.h
 */
@@ -115,6 +115,16 @@ static void math_rad (void)
   lua_pushnumber(luaL_check_number(1)*(PI/180.0));
 }
 
+static void math_frexp (void) {
+  int e;
+  lua_pushnumber(frexp(luaL_check_number(1), &e));
+  lua_pushnumber(e);
+}
+
+static void math_ldexp (void) {
+  lua_pushnumber(ldexp(luaL_check_number(1), luaL_check_number(2)));
+}
+
 
 
 static void math_min (void)
@@ -170,10 +180,12 @@ static struct luaL_reg mathlib[] = {
 {"asin",  math_asin},
 {"acos",  math_acos},
 {"atan",  math_atan},
-{"atan2",  math_atan2},
+{"atan2", math_atan2},
 {"ceil",  math_ceil},
 {"floor", math_floor},
 {"mod",   math_mod},
+{"frexp", math_frexp},
+{"ldexp", math_ldexp},
 {"sqrt",  math_sqrt},
 {"min",   math_min},
 {"max",   math_max},
diff --git a/manual.tex b/manual.tex
index eaf85fac..041590c4 100644
--- a/manual.tex
+++ b/manual.tex
@@ -1,4 +1,4 @@
-% $Id: manual.tex,v 1.9 1998/05/18 22:26:03 roberto Exp roberto $
+% $Id: manual.tex,v 1.10 1998/05/20 22:21:35 roberto Exp roberto $
 
 \documentstyle[fullpage,11pt,bnf]{article}
 
@@ -38,7 +38,7 @@ Waldemar Celes
 \tecgraf\ --- Computer Science Department --- PUC-Rio
 }
 
-\date{\small \verb$Date: 1998/05/18 22:26:03 $}
+\date{\small \verb$Date: 1998/05/20 22:21:35 $}
 
 \maketitle
 
@@ -2398,10 +2398,12 @@ The library provides the following functions:
 \Deffunc{atan2}\Deffunc{ceil}\Deffunc{cos}\Deffunc{floor}
 \Deffunc{log}\Deffunc{log10}\Deffunc{max}\Deffunc{min}
 \Deffunc{mod}\Deffunc{sin}\Deffunc{sqrt}\Deffunc{tan}
+\Deffunc{frexp}\Deffunc{ldexp}
 \Deffunc{random}\Deffunc{randomseed}
 \begin{verbatim}
-abs acos asin atan atan2 ceil cos deg floor log log10
-max min  mod  rad  sin   sqrt tan random    randomseed
+abs acos asin atan atan2 ceil cos deg   floor log log10
+max min  mod  rad  sin   sqrt tan frexp ldexp
+random   randomseed
 \end{verbatim}
 plus a global variable \IndexVerb{PI}.
 Most of them