lua.h-Dateireferenz

#include <stdarg.h>
#include <stddef.h>
#include "luaconf.h"

Include-Abhängigkeitsdiagramm für lua.h:

Dieser Graph zeigt, welche Datei direkt oder indirekt diese Datei enthält:

gehe zum Quellcode dieser Datei

Datenstrukturen
struct	lua_Debug

Makrodefinitionen
#define	LUA_VERSION   "Lua 5.1"
#define	LUA_RELEASE   "Lua 5.1.5"
#define	LUA_VERSION_NUM   501
#define	LUA_COPYRIGHT   "Copyright (C) 1994-2012 Lua.org, PUC-Rio"
#define	LUA_AUTHORS   "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"
#define	LUA_SIGNATURE   "\033Lua"
#define	LUA_MULTRET   (-1)
#define	LUA_REGISTRYINDEX   (-10000)
#define	LUA_ENVIRONINDEX   (-10001)
#define	LUA_GLOBALSINDEX   (-10002)
#define	lua_upvalueindex(i)   (LUA_GLOBALSINDEX-(i))
#define	LUA_YIELD   1
#define	LUA_ERRRUN   2
#define	LUA_ERRSYNTAX   3
#define	LUA_ERRMEM   4
#define	LUA_ERRERR   5
#define	LUA_TNONE   (-1)
#define	LUA_TNIL   0
#define	LUA_TBOOLEAN   1
#define	LUA_TLIGHTUSERDATA   2
#define	LUA_TNUMBER   3
#define	LUA_TSTRING   4
#define	LUA_TTABLE   5
#define	LUA_TFUNCTION   6
#define	LUA_TUSERDATA   7
#define	LUA_TTHREAD   8
#define	LUA_MINSTACK   20
#define	LUA_GCSTOP   0
#define	LUA_GCRESTART   1
#define	LUA_GCCOLLECT   2
#define	LUA_GCCOUNT   3
#define	LUA_GCCOUNTB   4
#define	LUA_GCSTEP   5
#define	LUA_GCSETPAUSE   6
#define	LUA_GCSETSTEPMUL   7
#define	lua_pop(L, n)   lua_settop(L, -(n)-1)
#define	lua_newtable(L)   lua_createtable(L, 0, 0)
#define	lua_register(L, n, f)   (lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))
#define	lua_pushcfunction(L, f)   lua_pushcclosure(L, (f), 0)
#define	lua_strlen(L, i)   lua_objlen(L, (i))
#define	lua_isfunction(L, n)   (lua_type(L, (n)) == LUA_TFUNCTION)
#define	lua_istable(L, n)   (lua_type(L, (n)) == LUA_TTABLE)
#define	lua_islightuserdata(L, n)   (lua_type(L, (n)) == LUA_TLIGHTUSERDATA)
#define	lua_isnil(L, n)   (lua_type(L, (n)) == LUA_TNIL)
#define	lua_isboolean(L, n)   (lua_type(L, (n)) == LUA_TBOOLEAN)
#define	lua_isthread(L, n)   (lua_type(L, (n)) == LUA_TTHREAD)
#define	lua_isnone(L, n)   (lua_type(L, (n)) == LUA_TNONE)
#define	lua_isnoneornil(L, n)   (lua_type(L, (n)) <= 0)
#define	lua_pushliteral(L, s)   lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)
#define	lua_setglobal(L, s)   lua_setfield(L, LUA_GLOBALSINDEX, (s))
#define	lua_getglobal(L, s)   lua_getfield(L, LUA_GLOBALSINDEX, (s))
#define	lua_tostring(L, i)   lua_tolstring(L, (i), NULL)
#define	lua_open()   luaL_newstate()
#define	lua_getregistry(L)   lua_pushvalue(L, LUA_REGISTRYINDEX)
#define	lua_getgccount(L)   lua_gc(L, LUA_GCCOUNT, 0)
#define	lua_Chunkreader   lua_Reader
#define	lua_Chunkwriter   lua_Writer
#define	LUA_HOOKCALL   0
#define	LUA_HOOKRET   1
#define	LUA_HOOKLINE   2
#define	LUA_HOOKCOUNT   3
#define	LUA_HOOKTAILRET   4
#define	LUA_MASKCALL   (1 << LUA_HOOKCALL)
#define	LUA_MASKRET   (1 << LUA_HOOKRET)
#define	LUA_MASKLINE   (1 << LUA_HOOKLINE)
#define	LUA_MASKCOUNT   (1 << LUA_HOOKCOUNT)

Typdefinitionen
typedef struct lua_State	lua_State
typedef int(*	lua_CFunction )(lua_State *L)
typedef const char *(*	lua_Reader )(lua_State *L, void *ud, size_t *sz)
typedef int(*	lua_Writer )(lua_State *L, const void *p, size_t sz, void *ud)
typedef void *(*	lua_Alloc )(void *ud, void *ptr, size_t osize, size_t nsize)
typedef LUA_NUMBER	lua_Number
typedef LUA_INTEGER	lua_Integer
typedef struct lua_Debug	lua_Debug
typedef void(*	lua_Hook )(lua_State *L, lua_Debug *ar)

