mirrors/lua
0
0
Fork 0
mirror of https://github.com/lua/lua.git synced 2024-11-24 02:33:48 +08:00
Code Issues Packages Projects Releases Wiki Activity

new test function for conversion from num to int

Browse Source
This commit is contained in:
Roberto Ierusalimschy 2005-07-11 11:00:59 -03:00
parent 575637319e
commit 64b57db377
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ltests.c
View File

@ -1,5 +1,5 @@
/* /*
** $Id: ltests.c,v 2.24 2005/05/03 19:01:17 roberto Exp roberto $ ** $Id: ltests.c,v 2.25 2005/05/31 14:34:02 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation ** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h ** See Copyright Notice in lua.h
*/ */
@ -691,6 +691,7 @@ static int s2d (lua_State *L) {
return 1; return 1;
} }
static int d2s (lua_State *L) { static int d2s (lua_State *L) {
double d = luaL_checknumber(L, 1); double d = luaL_checknumber(L, 1);
lua_pushlstring(L, cast(char *, &d), sizeof(d)); lua_pushlstring(L, cast(char *, &d), sizeof(d));
@ -698,6 +699,12 @@ static int d2s (lua_State *L) {
} }
static int num2int (lua_State *L) {
lua_pushinteger(L, lua_tointeger(L, 1));
return 1;
}
static int newstate (lua_State *L) { static int newstate (lua_State *L) {
void *ud; void *ud;
lua_Alloc f = lua_getallocf(L, &ud); lua_Alloc f = lua_getallocf(L, &ud);
@ -1112,6 +1119,7 @@ static const struct luaL_reg tests_funcs[] = {
{"unref", unref}, {"unref", unref},
{"d2s", d2s}, {"d2s", d2s},
{"s2d", s2d}, {"s2d", s2d},
{"num2int", num2int},
{"upvalue", upvalue}, {"upvalue", upvalue},
{"newuserdata", newuserdata}, {"newuserdata", newuserdata},
{"pushuserdata", pushuserdata}, {"pushuserdata", pushuserdata},