1 /************************************************************
2 * Copyright (c) 1994 by Silicon Graphics Computer Systems, Inc.
4 * Permission to use, copy, modify, and distribute this
5 * software and its documentation for any purpose and without
6 * fee is hereby granted, provided that the above copyright
7 * notice appear in all copies and that both that copyright
8 * notice and this permission notice appear in supporting
9 * documentation, and that the name of Silicon Graphics not be
10 * used in advertising or publicity pertaining to distribution
11 * of the software without specific prior written permission.
12 * Silicon Graphics makes no representation about the suitability
13 * of this software for any purpose. It is provided "as is"
14 * without any express or implied warranty.
16 * SILICON GRAPHICS DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS
17 * SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
18 * AND FITNESS FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL SILICON
19 * GRAPHICS BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
20 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
21 * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
22 * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH
23 * THE USE OR PERFORMANCE OF THIS SOFTWARE.
25 ********************************************************/
27 #include "xkbcomp-priv.h"
34 * The xkb_keycodes section
35 * ========================
37 * This is the simplest section type, and is the first one to be
38 * compiled. The purpose of this is mostly to map between the
39 * hardware/evdev scancodes and xkb keycodes. Each key is given a name
40 * of up to 4 letters, by which it can be referred to later, e.g. in the
43 * Minimum/Maximum keycode
44 * -----------------------
45 * Statements of the form:
49 * The file may explicitly declare the minimum and/or maximum keycode
50 * contained therein (traditionally 8-255, inherited from old xfree86
51 * keycodes). If these are stated explicitly, they are enforced. If
52 * they are not stated, they are computed automatically.
56 * Statements of the form:
60 * The above would let 49 and 10 be valid keycodes in the keymap, and
61 * assign them the names TLDE and AE01 respectively. The format <WXYZ> is
62 * always used to refer to a key by name.
64 * [ The naming convention <AE01> just denoted the position of the key
65 * in the main alphanumric section of the keyboard, with the top left key
66 * (usually "~") acting as origin. <AE01> is the key in the first row
67 * second column (which is usually "1"). ]
69 * In the common case this just maps to the evdev scancodes from
70 * /usr/include/linux/input.h, e.g. the following definitions:
71 * #define KEY_GRAVE 41
73 * Similar definitions appear in the xf86-input-keyboard driver. Note
74 * that in all current keymaps there's a constant offset of 8 (for
75 * historical reasons).
77 * If there's a conflict, like the same name given to different keycodes,
78 * or same keycode given different names, it is resolved according to the
79 * merge mode which applies to the definitions.
81 * The reason for the 4 characters limit is that the name is sometimes
82 * converted to an unsigned long (in a direct mapping), instead of a char
83 * array (see KeyNameToLong, LongToKeyName).
87 * Statements of the form:
88 * alias <MENU> = <COMP>;
90 * Allows to refer to a previously defined key (here <COMP>) by another
91 * name (here <MENU>). Conflicts are handled similarly.
93 * Indicator name statements
94 * -------------------------
95 * Statements of the form:
96 * indicator 1 = "Caps Lock";
97 * indicator 2 = "Num Lock";
98 * indicator 3 = "Scroll Lock";
100 * Assigns a name the indicator (i.e. keyboard LED) with the given index.
101 * The amount of possible indicators is predetermined (XkbNumIndicators).
102 * The indicator may be referred by this name later in the compat section
105 * Effect on the keymap
106 * --------------------
107 * After all of the xkb_keycodes sections have been compiled, the
108 * following members of struct xkb_keymap are finalized:
109 * xkb_keycode_t min_key_code;
110 * xkb_keycode_t max_key_code;
111 * darray(struct xkb_key_alias) key_aliases;
112 * char *keycodes_section_name;
113 * The 'name' field of indicators declared in xkb_keycodes:
114 * struct xkb_indicator_map indicators[XkbNumIndicators];
115 * Further, the array of keys:
116 * darray(struct xkb_key) keys;
117 * had been resized to its final size (i.e. all of the xkb_key objects are
118 * referable by their keycode). However the objects themselves do not
119 * contain any useful information besides the key name at this point.
122 typedef struct _AliasInfo {
123 enum merge_mode merge;
130 typedef struct _IndicatorNameInfo {
131 enum merge_mode merge;
137 typedef struct _KeyNamesInfo {
138 char *name; /* e.g. evdev+aliases(qwerty) */
141 enum merge_mode merge;
143 xkb_keycode_t computedMin; /* lowest keycode stored */
144 xkb_keycode_t computedMax; /* highest keycode stored */
145 xkb_keycode_t explicitMin;
146 xkb_keycode_t explicitMax;
147 darray(unsigned long) names;
148 darray(unsigned int) files;
149 IndicatorNameInfo indicator_names[XkbNumIndicators];
150 darray(AliasInfo) aliases;
152 struct xkb_context *ctx;
156 ResizeKeyNameArrays(KeyNamesInfo *info, int newMax)
158 if (newMax < darray_size(info->names))
161 darray_resize0(info->names, newMax + 1);
162 darray_resize0(info->files, newMax + 1);
166 InitAliasInfo(AliasInfo *info, enum merge_mode merge, unsigned file_id,
167 char alias[XKB_KEY_NAME_LENGTH], char real[XKB_KEY_NAME_LENGTH])
169 memset(info, 0, sizeof(*info));
171 info->file_id = file_id;
172 info->alias = KeyNameToLong(alias);
173 info->real = KeyNameToLong(real);
176 static IndicatorNameInfo *
177 FindIndicatorByName(KeyNamesInfo *info, xkb_atom_t name,
178 xkb_led_index_t *idx_out)
182 for (idx = 0; idx < XkbNumIndicators; idx++) {
183 if (info->indicator_names[idx].name == name) {
185 return &info->indicator_names[idx];
193 AddIndicatorName(KeyNamesInfo *info, enum merge_mode merge,
194 IndicatorNameInfo *new, xkb_led_index_t new_idx)
196 xkb_led_index_t old_idx;
197 IndicatorNameInfo *old;
198 bool replace, report;
199 int verbosity = xkb_get_log_verbosity(info->ctx);
201 replace = (merge == MERGE_REPLACE) || (merge == MERGE_OVERRIDE);
203 old = FindIndicatorByName(info, new->name, &old_idx);
205 report = ((old->file_id == new->file_id && verbosity > 0) ||
208 if (old_idx == new_idx) {
210 log_warn(info->ctx, "Multiple indicators named %s; "
211 "Identical definitions ignored\n",
212 xkb_atom_text(info->ctx, new->name));
217 log_warn(info->ctx, "Multiple indicators named %s; "
218 "Using %d, ignoring %d\n",
219 xkb_atom_text(info->ctx, new->name),
220 (replace ? old_idx + 1 : new_idx + 1),
221 (replace ? new_idx + 1 : old_idx + 1));
224 * XXX: If in the next check we ignore new, than we will have
225 * deleted this old for nothing!
228 memset(old, 0, sizeof(*old));
231 old = &info->indicator_names[new_idx];
232 if (old->name != XKB_ATOM_NONE) {
233 report = ((old->file_id == new->file_id && verbosity > 0) ||
236 if (old->name == new->name) {
238 log_warn(info->ctx, "Multiple names for indicator %d; "
239 "Identical definitions ignored\n", new_idx + 1);
243 log_warn(info->ctx, "Multiple names for indicator %d; "
244 "Using %s, ignoring %s\n", new_idx + 1,
245 xkb_atom_text(info->ctx, new->name),
246 xkb_atom_text(info->ctx, old->name));
247 old->name = new->name;
251 log_warn(info->ctx, "Multiple names for indicator %d; "
252 "Using %s, ignoring %s\n", new_idx + 1,
253 xkb_atom_text(info->ctx, old->name),
254 xkb_atom_text(info->ctx, new->name));
260 info->indicator_names[new_idx] = *new;
265 ClearKeyNamesInfo(KeyNamesInfo * info)
269 info->merge = MERGE_DEFAULT;
270 info->computedMax = info->explicitMax = info->explicitMin = 0;
271 info->computedMin = XKB_KEYCODE_MAX;
272 darray_free(info->names);
273 darray_free(info->files);
274 memset(info->indicator_names, 0, sizeof(info->indicator_names));
275 darray_free(info->aliases);
279 InitKeyNamesInfo(KeyNamesInfo *info, struct xkb_context *ctx,
283 info->merge = MERGE_DEFAULT;
284 darray_init(info->aliases);
285 info->file_id = file_id;
286 darray_init(info->names);
287 darray_init(info->files);
288 ClearKeyNamesInfo(info);
289 info->errorCount = 0;
294 FindKeyByLong(KeyNamesInfo * info, unsigned long name)
298 for (i = info->computedMin; i <= info->computedMax; i++)
299 if (darray_item(info->names, i) == name)
306 * Store the name of the key as a long in the info struct under the given
307 * keycode. If the same keys is referred to twice, print a warning.
308 * Note that the key's name is stored as a long, the keycode is the index.
311 AddKeyName(KeyNamesInfo *info, xkb_keycode_t kc, unsigned long name,
312 enum merge_mode merge, unsigned file_id, bool reportCollisions)
315 int verbosity = xkb_get_log_verbosity(info->ctx);
317 ResizeKeyNameArrays(info, kc);
319 if (kc < info->computedMin)
320 info->computedMin = kc;
321 if (kc > info->computedMax)
322 info->computedMax = kc;
324 if (reportCollisions)
325 reportCollisions = (verbosity > 7 ||
327 file_id == darray_item(info->files, kc)));
329 if (darray_item(info->names, kc) != 0) {
330 const char *lname = LongKeyNameText(darray_item(info->names, kc));
331 const char *kname = LongKeyNameText(name);
333 if (darray_item(info->names, kc) == name && reportCollisions) {
334 log_warn(info->ctx, "Multiple identical key name definitions; "
335 "Later occurences of \"%s = %d\" ignored\n", lname, kc);
339 if (merge == MERGE_AUGMENT) {
340 if (reportCollisions)
341 log_warn(info->ctx, "Multiple names for keycode %d; "
342 "Using %s, ignoring %s\n", kc, lname, kname);
346 if (reportCollisions)
347 log_warn(info->ctx, "Multiple names for keycode %d; "
348 "Using %s, ignoring %s\n", kc, kname, lname);
349 darray_item(info->names, kc) = 0;
350 darray_item(info->files, kc) = 0;
354 old = FindKeyByLong(info, name);
355 if (old != 0 && old != kc) {
356 const char *kname = LongKeyNameText(name);
358 if (merge == MERGE_OVERRIDE) {
359 darray_item(info->names, old) = 0;
360 darray_item(info->files, old) = 0;
361 if (reportCollisions)
362 log_warn(info->ctx, "Key name %s assigned to multiple keys; "
363 "Using %d, ignoring %d\n", kname, kc, old);
366 if (reportCollisions && verbosity > 3)
367 log_warn(info->ctx, "Key name %s assigned to multiple keys; "
368 "Using %d, ignoring %d\n", kname, old, kc);
373 darray_item(info->names, kc) = name;
374 darray_item(info->files, kc) = file_id;
378 /***====================================================================***/
381 HandleAliasDef(KeyNamesInfo *info, KeyAliasDef *def, enum merge_mode merge,
385 MergeAliases(KeyNamesInfo *into, KeyNamesInfo *from, enum merge_mode merge)
390 if (darray_empty(from->aliases))
393 if (darray_empty(into->aliases)) {
394 into->aliases = from->aliases;
395 darray_init(from->aliases);
399 memset(&def, 0, sizeof(def));
401 darray_foreach(alias, from->aliases) {
402 def.merge = (merge == MERGE_DEFAULT) ? alias->merge : merge;
403 LongToKeyName(alias->alias, def.alias);
404 LongToKeyName(alias->real, def.real);
406 if (!HandleAliasDef(into, &def, def.merge, alias->file_id))
414 MergeIncludedKeycodes(KeyNamesInfo *into, KeyNamesInfo *from,
415 enum merge_mode merge)
420 if (from->errorCount > 0) {
421 into->errorCount += from->errorCount;
425 if (into->name == NULL) {
426 into->name = from->name;
430 ResizeKeyNameArrays(into, from->computedMax);
432 for (i = from->computedMin; i <= from->computedMax; i++) {
433 unsigned long name = darray_item(from->names, i);
437 if (!AddKeyName(into, i, name, merge, from->file_id, false))
441 for (idx = 0; idx < XkbNumIndicators; idx++) {
442 IndicatorNameInfo *led = &from->indicator_names[idx];
443 if (led->name == XKB_ATOM_NONE)
446 led->merge = (merge == MERGE_DEFAULT ? led->merge : merge);
447 if (!AddIndicatorName(into, led->merge, led, idx))
451 if (!MergeAliases(into, from, merge))
454 if (from->explicitMin != 0)
455 if (into->explicitMin == 0 || into->explicitMin > from->explicitMin)
456 into->explicitMin = from->explicitMin;
458 if (from->explicitMax > 0)
459 if (into->explicitMax == 0 || into->explicitMax < from->explicitMax)
460 into->explicitMax = from->explicitMax;
464 HandleKeycodesFile(KeyNamesInfo *info, XkbFile *file, enum merge_mode merge);
467 HandleIncludeKeycodes(KeyNamesInfo *info, IncludeStmt *stmt)
469 enum merge_mode merge = MERGE_DEFAULT;
471 KeyNamesInfo included, next_incl;
473 InitKeyNamesInfo(&included, info->ctx, info->file_id);
476 included.name = stmt->stmt;
480 for (; stmt; stmt = stmt->next_incl) {
481 if (!ProcessIncludeFile(info->ctx, stmt, FILE_TYPE_KEYCODES,
483 info->errorCount += 10;
484 ClearKeyNamesInfo(&included);
488 InitKeyNamesInfo(&next_incl, info->ctx, rtrn->id);
490 HandleKeycodesFile(&next_incl, rtrn, MERGE_OVERRIDE);
492 MergeIncludedKeycodes(&included, &next_incl, merge);
494 ClearKeyNamesInfo(&next_incl);
498 MergeIncludedKeycodes(info, &included, merge);
499 ClearKeyNamesInfo(&included);
501 return (info->errorCount == 0);
505 HandleKeycodeDef(KeyNamesInfo *info, KeycodeDef *stmt, enum merge_mode merge)
507 if ((info->explicitMin != 0 && stmt->value < info->explicitMin) ||
508 (info->explicitMax != 0 && stmt->value > info->explicitMax)) {
509 log_err(info->ctx, "Illegal keycode %lu for name %s; "
510 "Must be in the range %d-%d inclusive\n",
511 stmt->value, KeyNameText(stmt->name), info->explicitMin,
512 info->explicitMax ? info->explicitMax : XKB_KEYCODE_MAX);
516 if (stmt->merge != MERGE_DEFAULT) {
517 if (stmt->merge == MERGE_REPLACE)
518 merge = MERGE_OVERRIDE;
523 return AddKeyName(info, stmt->value, KeyNameToLong(stmt->name), merge,
524 info->file_id, true);
528 HandleAliasCollision(KeyNamesInfo *info, AliasInfo *old, AliasInfo *new)
530 int verbosity = xkb_get_log_verbosity(info->ctx);
531 bool report = ((new->file_id == old->file_id && verbosity > 0) ||
534 if (new->real == old->real) {
536 log_warn(info->ctx, "Alias of %s for %s declared more than once; "
537 "First definition ignored\n",
538 LongKeyNameText(new->alias), LongKeyNameText(new->real));
541 unsigned long use, ignore;
543 use = (new->merge == MERGE_AUGMENT ? old->real : new->real);
544 ignore = (new->merge == MERGE_AUGMENT ? new->real : old->real);
547 log_warn(info->ctx, "Multiple definitions for alias %s; "
548 "Using %s, ignoring %s\n",
549 LongKeyNameText(old->alias), LongKeyNameText(use),
550 LongKeyNameText(ignore));
555 old->file_id = new->file_id;
556 old->merge = new->merge;
560 HandleAliasDef(KeyNamesInfo *info, KeyAliasDef *def, enum merge_mode merge,
563 AliasInfo *alias, new;
565 darray_foreach(alias, info->aliases) {
566 if (alias->alias == KeyNameToLong(def->alias)) {
567 InitAliasInfo(&new, merge, file_id, def->alias, def->real);
568 HandleAliasCollision(info, alias, &new);
573 InitAliasInfo(&new, merge, file_id, def->alias, def->real);
574 darray_append(info->aliases, new);
578 #define MIN_KEYCODE_DEF 0
579 #define MAX_KEYCODE_DEF 1
582 HandleKeyNameVar(KeyNamesInfo *info, VarDef *stmt)
584 const char *elem, *field;
589 if (!ExprResolveLhs(info->ctx, stmt->name, &elem, &field, &arrayNdx))
593 log_err(info->ctx, "Unknown element %s encountered; "
594 "Default for field %s ignored\n", elem, field);
598 if (istreq(field, "minimum")) {
599 which = MIN_KEYCODE_DEF;
601 else if (istreq(field, "maximum")) {
602 which = MAX_KEYCODE_DEF;
605 log_err(info->ctx, "Unknown field encountered; "
606 "Assigment to field %s ignored\n", field);
610 if (arrayNdx != NULL) {
611 log_err(info->ctx, "The %s setting is not an array; "
612 "Illegal array reference ignored\n", field);
616 if (!ExprResolveKeyCode(info->ctx, stmt->value, &kc)) {
617 log_err(info->ctx, "Illegal keycode encountered; "
618 "Assignment to field %s ignored\n", field);
622 if (kc > XKB_KEYCODE_MAX) {
624 "Illegal keycode %d (must be in the range %d-%d inclusive); "
625 "Value of \"%s\" not changed\n",
626 kc, 0, XKB_KEYCODE_MAX, field);
630 if (which == MIN_KEYCODE_DEF) {
631 if (info->explicitMax > 0 && info->explicitMax < kc) {
633 "Minimum key code (%d) must be <= maximum key code (%d); "
634 "Minimum key code value not changed\n",
635 kc, info->explicitMax);
639 if (info->computedMax > 0 && info->computedMin < kc) {
641 "Minimum key code (%d) must be <= lowest defined key (%d); "
642 "Minimum key code value not changed\n",
643 kc, info->computedMin);
647 info->explicitMin = kc;
649 else if (which == MAX_KEYCODE_DEF) {
650 if (info->explicitMin > 0 && info->explicitMin > kc) {
652 "Maximum code (%d) must be >= minimum key code (%d); "
653 "Maximum code value not changed\n",
654 kc, info->explicitMin);
658 if (info->computedMax > 0 && info->computedMax > kc) {
660 "Maximum code (%d) must be >= highest defined key (%d); "
661 "Maximum code value not changed\n",
662 kc, info->computedMax);
666 info->explicitMax = kc;
673 HandleIndicatorNameDef(KeyNamesInfo *info, IndicatorNameDef *def,
674 enum merge_mode merge)
676 IndicatorNameInfo ii;
679 if (def->ndx < 1 || def->ndx > XkbNumIndicators) {
682 "Name specified for illegal indicator index %d\n; Ignored\n",
687 if (!ExprResolveString(info->ctx, def->name, &name)) {
689 snprintf(buf, sizeof(buf), "%d", def->ndx);
691 return ReportBadType(info->ctx, "indicator", "name", buf,
695 ii.merge = info->merge;
696 ii.file_id = info->file_id;
698 return AddIndicatorName(info, merge, &ii, def->ndx - 1);
702 HandleKeycodesFile(KeyNamesInfo *info, XkbFile *file, enum merge_mode merge)
708 info->name = strdup_safe(file->name);
710 for (stmt = file->defs; stmt; stmt = stmt->next) {
711 switch (stmt->type) {
713 ok = HandleIncludeKeycodes(info, (IncludeStmt *) stmt);
716 ok = HandleKeycodeDef(info, (KeycodeDef *) stmt, merge);
719 ok = HandleAliasDef(info, (KeyAliasDef *) stmt, merge,
723 ok = HandleKeyNameVar(info, (VarDef *) stmt);
725 case STMT_INDICATOR_NAME:
726 ok = HandleIndicatorNameDef(info, (IndicatorNameDef *) stmt,
731 "Keycode files may define key and indicator names only; "
732 "Ignoring %s\n", stmt_type_to_string(stmt->type));
740 if (info->errorCount > 10) {
741 log_err(info->ctx, "Abandoning keycodes file \"%s\"\n",
749 ApplyAliases(KeyNamesInfo *info, struct xkb_keymap *keymap)
752 struct xkb_key_alias *a, new;
755 darray_foreach(alias, info->aliases) {
756 /* Check that ->real is a key. */
757 key = FindNamedKey(keymap, alias->real, false, 0);
759 log_vrb(info->ctx, 5,
760 "Attempt to alias %s to non-existent key %s; Ignored\n",
761 LongKeyNameText(alias->alias),
762 LongKeyNameText(alias->real));
766 /* Check that ->alias is not a key. */
767 key = FindNamedKey(keymap, alias->alias, false, 0);
769 log_vrb(info->ctx, 5,
770 "Attempt to create alias with the name of a real key; "
771 "Alias \"%s = %s\" ignored\n",
772 LongKeyNameText(alias->alias),
773 LongKeyNameText(alias->real));
777 /* Check that ->alias in not already an alias, and if so handle it. */
778 darray_foreach(a, keymap->key_aliases) {
781 if (KeyNameToLong(a->alias) != alias->alias)
784 InitAliasInfo(&old_alias, MERGE_AUGMENT, 0, a->alias, a->real);
785 HandleAliasCollision(info, &old_alias, alias);
786 LongToKeyName(old_alias.alias, a->alias);
787 LongToKeyName(old_alias.real, a->real);
790 if (alias->alias == 0)
794 LongToKeyName(alias->alias, new.alias);
795 LongToKeyName(alias->real, new.real);
796 darray_append(keymap->key_aliases, new);
799 darray_free(info->aliases);
803 CopyKeyNamesToKeymap(struct xkb_keymap *keymap, KeyNamesInfo *info)
808 if (info->explicitMin > 0)
809 keymap->min_key_code = info->explicitMin;
811 keymap->min_key_code = info->computedMin;
813 if (info->explicitMax > 0)
814 keymap->max_key_code = info->explicitMax;
816 keymap->max_key_code = info->computedMax;
818 darray_resize0(keymap->keys, keymap->max_key_code + 1);
819 for (kc = info->computedMin; kc <= info->computedMax; kc++)
820 LongToKeyName(darray_item(info->names, kc),
821 XkbKey(keymap, kc)->name);
823 keymap->keycodes_section_name = strdup_safe(info->name);
825 for (idx = 0; idx < XkbNumIndicators; idx++) {
826 IndicatorNameInfo *led = &info->indicator_names[idx];
827 if (led->name == XKB_ATOM_NONE)
830 keymap->indicators[idx].name = led->name;
833 ApplyAliases(info, keymap);
839 CompileKeycodes(XkbFile *file, struct xkb_keymap *keymap,
840 enum merge_mode merge)
844 InitKeyNamesInfo(&info, keymap->ctx, file->id);
846 HandleKeycodesFile(&info, file, merge);
847 if (info.errorCount != 0)
850 if (!CopyKeyNamesToKeymap(keymap, &info))
853 ClearKeyNamesInfo(&info);
857 ClearKeyNamesInfo(&info);
862 FindNamedKey(struct xkb_keymap *keymap, unsigned long name,
863 bool use_aliases, xkb_keycode_t start_from)
867 if (start_from < keymap->min_key_code)
868 start_from = keymap->min_key_code;
869 else if (start_from > keymap->max_key_code)
872 xkb_foreach_key_from(key, keymap, start_from)
873 if (KeyNameToLong(key->name) == name)
877 unsigned long new_name;
878 if (FindKeyNameForAlias(keymap, name, &new_name))
879 return FindNamedKey(keymap, new_name, false, 0);
886 FindKeyNameForAlias(struct xkb_keymap *keymap, unsigned long lname,
887 unsigned long *real_name)
889 char name[XKB_KEY_NAME_LENGTH];
890 struct xkb_key_alias *a;
892 LongToKeyName(lname, name);
893 darray_foreach(a, keymap->key_aliases) {
894 if (strncmp(name, a->alias, XKB_KEY_NAME_LENGTH) == 0) {
895 *real_name = KeyNameToLong(a->real);