132 lines
3.1 KiB
C
132 lines
3.1 KiB
C
/*
|
|
** $Id$
|
|
** Global State
|
|
** See Copyright Notice in lua.h
|
|
*/
|
|
|
|
#ifndef lstate_h
|
|
#define lstate_h
|
|
|
|
#include <setjmp.h>
|
|
|
|
#include "lobject.h"
|
|
#include "lua.h"
|
|
|
|
|
|
#define MAX_C_BLOCKS 10
|
|
|
|
#define GARBAGE_BLOCK 150
|
|
|
|
|
|
typedef int32 StkId; /* index to stack elements */
|
|
|
|
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 */
|
|
int32 num; /* size of "array" lua2C */
|
|
};
|
|
|
|
|
|
typedef struct {
|
|
int32 size;
|
|
int32 nuse; /* number of elements (including EMPTYs) */
|
|
TaggedString **hash;
|
|
} stringtable;
|
|
|
|
|
|
enum Status {LOCK, HOLD, FREE, COLLECTED};
|
|
|
|
struct ref {
|
|
TObject o;
|
|
enum Status status;
|
|
};
|
|
|
|
|
|
struct CallInfo {
|
|
Closure *c;
|
|
TProtoFunc *tf; /* Set to NULL for C function */
|
|
StkId base;
|
|
Byte *pc;
|
|
int32 nResults;
|
|
};
|
|
|
|
|
|
enum TaskState {RUN, YIELD, PAUSE, DONE};
|
|
|
|
struct lua_Task {
|
|
struct Stack stack;
|
|
struct C_Lua_Stack Cstack;
|
|
jmp_buf *errorJmp;
|
|
struct CallInfo *ci;
|
|
struct CallInfo *base_ci;
|
|
int32 base_ci_size;
|
|
struct CallInfo *end_ci;
|
|
char *Mbuffer;
|
|
char *Mbuffbase;
|
|
int32 Mbuffsize;
|
|
int32 Mbuffnext;
|
|
struct C_Lua_Stack Cblocks[MAX_C_BLOCKS];
|
|
int32 numCblocks;
|
|
enum TaskState Tstate;
|
|
struct lua_Task *next;
|
|
int32 id;
|
|
};
|
|
|
|
struct lua_State {
|
|
/* thread-specific state */
|
|
struct Stack stack; /* Lua stack */
|
|
struct C_Lua_Stack Cstack; /* C2lua struct */
|
|
jmp_buf *errorJmp; /* current error recover point */
|
|
struct CallInfo *ci; /* call info for current function */
|
|
struct CallInfo *base_ci; /* array of CallInfo's */
|
|
int32 base_ci_size;
|
|
struct CallInfo *end_ci; /* points after end of ci array */
|
|
char *Mbuffer; /* global buffer */
|
|
char *Mbuffbase; /* current first position of Mbuffer */
|
|
int32 Mbuffsize; /* size of Mbuffer */
|
|
int32 Mbuffnext; /* next position to fill in Mbuffer */
|
|
struct C_Lua_Stack Cblocks[MAX_C_BLOCKS];
|
|
int32 numCblocks; /* number of nested Cblocks */
|
|
enum TaskState Tstate; /* state of current thread */
|
|
/* global state */
|
|
struct lua_Task *root_task; /* first task created */
|
|
struct lua_Task *curr_task;
|
|
struct lua_Task *last_task;
|
|
TObject errorim; /* error tag method */
|
|
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 */
|
|
int32 IMtable_size; /* size of IMtable */
|
|
int32 last_tag; /* last used tag in IMtable */
|
|
struct ref *refArray; /* locked objects */
|
|
int32 refSize; /* size of refArray */
|
|
int32 GCthreshold;
|
|
int32 nblocks; /* number of 'blocks' currently allocated */
|
|
};
|
|
|
|
|
|
extern lua_State *lua_state;
|
|
|
|
extern int32 globalTaskSerialId;
|
|
|
|
#define L lua_state
|
|
|
|
void lua_resetglobals(void);
|
|
|
|
/* Switch to the given task */
|
|
void luaI_switchtask(struct lua_Task *t);
|
|
|
|
/* Create a new task and switch to it */
|
|
struct lua_Task *luaI_newtask(void);
|
|
|
|
#endif
|