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
|
/*
** Lua eXtended keyboard library
*/
#define lxkbdlib_c
#define LUA_LIB
#include <lua/lprefix.h>
#include <errno.h>
#include <locale.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <lua/lua.h>
#include <lua/lauxlib.h>
#include <lua/lualib.h>
#include <kogata/keyboard.h>
#include "lxlib.h"
typedef struct {
keyboard_t *kbd;
} kbdlib_t;
#define KEYBOARD "lx.kbd.keyboard"
// ====================================================================
// FONTS
static int kbd_init(lua_State *L) {
keyboard_t *kbd = init_keyboard();
if (kbd == NULL)
luaL_error(L, "Could not initialize keyboard_t");
kbdlib_t *k = (kbdlib_t*)lua_newuserdata(L, sizeof(kbdlib_t));
luaL_getmetatable(L, KEYBOARD);
lua_setmetatable(L, -2);
k->kbd = kbd;
return 1;
}
static int kbd_gc(lua_State *L) {
kbdlib_t *k = (kbdlib_t*)luaL_checkudata(L, 1, KEYBOARD);
if(k->kbd == NULL) {
luaL_error(L, "k->kbd == NULL ?");
}
free_keyboard(k->kbd);
k->kbd = NULL;
return 0;
}
static int kbd_load_keymap(lua_State *L) {
kbdlib_t *k = (kbdlib_t*)luaL_checkudata(L, 1, KEYBOARD);
const char* name = luaL_checkstring(L, 2);
bool ret = load_keymap(k->kbd, name);
lua_pushboolean(L, ret);
return 1;
}
static int kbd_press(lua_State *L) {
kbdlib_t *k = (kbdlib_t*)luaL_checkudata(L, 1, KEYBOARD);
int scancode = luaL_checkinteger(L, 2);
key_t key = keyboard_press(k->kbd, scancode);
lua_createtable(L, 0, 2);
setintfield(L, "flags", key.flags);
if (key.flags & KBD_CHAR)
setintfield(L, "chr", key.chr);
else
setintfield(L, "key", key.key);
return 1;
}
static int kbd_release(lua_State *L) {
kbdlib_t *k = (kbdlib_t*)luaL_checkudata(L, 1, KEYBOARD);
int scancode = luaL_checkinteger(L, 2);
key_t key = keyboard_release(k->kbd, scancode);
lua_createtable(L, 0, 2);
setintfield(L, "flags", key.flags);
if (key.flags & KBD_CHAR)
setintfield(L, "chr", key.chr);
else
setintfield(L, "key", key.key);
return 1;
}
/* }====================================================== */
static const luaL_Reg kbdlib[] = {
{"init", kbd_init},
{NULL, NULL}
};
static const luaL_Reg keyboard_meta[] = {
{"load_keymap", kbd_load_keymap},
{"press", kbd_press},
{"release", kbd_release},
{"__gc", kbd_gc},
{NULL, NULL}
};
LUAMOD_API int lx_open_kbd (lua_State *L) {
luaL_newlib(L, kbdlib);
luaL_newmetatable(L, KEYBOARD);
luaL_setfuncs(L, keyboard_meta, 0);
lua_pushvalue(L, -1);
lua_setfield(L, -2, "__index");
lua_pop(L, 1);
return 1;
}
/* vim: set sts=2 ts=2 sw=2 tw=0 et :*/
|
