mirror of
https://github.com/scummvm/scummvm.git
synced 2026-06-20 05:45:29 +00:00
Pawel Kolodziejski
46 lines
1.1 KiB
C
46 lines
1.1 KiB
C
/*
|
|
** $Id$
|
|
** Stack and Call structure of Lua
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef ldo_h
|
|
#define ldo_h
|
|
|
|
|
|
#include "engine/lua/lobject.h"
|
|
#include "engine/lua/lstate.h"
|
|
|
|
|
|
#define MULT_RET 255
|
|
|
|
|
|
/*
|
|
** macro to increment stack top.
|
|
** There must be always an empty slot at the L->stack.top
|
|
*/
|
|
#define incr_top { if (L->stack.top >= L->stack.last) luaD_checkstack(1); L->stack.top++; }
|
|
|
|
// macros to convert from lua_Object to (TObject *) and back
|
|
|
|
#define Address(lo) ((lo) + L->stack.stack - 1)
|
|
#define Ref(st) ((st) - L->stack.stack + 1)
|
|
|
|
void luaD_init();
|
|
void luaD_initthr();
|
|
void luaD_adjusttop(StkId newtop);
|
|
void luaD_openstack(int32 nelems);
|
|
void luaD_lineHook(int32 line);
|
|
void luaD_callHook(StkId base, TProtoFunc *tf, int32 isreturn);
|
|
void luaD_precall(TObject *f, StkId base, int32 nResults);
|
|
void luaD_postret(StkId firstResult);
|
|
void luaD_call(StkId base, int32 nResults);
|
|
void luaD_callTM(TObject *f, int32 nParams, int32 nResults);
|
|
int32 luaD_protectedrun(int32 nResults);
|
|
void luaD_gcIM(TObject *o);
|
|
void luaD_travstack(int32 (*fn)(TObject *));
|
|
void luaD_checkstack(int32 n);
|
|
|
|
|
|
#endif
|