1dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 2dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** $Id: lapi.c,v 2.171 2013/03/16 21:10:18 roberto Exp $ 3dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** Lua API 4dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** See Copyright Notice in lua.h 5dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 6dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 7dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 8dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include <stdarg.h> 9dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include <string.h> 10dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 11dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define lapi_c 12dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define LUA_CORE 13dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 14dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lua.h" 15dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 16dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lapi.h" 17dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "ldebug.h" 18dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "ldo.h" 19dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lfunc.h" 20dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lgc.h" 21dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lmem.h" 22dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lobject.h" 23dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lstate.h" 24dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lstring.h" 25dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "ltable.h" 26dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "ltm.h" 27dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lundump.h" 28dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#include "lvm.h" 29dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 30dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 31dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 32dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comconst char lua_ident[] = 33dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com "$LuaVersion: " LUA_COPYRIGHT " $" 34dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com "$LuaAuthors: " LUA_AUTHORS " $"; 35dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 36dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 37dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* value at a non-valid index */ 38dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define NONVALIDVALUE cast(TValue *, luaO_nilobject) 39dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 40dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* corresponding test */ 41dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define isvalid(o) ((o) != luaO_nilobject) 42dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 43dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* test for pseudo index */ 44dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define ispseudo(i) ((i) <= LUA_REGISTRYINDEX) 45dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 46dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* test for valid but not pseudo index */ 47dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define isstackindex(i, o) (isvalid(o) && !ispseudo(i)) 48dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 49dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define api_checkvalidindex(L, o) api_check(L, isvalid(o), "invalid index") 50dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 51dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define api_checkstackindex(L, i, o) \ 52dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, isstackindex(i, o), "index not in the stack") 53dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 54dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 55dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic TValue *index2addr (lua_State *L, int idx) { 56dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CallInfo *ci = L->ci; 57dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (idx > 0) { 58dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *o = ci->func + idx; 59dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, idx <= ci->top - (ci->func + 1), "unacceptable index"); 60dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (o >= L->top) return NONVALIDVALUE; 61dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else return o; 62dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 63dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else if (!ispseudo(idx)) { /* negative index */ 64dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, idx != 0 && -idx <= L->top - (ci->func + 1), "invalid index"); 65dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return L->top + idx; 66dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 67dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else if (idx == LUA_REGISTRYINDEX) 68dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return &G(L)->l_registry; 69dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { /* upvalues */ 70dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com idx = LUA_REGISTRYINDEX - idx; 71dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, idx <= MAXUPVAL + 1, "upvalue index too large"); 72dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ttislcf(ci->func)) /* light C function? */ 73dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return NONVALIDVALUE; /* it has no upvalues */ 74dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 75dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CClosure *func = clCvalue(ci->func); 76dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (idx <= func->nupvalues) ? &func->upvalue[idx-1] : NONVALIDVALUE; 77dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 78dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 79dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 80dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 81dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 82dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 83dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** to be called by 'lua_checkstack' in protected mode, to grow stack 84dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** capturing memory errors 85dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 86dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic void growstack (lua_State *L, void *ud) { 87dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int size = *(int *)ud; 88dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaD_growstack(L, size); 89dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 90dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 91dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 92dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_checkstack (lua_State *L, int size) { 93dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int res; 94dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CallInfo *ci = L->ci; 95dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 96dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (L->stack_last - L->top > size) /* stack large enough? */ 97dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = 1; /* yes; check is OK */ 98dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { /* no; need to grow stack */ 99dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int inuse = cast_int(L->top - L->stack) + EXTRA_STACK; 100dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (inuse > LUAI_MAXSTACK - size) /* can grow without overflow? */ 101dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = 0; /* no */ 102dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else /* try to grow stack */ 103dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = (luaD_rawrunprotected(L, &growstack, &size) == LUA_OK); 104dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 105dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (res && ci->top < L->top + size) 106dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->top = L->top + size; /* adjust frame top */ 107dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 108dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return res; 109dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 110dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 111dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 112dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_xmove (lua_State *from, lua_State *to, int n) { 113dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int i; 114dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (from == to) return; 115dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(to); 116dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(from, n); 117dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(from, G(from) == G(to), "moving among independent states"); 118dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(from, to->ci->top - to->top >= n, "not enough elements to move"); 119dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com from->top -= n; 120dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com for (i = 0; i < n; i++) { 121dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(to, to->top++, from->top + i); 122dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 123dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(to); 124dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 125dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 126dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 127dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_CFunction lua_atpanic (lua_State *L, lua_CFunction panicf) { 128dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_CFunction old; 129dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 130dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com old = G(L)->panic; 131dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com G(L)->panic = panicf; 132dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 133dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return old; 134dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 135dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 136dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 137dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const lua_Number *lua_version (lua_State *L) { 138dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com static const lua_Number version = LUA_VERSION_NUM; 139dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (L == NULL) return &version; 140dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else return G(L)->version; 141dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 142dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 143dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 144dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 145dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 146dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** basic stack manipulation 147dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 148dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 149dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 150dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 151dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** convert an acceptable stack index into an absolute index 152dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 153dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_absindex (lua_State *L, int idx) { 154dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (idx > 0 || ispseudo(idx)) 155dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ? idx 156dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com : cast_int(L->top - L->ci->func + idx); 157dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 158dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 159dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 160dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_gettop (lua_State *L) { 161dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return cast_int(L->top - (L->ci->func + 1)); 162dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 163dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 164dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 165dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_settop (lua_State *L, int idx) { 166dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId func = L->ci->func; 167dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 168dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (idx >= 0) { 169dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, idx <= L->stack_last - (func + 1), "new top too large"); 170dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com while (L->top < (func + 1) + idx) 171dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnilvalue(L->top++); 172dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top = (func + 1) + idx; 173dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 174dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 175dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, -(idx+1) <= (L->top - (func + 1)), "invalid new top"); 176dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top += idx+1; /* `subtract' index (index is negative) */ 177dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 178dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 179dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 180dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 181dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 182dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_remove (lua_State *L, int idx) { 183dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId p; 184dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 185dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com p = index2addr(L, idx); 186dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checkstackindex(L, idx, p); 187dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com while (++p < L->top) setobjs2s(L, p-1, p); 188dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 189dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 190dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 191dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 192dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 193dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_insert (lua_State *L, int idx) { 194dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId p; 195dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId q; 196dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 197dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com p = index2addr(L, idx); 198dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checkstackindex(L, idx, p); 199dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com for (q = L->top; q > p; q--) /* use L->top as a temporary */ 200dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobjs2s(L, q, q - 1); 201dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobjs2s(L, p, L->top); 202dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 203dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 204dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 205dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 206dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic void moveto (lua_State *L, TValue *fr, int idx) { 207dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *to = index2addr(L, idx); 208dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checkvalidindex(L, to); 209dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj(L, to, fr); 210dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (idx < LUA_REGISTRYINDEX) /* function upvalue? */ 211dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrier(L, clCvalue(L->ci->func), fr); 212dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* LUA_REGISTRYINDEX does not need gc barrier 213dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com (collector revisits it before finishing collection) */ 214dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 215dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 216dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 217dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_replace (lua_State *L, int idx) { 218dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 219dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 220dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com moveto(L, L->top - 1, idx); 221dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 222dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 223dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 224dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 225dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 226dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_copy (lua_State *L, int fromidx, int toidx) { 227dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *fr; 228dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 229dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com fr = index2addr(L, fromidx); 230dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com moveto(L, fr, toidx); 231dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 232dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 233dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 234dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 235dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushvalue (lua_State *L, int idx) { 236dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 237dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(L, L->top, index2addr(L, idx)); 238dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 239dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 240dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 241dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 242dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 243dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 244dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 245dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** access functions (stack -> C) 246dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 247dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 248dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 249dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_type (lua_State *L, int idx) { 250dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 251dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (isvalid(o) ? ttypenv(o) : LUA_TNONE); 252dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 253dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 254dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 255dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_typename (lua_State *L, int t) { 256dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com UNUSED(L); 257dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return ttypename(t); 258dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 259dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 260dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 261dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_iscfunction (lua_State *L, int idx) { 262dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 263dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (ttislcf(o) || (ttisCclosure(o))); 264dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 265dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 266dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 267dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_isnumber (lua_State *L, int idx) { 268dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue n; 269dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 270dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return tonumber(o, &n); 271dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 272dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 273dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 274dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_isstring (lua_State *L, int idx) { 275dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int t = lua_type(L, idx); 276dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (t == LUA_TSTRING || t == LUA_TNUMBER); 277dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 278dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 279dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 280dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_isuserdata (lua_State *L, int idx) { 281dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 282dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (ttisuserdata(o) || ttislightuserdata(o)); 283dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 284dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 285dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 286dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_rawequal (lua_State *L, int index1, int index2) { 287dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o1 = index2addr(L, index1); 288dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o2 = index2addr(L, index2); 289dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (isvalid(o1) && isvalid(o2)) ? luaV_rawequalobj(o1, o2) : 0; 290dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 291dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 292dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 293dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_arith (lua_State *L, int op) { 294dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o1; /* 1st operand */ 295dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o2; /* 2nd operand */ 296dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 297dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (op != LUA_OPUNM) /* all other operations expect two operands */ 298dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 2); 299dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { /* for unary minus, add fake 2nd operand */ 300dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 301dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobjs2s(L, L->top, L->top - 1); 302dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top++; 303dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 304dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o1 = L->top - 2; 305dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o2 = L->top - 1; 306dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ttisnumber(o1) && ttisnumber(o2)) { 307dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnvalue(o1, luaO_arith(op, nvalue(o1), nvalue(o2))); 308dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 309dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else 310dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_arith(L, o1, o1, o2, cast(TMS, op - LUA_OPADD + TM_ADD)); 311dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 312dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 313dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 314dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 315dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 316dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_compare (lua_State *L, int index1, int index2, int op) { 317dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o1, o2; 318dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int i = 0; 319dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); /* may call tag method */ 320dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o1 = index2addr(L, index1); 321dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o2 = index2addr(L, index2); 322dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isvalid(o1) && isvalid(o2)) { 323dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (op) { 324dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_OPEQ: i = equalobj(L, o1, o2); break; 325dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_OPLT: i = luaV_lessthan(L, o1, o2); break; 326dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_OPLE: i = luaV_lessequal(L, o1, o2); break; 327dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: api_check(L, 0, "invalid option"); 328dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 329dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 330dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 331dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return i; 332dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 333dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 334dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 335dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_Number lua_tonumberx (lua_State *L, int idx, int *isnum) { 336dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue n; 337dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 338dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (tonumber(o, &n)) { 339dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 1; 340dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return nvalue(o); 341dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 342dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 343dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 0; 344dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return 0; 345dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 346dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 347dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 348dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 349dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_Integer lua_tointegerx (lua_State *L, int idx, int *isnum) { 350dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue n; 351dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 352dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (tonumber(o, &n)) { 353dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Integer res; 354dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Number num = nvalue(o); 355dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_number2integer(res, num); 356dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 1; 357dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return res; 358dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 359dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 360dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 0; 361dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return 0; 362dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 363dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 364dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 365dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 366dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_Unsigned lua_tounsignedx (lua_State *L, int idx, int *isnum) { 367dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue n; 368dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 369dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (tonumber(o, &n)) { 370dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Unsigned res; 371dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Number num = nvalue(o); 372dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_number2unsigned(res, num); 373dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 1; 374dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return res; 375dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 376dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 377dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isnum) *isnum = 0; 378dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return 0; 379dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 380dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 381dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 382dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 383dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_toboolean (lua_State *L, int idx) { 384dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *o = index2addr(L, idx); 385dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return !l_isfalse(o); 386dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 387dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 388dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 389dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_tolstring (lua_State *L, int idx, size_t *len) { 390dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 391dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (!ttisstring(o)) { 392dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); /* `luaV_tostring' may create a new string */ 393dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (!luaV_tostring(L, o)) { /* conversion failed? */ 394dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (len != NULL) *len = 0; 395dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 396dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return NULL; 397dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 398dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 399dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o = index2addr(L, idx); /* previous call may reallocate the stack */ 400dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 401dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 402dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (len != NULL) *len = tsvalue(o)->len; 403dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return svalue(o); 404dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 405dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 406dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 407dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API size_t lua_rawlen (lua_State *L, int idx) { 408dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 409dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttypenv(o)) { 410dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TSTRING: return tsvalue(o)->len; 411dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TUSERDATA: return uvalue(o)->len; 412dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TTABLE: return luaH_getn(hvalue(o)); 413dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: return 0; 414dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 415dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 416dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 417dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 418dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_CFunction lua_tocfunction (lua_State *L, int idx) { 419dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 420dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ttislcf(o)) return fvalue(o); 421dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else if (ttisCclosure(o)) 422dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return clCvalue(o)->f; 423dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else return NULL; /* not a C function */ 424dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 425dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 426dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 427dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void *lua_touserdata (lua_State *L, int idx) { 428dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 429dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttypenv(o)) { 430dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TUSERDATA: return (rawuvalue(o) + 1); 431dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLIGHTUSERDATA: return pvalue(o); 432dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: return NULL; 433dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 434dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 435dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 436dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 437dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_State *lua_tothread (lua_State *L, int idx) { 438dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 439dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (!ttisthread(o)) ? NULL : thvalue(o); 440dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 441dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 442dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 443dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const void *lua_topointer (lua_State *L, int idx) { 444dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, idx); 445dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttype(o)) { 446dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TTABLE: return hvalue(o); 447dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLCL: return clLvalue(o); 448dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TCCL: return clCvalue(o); 449dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLCF: return cast(void *, cast(size_t, fvalue(o))); 450dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TTHREAD: return thvalue(o); 451dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TUSERDATA: 452dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLIGHTUSERDATA: 453dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return lua_touserdata(L, idx); 454dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: return NULL; 455dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 456dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 457dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 458dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 459dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 460dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 461dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** push functions (C -> stack) 462dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 463dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 464dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 465dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushnil (lua_State *L) { 466dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 467dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnilvalue(L->top); 468dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 469dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 470dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 471dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 472dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 473dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushnumber (lua_State *L, lua_Number n) { 474dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 475dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnvalue(L->top, n); 476dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luai_checknum(L, L->top, 477dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaG_runerror(L, "C API - attempt to push a signaling NaN")); 478dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 479dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 480dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 481dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 482dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 483dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushinteger (lua_State *L, lua_Integer n) { 484dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 485dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnvalue(L->top, cast_num(n)); 486dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 487dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 488dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 489dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 490dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 491dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushunsigned (lua_State *L, lua_Unsigned u) { 492dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Number n; 493dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 494dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com n = lua_unsigned2number(u); 495dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnvalue(L->top, n); 496dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 497dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 498dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 499dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 500dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 501dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_pushlstring (lua_State *L, const char *s, size_t len) { 502dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TString *ts; 503dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 504dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 505dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ts = luaS_newlstr(L, s, len); 506dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top, ts); 507dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 508dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 509dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return getstr(ts); 510dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 511dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 512dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 513dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_pushstring (lua_State *L, const char *s) { 514dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (s == NULL) { 515dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_pushnil(L); 516dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return NULL; 517dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 518dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 519dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TString *ts; 520dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 521dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 522dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ts = luaS_new(L, s); 523dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top, ts); 524dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 525dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 526dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return getstr(ts); 527dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 528dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 529dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 530dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 531dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_pushvfstring (lua_State *L, const char *fmt, 532dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com va_list argp) { 533dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const char *ret; 534dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 535dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 536dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ret = luaO_pushvfstring(L, fmt, argp); 537dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 538dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return ret; 539dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 540dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 541dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 542dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_pushfstring (lua_State *L, const char *fmt, ...) { 543dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const char *ret; 544dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com va_list argp; 545dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 546dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 547dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com va_start(argp, fmt); 548dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ret = luaO_pushvfstring(L, fmt, argp); 549dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com va_end(argp); 550dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 551dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return ret; 552dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 553dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 554dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 555dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushcclosure (lua_State *L, lua_CFunction fn, int n) { 556dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 557dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (n == 0) { 558dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setfvalue(L->top, fn); 559dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 560dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 561dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Closure *cl; 562dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, n); 563dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, n <= MAXUPVAL, "upvalue index too large"); 564dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 565dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com cl = luaF_newCclosure(L, n); 566dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com cl->c.f = fn; 567dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= n; 568dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com while (n--) 569dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2n(L, &cl->c.upvalue[n], L->top + n); 570dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setclCvalue(L, L->top, cl); 571dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 572dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 573dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 574dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 575dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 576dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 577dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushboolean (lua_State *L, int b) { 578dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 579dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setbvalue(L->top, (b != 0)); /* ensure that true is 1 */ 580dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 581dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 582dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 583dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 584dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 585dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_pushlightuserdata (lua_State *L, void *p) { 586dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 587dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setpvalue(L->top, p); 588dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 589dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 590dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 591dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 592dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 593dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_pushthread (lua_State *L) { 594dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 595dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setthvalue(L, L->top, L); 596dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 597dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 598dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (G(L)->mainthread == L); 599dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 600dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 601dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 602dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 603dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 604dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** get functions (Lua -> stack) 605dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 606dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 607dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 608dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_getglobal (lua_State *L, const char *var) { 609dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *reg = hvalue(&G(L)->l_registry); 610dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *gt; /* global table */ 611dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 612dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com gt = luaH_getint(reg, LUA_RIDX_GLOBALS); 613dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top++, luaS_new(L, var)); 614dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_gettable(L, gt, L->top - 1, L->top - 1); 615dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 616dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 617dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 618dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 619dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_gettable (lua_State *L, int idx) { 620dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 621dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 622dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 623dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_gettable(L, t, L->top - 1, L->top - 1); 624dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 625dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 626dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 627dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 628dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_getfield (lua_State *L, int idx, const char *k) { 629dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 630dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 631dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 632dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top, luaS_new(L, k)); 633dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 634dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_gettable(L, t, L->top - 1, L->top - 1); 635dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 636dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 637dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 638dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 639dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawget (lua_State *L, int idx) { 640dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 641dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 642dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 643dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 644dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1)); 645dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 646dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 647dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 648dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 649dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawgeti (lua_State *L, int idx, int n) { 650dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 651dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 652dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 653dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 654dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(L, L->top, luaH_getint(hvalue(t), n)); 655dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 656dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 657dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 658dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 659dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 660dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawgetp (lua_State *L, int idx, const void *p) { 661dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 662dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue k; 663dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 664dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 665dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 666dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setpvalue(&k, cast(void *, p)); 667dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(L, L->top, luaH_get(hvalue(t), &k)); 668dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 669dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 670dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 671dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 672dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 673dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_createtable (lua_State *L, int narray, int nrec) { 674dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *t; 675dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 676dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 677dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = luaH_new(L); 678dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com sethvalue(L, L->top, t); 679dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 680dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (narray > 0 || nrec > 0) 681dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaH_resize(L, t, narray, nrec); 682dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 683dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 684dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 685dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 686dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_getmetatable (lua_State *L, int objindex) { 687dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *obj; 688dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *mt = NULL; 689dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int res; 690dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 691dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com obj = index2addr(L, objindex); 692dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttypenv(obj)) { 693dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TTABLE: 694dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com mt = hvalue(obj)->metatable; 695dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 696dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TUSERDATA: 697dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com mt = uvalue(obj)->metatable; 698dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 699dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: 700dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com mt = G(L)->mt[ttypenv(obj)]; 701dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 702dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 703dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (mt == NULL) 704dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = 0; 705dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 706dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com sethvalue(L, L->top, mt); 707dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 708dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = 1; 709dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 710dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 711dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return res; 712dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 713dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 714dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 715dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_getuservalue (lua_State *L, int idx) { 716dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o; 717dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 718dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o = index2addr(L, idx); 719dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttisuserdata(o), "userdata expected"); 720dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (uvalue(o)->env) { 721dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com sethvalue(L, L->top, uvalue(o)->env); 722dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } else 723dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setnilvalue(L->top); 724dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 725dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 726dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 727dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 728dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 729dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 730dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** set functions (stack -> Lua) 731dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 732dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 733dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 734dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_setglobal (lua_State *L, const char *var) { 735dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *reg = hvalue(&G(L)->l_registry); 736dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *gt; /* global table */ 737dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 738dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 739dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com gt = luaH_getint(reg, LUA_RIDX_GLOBALS); 740dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top++, luaS_new(L, var)); 741dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_settable(L, gt, L->top - 1, L->top - 2); 742dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= 2; /* pop value and key */ 743dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 744dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 745dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 746dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 747dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_settable (lua_State *L, int idx) { 748dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 749dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 750dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 2); 751dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 752dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_settable(L, t, L->top - 2, L->top - 1); 753dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= 2; /* pop index and value */ 754dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 755dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 756dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 757dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 758dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_setfield (lua_State *L, int idx, const char *k) { 759dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 760dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 761dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 762dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 763dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top++, luaS_new(L, k)); 764dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_settable(L, t, L->top - 1, L->top - 2); 765dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= 2; /* pop value and key */ 766dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 767dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 768dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 769dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 770dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawset (lua_State *L, int idx) { 771dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 772dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 773dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 2); 774dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 775dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 776dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1); 777dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com invalidateTMcache(hvalue(t)); 778dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrierback(L, gcvalue(t), L->top-1); 779dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= 2; 780dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 781dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 782dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 783dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 784dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawseti (lua_State *L, int idx, int n) { 785dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 786dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 787dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 788dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 789dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 790dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaH_setint(L, hvalue(t), n, L->top - 1); 791dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrierback(L, gcvalue(t), L->top-1); 792dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 793dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 794dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 795dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 796dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 797dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_rawsetp (lua_State *L, int idx, const void *p) { 798dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 799dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue k; 800dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 801dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 802dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 803dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 804dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setpvalue(&k, cast(void *, p)); 805dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2t(L, luaH_set(L, hvalue(t), &k), L->top - 1); 806dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrierback(L, gcvalue(t), L->top - 1); 807dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 808dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 809dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 810dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 811dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 812dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_setmetatable (lua_State *L, int objindex) { 813dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *obj; 814dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *mt; 815dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 816dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 817dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com obj = index2addr(L, objindex); 818dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ttisnil(L->top - 1)) 819dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com mt = NULL; 820dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 821dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(L->top - 1), "table expected"); 822dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com mt = hvalue(L->top - 1); 823dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 824dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttypenv(obj)) { 825dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TTABLE: { 826dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com hvalue(obj)->metatable = mt; 827dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (mt) { 828dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_objbarrierback(L, gcvalue(obj), mt); 829dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkfinalizer(L, gcvalue(obj), mt); 830dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 831dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 832dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 833dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TUSERDATA: { 834dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com uvalue(obj)->metatable = mt; 835dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (mt) { 836dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_objbarrier(L, rawuvalue(obj), mt); 837dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkfinalizer(L, gcvalue(obj), mt); 838dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 839dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 840dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 841dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: { 842dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com G(L)->mt[ttypenv(obj)] = mt; 843dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 844dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 845dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 846dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 847dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 848dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return 1; 849dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 850dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 851dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 852dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_setuservalue (lua_State *L, int idx) { 853dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o; 854dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 855dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 856dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o = index2addr(L, idx); 857dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttisuserdata(o), "userdata expected"); 858dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ttisnil(L->top - 1)) 859dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com uvalue(o)->env = NULL; 860dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 861dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(L->top - 1), "table expected"); 862dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com uvalue(o)->env = hvalue(L->top - 1); 863dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1)); 864dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 865dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 866dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 867dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 868dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 869dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 870dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 871dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** `load' and `call' functions (run Lua code) 872dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 873dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 874dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 875dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com#define checkresults(L,na,nr) \ 876dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, (nr) == LUA_MULTRET || (L->ci->top - L->top >= (nr) - (na)), \ 877dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com "results from function overflow current stack size") 878dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 879dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 880dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_getctx (lua_State *L, int *ctx) { 881dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (L->ci->callstatus & CIST_YIELDED) { 882dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ctx) *ctx = L->ci->u.c.ctx; 883dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return L->ci->u.c.status; 884dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 885dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else return LUA_OK; 886dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 887dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 888dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 889dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_callk (lua_State *L, int nargs, int nresults, int ctx, 890dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_CFunction k) { 891dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId func; 892dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 893dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, k == NULL || !isLua(L->ci), 894dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com "cannot use continuations inside hooks"); 895dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, nargs+1); 896dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); 897dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com checkresults(L, nargs, nresults); 898dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com func = L->top - (nargs+1); 899dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (k != NULL && L->nny == 0) { /* need to prepare continuation? */ 900dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->ci->u.c.k = k; /* save continuation */ 901dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->ci->u.c.ctx = ctx; /* save context */ 902dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaD_call(L, func, nresults, 1); /* do the call */ 903dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 904dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else /* no continuation or no yieldable */ 905dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaD_call(L, func, nresults, 0); /* just do the call */ 906dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com adjustresults(L, nresults); 907dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 908dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 909dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 910dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 911dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 912dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 913dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** Execute a protected call. 914dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 915dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstruct CallS { /* data to `f_call' */ 916dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId func; 917dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int nresults; 918dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com}; 919dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 920dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 921dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic void f_call (lua_State *L, void *ud) { 922dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com struct CallS *c = cast(struct CallS *, ud); 923dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaD_call(L, c->func, c->nresults, 0); 924dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 925dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 926dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 927dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 928dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_pcallk (lua_State *L, int nargs, int nresults, int errfunc, 929dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int ctx, lua_CFunction k) { 930dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com struct CallS c; 931dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int status; 932dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ptrdiff_t func; 933dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 934dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, k == NULL || !isLua(L->ci), 935dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com "cannot use continuations inside hooks"); 936dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, nargs+1); 937dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, L->status == LUA_OK, "cannot do calls on non-normal thread"); 938dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com checkresults(L, nargs, nresults); 939dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (errfunc == 0) 940dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com func = 0; 941dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 942dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId o = index2addr(L, errfunc); 943dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checkstackindex(L, errfunc, o); 944dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com func = savestack(L, o); 945dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 946dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com c.func = L->top - (nargs+1); /* function to be called */ 947dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (k == NULL || L->nny > 0) { /* no continuation or no yieldable? */ 948dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com c.nresults = nresults; /* do a 'conventional' protected call */ 949dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func); 950dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 951dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { /* prepare continuation (call is already protected by 'resume') */ 952dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CallInfo *ci = L->ci; 953dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->u.c.k = k; /* save continuation */ 954dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->u.c.ctx = ctx; /* save context */ 955dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* save information for error recovery */ 956dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->extra = savestack(L, c.func); 957dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->u.c.old_allowhook = L->allowhook; 958dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->u.c.old_errfunc = L->errfunc; 959dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->errfunc = func; 960dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* mark that function may do error recovery */ 961dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->callstatus |= CIST_YPCALL; 962dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaD_call(L, c.func, nresults, 1); /* do the call */ 963dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ci->callstatus &= ~CIST_YPCALL; 964dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->errfunc = ci->u.c.old_errfunc; 965dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com status = LUA_OK; /* if it is here, there were no errors */ 966dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 967dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com adjustresults(L, nresults); 968dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 969dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return status; 970dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 971dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 972dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 973dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_load (lua_State *L, lua_Reader reader, void *data, 974dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const char *chunkname, const char *mode) { 975dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com ZIO z; 976dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int status; 977dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 978dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (!chunkname) chunkname = "?"; 979dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaZ_init(L, &z, reader, data); 980dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com status = luaD_protectedparser(L, &z, chunkname, mode); 981dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (status == LUA_OK) { /* no errors? */ 982dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com LClosure *f = clLvalue(L->top - 1); /* get newly created function */ 983dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (f->nupvalues == 1) { /* does it have one upvalue? */ 984dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* get global table from registry */ 985dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Table *reg = hvalue(&G(L)->l_registry); 986dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const TValue *gt = luaH_getint(reg, LUA_RIDX_GLOBALS); 987dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* set global table as 1st upvalue of 'f' (may be LUA_ENV) */ 988dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj(L, f->upvals[0]->v, gt); 989dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrier(L, f->upvals[0], gt); 990dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 991dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 992dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 993dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return status; 994dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 995dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 996dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 997dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_dump (lua_State *L, lua_Writer writer, void *data) { 998dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int status; 999dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *o; 1000dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1001dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 1002dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com o = L->top - 1; 1003dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (isLfunction(o)) 1004dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com status = luaU_dump(L, getproto(o), writer, data, 0); 1005dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else 1006dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com status = 1; 1007dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1008dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return status; 1009dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1010dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1011dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1012dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_status (lua_State *L) { 1013dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return L->status; 1014dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1015dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1016dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1017dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 1018dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** Garbage-collection function 1019dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 1020dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1021dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_gc (lua_State *L, int what, int data) { 1022dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int res = 0; 1023dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com global_State *g; 1024dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1025dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g = G(L); 1026dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (what) { 1027dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCSTOP: { 1028dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g->gcrunning = 0; 1029dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1030dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1031dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCRESTART: { 1032dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaE_setdebt(g, 0); 1033dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g->gcrunning = 1; 1034dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1035dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1036dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCCOLLECT: { 1037dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_fullgc(L, 0); 1038dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1039dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1040dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCCOUNT: { 1041dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* GC values are expressed in Kbytes: #bytes/2^10 */ 1042dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = cast_int(gettotalbytes(g) >> 10); 1043dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1044dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1045dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCCOUNTB: { 1046dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = cast_int(gettotalbytes(g) & 0x3ff); 1047dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1048dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1049dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCSTEP: { 1050dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (g->gckind == KGC_GEN) { /* generational mode? */ 1051dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = (g->GCestimate == 0); /* true if it will do major collection */ 1052dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_forcestep(L); /* do a single step */ 1053dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1054dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else { 1055dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lu_mem debt = cast(lu_mem, data) * 1024 - GCSTEPSIZE; 1056dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (g->gcrunning) 1057dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com debt += g->GCdebt; /* include current debt */ 1058dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaE_setdebt(g, debt); 1059dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_forcestep(L); 1060dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (g->gcstate == GCSpause) /* end of cycle? */ 1061dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = 1; /* signal it */ 1062dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1063dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1064dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1065dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCSETPAUSE: { 1066dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = g->gcpause; 1067dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g->gcpause = data; 1068dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1069dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1070dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCSETMAJORINC: { 1071dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = g->gcmajorinc; 1072dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g->gcmajorinc = data; 1073dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1074dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1075dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCSETSTEPMUL: { 1076dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = g->gcstepmul; 1077dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com g->gcstepmul = data; 1078dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1079dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1080dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCISRUNNING: { 1081dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com res = g->gcrunning; 1082dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1083dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1084dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCGEN: { /* change collector to generational mode */ 1085dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_changemode(L, KGC_GEN); 1086dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1087dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1088dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_GCINC: { /* change collector to incremental mode */ 1089dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_changemode(L, KGC_NORMAL); 1090dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com break; 1091dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1092dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: res = -1; /* invalid option */ 1093dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1094dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1095dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return res; 1096dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1097dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1098dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1099dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1100dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com/* 1101dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com** miscellaneous functions 1102dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com*/ 1103dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1104dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1105dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_error (lua_State *L) { 1106dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1107dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 1108dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaG_errormsg(L); 1109dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* code unreachable; will unlock when control actually leaves the kernel */ 1110dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return 0; /* to avoid warnings */ 1111dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1112dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1113dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1114dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API int lua_next (lua_State *L, int idx) { 1115dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 1116dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int more; 1117dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1118dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 1119dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttistable(t), "table expected"); 1120dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com more = luaH_next(L, hvalue(t), L->top - 1); 1121dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (more) { 1122dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 1123dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1124dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else /* no more elements */ 1125dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top -= 1; /* remove key */ 1126dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1127dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return more; 1128dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1129dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1130dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1131dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_concat (lua_State *L, int n) { 1132dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1133dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, n); 1134dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (n >= 2) { 1135dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 1136dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_concat(L, n); 1137dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1138dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com else if (n == 0) { /* push empty string */ 1139dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setsvalue2s(L, L->top, luaS_newlstr(L, "", 0)); 1140dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 1141dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1142dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com /* else n == 1; nothing to do */ 1143dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1144dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1145dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1146dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1147dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_len (lua_State *L, int idx) { 1148dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId t; 1149dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1150dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com t = index2addr(L, idx); 1151dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaV_objlen(L, L->top, t); 1152dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 1153dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1154dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1155dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1156dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1157dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API lua_Alloc lua_getallocf (lua_State *L, void **ud) { 1158dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_Alloc f; 1159dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1160dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (ud) *ud = G(L)->ud; 1161dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com f = G(L)->frealloc; 1162dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1163dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return f; 1164dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1165dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1166dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1167dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_setallocf (lua_State *L, lua_Alloc f, void *ud) { 1168dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1169dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com G(L)->ud = ud; 1170dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com G(L)->frealloc = f; 1171dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1172dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1173dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1174dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1175dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void *lua_newuserdata (lua_State *L, size_t size) { 1176dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Udata *u; 1177dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1178dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_checkGC(L); 1179dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com u = luaS_newudata(L, size, NULL); 1180dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setuvalue(L, L->top, u); 1181dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 1182dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1183dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return u + 1; 1184dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1185dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1186dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1187dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1188dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic const char *aux_upvalue (StkId fi, int n, TValue **val, 1189dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com GCObject **owner) { 1190dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttype(fi)) { 1191dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TCCL: { /* C closure */ 1192dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CClosure *f = clCvalue(fi); 1193dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (!(1 <= n && n <= f->nupvalues)) return NULL; 1194dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com *val = &f->upvalue[n-1]; 1195dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (owner) *owner = obj2gco(f); 1196dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return ""; 1197dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1198dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLCL: { /* Lua closure */ 1199dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com LClosure *f = clLvalue(fi); 1200dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TString *name; 1201dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com Proto *p = f->p; 1202dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (!(1 <= n && n <= p->sizeupvalues)) return NULL; 1203dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com *val = f->upvals[n-1]->v; 1204dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (owner) *owner = obj2gco(f->upvals[n - 1]); 1205dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com name = p->upvalues[n-1].name; 1206dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return (name == NULL) ? "" : getstr(name); 1207dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1208dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: return NULL; /* not a closure */ 1209dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1210dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1211dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1212dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1213dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_getupvalue (lua_State *L, int funcindex, int n) { 1214dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const char *name; 1215dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *val = NULL; /* to avoid warnings */ 1216dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1217dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com name = aux_upvalue(index2addr(L, funcindex), n, &val, NULL); 1218dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (name) { 1219dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj2s(L, L->top, val); 1220dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_incr_top(L); 1221dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1222dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1223dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return name; 1224dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1225dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1226dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1227dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API const char *lua_setupvalue (lua_State *L, int funcindex, int n) { 1228dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com const char *name; 1229dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com TValue *val = NULL; /* to avoid warnings */ 1230dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com GCObject *owner = NULL; /* to avoid warnings */ 1231dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId fi; 1232dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_lock(L); 1233dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com fi = index2addr(L, funcindex); 1234dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_checknelems(L, 1); 1235dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com name = aux_upvalue(fi, n, &val, &owner); 1236dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (name) { 1237dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com L->top--; 1238dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com setobj(L, val, L->top); 1239dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_barrier(L, owner, L->top); 1240dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1241dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com lua_unlock(L); 1242dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return name; 1243dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1244dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1245dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1246dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comstatic UpVal **getupvalref (lua_State *L, int fidx, int n, LClosure **pf) { 1247dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com LClosure *f; 1248dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId fi = index2addr(L, fidx); 1249dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, ttisLclosure(fi), "Lua function expected"); 1250dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com f = clLvalue(fi); 1251dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, (1 <= n && n <= f->p->sizeupvalues), "invalid upvalue index"); 1252dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com if (pf) *pf = f; 1253dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return &f->upvals[n - 1]; /* get its upvalue pointer */ 1254dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1255dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1256dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1257dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void *lua_upvalueid (lua_State *L, int fidx, int n) { 1258dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com StkId fi = index2addr(L, fidx); 1259dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com switch (ttype(fi)) { 1260dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TLCL: { /* lua closure */ 1261dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return *getupvalref(L, fidx, n, NULL); 1262dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1263dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com case LUA_TCCL: { /* C closure */ 1264dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com CClosure *f = clCvalue(fi); 1265dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, 1 <= n && n <= f->nupvalues, "invalid upvalue index"); 1266dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return &f->upvalue[n - 1]; 1267dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1268dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com default: { 1269dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com api_check(L, 0, "closure expected"); 1270dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com return NULL; 1271dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1272dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com } 1273dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1274dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1275dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1276dff7e11c2000d6745261de046d76b1500a05ece9reed@google.comLUA_API void lua_upvaluejoin (lua_State *L, int fidx1, int n1, 1277dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com int fidx2, int n2) { 1278dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com LClosure *f1; 1279dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com UpVal **up1 = getupvalref(L, fidx1, n1, &f1); 1280dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com UpVal **up2 = getupvalref(L, fidx2, n2, NULL); 1281dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com *up1 = *up2; 1282dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com luaC_objbarrier(L, f1, *up2); 1283dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com} 1284dff7e11c2000d6745261de046d76b1500a05ece9reed@google.com 1285