cz.c

/*
 * Copyright (c) 2009 Jiri Svoboda
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * - Redistributions of source code must retain the above copyright
 *   notice, this list of conditions and the following disclaimer.
 * - Redistributions in binary form must reproduce the above copyright
 *   notice, this list of conditions and the following disclaimer in the
 *   documentation and/or other materials provided with the distribution.
 * - The name of the author may not be used to endorse or promote products
 *   derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
 * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 */

#include <kbd.h>
#include <io/console.h>
#include <io/keycode.h>
#include <bool.h>
#include <layout.h>

static void layout_reset(void);
static wchar_t layout_parse_ev(console_event_t *ev);

enum m_state {
        ms_start,
        ms_hacek,
        ms_carka
};

static enum m_state mstate;

layout_op_t cz_op = {
        layout_reset,
        layout_parse_ev
};

static wchar_t map_lcase[] = {
        [KC_Q] = 'q',
        [KC_W] = 'w',
        [KC_E] = 'e',
        [KC_R] = 'r',
        [KC_T] = 't',
        [KC_Y] = 'z',
        [KC_U] = 'u',
        [KC_I] = 'i',
        [KC_O] = 'o',
        [KC_P] = 'p',

        [KC_A] = 'a',
        [KC_S] = 's',
        [KC_D] = 'd',
        [KC_F] = 'f',
        [KC_G] = 'g',
        [KC_H] = 'h',
        [KC_J] = 'j',
        [KC_K] = 'k',
        [KC_L] = 'l',

        [KC_Z] = 'y',
        [KC_X] = 'x',
        [KC_C] = 'c',
        [KC_V] = 'v',
        [KC_B] = 'b',
        [KC_N] = 'n',
        [KC_M] = 'm',
};

static wchar_t map_ucase[] = {
        [KC_Q] = 'Q',
        [KC_W] = 'W',
        [KC_E] = 'E',
        [KC_R] = 'R',
        [KC_T] = 'T',
        [KC_Y] = 'Z',
        [KC_U] = 'U',
        [KC_I] = 'I',
        [KC_O] = 'O',
        [KC_P] = 'P',

        [KC_A] = 'A',
        [KC_S] = 'S',
        [KC_D] = 'D',
        [KC_F] = 'F',
        [KC_G] = 'G',
        [KC_H] = 'H',
        [KC_J] = 'J',
        [KC_K] = 'K',
        [KC_L] = 'L',

        [KC_Z] = 'Y',
        [KC_X] = 'X',
        [KC_C] = 'C',
        [KC_V] = 'V',
        [KC_B] = 'B',
        [KC_N] = 'N',
        [KC_M] = 'M',
};

static wchar_t map_not_shifted[] = {
        [KC_BACKTICK] = ';',

        [KC_1] = '+',

        [KC_MINUS] = '=',

        [KC_RBRACKET] = ')',

        [KC_QUOTE] = L'§',

        [KC_COMMA] = ',',
        [KC_PERIOD] = '.',
        [KC_SLASH] = '-',
};

static wchar_t map_shifted[] = {
        [KC_1] = '1',
        [KC_2] = '2',
        [KC_3] = '3',
        [KC_4] = '4',
        [KC_5] = '5',
        [KC_6] = '6',
        [KC_7] = '7',
        [KC_8] = '8',
        [KC_9] = '9',
        [KC_0] = '0',

        [KC_MINUS] = '%',

        [KC_LBRACKET] = '/',
        [KC_RBRACKET] = '(',

        [KC_SEMICOLON] = '"',
        [KC_QUOTE] = '!',
        [KC_BACKSLASH] = '\'',

        [KC_COMMA] = '?',
        [KC_PERIOD] = ':',
        [KC_SLASH] = '_',
};

static wchar_t map_ns_nocaps[] = {
        [KC_2] = L'ě',
        [KC_3] = L'š',
        [KC_4] = L'č',
        [KC_5] = L'ř',
        [KC_6] = L'ž',
        [KC_7] = L'ý',
        [KC_8] = L'á',
        [KC_9] = L'í',
        [KC_0] = L'é',

        [KC_LBRACKET] = L'ú',
        [KC_SEMICOLON] = L'ů'
};

static wchar_t map_ns_caps[] = {
        [KC_2] = L'Ě',
        [KC_3] = L'Š',
        [KC_4] = L'Č',
        [KC_5] = L'Ř',
        [KC_6] = L'Ž',
        [KC_7] = L'Ý',
        [KC_8] = L'Á',
        [KC_9] = L'Í',
        [KC_0] = L'É',

        [KC_LBRACKET] = L'Ú',
        [KC_SEMICOLON] = L'Ů'
};

static wchar_t map_neutral[] = {
        [KC_BACKSPACE] = '\b',
        [KC_TAB] = '\t',
        [KC_ENTER] = '\n',
        [KC_SPACE] = ' ',

        [KC_NSLASH] = '/',
        [KC_NTIMES] = '*',
        [KC_NMINUS] = '-',
        [KC_NPLUS] = '+',
        [KC_NENTER] = '\n'
};

static wchar_t map_numeric[] = {
        [KC_N7] = '7',
        [KC_N8] = '8',
        [KC_N9] = '9',
        [KC_N4] = '4',
        [KC_N5] = '5',
        [KC_N6] = '6',
        [KC_N1] = '1',
        [KC_N2] = '2',
        [KC_N3] = '3',

        [KC_N0] = '0',
        [KC_NPERIOD] = '.'
};

