1997-11-20 01:31:19 +08:00
|
|
|
/*
|
2001-11-07 05:40:51 +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"
|
1998-06-03 04:37:04 +08:00
|
|
|
#include "lua.h"
|
1999-02-05 01:47:59 +08:00
|
|
|
#include "luadebug.h"
|
1997-11-20 01:31:19 +08:00
|
|
|
|
|
|
|
|
2001-01-24 23:45:33 +08:00
|
|
|
/*
|
2001-06-16 03:16:41 +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-01-24 23:45:33 +08:00
|
|
|
*/
|
2001-03-03 01:27:50 +08:00
|
|
|
#ifndef lua_lock
|
|
|
|
#define lua_lock(L) ((void) 0)
|
2001-01-24 23:45:33 +08:00
|
|
|
#endif
|
|
|
|
|
2001-03-03 01:27:50 +08:00
|
|
|
#ifndef lua_unlock
|
|
|
|
#define lua_unlock(L) ((void) 0)
|
2001-01-24 23:45:33 +08:00
|
|
|
#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
|
2001-01-24 23:45:33 +08:00
|
|
|
|
1999-05-10 21:54:01 +08:00
|
|
|
|
|
|
|
|
2000-09-26 00:22:42 +08:00
|
|
|
struct lua_longjmp; /* defined in ldo.c */
|
2000-10-05 21:00:17 +08:00
|
|
|
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-01-19 21:20:30 +08:00
|
|
|
/*
|
2001-02-24 01:17:25 +08:00
|
|
|
** `global state', shared by all threads of this state
|
2001-01-19 21:20:30 +08:00
|
|
|
*/
|
|
|
|
typedef struct global_State {
|
2001-02-24 04:32:16 +08:00
|
|
|
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 */
|
2001-10-18 05:12:57 +08:00
|
|
|
TObject registry; /* registry table */
|
2000-10-05 21:00:17 +08:00
|
|
|
struct TM *TMtable; /* table for tag methods */
|
2000-12-27 02:46:09 +08:00
|
|
|
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 */
|
2001-09-08 01:39:10 +08:00
|
|
|
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 */
|
2001-09-08 01:39:10 +08:00
|
|
|
Udata *rootudata; /* list of all userdata */
|
2001-11-07 05:40:51 +08:00
|
|
|
TObject *rootupval; /* list of all up values */
|
2001-01-19 21:20:30 +08:00
|
|
|
} global_State;
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
2001-02-24 01:17:25 +08:00
|
|
|
** `per thread' state
|
2001-01-19 21:20:30 +08:00
|
|
|
*/
|
|
|
|
struct lua_State {
|
2001-02-02 01:40:48 +08:00
|
|
|
LUA_USERSTATE
|
2001-01-19 21:20:30 +08:00
|
|
|
StkId top; /* first free slot in the stack */
|
2001-03-08 02:09:25 +08:00
|
|
|
CallInfo *ci; /* call info for current function */
|
2001-01-19 21:20:30 +08:00
|
|
|
StkId stack_last; /* last free slot in the stack */
|
2001-11-01 03:58:11 +08:00
|
|
|
TObject gt; /* table for globals */
|
2001-11-07 05:40:51 +08:00
|
|
|
global_State *_G;
|
2001-03-08 02:09:25 +08:00
|
|
|
StkId stack; /* stack base */
|
|
|
|
int stacksize;
|
2000-03-31 01:19:48 +08:00
|
|
|
lua_Hook callhook;
|
|
|
|
lua_Hook linehook;
|
1999-12-22 02:04:41 +08:00
|
|
|
int allowhooks;
|
2001-01-23 02:01:38 +08:00
|
|
|
struct lua_longjmp *errorJmp; /* current error recover point */
|
2001-09-08 01:39:10 +08:00
|
|
|
Closure *opencl; /* list of closures still pointing to this stack */
|
2001-01-23 02:01:38 +08:00
|
|
|
lua_State *next; /* circular double linked list of states */
|
|
|
|
lua_State *previous;
|
2001-03-08 02:09:25 +08:00
|
|
|
CallInfo basefunc;
|
1998-06-03 04:37:04 +08:00
|
|
|
};
|
1997-11-20 01:31:19 +08:00
|
|
|
|
|
|
|
|
2001-11-07 05:40:51 +08:00
|
|
|
#define G(L) (L->_G)
|
2001-01-19 21:20:30 +08:00
|
|
|
|
|
|
|
|
1997-11-20 01:31:19 +08:00
|
|
|
#endif
|
1999-02-05 01:47:59 +08:00
|
|
|
|