1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/*
** $Id: lstate.h 905 2008-07-20 21:08:22Z aquadran $
** 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
|
