diff options
author | Manoj Srivastava <srivasta@debian.org> | 2016-01-27 13:11:31 -0800 |
---|---|---|
committer | Manoj Srivastava <srivasta@debian.org> | 2016-01-27 13:11:31 -0800 |
commit | 02819db3483514d49df7ec3f7e372b5aeb831466 (patch) | |
tree | 6a86adac74beac293bc688dafcfa1709a6476901 /src/lua/tolua_gp.c | |
parent | 2a61dffe127e22c1aaf955db6f085ac2eefbebba (diff) | |
parent | 6f6de67c70fd98815088ce49f046f48f88ea35bd (diff) |
Merge branch 'upstream'
Signed-off-by: Manoj Srivastava <srivasta@debian.org>
# Conflicts:
# src/CMakeLists.txt
# src/config.h
# src/lua/llimits.h
Diffstat (limited to 'src/lua/tolua_gp.c')
-rw-r--r-- | src/lua/tolua_gp.c | 197 |
1 files changed, 0 insertions, 197 deletions
diff --git a/src/lua/tolua_gp.c b/src/lua/tolua_gp.c deleted file mode 100644 index 77ff0c26..00000000 --- a/src/lua/tolua_gp.c +++ /dev/null @@ -1,197 +0,0 @@ -/* tolua: get & push functions. -** Support code for Lua bindings. -** Written by Waldemar Celes -** TeCGraf/PUC-Rio -** Jul 1998 -** $Id: tolua_gp.c,v 1.2 2001/11/26 23:00:27 darkgod Exp $ -*/ - -/* This code is free software; you can redistribute it and/or modify it. -** The software provided hereunder is on an "as is" basis, and -** the author has no obligation to provide maintenance, support, updates, -** enhancements, or modifications. -*/ - -#include "tolua.h" -#include "tolua_tm.h" - -#include <string.h> -#include <stdlib.h> - -long tolua_getnumber (lua_State* L, int narg, long def) -{ - return lua_gettop(L)<abs(narg) ? def : lua_tonumber(L,narg); -} - -const char* tolua_getstring (lua_State* L, int narg, const char* def) -{ - return lua_gettop(L)<abs(narg) ? def : lua_tostring(L,narg); -} - -void* tolua_getuserdata (lua_State* L, int narg, void* def) -{ - return lua_gettop(L)<abs(narg) ? def : lua_touserdata(L,narg); -} - -void* tolua_getusertype (lua_State* L, int narg, void* def) -{ - return lua_gettop(L)<abs(narg) ? def : lua_touserdata(L,narg); -} - -int tolua_getvalue (lua_State* L, int narg, int def) -{ - return lua_gettop(L)<abs(narg) ? def : narg; -} - -int tolua_getbool (lua_State* L, int narg, int def) -{ - return lua_gettop(L)<abs(narg) ? - def : - lua_isnil(L,narg) ? 0 : lua_tonumber(L,narg)!=0; -} - -long tolua_getfieldnumber (lua_State* L, int lo, int index, long def) -{ - long v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? def : lua_tonumber(L,-1); - lua_pop(L,1); - return v; -} - -const char* tolua_getfieldstring -(lua_State* L, int lo, int index, const char* def) -{ - const char* v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? def : lua_tostring(L,-1); - lua_pop(L,1); - return v; -} - -void* tolua_getfielduserdata (lua_State* L, int lo, int index, void* def) -{ - void* v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? def : lua_touserdata(L,-1); - lua_pop(L,1); - return v; -} - -void* tolua_getfieldusertype (lua_State* L, int lo, int index, void* def) -{ - void* v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? def : lua_touserdata(L,-1); - lua_pop(L,1); - return v; -} - -int tolua_getfieldvalue (lua_State* L, int lo, int index, int def) -{ - int v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? def : lo; - lua_pop(L,1); - return v; -} - -int tolua_getfieldbool (lua_State* L, int lo, int index, int def) -{ - int v; - lua_pushnumber(L,index); - lua_gettable(L,lo); - v = lua_isnil(L,-1) ? 0 : lua_tonumber(L,-1)!=0; - lua_pop(L,1); - return v; -} - -void tolua_pushnumber (lua_State* L, long value) -{ - lua_pushnumber(L,value); -} - -void tolua_pushstring (lua_State* L, const char* value) -{ - if (value == NULL) - lua_pushnil(L); - else - lua_pushstring(L,value); -} - -void tolua_pushuserdata (lua_State* L, void* value) -{ - if (value == NULL) - lua_pushnil(L); - else - lua_pushuserdata(L,value); -} - -void tolua_pushusertype (lua_State* L, void* value, int tag) -{ - if (value == NULL) - lua_pushnil(L); - else - lua_pushusertag(L,value,tag); -} - -void tolua_pushvalue (lua_State* L, int lo) -{ - lua_pushvalue(L,lo); -} - -void tolua_pushbool (lua_State* L, int value) -{ - if (value) - lua_pushnumber(L,(long)value); - else - lua_pushnil(L); -} - -void tolua_pushfieldnumber (lua_State* L, int lo, int index, long v) -{ - lua_pushnumber(L,index); - tolua_pushnumber(L,v); - lua_settable(L,lo); -} - -void tolua_pushfieldstring (lua_State* L, int lo, int index, char* v) -{ - lua_pushnumber(L,index); - tolua_pushstring(L,v); - lua_settable(L,lo); -} - -void tolua_pushfielduserdata (lua_State* L, int lo, int index, void* v) -{ - lua_pushnumber(L,index); - tolua_pushuserdata(L,v); - lua_settable(L,lo); -} - -void tolua_pushfieldusertype (lua_State* L, int lo, int index, void* v, int tag) -{ - lua_pushnumber(L,index); - tolua_pushusertype(L,v,tag); - lua_settable(L,lo); -} - -void tolua_pushfieldvalue (lua_State* L, int lo, int index, int v) -{ - lua_pushnumber(L,index); - lua_pushvalue(L,v); - lua_settable(L,lo); -} - -void tolua_pushfieldbool (lua_State* L, int lo, int index, int v) -{ - lua_pushnumber(L,index); - tolua_pushbool(L,v); - lua_settable(L,lo); -} - |