objects/key.c

   1 /*
   2  * key.c - Key bindings configuration management
   3  *
   4  * Copyright © 2008-2009 Julien Danjou <julien@danjou.info>
   5  * Copyright © 2008 Pierre Habouzit <madcoder@debian.org>
   6  *
   7  * This program is free software; you can redistribute it and/or modify
   8  * it under the terms of the GNU General Public License as published by
   9  * the Free Software Foundation; either version 2 of the License, or
  10  * (at your option) any later version.
  11  *
  12  * This program is distributed in the hope that it will be useful,
  13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  15  * GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License along
  18  * with this program; if not, write to the Free Software Foundation, Inc.,
  19  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  20  *
  21  */
  22
  23 #include "objects/key.h"
  24 #include "common/xutil.h"
  25 #include "keyresolv.h"
  26
  27 /* XStringToKeysym() and XKeysymToString */
  28 #include <X11/Xlib.h>
  29
  30 static void
  31 luaA_keystore(lua_State *L, int ud, const char *str, ssize_t len)
  32 {
  33     keyb_t *key = luaA_checkudata(L, ud, &key_class);
  34     if(len)
  35     {
  36         if(*str != '#')
  37         {
  38             key->keysym = XStringToKeysym(str);
  39             if(!key->keysym)
  40             {
  41                 if(len == 1)
  42                     key->keysym = *str;
  43                 else
  44                     warn("there's no keysym named \"%s\"", str);
  45             }
  46             key->keycode = 0;
  47         }
  48         else
  49         {
  50             key->keycode = atoi(str + 1);
  51             key->keysym = 0;
  52         }
  53         luaA_object_emit_signal(L, ud, "property::key", 0);
  54     }
  55 }
  56
  57 /** Create a new key object.
  58  * \param L The Lua VM state.
  59  * \return The number of elements pushed on stack.
  60  */
  61 static int
  62 luaA_key_new(lua_State *L)
  63 {
  64     return luaA_class_new(L, &key_class);
  65 }
  66
  67 /** Set a key array with a Lua table.
  68  * \param L The Lua VM state.
  69  * \param oidx The index of the object to store items into.
  70  * \param idx The index of the Lua table.
  71  * \param keys The array key to fill.
  72  */
  73 void
  74 luaA_key_array_set(lua_State *L, int oidx, int idx, key_array_t *keys)
  75 {
  76     luaA_checktable(L, idx);
  77
  78     foreach(key, *keys)
  79         luaA_object_unref_item(L, oidx, *key);
  80
  81     key_array_wipe(keys);
  82     key_array_init(keys);
  83
  84     lua_pushnil(L);
  85     while(lua_next(L, idx))
  86         if(luaA_toudata(L, -1, &key_class))
  87             key_array_append(keys, luaA_object_ref_item(L, oidx, -1));
  88         else
  89             lua_pop(L, 1);
  90 }
  91
  92 /** Push an array of key as an Lua table onto the stack.
  93  * \param L The Lua VM state.
  94  * \param oidx The index of the object to get items from.
  95  * \param keys The key array to push.
  96  * \return The number of elements pushed on stack.
  97  */
  98 int
  99 luaA_key_array_get(lua_State *L, int oidx, key_array_t *keys)
 100 {
 101     lua_createtable(L, keys->len, 0);
 102     for(int i = 0; i < keys->len; i++)
 103     {
 104         luaA_object_push_item(L, oidx, keys->tab[i]);
 105         lua_rawseti(L, -2, i + 1);
 106     }
 107     return 1;
 108 }
 109
 110 /** Push a modifier set to a Lua table.
 111  * \param L The Lua VM state.
 112  * \param modifiers The modifier.
 113  * \return The number of elements pushed on stack.
 114  */
 115 int
 116 luaA_pushmodifiers(lua_State *L, uint16_t modifiers)
 117 {
 118     lua_newtable(L);
 119     {
 120         int i = 1;
 121         for(uint32_t maski = XCB_MOD_MASK_SHIFT; maski <= XCB_BUTTON_MASK_ANY; maski <<= 1)
 122             if(maski & modifiers)
 123             {
 124                 const char *mod;
 125                 size_t slen;
 126                 xutil_key_mask_tostr(maski, &mod, &slen);
 127                 lua_pushlstring(L, mod, slen);
 128                 lua_rawseti(L, -2, i++);
 129             }
 130     }
 131     return 1;
 132 }
 133
 134 /** Take a modifier table from the stack and return modifiers mask.
 135  * \param L The Lua VM state.
 136  * \param ud The index of the table.
 137  * \return The mask value.
 138  */
 139 uint16_t
 140 luaA_tomodifiers(lua_State *L, int ud)
 141 {
 142     luaA_checktable(L, ud);
 143     ssize_t len = luaA_rawlen(L, ud);
 144     uint16_t mod = XCB_NONE;
 145     for(int i = 1; i <= len; i++)
 146     {
 147         lua_rawgeti(L, ud, i);
 148         const char *key = luaL_checkstring(L, -1);
 149         mod |= xutil_key_mask_fromstr(key);
 150         lua_pop(L, 1);
 151     }
 152     return mod;
 153 }
 154
 155 static int
 156 luaA_key_set_modifiers(lua_State *L, keyb_t *k)
 157 {
 158     k->modifiers = luaA_tomodifiers(L, -1);
 159     luaA_object_emit_signal(L, -3, "property::modifiers", 0);
 160     return 0;
 161 }
 162
 163 LUA_OBJECT_EXPORT_PROPERTY(key, keyb_t, modifiers, luaA_pushmodifiers)
 164
 165 static int
 166 luaA_key_get_key(lua_State *L, keyb_t *k)
 167 {
 168     if(k->keycode)
 169     {
 170         char buf[12];
 171         int slen = snprintf(buf, sizeof(buf), "#%u", k->keycode);
 172         lua_pushlstring(L, buf, slen);
 173     }
 174     else
 175     {
 176         char buf[MAX(MB_LEN_MAX, 32)];
 177         if(!keyresolv_keysym_to_string(k->keysym, buf, countof(buf)))
 178             return 0;
 179
 180         lua_pushstring(L, buf);
 181     }
 182     return 1;
 183 }
 184
 185 static int
 186 luaA_key_get_keysym(lua_State *L, keyb_t *k)
 187 {
 188     lua_pushstring(L, XKeysymToString(k->keysym));
 189     return 1;
 190 }
 191
 192 static int
 193 luaA_key_set_key(lua_State *L, keyb_t *k)
 194 {
 195     size_t klen;
 196     const char *key = luaL_checklstring(L, -1, &klen);
 197     luaA_keystore(L, -3, key, klen);
 198     return 0;
 199 }
 200
 201 void
 202 key_class_setup(lua_State *L)
 203 {
 204     static const struct luaL_Reg key_methods[] =
 205     {
 206         LUA_CLASS_METHODS(key)
 207         { "__call", luaA_key_new },
 208         { NULL, NULL }
 209     };
 210
 211     static const struct luaL_Reg key_meta[] =
 212     {
 213         LUA_OBJECT_META(key)
 214         LUA_CLASS_META
 215         { NULL, NULL },
 216     };
 217
 218     luaA_class_setup(L, &key_class, "key", NULL,
 219                      (lua_class_allocator_t) key_new, NULL, NULL,
 220                      luaA_class_index_miss_property, luaA_class_newindex_miss_property,
 221                      key_methods, key_meta);
 222     luaA_class_add_property(&key_class, "key",
 223                             (lua_class_propfunc_t) luaA_key_set_key,
 224                             (lua_class_propfunc_t) luaA_key_get_key,
 225                             (lua_class_propfunc_t) luaA_key_set_key);
 226     luaA_class_add_property(&key_class, "keysym",
 227                             NULL,
 228                             (lua_class_propfunc_t) luaA_key_get_keysym,
 229                             NULL);
 230     luaA_class_add_property(&key_class, "modifiers",
 231                             (lua_class_propfunc_t) luaA_key_set_modifiers,
 232                             (lua_class_propfunc_t) luaA_key_get_modifiers,
 233                             (lua_class_propfunc_t) luaA_key_set_modifiers);
 234
 235     signal_add(&key_class.signals, "press");
 236     signal_add(&key_class.signals, "property::key");
 237     signal_add(&key_class.signals, "property::modifiers");
 238     signal_add(&key_class.signals, "release");
 239 }
 240
 241 // vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80