Edit
kc3-lang/libxkbcommon/src/xkbcomp/keycodes.c
Branch :
Daniel Stone
- src/xkbcomp/keycodes.c
-
/************************************************************ * Copyright (c) 1994 by Silicon Graphics Computer Systems, Inc. * * Permission to use, copy, modify, and distribute this * software and its documentation for any purpose and without * fee is hereby granted, provided that the above copyright * notice appear in all copies and that both that copyright * notice and this permission notice appear in supporting * documentation, and that the name of Silicon Graphics not be * used in advertising or publicity pertaining to distribution * of the software without specific prior written permission. * Silicon Graphics makes no representation about the suitability * of this software for any purpose. It is provided "as is" * without any express or implied warranty. * * SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY * AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON * GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH * THE USE OR PERFORMANCE OF THIS SOFTWARE. * ********************************************************/ #include "xkbcomp-priv.h" #include "text.h" #include "expr.h" #include "keycodes.h" #include "include.h" /* * The xkb_keycodes section * ======================== * * This is the simplest section type, and is the first one to be * compiled. The purpose of this is mostly to map between the * hardware/evdev scancodes and xkb keycodes. Each key is given a name * of up to 4 letters, by which it can be referred to later, e.g. in the * symbols section. * * Keycode statements * ------------------ * Statements of the form: * <TLDE> = 49; * <AE01> = 10; * * The above would let 49 and 10 be valid keycodes in the keymap, and * assign them the names TLDE and AE01 respectively. The format <WXYZ> is * always used to refer to a key by name. * * [ The naming convention <AE01> just denoted the position of the key * in the main alphanumric section of the keyboard, with the two letters * specifying the row and the two digits specifying the column, from * the bottom left.] * * In the common case this just maps to the evdev scancodes from * /usr/include/linux/input.h, e.g. the following definitions: * #define KEY_GRAVE 41 * #define KEY_1 2 * Similar definitions appear in the xf86-input-keyboard driver. Note * that in all current keymaps there's a constant offset of 8 (for * historical reasons). * * If there's a conflict, like the same name given to different keycodes, * or same keycode given different names, it is resolved according to the * merge mode which applies to the definitions. * * The reason for the 4 characters limit is that the name is sometimes * converted to an unsigned long (in a direct mapping), instead of a char * array (see KeyNameToLong, LongToKeyName). * * Alias statements * ---------------- * Statements of the form: * alias <MENU> = <COMP>; * * Allows to refer to a previously defined key (here <COMP>) by another * name (here <MENU>). Conflicts are handled similarly. * * Indicator name statements * ------------------------- * Statements of the form: * indicator 1 = "Caps Lock"; * indicator 2 = "Num Lock"; * indicator 3 = "Scroll Lock"; * * Assigns a name the indicator (i.e. keyboard LED) with the given index. * The amount of possible indicators is predetermined (XKB_NUM_INDICATORS). * The indicator may be referred by this name later in the compat section * and by the user. * * Effect on the keymap * -------------------- * After all of the xkb_keycodes sections have been compiled, the * following members of struct xkb_keymap are finalized: * xkb_keycode_t min_key_code; * xkb_keycode_t max_key_code; * darray(struct xkb_key_alias) key_aliases; * char *keycodes_section_name; * The 'name' field of indicators declared in xkb_keycodes: * struct xkb_indicator_map indicators[XKB_NUM_INDICATORS]; * Further, the array of keys: * darray(struct xkb_key) keys; * had been resized to its final size (i.e. all of the xkb_key objects are * referable by their keycode). However the objects themselves do not * contain any useful information besides the key name at this point. */ typedef struct _AliasInfo { enum merge_mode merge; unsigned file_id; unsigned long alias; unsigned long real; } AliasInfo; typedef struct { unsigned int file_id; unsigned long name; } KeyNameInfo; typedef struct _IndicatorNameInfo { enum merge_mode merge; unsigned file_id; xkb_atom_t name; } IndicatorNameInfo; typedef struct _KeyNamesInfo { char *name; /* e.g. evdev+aliases(qwerty) */ int errorCount; unsigned file_id; enum merge_mode merge; xkb_keycode_t min_key_code; xkb_keycode_t max_key_code; darray(KeyNameInfo) key_names; IndicatorNameInfo indicator_names[XKB_NUM_INDICATORS]; darray(AliasInfo) aliases; struct xkb_context *ctx; } KeyNamesInfo; static void InitAliasInfo(AliasInfo *info, enum merge_mode merge, unsigned file_id, char alias[XKB_KEY_NAME_LENGTH], char real[XKB_KEY_NAME_LENGTH]) { memset(info, 0, sizeof(*info)); info->merge = merge; info->file_id = file_id; info->alias = KeyNameToLong(alias); info->real = KeyNameToLong(real); } static IndicatorNameInfo * FindIndicatorByName(KeyNamesInfo *info, xkb_atom_t name, xkb_led_index_t *idx_out) { xkb_led_index_t idx; for (idx = 0; idx < XKB_NUM_INDICATORS; idx++) { if (info->indicator_names[idx].name == name) { *idx_out = idx; return &info->indicator_names[idx]; } } return NULL; } static bool AddIndicatorName(KeyNamesInfo *info, enum merge_mode merge, IndicatorNameInfo *new, xkb_led_index_t new_idx) { xkb_led_index_t old_idx; IndicatorNameInfo *old; bool replace, report; int verbosity = xkb_get_log_verbosity(info->ctx); replace = (merge == MERGE_REPLACE) || (merge == MERGE_OVERRIDE); old = FindIndicatorByName(info, new->name, &old_idx); if (old) { report = ((old->file_id == new->file_id && verbosity > 0) || verbosity > 9); if (old_idx == new_idx) { if (report) log_warn(info->ctx, "Multiple indicators named %s; " "Identical definitions ignored\n", xkb_atom_text(info->ctx, new->name)); return true; } if (report) log_warn(info->ctx, "Multiple indicators named %s; " "Using %d, ignoring %d\n", xkb_atom_text(info->ctx, new->name), (replace ? old_idx + 1 : new_idx + 1), (replace ? new_idx + 1 : old_idx + 1)); /* * XXX: If in the next check we ignore new, than we will have * deleted this old for nothing! */ if (replace) memset(old, 0, sizeof(*old)); } old = &info->indicator_names[new_idx]; if (old->name != XKB_ATOM_NONE) { report = ((old->file_id == new->file_id && verbosity > 0) || verbosity > 9); if (old->name == new->name) { if (report) log_warn(info->ctx, "Multiple names for indicator %d; " "Identical definitions ignored\n", new_idx + 1); } else if (replace) { if (report) log_warn(info->ctx, "Multiple names for indicator %d; " "Using %s, ignoring %s\n", new_idx + 1, xkb_atom_text(info->ctx, new->name), xkb_atom_text(info->ctx, old->name)); old->name = new->name; } else { if (report) log_warn(info->ctx, "Multiple names for indicator %d; " "Using %s, ignoring %s\n", new_idx + 1, xkb_atom_text(info->ctx, old->name), xkb_atom_text(info->ctx, new->name)); } return true; } info->indicator_names[new_idx] = *new; return true; } static void ClearKeyNamesInfo(KeyNamesInfo *info) { free(info->name); darray_free(info->key_names); darray_free(info->aliases); } static void InitKeyNamesInfo(KeyNamesInfo *info, struct xkb_context *ctx, unsigned file_id) { memset(info, 0, sizeof(*info)); info->ctx = ctx; info->merge = MERGE_DEFAULT; info->file_id = file_id; info->min_key_code = XKB_KEYCODE_MAX; } static xkb_keycode_t FindKeyByLong(KeyNamesInfo * info, unsigned long name) { xkb_keycode_t i; for (i = info->min_key_code; i <= info->max_key_code; i++) if (darray_item(info->key_names, i).name == name) return i; return XKB_KEYCODE_INVALID; } static bool AddKeyName(KeyNamesInfo *info, xkb_keycode_t kc, unsigned long name, enum merge_mode merge, unsigned file_id, bool report) { KeyNameInfo *namei; xkb_keycode_t old; int verbosity = xkb_get_log_verbosity(info->ctx); if (kc >= darray_size(info->key_names)) darray_resize0(info->key_names, kc + 1); info->min_key_code = MIN(info->min_key_code, kc); info->max_key_code = MAX(info->max_key_code, kc); namei = &darray_item(info->key_names, kc); report = report && ((verbosity > 0 && file_id == namei->file_id) || verbosity > 7); if (namei->name != 0) { const char *lname = LongKeyNameText(namei->name); const char *kname = LongKeyNameText(name); if (namei->name == name) { if (report) log_warn(info->ctx, "Multiple identical key name definitions; " "Later occurences of \"%s = %d\" ignored\n", lname, kc); return true; } else if (merge == MERGE_AUGMENT) { if (report) log_warn(info->ctx, "Multiple names for keycode %d; " "Using %s, ignoring %s\n", kc, lname, kname); return true; } else { if (report) log_warn(info->ctx, "Multiple names for keycode %d; " "Using %s, ignoring %s\n", kc, kname, lname); namei->name = 0; namei->file_id = 0; } } old = FindKeyByLong(info, name); if (old != XKB_KEYCODE_INVALID && old != kc) { const char *kname = LongKeyNameText(name); if (merge == MERGE_OVERRIDE) { darray_item(info->key_names, old).name = 0; darray_item(info->key_names, old).file_id = 0; if (report) log_warn(info->ctx, "Key name %s assigned to multiple keys; " "Using %d, ignoring %d\n", kname, kc, old); } else { if (report) log_vrb(info->ctx, 3, "Key name %s assigned to multiple keys; " "Using %d, ignoring %d\n", kname, old, kc); return true; } } namei->name = name; namei->file_id = file_id; return true; } /***====================================================================***/ static int HandleAliasDef(KeyNamesInfo *info, KeyAliasDef *def, enum merge_mode merge, unsigned file_id); static bool MergeAliases(KeyNamesInfo *into, KeyNamesInfo *from, enum merge_mode merge) { AliasInfo *alias; KeyAliasDef def; if (darray_empty(from->aliases)) return true; if (darray_empty(into->aliases)) { into->aliases = from->aliases; darray_init(from->aliases); return true; } memset(&def, 0, sizeof(def)); darray_foreach(alias, from->aliases) { def.merge = (merge == MERGE_DEFAULT) ? alias->merge : merge; LongToKeyName(alias->alias, def.alias); LongToKeyName(alias->real, def.real); if (!HandleAliasDef(into, &def, def.merge, alias->file_id)) return false; } return true; } static void MergeIncludedKeycodes(KeyNamesInfo *into, KeyNamesInfo *from, enum merge_mode merge) { xkb_keycode_t i; xkb_led_index_t idx; if (from->errorCount > 0) { into->errorCount += from->errorCount; return; } if (into->name == NULL) { into->name = from->name; from->name = NULL; } if (darray_size(into->key_names) < darray_size(from->key_names)) darray_resize0(into->key_names, darray_size(from->key_names)); for (i = from->min_key_code; i <= from->max_key_code; i++) { unsigned long name = darray_item(from->key_names, i).name; if (name == 0) continue; if (!AddKeyName(into, i, name, merge, from->file_id, false)) into->errorCount++; } for (idx = 0; idx < XKB_NUM_INDICATORS; idx++) { IndicatorNameInfo *led = &from->indicator_names[idx]; if (led->name == XKB_ATOM_NONE) continue; led->merge = (merge == MERGE_DEFAULT ? led->merge : merge); if (!AddIndicatorName(into, led->merge, led, idx)) into->errorCount++; } if (!MergeAliases(into, from, merge)) into->errorCount++; } static void HandleKeycodesFile(KeyNamesInfo *info, XkbFile *file, enum merge_mode merge); static bool HandleIncludeKeycodes(KeyNamesInfo *info, IncludeStmt *stmt) { enum merge_mode merge = MERGE_DEFAULT; XkbFile *rtrn; KeyNamesInfo included, next_incl; InitKeyNamesInfo(&included, info->ctx, info->file_id); if (stmt->stmt) { free(included.name); included.name = stmt->stmt; stmt->stmt = NULL; } for (; stmt; stmt = stmt->next_incl) { if (!ProcessIncludeFile(info->ctx, stmt, FILE_TYPE_KEYCODES, &rtrn, &merge)) { info->errorCount += 10; ClearKeyNamesInfo(&included); return false; } InitKeyNamesInfo(&next_incl, info->ctx, rtrn->id); HandleKeycodesFile(&next_incl, rtrn, MERGE_OVERRIDE); MergeIncludedKeycodes(&included, &next_incl, merge); ClearKeyNamesInfo(&next_incl); FreeXkbFile(rtrn); } MergeIncludedKeycodes(info, &included, merge); ClearKeyNamesInfo(&included); return (info->errorCount == 0); } static int HandleKeycodeDef(KeyNamesInfo *info, KeycodeDef *stmt, enum merge_mode merge) { if (stmt->merge != MERGE_DEFAULT) { if (stmt->merge == MERGE_REPLACE) merge = MERGE_OVERRIDE; else merge = stmt->merge; } return AddKeyName(info, stmt->value, KeyNameToLong(stmt->name), merge, info->file_id, true); } static void HandleAliasCollision(KeyNamesInfo *info, AliasInfo *old, AliasInfo *new) { int verbosity = xkb_get_log_verbosity(info->ctx); bool report = ((new->file_id == old->file_id && verbosity > 0) || verbosity > 9); if (new->real == old->real) { if (report) log_warn(info->ctx, "Alias of %s for %s declared more than once; " "First definition ignored\n", LongKeyNameText(new->alias), LongKeyNameText(new->real)); } else { unsigned long use, ignore; use = (new->merge == MERGE_AUGMENT ? old->real : new->real); ignore = (new->merge == MERGE_AUGMENT ? new->real : old->real); if (report) log_warn(info->ctx, "Multiple definitions for alias %s; " "Using %s, ignoring %s\n", LongKeyNameText(old->alias), LongKeyNameText(use), LongKeyNameText(ignore)); old->real = use; } old->file_id = new->file_id; old->merge = new->merge; } static int HandleAliasDef(KeyNamesInfo *info, KeyAliasDef *def, enum merge_mode merge, unsigned file_id) { AliasInfo *alias, new; darray_foreach(alias, info->aliases) { if (alias->alias == KeyNameToLong(def->alias)) { InitAliasInfo(&new, merge, file_id, def->alias, def->real); HandleAliasCollision(info, alias, &new); return true; } } InitAliasInfo(&new, merge, file_id, def->alias, def->real); darray_append(info->aliases, new); return true; } static int HandleKeyNameVar(KeyNamesInfo *info, VarDef *stmt) { const char *elem, *field; ExprDef *arrayNdx; if (!ExprResolveLhs(info->ctx, stmt->name, &elem, &field, &arrayNdx)) return false; if (elem) { log_err(info->ctx, "Unknown element %s encountered; " "Default for field %s ignored\n", elem, field); return false; } if (!istreq(field, "minimum") && !istreq(field, "maximum")) { log_err(info->ctx, "Unknown field encountered; " "Assigment to field %s ignored\n", field); return false; } /* We ignore explicit min/max statements, we always use computed. */ return true; } static int HandleIndicatorNameDef(KeyNamesInfo *info, IndicatorNameDef *def, enum merge_mode merge) { IndicatorNameInfo ii; xkb_atom_t name; if (def->ndx < 1 || def->ndx > XKB_NUM_INDICATORS) { info->errorCount++; log_err(info->ctx, "Name specified for illegal indicator index %d\n; Ignored\n", def->ndx); return false; } if (!ExprResolveString(info->ctx, def->name, &name)) { char buf[20]; snprintf(buf, sizeof(buf), "%d", def->ndx); info->errorCount++; return ReportBadType(info->ctx, "indicator", "name", buf, "string"); } ii.merge = info->merge; ii.file_id = info->file_id; ii.name = name; return AddIndicatorName(info, merge, &ii, def->ndx - 1); } static void HandleKeycodesFile(KeyNamesInfo *info, XkbFile *file, enum merge_mode merge) { ParseCommon *stmt; bool ok; free(info->name); info->name = strdup_safe(file->name); for (stmt = file->defs; stmt; stmt = stmt->next) { switch (stmt->type) { case STMT_INCLUDE: ok = HandleIncludeKeycodes(info, (IncludeStmt *) stmt); break; case STMT_KEYCODE: ok = HandleKeycodeDef(info, (KeycodeDef *) stmt, merge); break; case STMT_ALIAS: ok = HandleAliasDef(info, (KeyAliasDef *) stmt, merge, info->file_id); break; case STMT_VAR: ok = HandleKeyNameVar(info, (VarDef *) stmt); break; case STMT_INDICATOR_NAME: ok = HandleIndicatorNameDef(info, (IndicatorNameDef *) stmt, merge); break; default: log_err(info->ctx, "Keycode files may define key and indicator names only; " "Ignoring %s\n", stmt_type_to_string(stmt->type)); ok = false; break; } if (!ok) info->errorCount++; if (info->errorCount > 10) { log_err(info->ctx, "Abandoning keycodes file \"%s\"\n", file->topName); break; } } } static void ApplyAliases(KeyNamesInfo *info, struct xkb_keymap *keymap) { struct xkb_key *key; struct xkb_key_alias *a, new; AliasInfo *alias; darray_foreach(alias, info->aliases) { /* Check that ->real is a key. */ key = FindNamedKey(keymap, alias->real, false); if (!key) { log_vrb(info->ctx, 5, "Attempt to alias %s to non-existent key %s; Ignored\n", LongKeyNameText(alias->alias), LongKeyNameText(alias->real)); continue; } /* Check that ->alias is not a key. */ key = FindNamedKey(keymap, alias->alias, false); if (key) { log_vrb(info->ctx, 5, "Attempt to create alias with the name of a real key; " "Alias \"%s = %s\" ignored\n", LongKeyNameText(alias->alias), LongKeyNameText(alias->real)); continue; } /* Check that ->alias in not already an alias, and if so handle it. */ darray_foreach(a, keymap->key_aliases) { AliasInfo old_alias; if (KeyNameToLong(a->alias) != alias->alias) continue; InitAliasInfo(&old_alias, MERGE_AUGMENT, 0, a->alias, a->real); HandleAliasCollision(info, &old_alias, alias); LongToKeyName(old_alias.alias, a->alias); LongToKeyName(old_alias.real, a->real); alias->alias = 0; } if (alias->alias == 0) continue; /* Add the alias. */ LongToKeyName(alias->alias, new.alias); LongToKeyName(alias->real, new.real); darray_append(keymap->key_aliases, new); } darray_free(info->aliases); } static bool CopyKeyNamesToKeymap(struct xkb_keymap *keymap, KeyNamesInfo *info) { xkb_keycode_t kc; xkb_led_index_t idx; keymap->min_key_code = info->min_key_code; keymap->max_key_code = info->max_key_code; darray_resize0(keymap->keys, keymap->max_key_code + 1); for (kc = info->min_key_code; kc <= info->max_key_code; kc++) { struct xkb_key *key = &darray_item(keymap->keys, kc); key->keycode = kc; LongToKeyName(darray_item(info->key_names, kc).name, key->name); } keymap->keycodes_section_name = strdup_safe(info->name); for (idx = 0; idx < XKB_NUM_INDICATORS; idx++) { IndicatorNameInfo *led = &info->indicator_names[idx]; if (led->name == XKB_ATOM_NONE) continue; keymap->indicators[idx].name = led->name; } ApplyAliases(info, keymap); return true; } bool CompileKeycodes(XkbFile *file, struct xkb_keymap *keymap, enum merge_mode merge) { KeyNamesInfo info; InitKeyNamesInfo(&info, keymap->ctx, file->id); HandleKeycodesFile(&info, file, merge); if (info.errorCount != 0) goto err_info; if (!CopyKeyNamesToKeymap(keymap, &info)) goto err_info; ClearKeyNamesInfo(&info); return true; err_info: ClearKeyNamesInfo(&info); return false; } struct xkb_key * FindNamedKey(struct xkb_keymap *keymap, unsigned long name, bool use_aliases) { struct xkb_key *key; xkb_foreach_key(key, keymap) if (KeyNameToLong(key->name) == name) return key; if (use_aliases) { unsigned long new_name; if (FindKeyNameForAlias(keymap, name, &new_name)) return FindNamedKey(keymap, new_name, false); } return NULL; } bool FindKeyNameForAlias(struct xkb_keymap *keymap, unsigned long lname, unsigned long *real_name) { char name[XKB_KEY_NAME_LENGTH]; struct xkb_key_alias *a; LongToKeyName(lname, name); darray_foreach(a, keymap->key_aliases) { if (strncmp(name, a->alias, XKB_KEY_NAME_LENGTH) == 0) { *real_name = KeyNameToLong(a->real); return true; } } return false; }