/*

* key.c - Key bindings configuration management

*

* Copyright © 2008-2009 Julien Danjou <julien@danjou.info>

* Copyright © 2008 Pierre Habouzit <madcoder@debian.org>

*

* 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 <X11/Xlib.h>

#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 = luaA_rawlen(L, ud);

uint16_t mod = XCB_NONE;

for(int i = 1; i <= len; i++)

{

lua_rawgeti(L, ud, i);

const char *key = luaL_checkstring(L, -1);

mod |= xutil_key_mask_fromstr(key);

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, "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, "keysym",

NULL,

(lua_class_propfunc_t) luaA_key_get_keysym,

NULL);

luaA_class_add_property(&key_class, "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);

signal_add(&key_class.signals, "press");

signal_add(&key_class.signals, "property::key");

signal_add(&key_class.signals, "property::modifiers");

signal_add(&key_class.signals, "release");

}

// vim: filetype=c:expandtab:shiftwidth=4:tabstop=8:softtabstop=4:textwidth=80