src/editor/editkeys.c

   1 /* Editor key translation.
   2
   3    Copyright (C) 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003, 2004,
   4    2005, 2006, 2007 Free Software Foundation, Inc.
   5
   6    Authors: 1996, 1997 Paul Sheer
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
  21    02110-1301, USA.
  22  */
  23
  24 /** \file
  25  *  \brief Source: editor key translation
  26  */
  27
  28 #include <config.h>
  29
  30 #include <assert.h>
  31 #include <stdio.h>
  32 #include <stdarg.h>
  33 #include <sys/types.h>
  34 #include <unistd.h>
  35 #include <string.h>
  36 #include <ctype.h>
  37 #include <errno.h>
  38 #include <sys/stat.h>
  39
  40 #include <stdlib.h>
  41
  42 #include "lib/global.h"
  43 #include "lib/tty/tty.h"        /* keys */
  44 #include "lib/tty/key.h"        /* KEY_M_SHIFT */
  45 #include "lib/strutil.h"        /* str_isutf8 () */
  46 #include "lib/util.h"           /* is_printable() */
  47 #include "lib/charsets.h"       /* convert_from_input_c() */
  48
  49 #include "edit-impl.h"
  50 #include "edit-widget.h"        /* edit->macro_i */
  51 #include "editcmd_dialogs.h"
  52
  53 #include "src/cmddef.h"         /* list of commands */
  54 #include "src/keybind.h"        /* keybind_lookup_keymap_command() */
  55 #include "src/main.h"           /* display_codepage */
  56
  57 /*** global variables ****************************************************************************/
  58
  59 /*** file scope macro definitions ****************************************************************/
  60
  61 /*** file scope type declarations ****************************************************************/
  62
  63 /*** file scope variables ************************************************************************/
  64
  65 /*** file scope functions ************************************************************************/
  66 /* --------------------------------------------------------------------------------------------- */
  67
  68 /* --------------------------------------------------------------------------------------------- */
  69 /*** public functions ****************************************************************************/
  70 /* --------------------------------------------------------------------------------------------- */
  71
  72 /*
  73  * Translate the keycode into either 'command' or 'char_for_insertion'.
  74  * 'command' is one of the editor commands from cmddef.h.
  75  */
  76 int
  77 edit_translate_key (WEdit * edit, long x_key, int *cmd, int *ch)
  78 {
  79     unsigned long command = (unsigned long) CK_Insert_Char;
  80     int char_for_insertion = -1;
  81     int c;
  82
  83     /* an ordinary insertable character */
  84     if (x_key < 256)
  85     {
  86 #ifdef HAVE_CHARSET
  87         if (edit->charpoint >= 4)
  88         {
  89             edit->charpoint = 0;
  90             edit->charbuf[edit->charpoint] = '\0';
  91         }
  92         if (edit->charpoint < 4)
  93         {
  94             edit->charbuf[edit->charpoint++] = x_key;
  95             edit->charbuf[edit->charpoint] = '\0';
  96         }
  97
  98         /* input from 8-bit locale */
  99         if (!utf8_display)
 100         {
 101             /* source in 8-bit codeset */
 102             if (!edit->utf8)
 103             {
 104 #endif /* HAVE_CHARSET */
 105                 c = convert_from_input_c (x_key);
 106                 if (is_printable (c))
 107                 {
 108                     char_for_insertion = c;
 109                     goto fin;
 110                 }
 111 #ifdef HAVE_CHARSET
 112             }
 113             else
 114             {
 115                 c = convert_from_input_c (x_key);
 116                 if (is_printable (c))
 117                 {
 118                     char_for_insertion = convert_from_8bit_to_utf_c2 ((unsigned char) x_key);
 119                     goto fin;
 120                 }
 121             }
 122             /* UTF-8 locale */
 123         }
 124         else
 125         {
 126             /* source in UTF-8 codeset */
 127             if (edit->utf8)
 128             {
 129                 int res = str_is_valid_char (edit->charbuf, edit->charpoint);
 130                 if (res < 0)
 131                 {
 132                     if (res != -2)
 133                     {
 134                         edit->charpoint = 0;    /* broken multibyte char, skip */
 135                         goto fin;
 136                     }
 137                     char_for_insertion = x_key;
 138                     goto fin;
 139                 }
 140                 else
 141                 {
 142                     edit->charbuf[edit->charpoint] = '\0';
 143                     edit->charpoint = 0;
 144                     if (g_unichar_isprint (g_utf8_get_char (edit->charbuf)))
 145                     {
 146                         char_for_insertion = x_key;
 147                         goto fin;
 148                     }
 149                 }
 150
 151                 /* 8-bit source */
 152             }
 153             else
 154             {
 155                 int res = str_is_valid_char (edit->charbuf, edit->charpoint);
 156                 if (res < 0)
 157                 {
 158                     if (res != -2)
 159                     {
 160                         edit->charpoint = 0;    /* broken multibyte char, skip */
 161                         goto fin;
 162                     }
 163                     /* not finised multibyte input (in meddle multibyte utf-8 char) */
 164                     goto fin;
 165                 }
 166                 else
 167                 {
 168                     if (g_unichar_isprint (g_utf8_get_char (edit->charbuf)))
 169                     {
 170                         c = convert_from_utf_to_current (edit->charbuf);
 171                         edit->charbuf[0] = '\0';
 172                         edit->charpoint = 0;
 173                         char_for_insertion = c;
 174                         goto fin;
 175                     }
 176                     /* unprinteble utf input, skip it */
 177                     edit->charbuf[0] = '\0';
 178                     edit->charpoint = 0;
 179                 }
 180             }
 181         }
 182 #endif /* HAVE_CHARSET */
 183     }
 184
 185     /* Commands specific to the key emulation */
 186     if (edit->extmod)
 187     {
 188         edit->extmod = 0;
 189         command = keybind_lookup_keymap_command (editor_x_map, x_key);
 190     }
 191     else
 192         command = keybind_lookup_keymap_command (editor_map, x_key);
 193
 194     if (command == CK_Ignore_Key)
 195         command = CK_Insert_Char;
 196
 197   fin:
 198     *cmd = (int) command;       /* FIXME */
 199     *ch = char_for_insertion;
 200
 201     return (command == (unsigned long) CK_Insert_Char && char_for_insertion == -1) ? 0 : 1;
 202 }
 203
 204 /* --------------------------------------------------------------------------------------------- */