rusefi
/
lua
mirror of https://github.com/rusefi/lua.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

luaI_type moved to fallback.c

This commit is contained in:
Roberto Ierusalimschy 1997-03-20 16:20:23 -03:00
parent 47527d2d3c
commit 88d7ffb0d0
1 changed files with 1 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
inout.c
View File

@ -5,7 +5,7 @@
** Also provides some predefined lua functions. ** Also provides some predefined lua functions.
*/ */
char *rcs_inout="$Id: inout.c,v 2.46 1997/03/17 17:01:10 roberto Exp roberto $"; char *rcs_inout="$Id: inout.c,v 2.47 1997/03/19 19:41:10 roberto Exp roberto $";
#include <stdio.h> #include <stdio.h>
#include <string.h> #include <string.h>
@ -160,34 +160,6 @@ static void luaI_print (void)
printf("%s\n", tostring(obj)); printf("%s\n", tostring(obj));
} }
/*
** Internal function: return an object type.
*/
static void luaI_type (void)
{
lua_Object o = lua_getparam(1);
int t = lua_tag(o);
char *s;
if (t == LUA_T_NUMBER)
s = "number";
else if (lua_isstring(o))
s = "string";
else if (lua_istable(o))
s = "table";
else if (lua_isnil(o))
s = "nil";
else if (lua_isfunction(o))
s = "function";
else if (lua_isuserdata(o))
s = "userdata";
else {
lua_error("no parameter to function 'type'");
return; /* to avoid warnings */
}
lua_pushliteral(s);
lua_pushnumber(t);
}
/* /*
** Internal function: convert an object to a number ** Internal function: convert an object to a number
*/ */