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

new macro `luaL_typename'

This commit is contained in:
Roberto Ierusalimschy 2004-07-09 15:23:17 -03:00
parent 76d8b8db06
commit 7a796a0682
4 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lauxlib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lauxlib.c,v 1.118 2004/06/29 16:57:56 roberto Exp roberto $
** $Id: lauxlib.c,v 1.119 2004/07/01 14:26:28 roberto Exp roberto $
** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h
*/
@ -63,7 +63,7 @@ LUALIB_API int luaL_argerror (lua_State *L, int narg, const char *extramsg) {
LUALIB_API int luaL_typerror (lua_State *L, int narg, const char *tname) {
const char *msg = lua_pushfstring(L, "%s expected, got %s",
tname, lua_typename(L, lua_type(L,narg)));
tname, luaL_typename(L, narg));
return luaL_argerror(L, narg, msg);
}

3
lauxlib.h
View File

@ -1,5 +1,5 @@
/*
** $Id: lauxlib.h,v 1.68 2004/06/29 16:57:56 roberto Exp roberto $
** $Id: lauxlib.h,v 1.69 2004/06/30 12:58:44 roberto Exp roberto $
** Auxiliary functions for building Lua libraries
** See Copyright Notice in lua.h
*/
@ -86,6 +86,7 @@ LUALIB_API lua_State *(luaL_newstate) (void);
#define luaL_checklong(L,n) ((long)luaL_checkinteger(L, n))
#define luaL_optlong(L,n,d) ((long)luaL_optinteger(L, n,d))
#define luaL_typename(L,i) lua_typename(L,lua_type(L,(i)))
/*
** {======================================================

4
lbaselib.c
View File

@ -1,5 +1,5 @@
/*
** $Id: lbaselib.c,v 1.152 2004/07/02 18:09:11 roberto Exp roberto $
** $Id: lbaselib.c,v 1.153 2004/07/09 16:01:38 roberto Exp roberto $
** Basic library
** See Copyright Notice in lua.h
*/
@ -195,7 +195,7 @@ static int luaB_collectgarbage (lua_State *L) {
static int luaB_type (lua_State *L) {
luaL_checkany(L, 1);
lua_pushstring(L, lua_typename(L, lua_type(L, 1)));
lua_pushstring(L, luaL_typename(L, 1));
return 1;
}

4
ltests.c
View File

@ -1,5 +1,5 @@
/*
** $Id: ltests.c,v 2.8 2004/05/31 19:41:52 roberto Exp roberto $
** $Id: ltests.c,v 2.9 2004/06/02 19:08:52 roberto Exp roberto $
** Internal Module for Debugging of the Lua Implementation
** See Copyright Notice in lua.h
*/
@ -951,7 +951,7 @@ static int testC (lua_State *L) {
lua_pushnil(L1);
}
else if EQ("type") {
lua_pushstring(L1, lua_typename(L1, lua_type(L1, getnum)));
lua_pushstring(L1, luaL_typename(L1, getnum));
}
else if EQ("getn") {
int i = getnum;