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
|
/*
** Lua/Coco glue.
** Copyright (C) 2004-2008 Mike Pall. See copyright notice in lcoco.c
*/
#if defined(__OpenBSD__)
#if defined(__i386) || defined(__i386__)
#else
#undef COCO_DISABLE
#define COCO_DISABLE
#define lcoco_h
#endif
#endif
#if defined(linux) && defined(powerpc)
#undef COCO_DISABLE
#define COCO_DISABLE
#define lcoco_h
#endif
#ifndef lcoco_h
#define lcoco_h
#define LUACOCO_VERSION "Coco 1.1.5"
#define LUACOCO_VERSION_NUM 10105
/* Exported C API to add a C stack to a coroutine. */
LUA_API lua_State *lua_newcthread(lua_State *L, int cstacksize);
/* Internal support routines. */
LUAI_FUNC void luaCOCO_free(lua_State *L);
LUAI_FUNC int luaCOCO_resume(lua_State *L, int nargs);
LUAI_FUNC int luaCOCO_yield(lua_State *L);
LUAI_FUNC int luaCOCO_cstacksize(int cstacksize);
/* Forward declaration. */
typedef struct coco_State coco_State;
/* These are redefined below. */
#undef LUAI_EXTRASPACE
#undef luai_userstateopen
/* luai_userstateclose unused */
#undef luai_userstatethread
#undef luai_userstatefree
#undef luai_userstateresume
#undef luai_userstateyield
/* Use Windows Fibers (Win98+). */
#if defined(_WIN32)
/* Fibers allocate their own stack. The whole Coco state is in front of L. */
struct coco_State {
void *fib; /* Own fiber (if any). */
void *back; /* Fiber to switch back to. */
int nargs; /* Number of arguments to pass. */
int dummy_align;
};
#define L2COCO(L) (&((coco_State *)(L))[-1])
#define LHASCOCO(L) (L2COCO(L)->fib)
#define LUAI_EXTRASPACE sizeof(coco_State)
#define luai_userstateopen(L) L2COCO(L)->fib = NULL
#define luai_userstatethread(L,L1) L2COCO(L1)->fib = NULL
#define COCO_USE_FIBERS
#else /* !defined(_WIN32) */
/* The Coco state depends on the context switch method used. See lcoco.c. */
/* It's stored at the end of the stack. Only need a pointer in front of L. */
#define L2COCO(L) (((coco_State **)(L))[-1])
#define LHASCOCO(L) (L2COCO(L))
/* This wastes some space on 32 bit systems, but gets better alignment. */
#define LUAI_EXTRASPACE sizeof(LUAI_USER_ALIGNMENT_T)
#define luai_userstateopen(L) L2COCO(L) = NULL
#define luai_userstatethread(L,L1) L2COCO(L1) = NULL
#endif /* !defined(_WIN32) */
#define luai_userstatefree(L) if (LHASCOCO(L)) luaCOCO_free(L)
#define luai_userstateresume(L, nargs) \
if (LHASCOCO(L)) return luaCOCO_resume(L, nargs)
#define luai_userstateyield(L, nresults) \
do { if (LHASCOCO(L)) { \
L->base = L->top - (nresults); /* Protect stack slots below. */ \
return luaCOCO_yield(L); } } while (0)
#endif
|
