From 6314952ff1b49372635fd972c887d4e3ba860705 Mon Sep 17 00:00:00 2001 From: Maurus Cuelenaere Date: Fri, 23 Oct 2009 10:49:55 +0000 Subject: Lua: add parts of the math library (all floating point functions are #ifdef'ed out) Flyspray: FS#10389 Author: myself git-svn-id: svn://svn.rockbox.org/rockbox/trunk@23321 a1c6a512-1295-4272-9138-f99709370657 --- apps/plugins/lua/SOURCES | 1 + apps/plugins/lua/lmathlib.c | 285 ++++++++++++++++++++++++++++++++++++++++++++ apps/plugins/lua/rocklua.c | 1 + 3 files changed, 287 insertions(+) create mode 100644 apps/plugins/lua/lmathlib.c (limited to 'apps') diff --git a/apps/plugins/lua/SOURCES b/apps/plugins/lua/SOURCES index 56c029921d..d475783c7a 100644 --- a/apps/plugins/lua/SOURCES +++ b/apps/plugins/lua/SOURCES @@ -10,6 +10,7 @@ lfunc.c lgc.c liolib.c llex.c +lmathlib.c lmem.c loadlib.c lobject.c diff --git a/apps/plugins/lua/lmathlib.c b/apps/plugins/lua/lmathlib.c new file mode 100644 index 0000000000..99a104050c --- /dev/null +++ b/apps/plugins/lua/lmathlib.c @@ -0,0 +1,285 @@ +/* +** $Id: lmathlib.c,v 1.67.1.1 2007/12/27 13:02:25 roberto Exp $ +** Standard mathematical library +** See Copyright Notice in lua.h +*/ + + +#if 0 +#include +#include +#endif + +#define lmathlib_c +#define LUA_LIB + +#include "lua.h" + +#include "lauxlib.h" +#include "lualib.h" + + +#undef PI +#define PI (3.14159265358979323846) +#define RADIANS_PER_DEGREE (PI/180.0) +#define DEGREES_PER_RADIAN (180.0/PI) + + +static int math_abs (lua_State *L) { + /* Was: lua_pushnumber(L, fabs(luaL_checknumber(L, 1))); */ + lua_Number n = luaL_checknumber(L, 1); + lua_pushnumber(L, n < 0 ? -n : n); + return 1; +} + +#if 0 +static int math_sin (lua_State *L) { + lua_pushnumber(L, sin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_sinh (lua_State *L) { + lua_pushnumber(L, sinh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cos (lua_State *L) { + lua_pushnumber(L, cos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_cosh (lua_State *L) { + lua_pushnumber(L, cosh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tan (lua_State *L) { + lua_pushnumber(L, tan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_tanh (lua_State *L) { + lua_pushnumber(L, tanh(luaL_checknumber(L, 1))); + return 1; +} + +static int math_asin (lua_State *L) { + lua_pushnumber(L, asin(luaL_checknumber(L, 1))); + return 1; +} + +static int math_acos (lua_State *L) { + lua_pushnumber(L, acos(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan (lua_State *L) { + lua_pushnumber(L, atan(luaL_checknumber(L, 1))); + return 1; +} + +static int math_atan2 (lua_State *L) { + lua_pushnumber(L, atan2(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} +#endif + +static int math_ceil (lua_State *L) { + /* Doesn't change anything in fixed point arithmetic */ + lua_pushnumber(L, luaL_checknumber(L, 1)); + return 1; +} + +static int math_floor (lua_State *L) { + /* Doesn't change anything in fixed point arithmetic */ + lua_pushnumber(L, luaL_checknumber(L, 1)); + return 1; +} + +static int math_fmod (lua_State *L) { + /* Was: lua_pushnumber(L, fmod(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); */ + lua_pushnumber(L, luaL_checknumber(L, 1) % luaL_checknumber(L, 2)); + return 1; +} + +#if 0 +static int math_modf (lua_State *L) { + double ip; + double fp = modf(luaL_checknumber(L, 1), &ip); + lua_pushnumber(L, ip); + lua_pushnumber(L, fp); + return 2; +} + +static int math_sqrt (lua_State *L) { + lua_pushnumber(L, sqrt(luaL_checknumber(L, 1))); + return 1; +} + +static int math_pow (lua_State *L) { + lua_pushnumber(L, pow(luaL_checknumber(L, 1), luaL_checknumber(L, 2))); + return 1; +} + +static int math_log (lua_State *L) { + lua_pushnumber(L, log(luaL_checknumber(L, 1))); + return 1; +} + +static int math_log10 (lua_State *L) { + lua_pushnumber(L, log10(luaL_checknumber(L, 1))); + return 1; +} + +static int math_exp (lua_State *L) { + lua_pushnumber(L, exp(luaL_checknumber(L, 1))); + return 1; +} +#endif +static int math_deg (lua_State *L) { + lua_pushnumber(L, luaL_checknumber(L, 1)*DEGREES_PER_RADIAN); + return 1; +} +static int math_rad (lua_State *L) { + lua_pushnumber(L, (luaL_checknumber(L, 1)*100)/(DEGREES_PER_RADIAN*100)); + return 1; +} + +#if 0 +static int math_frexp (lua_State *L) { + int e; + lua_pushnumber(L, frexp(luaL_checknumber(L, 1), &e)); + lua_pushinteger(L, e); + return 2; +} + +static int math_ldexp (lua_State *L) { + lua_pushnumber(L, ldexp(luaL_checknumber(L, 1), luaL_checkint(L, 2))); + return 1; +} +#endif + + +static int math_min (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmin = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d < dmin) + dmin = d; + } + lua_pushnumber(L, dmin); + return 1; +} + + +static int math_max (lua_State *L) { + int n = lua_gettop(L); /* number of arguments */ + lua_Number dmax = luaL_checknumber(L, 1); + int i; + for (i=2; i<=n; i++) { + lua_Number d = luaL_checknumber(L, i); + if (d > dmax) + dmax = d; + } + lua_pushnumber(L, dmax); + return 1; +} + + +static int math_random (lua_State *L) { + /* We're not SunOS */ + lua_Number r = (lua_Number)(rb->rand()); + switch (lua_gettop(L)) { /* check number of arguments */ + case 0: { /* no arguments */ + lua_pushnumber(L, r); /* Number between 0 and RAND_MAX */ + break; + } + case 1: { /* only upper limit */ + int u = luaL_checkint(L, 1); + luaL_argcheck(L, 1<=u, 1, "interval is empty"); + lua_pushnumber(L, r%u+1); /* int between 1 and `u' */ + break; + } + case 2: { /* lower and upper limits */ + int l = luaL_checkint(L, 1); + int u = luaL_checkint(L, 2); + luaL_argcheck(L, l<=u, 2, "interval is empty"); + lua_pushnumber(L, r%(u-l+1)+l); /* int between `l' and `u' */ + break; + } + default: return luaL_error(L, "wrong number of arguments"); + } + return 1; +} + + +static int math_randomseed (lua_State *L) { + rb->srand(luaL_checkint(L, 1)); + return 0; +} + + +static const luaL_Reg mathlib[] = { + {"abs", math_abs}, +#if 0 + {"acos", math_acos}, + {"asin", math_asin}, + {"atan2", math_atan2}, + {"atan", math_atan}, +#endif + {"ceil", math_ceil}, +#if 0 + {"cosh", math_cosh}, + {"cos", math_cos}, +#endif + {"deg", math_deg}, +#if 0 + {"exp", math_exp}, +#endif + {"floor", math_floor}, + {"fmod", math_fmod}, +#if 0 + {"frexp", math_frexp}, + {"ldexp", math_ldexp}, + {"log10", math_log10}, + {"log", math_log}, +#endif + {"max", math_max}, + {"min", math_min}, +#if 0 + {"modf", math_modf}, + {"pow", math_pow}, +#endif + {"rad", math_rad}, + {"random", math_random}, + {"randomseed", math_randomseed}, +#if 0 + {"sinh", math_sinh}, + {"sin", math_sin}, + {"sqrt", math_sqrt}, + {"tanh", math_tanh}, + {"tan", math_tan}, +#endif + {NULL, NULL} +}; + + +/* +** Open math library +*/ +LUALIB_API int luaopen_math (lua_State *L) { + luaL_register(L, LUA_MATHLIBNAME, mathlib); +#if 0 /* No use in adding floating point constants when there's no FP */ + lua_pushnumber(L, PI); + lua_setfield(L, -2, "pi"); + lua_pushnumber(L, HUGE_VAL); + lua_setfield(L, -2, "huge"); +#if defined(LUA_COMPAT_MOD) + lua_getfield(L, -1, "fmod"); + lua_setfield(L, -2, "mod"); +#endif +#endif + return 1; +} diff --git a/apps/plugins/lua/rocklua.c b/apps/plugins/lua/rocklua.c index 266fa4305e..395cde8d9d 100644 --- a/apps/plugins/lua/rocklua.c +++ b/apps/plugins/lua/rocklua.c @@ -38,6 +38,7 @@ static const luaL_Reg lualibs[] = { {LUA_BITLIBNAME, luaopen_bit}, {LUA_IOLIBNAME, luaopen_io}, {LUA_LOADLIBNAME, luaopen_package}, + {LUA_MATHLIBNAME, luaopen_math}, {NULL, NULL} }; -- cgit v1.2.3