Funktionen
LUA_API lua_State *()	lua_newstate (lua_Alloc f, void *ud)
LUA_API void()	lua_close (lua_State *L)
LUA_API lua_State *()	lua_newthread (lua_State *L)
LUA_API lua_CFunction()	lua_atpanic (lua_State *L, lua_CFunction panicf)
LUA_API int()	lua_gettop (lua_State *L)
LUA_API void()	lua_settop (lua_State *L, int idx)
LUA_API void()	lua_pushvalue (lua_State *L, int idx)
LUA_API void()	lua_remove (lua_State *L, int idx)
LUA_API void()	lua_insert (lua_State *L, int idx)
LUA_API void()	lua_replace (lua_State *L, int idx)
LUA_API int()	lua_checkstack (lua_State *L, int sz)
LUA_API void()	lua_xmove (lua_State *from, lua_State *to, int n)
LUA_API int()	lua_isnumber (lua_State *L, int idx)
LUA_API int()	lua_isstring (lua_State *L, int idx)
LUA_API int()	lua_iscfunction (lua_State *L, int idx)
LUA_API int()	lua_isuserdata (lua_State *L, int idx)
LUA_API int()	lua_type (lua_State *L, int idx)
LUA_API const char *()	lua_typename (lua_State *L, int tp)
LUA_API int()	lua_equal (lua_State *L, int idx1, int idx2)
LUA_API int()	lua_rawequal (lua_State *L, int idx1, int idx2)
LUA_API int()	lua_lessthan (lua_State *L, int idx1, int idx2)
LUA_API lua_Number()	lua_tonumber (lua_State *L, int idx)
LUA_API lua_Integer()	lua_tointeger (lua_State *L, int idx)
LUA_API int()	lua_toboolean (lua_State *L, int idx)
LUA_API const char *()	lua_tolstring (lua_State *L, int idx, size_t *len)
LUA_API size_t()	lua_objlen (lua_State *L, int idx)
LUA_API lua_CFunction()	lua_tocfunction (lua_State *L, int idx)
LUA_API void *()	lua_touserdata (lua_State *L, int idx)
LUA_API lua_State *()	lua_tothread (lua_State *L, int idx)
LUA_API const void *()	lua_topointer (lua_State *L, int idx)
LUA_API void()	lua_pushnil (lua_State *L)
LUA_API void()	lua_pushnumber (lua_State *L, lua_Number n)
LUA_API void()	lua_pushinteger (lua_State *L, lua_Integer n)
LUA_API void()	lua_pushlstring (lua_State *L, const char *s, size_t l)
LUA_API void()	lua_pushstring (lua_State *L, const char *s)
LUA_API const char *()	lua_pushvfstring (lua_State *L, const char *fmt, va_list argp)
LUA_API const char *()	lua_pushfstring (lua_State *L, const char *fmt,...)
LUA_API void()	lua_pushcclosure (lua_State *L, lua_CFunction fn, int n)
LUA_API void()	lua_pushboolean (lua_State *L, int b)
LUA_API void()	lua_pushlightuserdata (lua_State *L, void *p)
LUA_API int()	lua_pushthread (lua_State *L)
LUA_API void()	lua_gettable (lua_State *L, int idx)
LUA_API void()	lua_getfield (lua_State *L, int idx, const char *k)
LUA_API void()	lua_rawget (lua_State *L, int idx)
LUA_API void()	lua_rawgeti (lua_State *L, int idx, int n)
LUA_API void()	lua_createtable (lua_State *L, int narr, int nrec)
LUA_API void *()	lua_newuserdata (lua_State *L, size_t sz)
LUA_API int()	lua_getmetatable (lua_State *L, int objindex)
LUA_API void()	lua_getfenv (lua_State *L, int idx)
LUA_API void()	lua_settable (lua_State *L, int idx)
LUA_API void()	lua_setfield (lua_State *L, int idx, const char *k)
LUA_API void()	lua_rawset (lua_State *L, int idx)
LUA_API void()	lua_rawseti (lua_State *L, int idx, int n)
LUA_API int()	lua_setmetatable (lua_State *L, int objindex)
LUA_API int()	lua_setfenv (lua_State *L, int idx)
LUA_API void()	lua_call (lua_State *L, int nargs, int nresults)
LUA_API int()	lua_pcall (lua_State *L, int nargs, int nresults, int errfunc)
LUA_API int()	lua_cpcall (lua_State *L, lua_CFunction func, void *ud)
LUA_API int()	lua_load (lua_State *L, lua_Reader reader, void *dt, const char *chunkname)
LUA_API int()	lua_dump (lua_State *L, lua_Writer writer, void *data)
LUA_API int()	lua_yield (lua_State *L, int nresults)
LUA_API int()	lua_resume (lua_State *L, int narg)
LUA_API int()	lua_status (lua_State *L)
LUA_API int()	lua_gc (lua_State *L, int what, int data)
LUA_API int()	lua_error (lua_State *L)
LUA_API int()	lua_next (lua_State *L, int idx)
LUA_API void()	lua_concat (lua_State *L, int n)
LUA_API lua_Alloc()	lua_getallocf (lua_State *L, void **ud)
LUA_API void	lua_setallocf (lua_State *L, lua_Alloc f, void *ud)
LUA_API void	lua_setlevel (lua_State *from, lua_State *to)
LUA_API int	lua_getstack (lua_State *L, int level, lua_Debug *ar)
LUA_API int	lua_getinfo (lua_State *L, const char *what, lua_Debug *ar)
LUA_API const char *	lua_getlocal (lua_State *L, const lua_Debug *ar, int n)
LUA_API const char *	lua_setlocal (lua_State *L, const lua_Debug *ar, int n)
LUA_API const char *	lua_getupvalue (lua_State *L, int funcindex, int n)
LUA_API const char *	lua_setupvalue (lua_State *L, int funcindex, int n)
LUA_API int	lua_sethook (lua_State *L, lua_Hook func, int mask, int count)
LUA_API lua_Hook	lua_gethook (lua_State *L)
LUA_API int	lua_gethookmask (lua_State *L)
LUA_API int	lua_gethookcount (lua_State *L)

Makro-Dokumentation

#define LUA_AUTHORS   "R. Ierusalimschy, L. H. de Figueiredo & W. Celes"

Definiert in Zeile 23 der Datei lua.h.

#define lua_Chunkreader   lua_Reader

Definiert in Zeile 293 der Datei lua.h.

#define lua_Chunkwriter   lua_Writer

Definiert in Zeile 294 der Datei lua.h.

#define LUA_COPYRIGHT   "Copyright (C) 1994-2012 Lua.org, PUC-Rio"

Definiert in Zeile 22 der Datei lua.h.

#define LUA_ENVIRONINDEX   (-10001)

Definiert in Zeile 37 der Datei lua.h.

#define LUA_ERRERR   5

Definiert in Zeile 47 der Datei lua.h.

#define LUA_ERRMEM   4

Definiert in Zeile 46 der Datei lua.h.

#define LUA_ERRRUN   2

Definiert in Zeile 44 der Datei lua.h.

#define LUA_ERRSYNTAX   3

Definiert in Zeile 45 der Datei lua.h.

#define LUA_GCCOLLECT   2

Definiert in Zeile 223 der Datei lua.h.

#define LUA_GCCOUNT   3

Definiert in Zeile 224 der Datei lua.h.

#define LUA_GCCOUNTB   4

Definiert in Zeile 225 der Datei lua.h.

#define LUA_GCRESTART   1

Definiert in Zeile 222 der Datei lua.h.

#define LUA_GCSETPAUSE   6

Definiert in Zeile 227 der Datei lua.h.

#define LUA_GCSETSTEPMUL   7

Definiert in Zeile 228 der Datei lua.h.

#define LUA_GCSTEP   5

Definiert in Zeile 226 der Datei lua.h.

#define LUA_GCSTOP   0

Definiert in Zeile 221 der Datei lua.h.

#define lua_getgccount

(

L)

lua_gc(L, LUA_GCCOUNT, 0)

Definiert in Zeile 291 der Datei lua.h.

#define lua_getglobal	(		L,
			s
	)		lua_getfield(L, LUA_GLOBALSINDEX, (s))

Definiert in Zeile 277 der Datei lua.h.

#define lua_getregistry

(

L)

lua_pushvalue(L, LUA_REGISTRYINDEX)

Definiert in Zeile 289 der Datei lua.h.

#define LUA_GLOBALSINDEX   (-10002)

Definiert in Zeile 38 der Datei lua.h.

#define LUA_HOOKCALL   0

Definiert in Zeile 311 der Datei lua.h.

#define LUA_HOOKCOUNT   3

Definiert in Zeile 314 der Datei lua.h.

#define LUA_HOOKLINE   2

Definiert in Zeile 313 der Datei lua.h.

#define LUA_HOOKRET   1

Definiert in Zeile 312 der Datei lua.h.

#define LUA_HOOKTAILRET   4

Definiert in Zeile 315 der Datei lua.h.

#define lua_isboolean	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TBOOLEAN)

Definiert in Zeile 268 der Datei lua.h.

#define lua_isfunction	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TFUNCTION)

