forked from pllua/pllua-deprecated
-
Notifications
You must be signed in to change notification settings - Fork 0
/
pllua_xact_cleanup.c
152 lines (124 loc) · 2.85 KB
/
pllua_xact_cleanup.c
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
#include "pllua_xact_cleanup.h"
#define MTOCOMMON {MemoryContext ___m;\
___m = MemoryContextSwitchTo(cmn_ctx)
#define MTOPREV MemoryContextSwitchTo(___m);}
struct RSStack;
static MemoryContext cmn_ctx = NULL;
typedef struct {
void *data;
RSDtorCallback dtor;
} Resource;
typedef struct RSNode {
void *data;
RSDtorCallback dtor;
struct RSNode *next;
struct RSNode *prev;
struct RSStack *tail;
} RSNode, *RSNodePtr;
typedef struct RSStack {
RSNodePtr top;
} RSStack, *RSStaskPtr;
static RSStaskPtr resource_stk = NULL;
static RSNodePtr rsp_push(RSStaskPtr S, void *d, RSDtorCallback dtor) {
RSNodePtr np;
if (S == NULL) return NULL;
MTOCOMMON;
np = (RSNodePtr) palloc(sizeof(RSNode));
MTOPREV;
np->tail = S;
np -> data = d;
np -> dtor = dtor;
np -> next = S -> top;
np -> prev = NULL;
if (S->top != NULL)
S -> top->prev = np;
S -> top = np;
return np;
}
void *unregister_resource(void* d)
{
RSStaskPtr S;
RSNodePtr np;
if (d == NULL) return NULL;
np = (RSNodePtr)d;
S = np->tail;
if (S->top == np){
S->top = np->next;
if (S->top){
S->top->prev = NULL;
}
}else{
if (np->prev)
np->prev->next = np->next;
if (np->next)
np->next->prev = np->prev;
}
pfree(np);
return NULL;
}
void *register_resource(void *d, RSDtorCallback dtor)
{
return (void*)rsp_push(resource_stk, d, dtor);
}
static int rsp_isempty(RSStaskPtr S) {
return (S -> top == NULL);
}
static Resource rsp_pop(RSStaskPtr S) {
Resource hold;
RSNodePtr temp;
hold.data = NULL;
hold.dtor = NULL;
if (rsp_isempty(S)) {
return hold;
}
hold.data = S -> top -> data;
hold.dtor = S -> top -> dtor;
temp = S -> top;
S -> top = S -> top -> next;
if (S->top != NULL)
S -> top->prev = NULL;
pfree(temp);
return hold;
}
static RSStaskPtr rsp_initStack() {
RSStaskPtr sp;
MTOCOMMON;
sp = (RSStaskPtr) palloc(sizeof(RSStack));
MTOPREV;
sp->top = NULL;
return sp;
}
static void clean(RSStaskPtr S){
Resource res = rsp_pop(S);
while (res.data || res.dtor) {
if (res.dtor){
(res.dtor)(res.data);
}else{
pfree(res.data);
}
res = rsp_pop(S);
}
}
void pllua_xact_cb(XactEvent event, void *arg)
{
//TODO: check events
(void)event;
(void)arg;
clean(resource_stk);
}
void pllua_init_common_ctx()
{
cmn_ctx = AllocSetContextCreate(TopMemoryContext,
"PL/Lua common context", ALLOCSET_DEFAULT_MINSIZE, ALLOCSET_DEFAULT_INITSIZE,
ALLOCSET_DEFAULT_MAXSIZE);
resource_stk = rsp_initStack();
}
void pllua_delete_common_ctx()
{
pfree(resource_stk);
MemoryContextDelete(cmn_ctx);
}
MemoryContext get_common_ctx()
{
return cmn_ctx;
}