mirror of https://github.com/rusefi/lua.git
function "type" now returns a second result: the tag of the type,
so lua can discriminate different kinds of user data.
This commit is contained in:
parent
3c67d2595b
commit
36b6fdda83
7
inout.c
7
inout.c
|
@ -5,7 +5,7 @@
|
||||||
** Also provides some predefined lua functions.
|
** Also provides some predefined lua functions.
|
||||||
*/
|
*/
|
||||||
|
|
||||||
char *rcs_inout="$Id: inout.c,v 2.16 1994/12/20 21:20:36 roberto Exp celes $";
|
char *rcs_inout="$Id: inout.c,v 2.17 1995/03/17 20:27:11 celes Exp roberto $";
|
||||||
|
|
||||||
#include <stdio.h>
|
#include <stdio.h>
|
||||||
#include <stdlib.h>
|
#include <stdlib.h>
|
||||||
|
@ -235,9 +235,11 @@ void lua_print (void)
|
||||||
void luaI_type (void)
|
void luaI_type (void)
|
||||||
{
|
{
|
||||||
lua_Object o = lua_getparam(1);
|
lua_Object o = lua_getparam(1);
|
||||||
|
int t;
|
||||||
if (o == LUA_NOOBJECT)
|
if (o == LUA_NOOBJECT)
|
||||||
lua_error("no parameter to function 'type'");
|
lua_error("no parameter to function 'type'");
|
||||||
switch (lua_type(o))
|
t = lua_type(o);
|
||||||
|
switch (t)
|
||||||
{
|
{
|
||||||
case LUA_T_NIL :
|
case LUA_T_NIL :
|
||||||
lua_pushliteral("nil");
|
lua_pushliteral("nil");
|
||||||
|
@ -261,6 +263,7 @@ void luaI_type (void)
|
||||||
lua_pushliteral("userdata");
|
lua_pushliteral("userdata");
|
||||||
break;
|
break;
|
||||||
}
|
}
|
||||||
|
lua_pushnumber(t);
|
||||||
}
|
}
|
||||||
|
|
||||||
/*
|
/*
|
||||||
|
|
Loading…
Reference in New Issue