Definiert in Zeile 264 der Datei lua.h.

#define lua_islightuserdata	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TLIGHTUSERDATA)

Definiert in Zeile 266 der Datei lua.h.

#define lua_isnil	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TNIL)

Definiert in Zeile 267 der Datei lua.h.

#define lua_isnone	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TNONE)

Definiert in Zeile 270 der Datei lua.h.

#define lua_isnoneornil	(		L,
			n
	)		(lua_type(L, (n)) <= 0)

Definiert in Zeile 271 der Datei lua.h.

#define lua_istable	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TTABLE)

Definiert in Zeile 265 der Datei lua.h.

#define lua_isthread	(		L,
			n
	)		(lua_type(L, (n)) == LUA_TTHREAD)

Definiert in Zeile 269 der Datei lua.h.

#define LUA_MASKCALL   (1 << LUA_HOOKCALL)

Definiert in Zeile 321 der Datei lua.h.

#define LUA_MASKCOUNT   (1 << LUA_HOOKCOUNT)

Definiert in Zeile 324 der Datei lua.h.

#define LUA_MASKLINE   (1 << LUA_HOOKLINE)

Definiert in Zeile 323 der Datei lua.h.

#define LUA_MASKRET   (1 << LUA_HOOKRET)

Definiert in Zeile 322 der Datei lua.h.

#define LUA_MINSTACK   20

Definiert in Zeile 87 der Datei lua.h.

#define LUA_MULTRET   (-1)

Definiert in Zeile 30 der Datei lua.h.

#define lua_newtable

(

L)

lua_createtable(L, 0, 0)

Definiert in Zeile 256 der Datei lua.h.

#define lua_open

(

)

luaL_newstate()

Definiert in Zeile 287 der Datei lua.h.

#define lua_pop	(		L,
			n
	)		lua_settop(L, -(n)-1)

Definiert in Zeile 254 der Datei lua.h.

#define lua_pushcfunction	(		L,
			f
	)		lua_pushcclosure(L, (f), 0)

Definiert in Zeile 260 der Datei lua.h.

#define lua_pushliteral	(		L,
			s
	)		lua_pushlstring(L, "" s, (sizeof(s)/sizeof(char))-1)

Definiert in Zeile 273 der Datei lua.h.

#define lua_register	(		L,
			n,
			f
	)		(lua_pushcfunction(L, (f)), lua_setglobal(L, (n)))

Definiert in Zeile 258 der Datei lua.h.

#define LUA_REGISTRYINDEX   (-10000)

Definiert in Zeile 36 der Datei lua.h.

#define LUA_RELEASE   "Lua 5.1.5"

Definiert in Zeile 20 der Datei lua.h.

#define lua_setglobal	(		L,
			s
	)		lua_setfield(L, LUA_GLOBALSINDEX, (s))

Definiert in Zeile 276 der Datei lua.h.

#define LUA_SIGNATURE   "\033Lua"

Definiert in Zeile 27 der Datei lua.h.

#define lua_strlen	(		L,
			i
	)		lua_objlen(L, (i))

Definiert in Zeile 262 der Datei lua.h.

#define LUA_TBOOLEAN   1

Definiert in Zeile 75 der Datei lua.h.

#define LUA_TFUNCTION   6

Definiert in Zeile 80 der Datei lua.h.

#define LUA_TLIGHTUSERDATA   2

Definiert in Zeile 76 der Datei lua.h.

#define LUA_TNIL   0

Definiert in Zeile 74 der Datei lua.h.

#define LUA_TNONE   (-1)

Definiert in Zeile 72 der Datei lua.h.

#define LUA_TNUMBER   3

Definiert in Zeile 77 der Datei lua.h.

#define lua_tostring	(		L,
			i
	)		lua_tolstring(L, (i), NULL)

Definiert in Zeile 279 der Datei lua.h.

#define LUA_TSTRING   4

Definiert in Zeile 78 der Datei lua.h.

#define LUA_TTABLE   5

Definiert in Zeile 79 der Datei lua.h.

#define LUA_TTHREAD   8

Definiert in Zeile 82 der Datei lua.h.

#define LUA_TUSERDATA   7

Definiert in Zeile 81 der Datei lua.h.

#define lua_upvalueindex

(

i)

(LUA_GLOBALSINDEX-(i))

Definiert in Zeile 39 der Datei lua.h.

#define LUA_VERSION   "Lua 5.1"

Definiert in Zeile 19 der Datei lua.h.

#define LUA_VERSION_NUM   501

Definiert in Zeile 21 der Datei lua.h.

#define LUA_YIELD   1

Definiert in Zeile 43 der Datei lua.h.

Dokumentation der benutzerdefinierten Typen

typedef void*(* lua_Alloc)(void *ud, void *ptr, size_t osize, size_t nsize)

Definiert in Zeile 66 der Datei lua.h.

typedef int(* lua_CFunction)(lua_State *L)

Definiert in Zeile 52 der Datei lua.h.

typedef struct lua_Debug lua_Debug

Definiert in Zeile 326 der Datei lua.h.

typedef void(* lua_Hook)(lua_State *L, lua_Debug *ar)

Definiert in Zeile 330 der Datei lua.h.

typedef LUA_INTEGER lua_Integer

Definiert in Zeile 103 der Datei lua.h.

typedef LUA_NUMBER lua_Number

Definiert in Zeile 99 der Datei lua.h.

typedef const char*(* lua_Reader)(lua_State *L, void *ud, size_t *sz)

Definiert in Zeile 58 der Datei lua.h.

typedef struct lua_State lua_State

Definiert in Zeile 50 der Datei lua.h.

typedef int(* lua_Writer)(lua_State *L, const void *p, size_t sz, void *ud)

Definiert in Zeile 60 der Datei lua.h.

Dokumentation der Funktionen

LUA_API lua_CFunction() lua_atpanic	(	lua_State *	L,
		lua_CFunction	panicf
	)

Definiert in Zeile 130 der Datei lapi.c.

                                                                       {
  lua_CFunction old;
  lua_lock(L);
  old = G(L)->panic;
  G(L)->panic = panicf;
  lua_unlock(L);
  return old;
}

LUA_API void() lua_call	(	lua_State *	L,
		int	nargs,
		int	nresults
	)

Definiert in Zeile 776 der Datei lapi.c.

                                                              {
  StkId func;
  lua_lock(L);
  api_checknelems(L, nargs+1);
  checkresults(L, nargs, nresults);
  func = L->top - (nargs+1);
  luaD_call(L, func, nresults);
  adjustresults(L, nresults);
  lua_unlock(L);
}

LUA_API int() lua_checkstack	(	lua_State *	L,
		int	sz
	)

Definiert in Zeile 95 der Datei lapi.c.

                                                    {
  int res = 1;
  lua_lock(L);
  if (size > LUAI_MAXCSTACK || (L->top - L->base + size) > LUAI_MAXCSTACK)
    res = 0;  /* stack overflow */
  else if (size > 0) {
    luaD_checkstack(L, size);
    if (L->ci->top < L->top + size)
      L->ci->top = L->top + size;
  }
  lua_unlock(L);
  return res;
}

