nik/lush
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new function 'math.numbits' (not a final decision)

Browse Source
This commit is contained in:
Roberto Ierusalimschy
2013-05-06 14:22:55 -03:00
parent 1f2b82bf25
commit 0233ce0815
1 changed files with 15 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
lmathlib.c
View File

@@ -1,5 +1,5 @@
/* /*
** $Id: lmathlib.c,v 1.83 2013/03/07 18:21:32 roberto Exp roberto $ ** $Id: lmathlib.c,v 1.84 2013/05/02 17:31:54 roberto Exp roberto $
** Standard mathematical library ** Standard mathematical library
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@@ -236,6 +236,19 @@ static int math_isfloat (lua_State *L) {
return 1; return 1;
} }
static int math_numbits (lua_State *L) {
const char *s = luaL_checkstring(L, 1);
if (*s == 'i')
lua_pushinteger(L, sizeof(lua_Integer) * CHAR_BIT);
else if (*s == 'f')
lua_pushinteger(L, sizeof(lua_Number) * CHAR_BIT);
else
luaL_argerror(L, 1, lua_pushfstring(L, "invalid option '%s'", s));
return 1;
}
static const luaL_Reg mathlib[] = { static const luaL_Reg mathlib[] = {
{"abs", math_abs}, {"abs", math_abs},
{"acos", math_acos}, {"acos", math_acos},
@@ -265,6 +278,7 @@ static const luaL_Reg mathlib[] = {
{"randomseed", math_randomseed}, {"randomseed", math_randomseed},
{"sinh", math_sinh}, {"sinh", math_sinh},
{"sin", math_sin}, {"sin", math_sin},
{"numbits", math_numbits},
{"sqrt", math_sqrt}, {"sqrt", math_sqrt},
{"tanh", math_tanh}, {"tanh", math_tanh},
{"tan", math_tan}, {"tan", math_tan},