mirror of https://github.com/lua/lua
95 lines
2.2 KiB
C
95 lines
2.2 KiB
C
/*
|
|
** $Id: lstate.h,v 1.18 1999/05/11 14:19:32 roberto Exp roberto $
|
|
** Global State
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lstate_h
|
|
#define lstate_h
|
|
|
|
#include <setjmp.h>
|
|
|
|
#include "lobject.h"
|
|
#include "lua.h"
|
|
#include "luadebug.h"
|
|
|
|
|
|
#define GARBAGE_BLOCK 150
|
|
|
|
|
|
typedef int StkId; /* index to stack elements */
|
|
|
|
|
|
/*
|
|
** "jmp_buf" may be an array, so it is better to make sure it has an
|
|
** address (and not that it *is* an address...)
|
|
*/
|
|
struct lua_longjmp {
|
|
jmp_buf b;
|
|
};
|
|
|
|
|
|
struct Stack {
|
|
TObject *top;
|
|
TObject *stack;
|
|
TObject *last;
|
|
};
|
|
|
|
struct C_Lua_Stack {
|
|
StkId base; /* when Lua calls C or C calls Lua, points to */
|
|
/* the first slot after the last parameter. */
|
|
StkId lua2C; /* points to first element of "array" lua2C */
|
|
int num; /* size of "array" lua2C */
|
|
};
|
|
|
|
|
|
typedef struct stringtable {
|
|
int size;
|
|
int nuse; /* number of elements (including EMPTYs) */
|
|
TaggedString **hash;
|
|
} stringtable;
|
|
|
|
|
|
enum Status {LOCK, HOLD, FREE, COLLECTED};
|
|
|
|
struct ref {
|
|
TObject o;
|
|
enum Status status;
|
|
};
|
|
|
|
|
|
struct lua_State {
|
|
/* thread-specific state */
|
|
struct Stack stack; /* Lua stack */
|
|
struct C_Lua_Stack Cstack; /* C2lua struct */
|
|
struct lua_longjmp *errorJmp; /* current error recover point */
|
|
char *Mbuffer; /* global buffer */
|
|
int Mbuffbase; /* current first position of Mbuffer */
|
|
int Mbuffsize; /* size of Mbuffer */
|
|
int Mbuffnext; /* next position to fill in Mbuffer */
|
|
struct C_Lua_Stack *Cblocks;
|
|
int numCblocks; /* number of nested Cblocks */
|
|
int debug;
|
|
lua_CHFunction callhook;
|
|
lua_LHFunction linehook;
|
|
/* global state */
|
|
GCnode rootproto; /* list of all prototypes */
|
|
GCnode rootcl; /* list of all closures */
|
|
GCnode roottable; /* list of all tables */
|
|
GCnode rootglobal; /* list of strings with global values */
|
|
stringtable *string_root; /* array of hash tables for strings and udata */
|
|
struct IM *IMtable; /* table for tag methods */
|
|
int last_tag; /* last used tag in IMtable */
|
|
struct ref *refArray; /* locked objects */
|
|
int refSize; /* size of refArray */
|
|
unsigned long GCthreshold;
|
|
unsigned long nblocks; /* number of 'blocks' currently allocated */
|
|
};
|
|
|
|
|
|
#define L lua_state
|
|
|
|
|
|
#endif
|
|
|