/* -*- mode: C; c-basic-offset: 4; indent-tabs-mode: nil; -*- */
/* vim:set et sts=4: */
/* GDK - The GIMP Drawing Kit
 * Copyright (C) 1995-1997 Peter Mattis, Spencer Kimball and Josh MacDonald
 *
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2 of the License, or (at your option) any later version.
 *
 * This library 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
 * Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library. If not, see <http://www.gnu.org/licenses/>.
 */

/*
 * Modified by the GTK+ Team and others 1997-2000.  See the AUTHORS
 * file for a list of people on the GTK+ Team.  See the ChangeLog
 * files for a list of changes.  These files are distributed with
 * GTK+ at ftp://ftp.gtk.org/pub/gtk/.
 */

/* Key handling not part of the keymap */
#include <glib.h>
#include <glib/gprintf.h>
#include <stdlib.h>
#include <string.h>
#include "ibuskeysyms.h"
#include "keyname-table.h"
#include "ibuskeys.h"

#define IBUS_NUM_KEYS G_N_ELEMENTS (gdk_keys_by_keyval)

static int
gdk_keys_keyval_compare (const void *pkey, const void *pbase)
{
  return (*(int *) pkey) - ((gdk_key *) pbase)->keyval;
}

const gchar*
ibus_keyval_name (guint keyval)
{
  static gchar buf[100];
  gdk_key *found;

  /* Check for directly encoded 24-bit UCS characters: */
  if ((keyval & 0xff000000) == 0x01000000)
    {
      g_sprintf (buf, "U+%.04X", (keyval & 0x00ffffff));
      return buf;
    }

  found = bsearch (&keyval, gdk_keys_by_keyval,
                   IBUS_NUM_KEYS, sizeof (gdk_key),
           gdk_keys_keyval_compare);

  if (found != NULL)
    {
      while ((found > gdk_keys_by_keyval) &&
             ((found - 1)->keyval == keyval))
        found--;

      return (gchar *) (keynames + found->offset);
    }
  else if (keyval != 0)
    {
      g_sprintf (buf, "%#x", keyval);
      return buf;
    }

  return NULL;
}

static int
gdk_keys_name_compare (const void *pkey, const void *pbase)
{
  return strcmp ((const char *) pkey,
         (const char *) (keynames + ((const gdk_key *) pbase)->offset));
}

guint
ibus_keyval_from_name (const gchar *keyval_name)
{
  gdk_key *found;

  g_return_val_if_fail (keyval_name != NULL, 0);

  found = bsearch (keyval_name, gdk_keys_by_name,
           IBUS_NUM_KEYS, sizeof (gdk_key),
           gdk_keys_name_compare);
  if (found != NULL)
    return found->keyval;
  else
    return IBUS_KEY_VoidSymbol;
}

static const gchar *
modifier_name[] = {
    "Shift",       // 0
    "Lock",        // 1
    "Control",    // 2
    "Alt",        // 3
    "Mod2",        // 4
    "Mod3",        // 5
    "Mod4",        // 6
    "Mod5",        // 7
    "Button1",    // 8
    "Button2",    // 9
    "Button3",    // 10
    "Button4",    // 11
    "Button5",    // 12
    NULL, NULL, NULL, NULL, NULL, // 13 - 17
    NULL, NULL, NULL, NULL, NULL, // 18 - 22
    NULL, NULL, NULL, // 23 - 25
    "Super",    // 26
    "Hyper",    // 27
    "Meta",        // 28
    NULL,        // 29
    "Release",    // 30
    NULL,        // 31
};

gchar *
ibus_key_event_to_string (guint keyval,
                          guint modifiers)
{
    guint i;
    GString *str;
    const gchar *keyval_name;

    g_return_val_if_fail (keyval != IBUS_KEY_VoidSymbol, NULL);

    keyval_name = ibus_keyval_name (keyval);
    g_return_val_if_fail (keyval_name != NULL, NULL);

    str = g_string_new ("");

    for (i = 0; i < 32; i++) {
        guint mask = 1 << i;

        if ((modifiers & mask) == 0)
            continue;
        if (modifier_name[i] == NULL)
            continue;

        g_string_append (str, modifier_name[i]);
        g_string_append_c (str, '+');
    }

    g_string_append (str, keyval_name);

    return g_string_free (str, FALSE);
}

