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
|
/*
* LSPIPAT - LUA SPIPAT WRAPPER
* Copyright (C) 2010, Robin Haberkorn
* License: LGPL
*
* CORE: CALL OPERATIONS
*/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <string.h>
#include "lspipat.h"
static void
callFncHandler(VString matched, void *global __attribute__((unused)), void *local)
{
struct callRefs *call = local;
lua_State *L = call->cb.L;
lua_rawgeti(L, LUA_REGISTRYINDEX, call->cb.function);
lua_pushlstring(L, matched.ptr, matched.len);
lua_rawgeti(L, LUA_REGISTRYINDEX, call->cb.cookie);
#if 0
lua_rawgeti(L, LUA_REGISTRYINDEX, *(int *)global);
#endif
lua_call(L, 2, 0);
}
struct callOperator {
struct pat *(*call)(struct pat *, void (*)(VString, void *, void *), void *);
};
/* TODO: local cookie support, this would also allow helper functions for assignment to global variables */
/* at least one parameter is a pattern, the lvalue has to be it */
static int
genericCallOperator(lua_State *L, struct callOperator spipat)
{
PATTERN_WRAPPER *new;
struct callRefs *call;
PATTERN_WRAPPER *lvalue = luaL_checkudata(L, 1, PATTERN_MT);
if (!lvalue->pattern)
L_ERROR(L_FREED);
if (!lua_isfunction(L, 2))
L_ERROR(L_TYPE);
if (!(new = lua_newuserdata(L, sizeof(PATTERN_WRAPPER))))
L_ERROR(L_ALLOC);
memset(new, 0, sizeof(PATTERN_WRAPPER));
lua_insert(L, 1); /* move wrapper below lvalue */
new->type = PATTERN_CALL;
call = &new->u.call;
call->cb.L = L;
call->cb.cookie = LUA_REFNIL;
call->cb.function = luaL_ref(L, LUA_REGISTRYINDEX);
call->pattern = luaL_ref(L, LUA_REGISTRYINDEX);
/* wrapper at top again */
new->pattern = spipat.call(lvalue->pattern, callFncHandler, call);
if (!new->pattern)
L_ERROR(L_ALLOC);
luaL_getmetatable(L, PATTERN_MT);
lua_setmetatable(L, -2);
return 1;
}
#define STDCALLOP(LFNC, SPIFNC) \
LUA_SIG(LFNC) \
{ \
return genericCallOperator(L, (struct callOperator) { \
.call = SPIFNC \
}); \
}
STDCALLOP(l_op_call_immed, spipat_call_immed)
STDCALLOP(l_op_call_onmatch, spipat_call_onmatch)
#undef STDCALLOP
|