LUA_API void() lua_close

(

lua_State *

L)

Definiert in Zeile 199 der Datei lstate.c.

                                      {
  L = G(L)->mainthread;  /* only the main thread can be closed */
  lua_lock(L);
  luaF_close(L, L->stack);  /* close all upvalues for this thread */
  luaC_separateudata(L, 1);  /* separate udata that have GC metamethods */
  L->errfunc = 0;  /* no error function during GC metamethods */
  do {  /* repeat until no more errors */
    L->ci = L->base_ci;
    L->base = L->top = L->ci->base;
    L->nCcalls = L->baseCcalls = 0;
  } while (luaD_rawrunprotected(L, callallgcTM, NULL) != 0);
  lua_assert(G(L)->tmudata == NULL);
  luai_userstateclose(L);
  close_state(L);
}

LUA_API void() lua_concat	(	lua_State *	L,
		int	n
	)

Definiert in Zeile 990 der Datei lapi.c.

                                              {
  lua_lock(L);
  api_checknelems(L, n);
  if (n >= 2) {
    luaC_checkGC(L);
    luaV_concat(L, n, cast_int(L->top - L->base) - 1);
    L->top -= (n-1);
  }
  else if (n == 0) {  /* push empty string */
    setsvalue2s(L, L->top, luaS_newlstr(L, "", 0));
    api_incr_top(L);
  }
  /* else n == 1; nothing to do */
  lua_unlock(L);
}

LUA_API int() lua_cpcall	(	lua_State *	L,
		lua_CFunction	func,
		void *	ud
	)

Definiert in Zeile 850 der Datei lapi.c.

                                                                    {
  struct CCallS c;
  int status;
  lua_lock(L);
  c.func = func;
  c.ud = ud;
  status = luaD_pcall(L, f_Ccall, &c, savestack(L, L->top), 0);
  lua_unlock(L);
  return status;
}

LUA_API void() lua_createtable	(	lua_State *	L,
		int	narr,
		int	nrec
	)