gboolean
ibus_key_event_from_string (const gchar *string,
                            guint       *keyval,
                            guint       *modifiers)
{
    g_return_val_if_fail (string != NULL, FALSE);
    g_return_val_if_fail (keyval != NULL, FALSE);
    g_return_val_if_fail (modifiers != NULL, FALSE);

    gchar **tokens = NULL;
    gchar **p;
    gboolean retval = FALSE;

    tokens = g_strsplit (string, "+", 0);
    g_return_val_if_fail (tokens != NULL, FALSE);

    *keyval = 0;
    *modifiers = 0;

    for (p = tokens; *(p + 1) != NULL; p++) {
        gint i;
        for (i = 0; i < 32; i++) {
            if (g_strcmp0 (modifier_name[i], *p) != 0)
                continue;
            *modifiers |= (1 << i);
            break;
        }
        if (i == 32) {
            goto _out;
        }
    }

    *keyval = ibus_keyval_from_name (*p);
    if (*keyval != IBUS_KEY_VoidSymbol)
        retval = TRUE;
_out:
    g_strfreev (tokens);
    return retval;
}

guint
ibus_keyval_to_upper (guint keyval)
{
  guint result;

  ibus_keyval_convert_case (keyval, NULL, &result);

  return result;
}

guint
ibus_keyval_to_lower (guint keyval)
{
  guint result;

  ibus_keyval_convert_case (keyval, &result, NULL);

  return result;
}

