lua/lstate.h

103 lines
2.6 KiB
C
Raw Normal View History

1997-11-20 01:31:19 +08:00
/*
** $Id: lstate.h,v 1.63 2001/10/31 19:58:11 roberto Exp $
1997-11-20 01:31:19 +08:00
** Global State
** See Copyright Notice in lua.h
*/
#ifndef lstate_h
#define lstate_h
#include "lobject.h"
#include "lua.h"
#include "luadebug.h"
1997-11-20 01:31:19 +08:00
/*
** macros for thread syncronization inside Lua core machine:
** all accesses to the global state and to global objects are syncronized.
** Because threads can read the stack of other threads
** (when running garbage collection),
** a thread must also syncronize any write-access to its own stack.
** Unsyncronized accesses are allowed only when reading its own stack,
** or when reading immutable fields from global objects
** (such as string values and udata values).
*/
2001-03-03 01:27:50 +08:00
#ifndef lua_lock
#define lua_lock(L) ((void) 0)
#endif
2001-03-03 01:27:50 +08:00
#ifndef lua_unlock
#define lua_unlock(L) ((void) 0)
#endif
2001-02-02 01:40:48 +08:00
/*
** macro to allow the inclusion of user information in Lua state
*/
#ifndef LUA_USERSTATE
#define LUA_USERSTATE
#endif
1999-05-10 21:54:01 +08:00
2000-09-26 00:22:42 +08:00
struct lua_longjmp; /* defined in ldo.c */
struct TM; /* defined in ltm.h */
1997-11-20 01:31:19 +08:00
1999-05-10 21:54:01 +08:00
typedef struct stringtable {
1997-11-20 01:31:19 +08:00
int size;
2001-02-21 02:15:33 +08:00
ls_nstr nuse; /* number of elements */
2000-03-11 02:37:44 +08:00
TString **hash;
1997-11-20 01:31:19 +08:00
} stringtable;
/*
2001-02-24 01:17:25 +08:00
** `global state', shared by all threads of this state
*/
typedef struct global_State {
void *Mbuffer; /* global buffer */
2000-05-24 21:54:49 +08:00
size_t Mbuffsize; /* size of Mbuffer */
2000-05-11 00:33:20 +08:00
stringtable strt; /* hash table for strings */
2001-10-26 03:12:21 +08:00
Table *type2tag; /* hash table from type names to tags */
TObject registry; /* registry table */
struct TM *TMtable; /* table for tag methods */
int sizeTM; /* size of TMtable */
int ntag; /* number of tags in TMtable */
2001-02-21 02:15:33 +08:00
lu_mem GCthreshold;
lu_mem nblocks; /* number of `bytes' currently allocated */
Proto *rootproto; /* list of all prototypes */
2001-10-03 00:43:29 +08:00
Closure *rootcl; /* list of all C closures and closed Lua closures */
2001-10-26 03:12:21 +08:00
Table *roottable; /* list of all tables */
Udata *rootudata; /* list of all userdata */
TObject *rootupval; /* list of all up values */
} global_State;
/*
2001-02-24 01:17:25 +08:00
** `per thread' state
*/
struct lua_State {
2001-02-02 01:40:48 +08:00
LUA_USERSTATE
StkId top; /* first free slot in the stack */
CallInfo *ci; /* call info for current function */
StkId stack_last; /* last free slot in the stack */
TObject gt; /* table for globals */
global_State *_G;
StkId stack; /* stack base */
int stacksize;
2000-03-31 01:19:48 +08:00
lua_Hook callhook;
lua_Hook linehook;
int allowhooks;
struct lua_longjmp *errorJmp; /* current error recover point */
Closure *opencl; /* list of closures still pointing to this stack */
lua_State *next; /* circular double linked list of states */
lua_State *previous;
CallInfo basefunc;
};
1997-11-20 01:31:19 +08:00
#define G(L) (L->_G)
1997-11-20 01:31:19 +08:00
#endif