Definiert in Zeile 578 der Datei lapi.c.

                                                                  {
  lua_lock(L);
  luaC_checkGC(L);
  sethvalue(L, L->top, luaH_new(L, narray, nrec));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API int() lua_dump	(	lua_State *	L,
		lua_Writer	writer,
		void *	data
	)

Definiert in Zeile 875 der Datei lapi.c.

                                                                   {
  int status;
  TValue *o;
  lua_lock(L);
  api_checknelems(L, 1);
  o = L->top - 1;
  if (isLfunction(o))
    status = luaU_dump(L, clvalue(o)->l.p, writer, data, 0);
  else
    status = 1;
  lua_unlock(L);
  return status;
}

LUA_API int() lua_equal	(	lua_State *	L,
		int	idx1,
		int	idx2
	)

Definiert in Zeile 287 der Datei lapi.c.

                                                             {
  StkId o1, o2;
  int i;
  lua_lock(L);  /* may call tag method */
  o1 = index2adr(L, index1);
  o2 = index2adr(L, index2);
  i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0 : equalobj(L, o1, o2);
  lua_unlock(L);
  return i;
}

LUA_API int() lua_error

(

lua_State *

L)

Definiert in Zeile 964 der Datei lapi.c.

                                     {
  lua_lock(L);
  api_checknelems(L, 1);
  luaG_errormsg(L);
  lua_unlock(L);
  return 0;  /* to avoid warnings */
}

LUA_API int() lua_gc	(	lua_State *	L,
		int	what,
		int	data
	)

Definiert in Zeile 899 der Datei lapi.c.

                                                      {
  int res = 0;
  global_State *g;
  lua_lock(L);
  g = G(L);
  switch (what) {
    case LUA_GCSTOP: {
      g->GCthreshold = MAX_LUMEM;
      break;
    }
    case LUA_GCRESTART: {
      g->GCthreshold = g->totalbytes;
      break;
    }
    case LUA_GCCOLLECT: {
      luaC_fullgc(L);
      break;
    }
    case LUA_GCCOUNT: {
      /* GC values are expressed in Kbytes: #bytes/2^10 */
      res = cast_int(g->totalbytes >> 10);
      break;
    }
    case LUA_GCCOUNTB: {
      res = cast_int(g->totalbytes & 0x3ff);
      break;
    }
    case LUA_GCSTEP: {
      lu_mem a = (cast(lu_mem, data) << 10);
      if (a <= g->totalbytes)
        g->GCthreshold = g->totalbytes - a;
      else
        g->GCthreshold = 0;
      while (g->GCthreshold <= g->totalbytes) {
        luaC_step(L);
        if (g->gcstate == GCSpause) {  /* end of cycle? */
          res = 1;  /* signal it */
          break;
        }
      }
      break;
    }
    case LUA_GCSETPAUSE: {
      res = g->gcpause;
      g->gcpause = data;
      break;
    }
    case LUA_GCSETSTEPMUL: {
      res = g->gcstepmul;
      g->gcstepmul = data;
      break;
    }
    default: res = -1;  /* invalid option */
  }
  lua_unlock(L);
  return res;
}

LUA_API lua_Alloc() lua_getallocf	(	lua_State *	L,
		void **	ud
	)

Definiert in Zeile 1007 der Datei lapi.c.

                                                          {
  lua_Alloc f;
  lua_lock(L);
  if (ud) *ud = G(L)->ud;
  f = G(L)->frealloc;
  lua_unlock(L);
  return f;
}

LUA_API void() lua_getfenv	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 616 der Datei lapi.c.

                                                 {
  StkId o;
  lua_lock(L);
  o = index2adr(L, idx);
  api_checkvalidindex(L, o);
  switch (ttype(o)) {
    case LUA_TFUNCTION:
      sethvalue(L, L->top, clvalue(o)->c.env);
      break;
    case LUA_TUSERDATA:
      sethvalue(L, L->top, uvalue(o)->env);
      break;
    case LUA_TTHREAD:
      setobj2s(L, L->top,  gt(thvalue(o)));
      break;
    default:
      setnilvalue(L->top);
      break;
  }
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_getfield	(	lua_State *	L,
		int	idx,
		const char *	k
	)

Definiert in Zeile 544 der Datei lapi.c.

                                                                 {
  StkId t;
  TValue key;
  lua_lock(L);
  t = index2adr(L, idx);
  api_checkvalidindex(L, t);
  setsvalue(L, &key, luaS_new(L, k));
  luaV_gettable(L, t, &key, L->top);
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API lua_Hook lua_gethook

(

lua_State *

L)

Definiert in Zeile 69 der Datei ldebug.c.

                                            {
  return L->hook;
}

LUA_API int lua_gethookcount

(

lua_State *

L)

Definiert in Zeile 79 der Datei ldebug.c.

                                            {
  return L->basehookcount;
}

LUA_API int lua_gethookmask

(

lua_State *

L)

Definiert in Zeile 74 der Datei ldebug.c.

                                           {
  return L->hookmask;
}

LUA_API int lua_getinfo	(	lua_State *	L,
		const char *	what,
		lua_Debug *	ar
	)

Definiert in Zeile 232 der Datei ldebug.c.

                                                                        {
  int status;
  Closure *f = NULL;
  CallInfo *ci = NULL;
  lua_lock(L);
  if (*what == '>') {
    StkId func = L->top - 1;
    luai_apicheck(L, ttisfunction(func));
    what++;  /* skip the '>' */
    f = clvalue(func);
    L->top--;  /* pop function */
  }
  else if (ar->i_ci != 0) {  /* no tail call? */
    ci = L->base_ci + ar->i_ci;
    lua_assert(ttisfunction(ci->func));
    f = clvalue(ci->func);
  }
  status = auxgetinfo(L, what, ar, f, ci);
  if (strchr(what, 'f')) {
    if (f == NULL) setnilvalue(L->top);
    else setclvalue(L, L->top, f);
    incr_top(L);
  }
  if (strchr(what, 'L'))
    collectvalidlines(L, f);
  lua_unlock(L);
  return status;
}

LUA_API const char* lua_getlocal	(	lua_State *	L,
		const lua_Debug *	ar,
		int	n
	)

Definiert in Zeile 127 der Datei ldebug.c.

                                                                            {
  CallInfo *ci = L->base_ci + ar->i_ci;
  const char *name = findlocal(L, ci, n);
  lua_lock(L);
  if (name)
      luaA_pushobject(L, ci->base + (n - 1));
  lua_unlock(L);
  return name;
}

LUA_API int() lua_getmetatable	(	lua_State *	L,
		int	objindex
	)

Definiert in Zeile 587 der Datei lapi.c.

                                                          {
  const TValue *obj;
  Table *mt = NULL;
  int res;
  lua_lock(L);
  obj = index2adr(L, objindex);
  switch (ttype(obj)) {
    case LUA_TTABLE:
      mt = hvalue(obj)->metatable;
      break;
    case LUA_TUSERDATA:
      mt = uvalue(obj)->metatable;
      break;
    default:
      mt = G(L)->mt[ttype(obj)];
      break;
  }
  if (mt == NULL)
    res = 0;
  else {
    sethvalue(L, L->top, mt);
    api_incr_top(L);
    res = 1;
  }
  lua_unlock(L);
  return res;
}

LUA_API int lua_getstack	(	lua_State *	L,
		int	level,
		lua_Debug *	ar
	)

Definiert in Zeile 84 der Datei ldebug.c.

                                                                  {
  int status;
  CallInfo *ci;
  lua_lock(L);
  for (ci = L->ci; level > 0 && ci > L->base_ci; ci--) {
    level--;
    if (f_isLua(ci))  /* Lua function? */
      level -= ci->tailcalls;  /* skip lost tail calls */
  }
  if (level == 0 && ci > L->base_ci) {  /* level found? */
    status = 1;
    ar->i_ci = cast_int(ci - L->base_ci);
  }
  else if (level < 0) {  /* level is of a lost tail call? */
    status = 1;
    ar->i_ci = 0;
  }
  else status = 0;  /* no such level */
  lua_unlock(L);
  return status;
}

LUA_API void() lua_gettable	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 534 der Datei lapi.c.

                                                  {
  StkId t;
  lua_lock(L);
  t = index2adr(L, idx);
  api_checkvalidindex(L, t);
  luaV_gettable(L, t, L->top - 1, L->top - 1);
  lua_unlock(L);
}

LUA_API int() lua_gettop

(

lua_State *

L)

Definiert in Zeile 159 der Datei lapi.c.

                                      {
  return cast_int(L->top - L->base);
}

LUA_API const char* lua_getupvalue	(	lua_State *	L,
		int	funcindex,
		int	n
	)

Definiert in Zeile 1057 der Datei lapi.c.

                                                                        {
  const char *name;
  TValue *val;
  lua_lock(L);
  name = aux_upvalue(index2adr(L, funcindex), n, &val);
  if (name) {
    setobj2s(L, L->top, val);
    api_incr_top(L);
  }
  lua_unlock(L);
  return name;
}

LUA_API void() lua_insert	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 191 der Datei lapi.c.

                                                {
  StkId p;
  StkId q;
  lua_lock(L);
  p = index2adr(L, idx);
  api_checkvalidindex(L, p);
  for (q = L->top; q>p; q--) setobjs2s(L, q, q-1);
  setobjs2s(L, p, L->top);
  lua_unlock(L);
}

LUA_API int() lua_iscfunction	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 254 der Datei lapi.c.

                                                    {
  StkId o = index2adr(L, idx);
  return iscfunction(o);
}

LUA_API int() lua_isnumber	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 260 der Datei lapi.c.

                                                 {
  TValue n;
  const TValue *o = index2adr(L, idx);
  return tonumber(o, &n);
}

LUA_API int() lua_isstring	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 267 der Datei lapi.c.

                                                 {
  int t = lua_type(L, idx);
  return (t == LUA_TSTRING || t == LUA_TNUMBER);
}

LUA_API int() lua_isuserdata	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 273 der Datei lapi.c.

                                                   {
  const TValue *o = index2adr(L, idx);
  return (ttisuserdata(o) || ttislightuserdata(o));
}

LUA_API int() lua_lessthan	(	lua_State *	L,
		int	idx1,
		int	idx2
	)

Definiert in Zeile 299 der Datei lapi.c.

                                                                {
  StkId o1, o2;
  int i;
  lua_lock(L);  /* may call tag method */
  o1 = index2adr(L, index1);
  o2 = index2adr(L, index2);
  i = (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0
       : luaV_lessthan(L, o1, o2);
  lua_unlock(L);
  return i;
}

LUA_API int() lua_load	(	lua_State *	L,
		lua_Reader	reader,
		void *	dt,
		const char *	chunkname
	)

Definiert in Zeile 862 der Datei lapi.c.

                                             {
  ZIO z;
  int status;
  lua_lock(L);
  if (!chunkname) chunkname = "?";
  luaZ_init(L, &z, reader, data);
  status = luaD_protectedparser(L, &z, chunkname);
  lua_unlock(L);
  return status;
}

LUA_API lua_State*() lua_newstate	(	lua_Alloc	f,
		void *	ud
	)

Definiert in Zeile 143 der Datei lstate.c.

                                                        {
  int i;
  lua_State *L;
  global_State *g;
  void *l = (*f)(ud, NULL, 0, state_size(LG));
  if (l == NULL) return NULL;
  L = tostate(l);
  g = &((LG *)L)->g;
  L->next = NULL;
  L->tt = LUA_TTHREAD;
  g->currentwhite = bit2mask(WHITE0BIT, FIXEDBIT);
  L->marked = luaC_white(g);
  set2bits(L->marked, FIXEDBIT, SFIXEDBIT);
  preinit_state(L, g);
  g->frealloc = f;
  g->ud = ud;
  g->mainthread = L;
  g->uvhead.u.l.prev = &g->uvhead;
  g->uvhead.u.l.next = &g->uvhead;
  g->GCthreshold = 0;  /* mark it as unfinished state */
  g->strt.size = 0;
  g->strt.nuse = 0;
  g->strt.hash = NULL;
  setnilvalue(registry(L));
  luaZ_initbuffer(L, &g->buff);
  g->panic = NULL;
  g->gcstate = GCSpause;
  g->rootgc = obj2gco(L);
  g->sweepstrgc = 0;
  g->sweepgc = &g->rootgc;
  g->gray = NULL;
  g->grayagain = NULL;
  g->weak = NULL;
  g->tmudata = NULL;
  g->totalbytes = sizeof(LG);
  g->gcpause = LUAI_GCPAUSE;
  g->gcstepmul = LUAI_GCMUL;
  g->gcdept = 0;
  for (i=0; i<NUM_TAGS; i++) g->mt[i] = NULL;
  if (luaD_rawrunprotected(L, f_luaopen, NULL) != 0) {
    /* memory allocation error: free partial state */
    close_state(L);
    L = NULL;
  }
  else
    luai_userstateopen(L);
  return L;
}

LUA_API lua_State*() lua_newthread

(

lua_State *

L)

Definiert in Zeile 140 der Datei lapi.c.

                                                {
  lua_State *L1;
  lua_lock(L);
  luaC_checkGC(L);
  L1 = luaE_newthread(L);
  setthvalue(L, L->top, L1);
  api_incr_top(L);
  lua_unlock(L);
  luai_userstatethread(L, L1);
  return L1;
}

LUA_API void*() lua_newuserdata	(	lua_State *	L,
		size_t	sz
	)

Definiert in Zeile 1025 der Datei lapi.c.

                                                          {
  Udata *u;
  lua_lock(L);
  luaC_checkGC(L);
  u = luaS_newudata(L, size, getcurrenv(L));
  setuvalue(L, L->top, u);
  api_incr_top(L);
  lua_unlock(L);
  return u + 1;
}

LUA_API int() lua_next	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 973 der Datei lapi.c.

                                             {
  StkId t;
  int more;
  lua_lock(L);
  t = index2adr(L, idx);
  api_check(L, ttistable(t));
  more = luaH_next(L, hvalue(t), L->top - 1);
  if (more) {
    api_incr_top(L);
  }
  else  /* no more elements */
    L->top -= 1;  /* remove key */
  lua_unlock(L);
  return more;
}

LUA_API size_t() lua_objlen	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 361 der Datei lapi.c.

                                                  {
  StkId o = index2adr(L, idx);
  switch (ttype(o)) {
    case LUA_TSTRING: return tsvalue(o)->len;
    case LUA_TUSERDATA: return uvalue(o)->len;
    case LUA_TTABLE: return luaH_getn(hvalue(o));
    case LUA_TNUMBER: {
      size_t l;
      lua_lock(L);  /* `luaV_tostring' may create a new string */
      l = (luaV_tostring(L, o) ? tsvalue(o)->len : 0);
      lua_unlock(L);
      return l;
    }
    default: return 0;
  }
}

LUA_API int() lua_pcall	(	lua_State *	L,
		int	nargs,
		int	nresults,
		int	errfunc
	)

Definiert in Zeile 805 der Datei lapi.c.

                                                                           {
  struct CallS c;
  int status;
  ptrdiff_t func;
  lua_lock(L);
  api_checknelems(L, nargs+1);
  checkresults(L, nargs, nresults);
  if (errfunc == 0)
    func = 0;
  else {
    StkId o = index2adr(L, errfunc);
    api_checkvalidindex(L, o);
    func = savestack(L, o);
  }
  c.func = L->top - (nargs+1);  /* function to be called */
  c.nresults = nresults;
  status = luaD_pcall(L, f_call, &c, savestack(L, c.func), func);
  adjustresults(L, nresults);
  lua_unlock(L);
  return status;
}

LUA_API void() lua_pushboolean	(	lua_State *	L,
		int	b
	)

Definiert in Zeile 503 der Datei lapi.c.

                                                   {
  lua_lock(L);
  setbvalue(L->top, (b != 0));  /* ensure that true is 1 */
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushcclosure	(	lua_State *	L,
		lua_CFunction	fn,
		int	n
	)

Definiert in Zeile 486 der Datei lapi.c.

                                                                      {
  Closure *cl;
  lua_lock(L);
  luaC_checkGC(L);
  api_checknelems(L, n);
  cl = luaF_newCclosure(L, n, getcurrenv(L));
  cl->c.f = fn;
  L->top -= n;
  while (n--)
    setobj2n(L, &cl->c.upvalue[n], L->top+n);
  setclvalue(L, L->top, cl);
  lua_assert(iswhite(obj2gco(cl)));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API const char*() lua_pushfstring	(	lua_State *	L,
		const char *	fmt,
			...
	)

Definiert in Zeile 473 der Datei lapi.c.

                                                                         {
  const char *ret;
  va_list argp;
  lua_lock(L);
  luaC_checkGC(L);
  va_start(argp, fmt);
  ret = luaO_pushvfstring(L, fmt, argp);
  va_end(argp);
  lua_unlock(L);
  return ret;
}

LUA_API void() lua_pushinteger	(	lua_State *	L,
		lua_Integer	n
	)

Definiert in Zeile 437 der Datei lapi.c.

                                                           {
  lua_lock(L);
  setnvalue(L->top, cast_num(n));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushlightuserdata	(	lua_State *	L,
		void *	p
	)

Definiert in Zeile 511 der Datei lapi.c.

                                                           {
  lua_lock(L);
  setpvalue(L->top, p);
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushlstring	(	lua_State *	L,
		const char *	s,
		size_t	l
	)

Definiert in Zeile 445 der Datei lapi.c.

                                                                       {
  lua_lock(L);
  luaC_checkGC(L);
  setsvalue2s(L, L->top, luaS_newlstr(L, s, len));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushnil

(

lua_State *

L)

Definiert in Zeile 421 der Datei lapi.c.

                                        {
  lua_lock(L);
  setnilvalue(L->top);
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushnumber	(	lua_State *	L,
		lua_Number	n
	)

Definiert in Zeile 429 der Datei lapi.c.

                                                         {
  lua_lock(L);
  setnvalue(L->top, n);
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_pushstring	(	lua_State *	L,
		const char *	s
	)

Definiert in Zeile 454 der Datei lapi.c.

                                                          {
  if (s == NULL)
    lua_pushnil(L);
  else
    lua_pushlstring(L, s, strlen(s));
}

LUA_API int() lua_pushthread

(

lua_State *

L)

Definiert in Zeile 519 der Datei lapi.c.

                                          {
  lua_lock(L);
  setthvalue(L, L->top, L);
  api_incr_top(L);
  lua_unlock(L);
  return (G(L)->mainthread == L);
}

LUA_API void() lua_pushvalue	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 228 der Datei lapi.c.

                                                   {
  lua_lock(L);
  setobj2s(L, L->top, index2adr(L, idx));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API const char*() lua_pushvfstring	(	lua_State *	L,
		const char *	fmt,
		va_list	argp
	)

Definiert in Zeile 462 der Datei lapi.c.

                                                    {
  const char *ret;
  lua_lock(L);
  luaC_checkGC(L);
  ret = luaO_pushvfstring(L, fmt, argp);
  lua_unlock(L);
  return ret;
}

LUA_API int() lua_rawequal	(	lua_State *	L,
		int	idx1,
		int	idx2
	)

Definiert in Zeile 279 der Datei lapi.c.

                                                                {
  StkId o1 = index2adr(L, index1);
  StkId o2 = index2adr(L, index2);
  return (o1 == luaO_nilobject || o2 == luaO_nilobject) ? 0
         : luaO_rawequalObj(o1, o2);
}

LUA_API void() lua_rawget	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 557 der Datei lapi.c.

                                                {
  StkId t;
  lua_lock(L);
  t = index2adr(L, idx);
  api_check(L, ttistable(t));
  setobj2s(L, L->top - 1, luaH_get(hvalue(t), L->top - 1));
  lua_unlock(L);
}

LUA_API void() lua_rawgeti	(	lua_State *	L,
		int	idx,
		int	n
	)

Definiert in Zeile 567 der Datei lapi.c.

                                                        {
  StkId o;
  lua_lock(L);
  o = index2adr(L, idx);
  api_check(L, ttistable(o));
  setobj2s(L, L->top, luaH_getnum(hvalue(o), n));
  api_incr_top(L);
  lua_unlock(L);
}

LUA_API void() lua_rawset	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 671 der Datei lapi.c.

                                                {
  StkId t;
  lua_lock(L);
  api_checknelems(L, 2);
  t = index2adr(L, idx);
  api_check(L, ttistable(t));
  setobj2t(L, luaH_set(L, hvalue(t), L->top-2), L->top-1);
  luaC_barriert(L, hvalue(t), L->top-1);
  L->top -= 2;
  lua_unlock(L);
}

LUA_API void() lua_rawseti	(	lua_State *	L,
		int	idx,
		int	n
	)

Definiert in Zeile 684 der Datei lapi.c.

                                                        {
  StkId o;
  lua_lock(L);
  api_checknelems(L, 1);
  o = index2adr(L, idx);
  api_check(L, ttistable(o));
  setobj2t(L, luaH_setnum(L, hvalue(o), n), L->top-1);
  luaC_barriert(L, hvalue(o), L->top-1);
  L->top--;
  lua_unlock(L);
}

LUA_API void() lua_remove	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 180 der Datei lapi.c.

                                                {
  StkId p;
  lua_lock(L);
  p = index2adr(L, idx);
  api_checkvalidindex(L, p);
  while (++p < L->top) setobjs2s(L, p-1, p);
  L->top--;
  lua_unlock(L);
}

LUA_API void() lua_replace	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 203 der Datei lapi.c.

                                                 {
  StkId o;
  lua_lock(L);
  /* explicit test for incompatible code */
  if (idx == LUA_ENVIRONINDEX && L->ci == L->base_ci)
    luaG_runerror(L, "no calling environment");
  api_checknelems(L, 1);
  o = index2adr(L, idx);
  api_checkvalidindex(L, o);
  if (idx == LUA_ENVIRONINDEX) {
    Closure *func = curr_func(L);
    api_check(L, ttistable(L->top - 1)); 
    func->c.env = hvalue(L->top - 1);
    luaC_barrier(L, func, L->top - 1);
  }
  else {
    setobj(L, o, L->top - 1);
    if (idx < LUA_GLOBALSINDEX)  /* function upvalue? */
      luaC_barrier(L, curr_func(L), L->top - 1);
  }
  L->top--;
  lua_unlock(L);
}

LUA_API int() lua_resume	(	lua_State *	L,
		int	narg
	)

Definiert in Zeile 418 der Datei ldo.c.

                                                 {
  int status;
  lua_lock(L);
  if (L->status != LUA_YIELD && (L->status != 0 || L->ci != L->base_ci))
      return resume_error(L, "cannot resume non-suspended coroutine");
  if (L->nCcalls >= LUAI_MAXCCALLS)
    return resume_error(L, "C stack overflow");
  luai_userstateresume(L, nargs);
  lua_assert(L->errfunc == 0);
  L->baseCcalls = ++L->nCcalls;
  status = luaD_rawrunprotected(L, resume, L->top - nargs);
  if (status != 0) {  /* error? */
    L->status = cast_byte(status);  /* mark thread as `dead' */
    luaD_seterrorobj(L, status, L->top);
    L->ci->top = L->top;
  }
  else {
    lua_assert(L->nCcalls == L->baseCcalls);
    status = L->status;
  }
  --L->nCcalls;
  lua_unlock(L);
  return status;
}

LUA_API void lua_setallocf	(	lua_State *	L,
		lua_Alloc	f,
		void *	ud
	)

Definiert in Zeile 1017 der Datei lapi.c.

                                                                 {
  lua_lock(L);
  G(L)->ud = ud;
  G(L)->frealloc = f;
  lua_unlock(L);
}

LUA_API int() lua_setfenv	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 734 der Datei lapi.c.

                                                {
  StkId o;
  int res = 1;
  lua_lock(L);
  api_checknelems(L, 1);
  o = index2adr(L, idx);
  api_checkvalidindex(L, o);
  api_check(L, ttistable(L->top - 1));
  switch (ttype(o)) {
    case LUA_TFUNCTION:
      clvalue(o)->c.env = hvalue(L->top - 1);
      break;
    case LUA_TUSERDATA:
      uvalue(o)->env = hvalue(L->top - 1);
      break;
    case LUA_TTHREAD:
      sethvalue(L, gt(thvalue(o)), hvalue(L->top - 1));
      break;
    default:
      res = 0;
      break;
  }
  if (res) luaC_objbarrier(L, gcvalue(o), hvalue(L->top - 1));
  L->top--;
  lua_unlock(L);
  return res;
}

LUA_API void() lua_setfield	(	lua_State *	L,
		int	idx,
		const char *	k
	)

Definiert in Zeile 657 der Datei lapi.c.

                                                                 {
  StkId t;
  TValue key;
  lua_lock(L);
  api_checknelems(L, 1);
  t = index2adr(L, idx);
  api_checkvalidindex(L, t);
  setsvalue(L, &key, luaS_new(L, k));
  luaV_settable(L, t, &key, L->top - 1);
  L->top--;  /* pop value */
  lua_unlock(L);
}

LUA_API int lua_sethook	(	lua_State *	L,
		lua_Hook	func,
		int	mask,
		int	count
	)

Definiert in Zeile 56 der Datei ldebug.c.

                                                                           {
  if (func == NULL || mask == 0) {  /* turn off hooks? */
    mask = 0;
    func = NULL;
  }
  L->hook = func;
  L->basehookcount = count;
  resethookcount(L);
  L->hookmask = cast_byte(mask);
  return 1;
}

LUA_API void lua_setlevel	(	lua_State *	from,
		lua_State *	to
	)

Definiert in Zeile 125 der Datei lapi.c.

                                                           {
  to->nCcalls = from->nCcalls;
}

LUA_API const char* lua_setlocal	(	lua_State *	L,
		const lua_Debug *	ar,
		int	n
	)

Definiert in Zeile 138 der Datei ldebug.c.

                                                                            {
  CallInfo *ci = L->base_ci + ar->i_ci;
  const char *name = findlocal(L, ci, n);
  lua_lock(L);
  if (name)
      setobjs2s(L, ci->base + (n - 1), L->top - 1);
  L->top--;  /* pop value */
  lua_unlock(L);
  return name;
}

LUA_API int() lua_setmetatable	(	lua_State *	L,
		int	objindex
	)

Definiert in Zeile 697 der Datei lapi.c.

                                                          {
  TValue *obj;
  Table *mt;
  lua_lock(L);
  api_checknelems(L, 1);
  obj = index2adr(L, objindex);
  api_checkvalidindex(L, obj);
  if (ttisnil(L->top - 1))
    mt = NULL;
  else {
    api_check(L, ttistable(L->top - 1));
    mt = hvalue(L->top - 1);
  }
  switch (ttype(obj)) {
    case LUA_TTABLE: {
      hvalue(obj)->metatable = mt;
      if (mt)
        luaC_objbarriert(L, hvalue(obj), mt);
      break;
    }
    case LUA_TUSERDATA: {
      uvalue(obj)->metatable = mt;
      if (mt)
        luaC_objbarrier(L, rawuvalue(obj), mt);
      break;
    }
    default: {
      G(L)->mt[ttype(obj)] = mt;
      break;
    }
  }
  L->top--;
  lua_unlock(L);
  return 1;
}

LUA_API void() lua_settable	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 645 der Datei lapi.c.

                                                  {
  StkId t;
  lua_lock(L);
  api_checknelems(L, 2);
  t = index2adr(L, idx);
  api_checkvalidindex(L, t);
  luaV_settable(L, t, L->top - 2, L->top - 1);
  L->top -= 2;  /* pop index and value */
  lua_unlock(L);
}

LUA_API void() lua_settop	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 164 der Datei lapi.c.

                                                {
  lua_lock(L);
  if (idx >= 0) {
    api_check(L, idx <= L->stack_last - L->base);
    while (L->top < L->base + idx)
      setnilvalue(L->top++);
    L->top = L->base + idx;
  }
  else {
    api_check(L, -(idx+1) <= (L->top - L->base));
    L->top += idx+1;  /* `subtract' index (index is negative) */
  }
  lua_unlock(L);
}

LUA_API const char* lua_setupvalue	(	lua_State *	L,
		int	funcindex,
		int	n
	)

Definiert in Zeile 1071 der Datei lapi.c.

                                                                        {
  const char *name;
  TValue *val;
  StkId fi;
  lua_lock(L);
  fi = index2adr(L, funcindex);
  api_checknelems(L, 1);
  name = aux_upvalue(fi, n, &val);
  if (name) {
    L->top--;
    setobj(L, val, L->top);
    luaC_barrier(L, clvalue(fi), L->top);
  }
  lua_unlock(L);
  return name;
}

LUA_API int() lua_status

(

lua_State *

L)

Definiert in Zeile 890 der Datei lapi.c.

                                       {
  return L->status;
}

LUA_API int() lua_toboolean	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 337 der Datei lapi.c.

                                                  {
  const TValue *o = index2adr(L, idx);
  return !l_isfalse(o);
}

LUA_API lua_CFunction() lua_tocfunction	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 379 der Datei lapi.c.

                                                              {
  StkId o = index2adr(L, idx);
  return (!iscfunction(o)) ? NULL : clvalue(o)->c.f;
}

LUA_API lua_Integer() lua_tointeger	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 323 der Datei lapi.c.

                                                          {
  TValue n;
  const TValue *o = index2adr(L, idx);
  if (tonumber(o, &n)) {
    lua_Integer res;
    lua_Number num = nvalue(o);
    lua_number2integer(res, num);
    return res;
  }
  else
    return 0;
}

LUA_API const char*() lua_tolstring	(	lua_State *	L,
		int	idx,
		size_t *	len
	)

Definiert in Zeile 343 der Datei lapi.c.

                                                                       {
  StkId o = index2adr(L, idx);
  if (!ttisstring(o)) {
    lua_lock(L);  /* `luaV_tostring' may create a new string */
    if (!luaV_tostring(L, o)) {  /* conversion failed? */
      if (len != NULL) *len = 0;
      lua_unlock(L);
      return NULL;
    }
    luaC_checkGC(L);
    o = index2adr(L, idx);  /* previous call may reallocate the stack */
    lua_unlock(L);
  }
  if (len != NULL) *len = tsvalue(o)->len;
  return svalue(o);
}

LUA_API lua_Number() lua_tonumber	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 313 der Datei lapi.c.

                                                        {
  TValue n;
  const TValue *o = index2adr(L, idx);
  if (tonumber(o, &n))
    return nvalue(o);
  else
    return 0;
}

LUA_API const void*() lua_topointer	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 401 der Datei lapi.c.

                                                          {
  StkId o = index2adr(L, idx);
  switch (ttype(o)) {
    case LUA_TTABLE: return hvalue(o);
    case LUA_TFUNCTION: return clvalue(o);
    case LUA_TTHREAD: return thvalue(o);
    case LUA_TUSERDATA:
    case LUA_TLIGHTUSERDATA:
      return lua_touserdata(L, idx);
    default: return NULL;
  }
}

LUA_API lua_State*() lua_tothread	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 395 der Datei lapi.c.

                                                        {
  StkId o = index2adr(L, idx);
  return (!ttisthread(o)) ? NULL : thvalue(o);
}

LUA_API void*() lua_touserdata	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 385 der Datei lapi.c.

                                                     {
  StkId o = index2adr(L, idx);
  switch (ttype(o)) {
    case LUA_TUSERDATA: return (rawuvalue(o) + 1);
    case LUA_TLIGHTUSERDATA: return pvalue(o);
    default: return NULL;
  }
}

LUA_API int() lua_type	(	lua_State *	L,
		int	idx
	)

Definiert in Zeile 242 der Datei lapi.c.

                                             {
  StkId o = index2adr(L, idx);
  return (o == luaO_nilobject) ? LUA_TNONE : ttype(o);
}

LUA_API const char*() lua_typename	(	lua_State *	L,
		int	tp
	)

Definiert in Zeile 248 der Datei lapi.c.

                                                       {
  UNUSED(L);
  return (t == LUA_TNONE) ? "no value" : luaT_typenames[t];
}

LUA_API void() lua_xmove	(	lua_State *	from,
		lua_State *	to,
		int	n
	)

Definiert in Zeile 110 der Datei lapi.c.

                                                               {
  int i;
  if (from == to) return;
  lua_lock(to);
  api_checknelems(from, n);
  api_check(from, G(from) == G(to));
  api_check(from, to->ci->top - to->top >= n);
  from->top -= n;
  for (i = 0; i < n; i++) {
    setobj2s(to, to->top++, from->top + i);
  }
  lua_unlock(to);
}

LUA_API int() lua_yield	(	lua_State *	L,
		int	nresults
	)

Definiert in Zeile 444 der Datei ldo.c.

                                                   {
  luai_userstateyield(L, nresults);
  lua_lock(L);
  if (L->nCcalls > L->baseCcalls)
    luaG_runerror(L, "attempt to yield across metamethod/C-call boundary");
  L->base = L->top - nresults;  /* protect stack slots below */
  L->status = LUA_YIELD;
  lua_unlock(L);
  return -1;
}