static wchar_t map_hacek_lcase[] = {
        [KC_E] = L'ě',
        [KC_R] = L'ř',
        [KC_T] = L'ť',
        [KC_Y] = L'ž',
        [KC_U] = L'ů',

        [KC_S] = L'š',
        [KC_D] = L'ď',

        [KC_C] = L'č',
        [KC_N] = L'ň'
};

static wchar_t map_hacek_ucase[] = {
        [KC_E] = L'Ě',
        [KC_R] = L'Ř',
        [KC_T] = L'Ť',
        [KC_Y] = L'Ž',
        [KC_U] = L'Ů',

        [KC_S] = L'Š',
        [KC_D] = L'Ď',

        [KC_C] = L'Č',
        [KC_N] = L'Ň'
};

static wchar_t map_carka_lcase[] = {
        [KC_E] = L'é',
        [KC_U] = L'ú',
        [KC_I] = L'í',
        [KC_O] = L'ó',

        [KC_A] = L'á',

        [KC_Z] = L'ý',
};

static wchar_t map_carka_ucase[] = {
        [KC_E] = L'É',
        [KC_U] = L'Ú',
        [KC_I] = L'Í',
        [KC_O] = L'Ó',

        [KC_A] = L'Á',

        [KC_Z] = L'Ý',
};

static wchar_t translate(unsigned int key, wchar_t *map, size_t map_length)
{
        if (key >= map_length)
                return 0;
        return map[key];
}

static wchar_t parse_ms_hacek(console_event_t *ev)
{
        wchar_t c;

        mstate = ms_start;

        /* Produce no characters when Ctrl or Alt is pressed. */
        if ((ev->mods & (KM_CTRL | KM_ALT)) != 0)
                return 0;

        if (((ev->mods & KM_SHIFT) != 0) ^ ((ev->mods & KM_CAPS_LOCK) != 0))
                c = translate(ev->key, map_hacek_ucase, sizeof(map_hacek_ucase) / sizeof(wchar_t));
        else
                c = translate(ev->key, map_hacek_lcase, sizeof(map_hacek_lcase) / sizeof(wchar_t));

        return c;
}

static wchar_t parse_ms_carka(console_event_t *ev)
{
        wchar_t c;

        mstate = ms_start;

        /* Produce no characters when Ctrl or Alt is pressed. */
        if ((ev->mods & (KM_CTRL | KM_ALT)) != 0)
                return 0;

        if (((ev->mods & KM_SHIFT) != 0) ^ ((ev->mods & KM_CAPS_LOCK) != 0))
                c = translate(ev->key, map_carka_ucase, sizeof(map_carka_ucase) / sizeof(wchar_t));
        else
                c = translate(ev->key, map_carka_lcase, sizeof(map_carka_lcase) / sizeof(wchar_t));

        return c;
}

static wchar_t parse_ms_start(console_event_t *ev)
{
        wchar_t c;

        /* Produce no characters when Ctrl or Alt is pressed. */
        if ((ev->mods & (KM_CTRL | KM_ALT)) != 0)
                return 0;

        if (ev->key == KC_EQUALS) {
                if ((ev->mods & KM_SHIFT) != 0)
                        mstate = ms_hacek;
                else
                        mstate = ms_carka;

                return 0;
        }

        c = translate(ev->key, map_neutral, sizeof(map_neutral) / sizeof(wchar_t));
        if (c != 0)
                return c;

        if ((ev->mods & KM_SHIFT) == 0) {
                if ((ev->mods & KM_CAPS_LOCK) != 0)
                        c = translate(ev->key, map_ns_caps, sizeof(map_ns_caps) / sizeof(wchar_t));
                else
                        c = translate(ev->key, map_ns_nocaps, sizeof(map_ns_nocaps) / sizeof(wchar_t));

                if (c != 0)
                        return c;
        }       

        if (((ev->mods & KM_SHIFT) != 0) ^ ((ev->mods & KM_CAPS_LOCK) != 0))
                c = translate(ev->key, map_ucase, sizeof(map_ucase) / sizeof(wchar_t));
        else
                c = translate(ev->key, map_lcase, sizeof(map_lcase) / sizeof(wchar_t));

        if (c != 0)
                return c;

        if ((ev->mods & KM_SHIFT) != 0)
                c = translate(ev->key, map_shifted, sizeof(map_shifted) / sizeof(wchar_t));
        else
                c = translate(ev->key, map_not_shifted, sizeof(map_not_shifted) / sizeof(wchar_t));

        if (c != 0)
                return c;

        if ((ev->mods & KM_NUM_LOCK) != 0)
                c = translate(ev->key, map_numeric, sizeof(map_numeric) / sizeof(wchar_t));
        else
                c = 0;

        return c;
}

static bool key_is_mod(unsigned key)
{
        switch (key) {
        case KC_LSHIFT:
        case KC_RSHIFT:
        case KC_LALT:
        case KC_RALT:
        case KC_LCTRL:
        case KC_RCTRL:
                return true;
        default:
                return false;
        }
}

static void layout_reset(void)
{
        mstate = ms_start;
}

static wchar_t layout_parse_ev(console_event_t *ev)
{
        if (ev->type != KEY_PRESS)
                return 0;
        
        if (key_is_mod(ev->key))
                return 0;
        
        switch (mstate) {
        case ms_start:
                return parse_ms_start(ev);
        case ms_hacek:
                return parse_ms_hacek(ev);
        case ms_carka:
                return parse_ms_carka(ev);
        }
        
        return 0;
}

---