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
** See Copyright Notice in lua.h
*/
@ -691,6 +691,7 @@ static int s2d (lua_State *L) {
return 1;
}
static int d2s (lua_State *L) {
double d = luaL_checknumber(L, 1);
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) {
void *ud;
lua_Alloc f = lua_getallocf(L, &ud);
@ -1112,6 +1119,7 @@ static const struct luaL_reg tests_funcs[] = {
{"unref", unref},
{"d2s", d2s},
{"s2d", s2d},
{"num2int", num2int},
{"upvalue", upvalue},
{"newuserdata", newuserdata},
{"pushuserdata", pushuserdata},