/* * key.c - Key bindings configuration management * * Copyright © 2008-2009 Julien Danjou * Copyright © 2008 Pierre Habouzit * * This program is free software; you can redistribute it and/or modify * it under the terms of the GNU General Public License as published by * the Free Software Foundation; either version 2 of the License, or * (at your option) any later version. * * This program is distributed in the hope that it will be useful, * but WITHOUT ANY WARRANTY; without even the implied warranty of * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * GNU General Public License for more details. * * You should have received a copy of the GNU General Public License along * with this program; if not, write to the Free Software Foundation, Inc., * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. * */ /* XStringToKeysym() and XKeysymToString */ #include #include "globalconf.h" #include "luaa.h" #include "keyresolv.h" #include "common/xutil.h" #include "common/luaobject.h" static void luaA_keystore(lua_State *L, int ud, const char *str, ssize_t len) { keyb_t *key = luaA_checkudata(L, ud, &key_class); if(len) { if(*str != '#') { key->keysym = XStringToKeysym(str); if(!key->keysym) { if(len == 1) key->keysym = *str; else warn("there's no keysym named \"%s\"", str); } key->keycode = 0; } else { key->keycode = atoi(str + 1); key->keysym = 0; } luaA_object_emit_signal(L, ud, "property::key", 0); } } /** Create a new key object. * \param L The Lua VM state. * \return The number of elements pushed on stack. */ static int luaA_key_new(lua_State *L) { return luaA_class_new(L, &key_class); } /** Set a key array with a Lua table. * \param L The Lua VM state. * \param oidx The index of the object to store items into. * \param idx The index of the Lua table. * \param keys The array key to fill. */ void luaA_key_array_set(lua_State *L, int oidx, int idx, key_array_t *keys) { luaA_checktable(L, idx); foreach(key, *keys) luaA_object_unref_item(L, oidx, *key); key_array_wipe(keys); key_array_init(keys); lua_pushnil(L); while(lua_next(L, idx)) if(luaA_toudata(L, -1, &key_class)) key_array_append(keys, luaA_object_ref_item(L, oidx, -1)); else lua_pop(L, 1); } /** Push an array of key as an Lua table onto the stack. * \param L The Lua VM state. * \param oidx The index of the object to get items from. * \param keys The key array to push. * \return The number of elements pushed on stack. */ int luaA_key_array_get(lua_State *L, int oidx, key_array_t *keys) { lua_createtable(L, keys->len, 0); for(int i = 0; i < keys->len; i++) { luaA_object_push_item(L, oidx, keys->tab[i]); lua_rawseti(L, -2, i + 1); } return 1; } /** Push a modifier set to a Lua table. * \param L The Lua VM state. * \param modifiers The modifier. * \return The number of elements pushed on stack. */ int luaA_pushmodifiers(lua_State *L, uint16_t modifiers) { lua_newtable(L); { int i = 1; for(uint32_t maski = XCB_MOD_MASK_SHIFT; maski <= XCB_BUTTON_MASK_ANY; maski <<= 1) if(maski & modifiers) { const char *mod; size_t slen; xutil_key_mask_tostr(maski, &mod, &slen); lua_pushlstring(L, mod, slen); lua_rawseti(L, -2, i++); } } return 1; } /** Take a modifier table from the stack and return modifiers mask. * \param L The Lua VM state. * \param ud The index of the table. * \return The mask value. */ uint16_t luaA_tomodifiers(lua_State *L, int ud) { luaA_checktable(L, ud); ssize_t len = lua_objlen(L, ud); uint16_t mod = XCB_NONE; for(int i = 1; i <= len; i++) { lua_rawgeti(L, ud, i); size_t blen; const char *key = luaL_checklstring(L, -1, &blen); mod |= xutil_key_mask_fromstr(key, blen); lua_pop(L, 1); } return mod; } static int luaA_key_set_modifiers(lua_State *L, keyb_t *k) { k->modifiers = luaA_tomodifiers(L, -1); luaA_object_emit_signal(L, -3, "property::modifiers", 0); return 0; } LUA_OBJECT_EXPORT_PROPERTY(key, keyb_t, modifiers, luaA_pushmodifiers) static int luaA_key_get_key(lua_State *L, keyb_t *k) { if(k->keycode) { char buf[12]; int slen = snprintf(buf, sizeof(buf), "#%u", k->keycode); lua_pushlstring(L, buf, slen); } else { char buf[MAX(MB_LEN_MAX, 32)]; if(!keyresolv_keysym_to_string(k->keysym, buf, countof(buf))) return 0; lua_pushstring(L, buf); } return 1; } static int luaA_key_get_keysym(lua_State *L, keyb_t *k) { lua_pushstring(L, XKeysymToString(k->keysym)); return 1; } static int luaA_key_set_key(lua_State *L, keyb_t *k) { size_t klen; const char *key = luaL_checklstring(L, -1, &klen); luaA_keystore(L, -3, key, klen); return 0; } void key_class_setup(lua_State *L) { static const struct luaL_reg key_methods[] = { LUA_CLASS_METHODS(key) { "__call", luaA_key_new }, { NULL, NULL } }; static const struct luaL_reg key_meta[] = { LUA_OBJECT_META(key) LUA_CLASS_META { NULL, NULL }, }; luaA_class_setup(L, &key_class, "key", NULL, (lua_class_allocator_t) key_new, NULL, NULL, luaA_class_index_miss_property, luaA_class_newindex_miss_property, key_methods, key_meta); luaA_class_add_property(&key_class, A_TK_KEY, (lua_class_propfunc_t) luaA_key_set_key, (lua_class_propfunc_t) luaA_key_get_key, (lua_class_propfunc_t) luaA_key_set_key); luaA_class_add_property(&key_class, A_TK_KEYSYM, NULL, (lua_class_propfunc_t) luaA_key_get_keysym, NULL); luaA_class_add_property(&key_class, A_TK_MODIFIERS, (lua_class_propfunc_t) luaA_key_set_modifiers, (lua_class_propfunc_t) luaA_key_get_modifiers, (lua_class_propfunc_t) luaA_key_set_modifiers); } // vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:encoding=utf-8:textwidth=80