diff options
| -rw-r--r-- | ldblib.c | 15 | ||||
| -rw-r--r-- | lmathlib.c | 15 |
2 files changed, 15 insertions, 15 deletions
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: ldblib.c,v 1.131 2011/10/24 14:54:05 roberto Exp roberto $ | 2 | ** $Id: ldblib.c,v 1.132 2012/01/19 20:14:44 roberto Exp roberto $ |
| 3 | ** Interface from Lua to its debug API | 3 | ** Interface from Lua to its debug API |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -22,6 +22,18 @@ | |||
| 22 | 22 | ||
| 23 | 23 | ||
| 24 | 24 | ||
| 25 | static int db_numbits (lua_State *L) { | ||
| 26 | const char *s = luaL_checkstring(L, 1); | ||
| 27 | if (*s == 'i') | ||
| 28 | lua_pushinteger(L, sizeof(lua_Integer) * CHAR_BIT); | ||
| 29 | else if (*s == 'f') | ||
| 30 | lua_pushinteger(L, sizeof(lua_Number) * CHAR_BIT); | ||
| 31 | else | ||
| 32 | luaL_argerror(L, 1, lua_pushfstring(L, "invalid option '%s'", s)); | ||
| 33 | return 1; | ||
| 34 | } | ||
| 35 | |||
| 36 | |||
| 25 | static int db_getregistry (lua_State *L) { | 37 | static int db_getregistry (lua_State *L) { |
| 26 | lua_pushvalue(L, LUA_REGISTRYINDEX); | 38 | lua_pushvalue(L, LUA_REGISTRYINDEX); |
| 27 | return 1; | 39 | return 1; |
| @@ -379,6 +391,7 @@ static const luaL_Reg dblib[] = { | |||
| 379 | {"getregistry", db_getregistry}, | 391 | {"getregistry", db_getregistry}, |
| 380 | {"getmetatable", db_getmetatable}, | 392 | {"getmetatable", db_getmetatable}, |
| 381 | {"getupvalue", db_getupvalue}, | 393 | {"getupvalue", db_getupvalue}, |
| 394 | {"numbits", db_numbits}, | ||
| 382 | {"upvaluejoin", db_upvaluejoin}, | 395 | {"upvaluejoin", db_upvaluejoin}, |
| 383 | {"upvalueid", db_upvalueid}, | 396 | {"upvalueid", db_upvalueid}, |
| 384 | {"setuservalue", db_setuservalue}, | 397 | {"setuservalue", db_setuservalue}, |
| @@ -1,5 +1,5 @@ | |||
| 1 | /* | 1 | /* |
| 2 | ** $Id: lmathlib.c,v 1.87 2013/06/13 19:32:52 roberto Exp roberto $ | 2 | ** $Id: lmathlib.c,v 1.88 2013/06/25 14:02:18 roberto Exp roberto $ |
| 3 | ** Standard mathematical library | 3 | ** Standard mathematical library |
| 4 | ** See Copyright Notice in lua.h | 4 | ** See Copyright Notice in lua.h |
| 5 | */ | 5 | */ |
| @@ -246,18 +246,6 @@ static int math_isfloat (lua_State *L) { | |||
| 246 | } | 246 | } |
| 247 | 247 | ||
| 248 | 248 | ||
| 249 | static int math_numbits (lua_State *L) { | ||
| 250 | const char *s = luaL_checkstring(L, 1); | ||
| 251 | if (*s == 'i') | ||
| 252 | lua_pushinteger(L, sizeof(lua_Integer) * CHAR_BIT); | ||
| 253 | else if (*s == 'f') | ||
| 254 | lua_pushinteger(L, sizeof(lua_Number) * CHAR_BIT); | ||
| 255 | else | ||
| 256 | luaL_argerror(L, 1, lua_pushfstring(L, "invalid option '%s'", s)); | ||
| 257 | return 1; | ||
| 258 | } | ||
| 259 | |||
| 260 | |||
| 261 | static const luaL_Reg mathlib[] = { | 249 | static const luaL_Reg mathlib[] = { |
| 262 | {"abs", math_abs}, | 250 | {"abs", math_abs}, |
| 263 | {"acos", math_acos}, | 251 | {"acos", math_acos}, |
| @@ -287,7 +275,6 @@ static const luaL_Reg mathlib[] = { | |||
| 287 | {"randomseed", math_randomseed}, | 275 | {"randomseed", math_randomseed}, |
| 288 | {"sinh", math_sinh}, | 276 | {"sinh", math_sinh}, |
| 289 | {"sin", math_sin}, | 277 | {"sin", math_sin}, |
| 290 | {"numbits", math_numbits}, | ||
| 291 | {"sqrt", math_sqrt}, | 278 | {"sqrt", math_sqrt}, |
| 292 | {"tanh", math_tanh}, | 279 | {"tanh", math_tanh}, |
| 293 | {"tan", math_tan}, | 280 | {"tan", math_tan}, |