void
ibus_keyval_convert_case (guint symbol,
                         guint *lower,
                         guint *upper)
{
  guint xlower, xupper;

  xlower = symbol;
  xupper = symbol;

  /* Check for directly encoded 24-bit UCS characters: */
  if ((symbol & 0xff000000) == 0x01000000)
    {
      if (lower)
        *lower = ibus_unicode_to_keyval (g_unichar_tolower (symbol & 0x00ffffff));
      if (upper)
        *upper = ibus_unicode_to_keyval (g_unichar_toupper (symbol & 0x00ffffff));
      return;
    }

  switch (symbol >> 8)
    {
    case 0: /* Latin 1 */
      if ((symbol >= IBUS_KEY_A) && (symbol <= IBUS_KEY_Z))
        xlower += (IBUS_KEY_a - IBUS_KEY_A);
      else if ((symbol >= IBUS_KEY_a) && (symbol <= IBUS_KEY_z))
        xupper -= (IBUS_KEY_a - IBUS_KEY_A);
      else if ((symbol >= IBUS_KEY_Agrave) && (symbol <= IBUS_KEY_Odiaeresis))
        xlower += (IBUS_KEY_agrave - IBUS_KEY_Agrave);
      else if ((symbol >= IBUS_KEY_agrave) && (symbol <= IBUS_KEY_odiaeresis))
        xupper -= (IBUS_KEY_agrave - IBUS_KEY_Agrave);
      else if ((symbol >= IBUS_KEY_Ooblique) && (symbol <= IBUS_KEY_Thorn))
        xlower += (IBUS_KEY_oslash - IBUS_KEY_Ooblique);
      else if ((symbol >= IBUS_KEY_oslash) && (symbol <= IBUS_KEY_thorn))
        xupper -= (IBUS_KEY_oslash - IBUS_KEY_Ooblique);
      break;

    case 1: /* Latin 2 */
      /* Assume the KeySym is a legal value (ignore discontinuities) */
      if (symbol == IBUS_KEY_Aogonek)
        xlower = IBUS_KEY_aogonek;
      else if (symbol >= IBUS_KEY_Lstroke && symbol <= IBUS_KEY_Sacute)
        xlower += (IBUS_KEY_lstroke - IBUS_KEY_Lstroke);
      else if (symbol >= IBUS_KEY_Scaron && symbol <= IBUS_KEY_Zacute)
        xlower += (IBUS_KEY_scaron - IBUS_KEY_Scaron);
      else if (symbol >= IBUS_KEY_Zcaron && symbol <= IBUS_KEY_Zabovedot)
        xlower += (IBUS_KEY_zcaron - IBUS_KEY_Zcaron);
      else if (symbol == IBUS_KEY_aogonek)
        xupper = IBUS_KEY_Aogonek;
      else if (symbol >= IBUS_KEY_lstroke && symbol <= IBUS_KEY_sacute)
        xupper -= (IBUS_KEY_lstroke - IBUS_KEY_Lstroke);
      else if (symbol >= IBUS_KEY_scaron && symbol <= IBUS_KEY_zacute)
        xupper -= (IBUS_KEY_scaron - IBUS_KEY_Scaron);
      else if (symbol >= IBUS_KEY_zcaron && symbol <= IBUS_KEY_zabovedot)
        xupper -= (IBUS_KEY_zcaron - IBUS_KEY_Zcaron);
      else if (symbol >= IBUS_KEY_Racute && symbol <= IBUS_KEY_Tcedilla)
        xlower += (IBUS_KEY_racute - IBUS_KEY_Racute);
      else if (symbol >= IBUS_KEY_racute && symbol <= IBUS_KEY_tcedilla)
        xupper -= (IBUS_KEY_racute - IBUS_KEY_Racute);
      break;

    case 2: /* Latin 3 */
      /* Assume the KeySym is a legal value (ignore discontinuities) */
      if (symbol >= IBUS_KEY_Hstroke && symbol <= IBUS_KEY_Hcircumflex)
        xlower += (IBUS_KEY_hstroke - IBUS_KEY_Hstroke);
      else if (symbol >= IBUS_KEY_Gbreve && symbol <= IBUS_KEY_Jcircumflex)
        xlower += (IBUS_KEY_gbreve - IBUS_KEY_Gbreve);
      else if (symbol >= IBUS_KEY_hstroke && symbol <= IBUS_KEY_hcircumflex)
        xupper -= (IBUS_KEY_hstroke - IBUS_KEY_Hstroke);
      else if (symbol >= IBUS_KEY_gbreve && symbol <= IBUS_KEY_jcircumflex)
        xupper -= (IBUS_KEY_gbreve - IBUS_KEY_Gbreve);
      else if (symbol >= IBUS_KEY_Cabovedot && symbol <= IBUS_KEY_Scircumflex)
        xlower += (IBUS_KEY_cabovedot - IBUS_KEY_Cabovedot);
      else if (symbol >= IBUS_KEY_cabovedot && symbol <= IBUS_KEY_scircumflex)
        xupper -= (IBUS_KEY_cabovedot - IBUS_KEY_Cabovedot);
      break;

    case 3: /* Latin 4 */
      /* Assume the KeySym is a legal value (ignore discontinuities) */
      if (symbol >= IBUS_KEY_Rcedilla && symbol <= IBUS_KEY_Tslash)
        xlower += (IBUS_KEY_rcedilla - IBUS_KEY_Rcedilla);
      else if (symbol >= IBUS_KEY_rcedilla && symbol <= IBUS_KEY_tslash)
        xupper -= (IBUS_KEY_rcedilla - IBUS_KEY_Rcedilla);
      else if (symbol == IBUS_KEY_ENG)
        xlower = IBUS_KEY_eng;
      else if (symbol == IBUS_KEY_eng)
        xupper = IBUS_KEY_ENG;
      else if (symbol >= IBUS_KEY_Amacron && symbol <= IBUS_KEY_Umacron)
        xlower += (IBUS_KEY_amacron - IBUS_KEY_Amacron);
      else if (symbol >= IBUS_KEY_amacron && symbol <= IBUS_KEY_umacron)
        xupper -= (IBUS_KEY_amacron - IBUS_KEY_Amacron);
      break;

    case 6: /* Cyrillic */
      /* Assume the KeySym is a legal value (ignore discontinuities) */
      if (symbol >= IBUS_KEY_Serbian_DJE && symbol <= IBUS_KEY_Serbian_DZE)
        xlower -= (IBUS_KEY_Serbian_DJE - IBUS_KEY_Serbian_dje);
      else if (symbol >= IBUS_KEY_Serbian_dje && symbol <= IBUS_KEY_Serbian_dze)
        xupper += (IBUS_KEY_Serbian_DJE - IBUS_KEY_Serbian_dje);
      else if (symbol >= IBUS_KEY_Cyrillic_YU && symbol <= IBUS_KEY_Cyrillic_HARDSIGN)
        xlower -= (IBUS_KEY_Cyrillic_YU - IBUS_KEY_Cyrillic_yu);
      else if (symbol >= IBUS_KEY_Cyrillic_yu && symbol <= IBUS_KEY_Cyrillic_hardsign)
        xupper += (IBUS_KEY_Cyrillic_YU - IBUS_KEY_Cyrillic_yu);
      break;

    case 7: /* Greek */
      /* Assume the KeySym is a legal value (ignore discontinuities) */
      if (symbol >= IBUS_KEY_Greek_ALPHAaccent && symbol <= IBUS_KEY_Greek_OMEGAaccent)
        xlower += (IBUS_KEY_Greek_alphaaccent - IBUS_KEY_Greek_ALPHAaccent);
      else if (symbol >= IBUS_KEY_Greek_alphaaccent && symbol <= IBUS_KEY_Greek_omegaaccent &&
               symbol != IBUS_KEY_Greek_iotaaccentdieresis &&
               symbol != IBUS_KEY_Greek_upsilonaccentdieresis)
        xupper -= (IBUS_KEY_Greek_alphaaccent - IBUS_KEY_Greek_ALPHAaccent);
      else if (symbol >= IBUS_KEY_Greek_ALPHA && symbol <= IBUS_KEY_Greek_OMEGA)
        xlower += (IBUS_KEY_Greek_alpha - IBUS_KEY_Greek_ALPHA);
      else if (symbol >= IBUS_KEY_Greek_alpha && symbol <= IBUS_KEY_Greek_omega &&
               symbol != IBUS_KEY_Greek_finalsmallsigma)
        xupper -= (IBUS_KEY_Greek_alpha - IBUS_KEY_Greek_ALPHA);
      break;
    }

  if (lower)
    *lower = xlower;
  if (upper)
    *upper = xupper;
}