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
|
/*
* pllua.c: PL/Lua call handler, trusted
* Author: Luis Carvalho <lexcarvalho at gmail.com>
* Please check copyright notice at the bottom of pllua.h
* $Id: pllua.c,v 1.15 2008/03/29 02:49:55 carvalho Exp $
*/
#include "pllua.h"
PG_MODULE_MAGIC;
static lua_State *L[2] = {NULL, NULL}; /* Lua VMs */
Datum _PG_init(PG_FUNCTION_ARGS);
Datum _PG_fini(PG_FUNCTION_ARGS);
Datum pllua_validator(PG_FUNCTION_ARGS);
Datum pllua_call_handler(PG_FUNCTION_ARGS);
Datum plluau_validator(PG_FUNCTION_ARGS);
Datum plluau_call_handler(PG_FUNCTION_ARGS);
PG_FUNCTION_INFO_V1(_PG_init);
Datum _PG_init(PG_FUNCTION_ARGS) {
L[0] = luaP_newstate(0); /* untrusted */
L[1] = luaP_newstate(1); /* trusted */
PG_RETURN_VOID();
}
PG_FUNCTION_INFO_V1(_PG_fini);
Datum _PG_fini(PG_FUNCTION_ARGS) {
luaP_close(L[0]);
luaP_close(L[1]);
PG_RETURN_VOID();
}
PG_FUNCTION_INFO_V1(plluau_validator);
Datum plluau_validator(PG_FUNCTION_ARGS) {
return luaP_validator(L[0], PG_GETARG_OID(0));
}
PG_FUNCTION_INFO_V1(plluau_call_handler);
Datum plluau_call_handler(PG_FUNCTION_ARGS) {
return luaP_callhandler(L[0], fcinfo);
}
PG_FUNCTION_INFO_V1(pllua_validator);
Datum pllua_validator(PG_FUNCTION_ARGS) {
return luaP_validator(L[1], PG_GETARG_OID(0));
}
PG_FUNCTION_INFO_V1(pllua_call_handler);
Datum pllua_call_handler(PG_FUNCTION_ARGS) {
return luaP_callhandler(L[1], fcinfo);
}
|
