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 ********************************************************/
28 * Copyright © 2012 Intel Corporation
29 * Copyright © 2012 Ran Benita <ran234@gmail.com>
31 * Permission is hereby granted, free of charge, to any person obtaining a
32 * copy of this software and associated documentation files (the "Software"),
33 * to deal in the Software without restriction, including without limitation
34 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
35 * and/or sell copies of the Software, and to permit persons to whom the
36 * Software is furnished to do so, subject to the following conditions:
38 * The above copyright notice and this permission notice (including the next
39 * paragraph) shall be included in all copies or substantial portions of the
42 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
43 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
44 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL
45 * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
46 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
47 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
48 * DEALINGS IN THE SOFTWARE.
50 * Author: Daniel Stone <daniel@fooishbar.org>
51 * Ran Benita <ran234@gmail.com>
54 #include "xkbcomp-priv.h"
64 KEY_REPEAT_UNDEFINED = 0,
70 GROUP_FIELD_SYMS = (1 << 0),
71 GROUP_FIELD_ACTS = (1 << 1),
72 GROUP_FIELD_TYPE = (1 << 2),
76 KEY_FIELD_REPEAT = (1 << 0),
77 KEY_FIELD_TYPE_DFLT = (1 << 1),
78 KEY_FIELD_GROUPINFO = (1 << 2),
79 KEY_FIELD_VMODMAP = (1 << 3),
83 unsigned int num_syms;
84 unsigned int sym_index;
88 typedef darray(xkb_keysym_t) darray_xkb_keysym_t;
91 enum group_field defined;
92 darray_xkb_keysym_t syms;
93 darray(LevelInfo) levels;
97 typedef struct _KeyInfo {
98 enum key_field defined;
100 enum merge_mode merge;
102 unsigned long name; /* the 4 chars of the key name, as long */
104 darray(GroupInfo) groups;
106 enum key_repeat repeat;
107 xkb_mod_mask_t vmodmap;
110 enum xkb_range_exceed_type out_of_range_group_action;
111 xkb_layout_index_t out_of_range_group_number;
115 InitGroupInfo(GroupInfo *groupi)
117 memset(groupi, 0, sizeof(*groupi));
121 ClearGroupInfo(GroupInfo *groupi)
123 darray_free(groupi->syms);
124 darray_free(groupi->levels);
128 InitKeyInfo(KeyInfo *keyi, unsigned file_id)
130 static const char dflt_key_name[XKB_KEY_NAME_LENGTH] = "*";
132 memset(keyi, 0, sizeof(*keyi));
133 keyi->file_id = file_id;
134 keyi->merge = MERGE_OVERRIDE;
135 keyi->name = KeyNameToLong(dflt_key_name);
136 keyi->out_of_range_group_action = RANGE_WRAP;
140 ClearKeyInfo(KeyInfo *keyi)
143 darray_foreach(groupi, keyi->groups)
144 ClearGroupInfo(groupi);
145 darray_free(keyi->groups);
148 /***====================================================================***/
150 typedef struct _ModMapEntry {
151 enum merge_mode merge;
155 unsigned long keyName;
160 typedef struct _SymbolsInfo {
161 char *name; /* e.g. pc+us+inet(evdev) */
164 enum merge_mode merge;
165 xkb_layout_index_t explicit_group;
166 darray(KeyInfo) keys;
169 ActionsInfo *actions;
170 xkb_atom_t group_names[XKB_NUM_GROUPS];
171 darray(ModMapEntry) modMaps;
173 struct xkb_keymap *keymap;
177 InitSymbolsInfo(SymbolsInfo *info, struct xkb_keymap *keymap,
178 unsigned file_id, ActionsInfo *actions)
180 memset(info, 0, sizeof(*info));
181 info->keymap = keymap;
182 info->file_id = file_id;
183 info->merge = MERGE_OVERRIDE;
184 InitKeyInfo(&info->dflt, file_id);
185 InitVModInfo(&info->vmods, keymap);
186 info->actions = actions;
190 ClearSymbolsInfo(SymbolsInfo * info)
194 darray_foreach(keyi, info->keys)
196 darray_free(info->keys);
197 darray_free(info->modMaps);
198 ClearKeyInfo(&info->dflt);
202 MergeGroups(SymbolsInfo *info, GroupInfo *into, GroupInfo *from, bool clobber,
203 bool report, xkb_layout_index_t group, unsigned long key_name)
205 xkb_level_index_t i, numLevels;
206 enum { INTO = (1 << 0), FROM = (1 << 1) } using;
208 /* First find the type of the merged group. */
209 if (into->type != from->type) {
210 if (from->type == XKB_ATOM_NONE) {
212 else if (into->type == XKB_ATOM_NONE) {
213 into->type = from->type;
216 xkb_atom_t use = (clobber ? from->type : into->type);
217 xkb_atom_t ignore = (clobber ? into->type : from->type);
220 log_warn(info->keymap->ctx,
221 "Multiple definitions for group %d type of key %s; "
222 "Using %s, ignoring %s\n",
223 group + 1, LongKeyNameText(key_name),
224 xkb_atom_text(info->keymap->ctx, use),
225 xkb_atom_text(info->keymap->ctx, ignore));
230 into->defined |= (from->defined & GROUP_FIELD_TYPE);
232 /* Now look at the levels. */
234 if (darray_empty(from->levels)) {
239 if (darray_empty(into->levels)) {
240 from->type = into->type;
246 /* First we merge the actions and ensure @into has all the levels. */
247 numLevels = MAX(darray_size(into->levels), darray_size(from->levels));
248 for (i = 0; i < numLevels; i++) {
249 union xkb_action *intoAct, *fromAct;
251 if (i >= darray_size(from->levels))
254 if (i >= darray_size(into->levels)) {
255 darray_append(into->levels, darray_item(from->levels, i));
256 darray_item(into->levels, i).num_syms = 0;
257 darray_item(into->levels, i).sym_index = 0;
261 intoAct = &darray_item(into->levels, i).act;
262 fromAct = &darray_item(from->levels, i).act;
264 if (fromAct->type == ACTION_TYPE_NONE) {
266 else if (intoAct->type == ACTION_TYPE_NONE) {
270 union xkb_action *use = (clobber ? fromAct : intoAct);
271 union xkb_action *ignore = (clobber ? intoAct : fromAct);
274 log_warn(info->keymap->ctx,
275 "Multiple actions for level %d/group %u on key %s; "
276 "Using %s, ignoring %s\n",
277 i + 1, group + 1, LongKeyNameText(key_name),
278 ActionTypeText(use->type),
279 ActionTypeText(ignore->type));
284 into->defined |= (from->defined & GROUP_FIELD_ACTS);
286 /* Then merge the keysyms. */
289 * We want to avoid copying and allocating if not necessary. So
290 * here we do a pre-scan of the levels to check if we'll only use
291 * @into's or @from's keysyms, and if so we'll just assign them.
292 * However if one level uses @into's and another uses @from's, we
293 * will need to construct a new syms array.
296 for (i = 0; i < numLevels; i++) {
297 unsigned int intoSize, fromSize;
299 intoSize = darray_item(into->levels, i).num_syms;
300 if (i < darray_size(from->levels))
301 fromSize = darray_item(from->levels, i).num_syms;
305 if (intoSize == 0 && fromSize == 0)
307 else if (intoSize == 0)
309 else if (fromSize == 0)
312 using |= (clobber ? FROM : INTO);
315 if (using == 0 || using == INTO) {
317 else if (using == FROM) {
318 darray_free(into->syms);
319 into->syms = from->syms;
320 darray_init(from->syms);
321 for (i = 0; i < darray_size(from->levels); i++) {
322 darray_item(into->levels, i).num_syms =
323 darray_item(from->levels, i).num_syms;
324 darray_item(into->levels, i).sym_index =
325 darray_item(from->levels, i).sym_index;
329 darray_xkb_keysym_t syms = darray_new();
331 for (i = 0; i < numLevels; i++) {
332 unsigned int intoSize, fromSize;
334 intoSize = darray_item(into->levels, i).num_syms;
335 if (i < darray_size(from->levels))
336 fromSize = darray_item(from->levels, i).num_syms;
341 if (intoSize == 0 && fromSize == 0)
344 if (intoSize != 0 && fromSize != 0 && report)
345 log_info(info->keymap->ctx,
346 "Multiple symbols for group %u, level %d on key %s; "
347 "Using %s, ignoring %s\n",
348 group + 1, i + 1, LongKeyNameText(key_name),
349 (clobber ? "from" : "to"),
350 (clobber ? "to" : "from"));
352 if (intoSize == 0 || (fromSize != 0 && clobber)) {
353 unsigned sym_index = darray_item(from->levels, i).sym_index;
354 darray_item(into->levels, i).sym_index = darray_size(syms);
355 darray_item(into->levels, i).num_syms = fromSize;
356 darray_append_items(syms, &darray_item(from->syms, sym_index),
361 unsigned sym_index = darray_item(into->levels, i).sym_index;
362 darray_item(into->levels, i).sym_index = darray_size(syms);
363 darray_item(into->levels, i).num_syms = intoSize;
364 darray_append_items(syms, &darray_item(into->syms, sym_index),
368 darray_free(into->syms);
371 into->defined |= (from->defined & GROUP_FIELD_SYMS);
377 UseNewKeyField(enum key_field field, enum key_field old, enum key_field new,
378 bool clobber, bool report, enum key_field *collide)
381 return (new & field);
396 MergeKeys(SymbolsInfo *info, KeyInfo *into, KeyInfo *from)
398 xkb_layout_index_t i;
399 xkb_layout_index_t groups_in_both;
400 enum key_field collide = 0;
401 bool clobber, report;
402 int verbosity = xkb_context_get_log_verbosity(info->keymap->ctx);
404 if (from->merge == MERGE_REPLACE) {
407 InitKeyInfo(from, info->file_id);
411 clobber = (from->merge != MERGE_AUGMENT);
412 report = (verbosity > 9 ||
413 (into->file_id == from->file_id && verbosity > 0));
415 groups_in_both = MIN(darray_size(into->groups),
416 darray_size(from->groups));
417 for (i = 0; i < groups_in_both; i++)
419 &darray_item(into->groups, i),
420 &darray_item(from->groups, i),
421 clobber, report, i, into->name);
422 /* If @from has extra groups, just move them to @into. */
423 for (i = groups_in_both; i < darray_size(from->groups); i++) {
424 darray_append(into->groups, darray_item(from->groups, i));
425 InitGroupInfo(&darray_item(from->groups, i));
428 if (UseNewKeyField(KEY_FIELD_VMODMAP, into->defined, from->defined,
429 clobber, report, &collide)) {
430 into->vmodmap = from->vmodmap;
431 into->defined |= KEY_FIELD_VMODMAP;
433 if (UseNewKeyField(KEY_FIELD_REPEAT, into->defined, from->defined,
434 clobber, report, &collide)) {
435 into->repeat = from->repeat;
436 into->defined |= KEY_FIELD_REPEAT;
438 if (UseNewKeyField(KEY_FIELD_TYPE_DFLT, into->defined, from->defined,
439 clobber, report, &collide)) {
440 into->dfltType = from->dfltType;
441 into->defined |= KEY_FIELD_TYPE_DFLT;
443 if (UseNewKeyField(KEY_FIELD_GROUPINFO, into->defined, from->defined,
444 clobber, report, &collide)) {
445 into->out_of_range_group_action = from->out_of_range_group_action;
446 into->out_of_range_group_number = from->out_of_range_group_number;
447 into->defined |= KEY_FIELD_GROUPINFO;
451 log_warn(info->keymap->ctx,
452 "Symbol map for key %s redefined; "
453 "Using %s definition for conflicting fields\n",
454 LongKeyNameText(into->name),
455 (clobber ? "first" : "last"));
458 InitKeyInfo(from, info->file_id);
463 AddKeySymbols(SymbolsInfo *info, KeyInfo *keyi)
465 unsigned long real_name;
469 * Don't keep aliases in the keys array; this guarantees that
470 * searching for keys to merge with by straight comparison (see the
471 * following loop) is enough, and we won't get multiple KeyInfo's
472 * for the same key because of aliases.
474 if (FindKeyNameForAlias(info->keymap, keyi->name, &real_name))
475 keyi->name = real_name;
477 darray_foreach(iter, info->keys)
478 if (iter->name == keyi->name)
479 return MergeKeys(info, iter, keyi);
481 darray_append(info->keys, *keyi);
482 InitKeyInfo(keyi, info->file_id);
487 AddModMapEntry(SymbolsInfo * info, ModMapEntry * new)
492 clobber = (new->merge != MERGE_AUGMENT);
493 darray_foreach(mm, info->modMaps) {
494 if (new->haveSymbol && mm->haveSymbol
495 && (new->u.keySym == mm->u.keySym)) {
496 unsigned use, ignore;
497 if (mm->modifier != new->modifier) {
500 ignore = mm->modifier;
504 ignore = new->modifier;
506 log_err(info->keymap->ctx,
507 "%s added to symbol map for multiple modifiers; "
508 "Using %s, ignoring %s.\n",
509 KeysymText(new->u.keySym), ModIndexText(use),
510 ModIndexText(ignore));
515 if ((!new->haveSymbol) && (!mm->haveSymbol) &&
516 (new->u.keyName == mm->u.keyName)) {
517 unsigned use, ignore;
518 if (mm->modifier != new->modifier) {
521 ignore = mm->modifier;
525 ignore = new->modifier;
527 log_err(info->keymap->ctx,
528 "Key %s added to map for multiple modifiers; "
529 "Using %s, ignoring %s.\n",
530 LongKeyNameText(new->u.keyName), ModIndexText(use),
531 ModIndexText(ignore));
538 darray_append(info->modMaps, *new);
542 /***====================================================================***/
545 MergeIncludedSymbols(SymbolsInfo *into, SymbolsInfo *from,
546 enum merge_mode merge)
552 if (from->errorCount > 0) {
553 into->errorCount += from->errorCount;
556 if (into->name == NULL) {
557 into->name = from->name;
560 for (i = 0; i < XKB_NUM_GROUPS; i++) {
561 if (from->group_names[i] != XKB_ATOM_NONE) {
562 if ((merge != MERGE_AUGMENT) ||
563 (into->group_names[i] == XKB_ATOM_NONE))
564 into->group_names[i] = from->group_names[i];
568 darray_foreach(keyi, from->keys) {
569 merge = (merge == MERGE_DEFAULT ? keyi->merge : merge);
570 if (!AddKeySymbols(into, keyi))
574 darray_foreach(mm, from->modMaps) {
575 mm->merge = (merge == MERGE_DEFAULT ? mm->merge : merge);
576 if (!AddModMapEntry(into, mm))
582 HandleSymbolsFile(SymbolsInfo *info, XkbFile *file, enum merge_mode merge);
585 HandleIncludeSymbols(SymbolsInfo *info, IncludeStmt *stmt)
587 enum merge_mode merge = MERGE_DEFAULT;
589 SymbolsInfo included, next_incl;
591 InitSymbolsInfo(&included, info->keymap, info->file_id, info->actions);
594 included.name = stmt->stmt;
598 for (; stmt; stmt = stmt->next_incl) {
599 if (!ProcessIncludeFile(info->keymap->ctx, stmt, FILE_TYPE_SYMBOLS,
601 info->errorCount += 10;
602 ClearSymbolsInfo(&included);
606 InitSymbolsInfo(&next_incl, info->keymap, rtrn->id, info->actions);
607 next_incl.merge = next_incl.dflt.merge = MERGE_OVERRIDE;
608 if (stmt->modifier) {
609 next_incl.explicit_group = atoi(stmt->modifier) - 1;
610 if (next_incl.explicit_group >= XKB_NUM_GROUPS) {
611 log_err(info->keymap->ctx,
612 "Cannot set explicit group to %d - must be between 1..%d; "
613 "Ignoring group number\n",
614 next_incl.explicit_group + 1, XKB_NUM_GROUPS);
615 next_incl.explicit_group = info->explicit_group;
619 next_incl.explicit_group = info->explicit_group;
622 HandleSymbolsFile(&next_incl, rtrn, MERGE_OVERRIDE);
624 MergeIncludedSymbols(&included, &next_incl, merge);
626 ClearSymbolsInfo(&next_incl);
630 MergeIncludedSymbols(info, &included, merge);
631 ClearSymbolsInfo(&included);
633 return (info->errorCount == 0);
640 GetGroupIndex(SymbolsInfo *info, KeyInfo *keyi, ExprDef *arrayNdx,
641 unsigned what, xkb_layout_index_t *ndx_rtrn)
643 const char *name = (what == SYMBOLS ? "symbols" : "actions");
645 if (arrayNdx == NULL) {
646 xkb_layout_index_t i;
648 enum group_field field = (what == SYMBOLS ?
649 GROUP_FIELD_SYMS : GROUP_FIELD_ACTS);
651 darray_enumerate(i, groupi, keyi->groups) {
652 if (!(groupi->defined & field)) {
658 if (i >= XKB_NUM_GROUPS) {
659 log_err(info->keymap->ctx,
660 "Too many groups of %s for key %s (max %u); "
661 "Ignoring %s defined for extra groups\n",
662 name, LongKeyNameText(keyi->name), XKB_NUM_GROUPS + 1, name);
666 darray_resize0(keyi->groups, darray_size(keyi->groups) + 1);
667 *ndx_rtrn = darray_size(keyi->groups) - 1;
671 if (!ExprResolveGroup(info->keymap->ctx, arrayNdx, ndx_rtrn)) {
672 log_err(info->keymap->ctx,
673 "Illegal group index for %s of key %s\n"
674 "Definition with non-integer array index ignored\n",
675 name, LongKeyNameText(keyi->name));
680 if (*ndx_rtrn >= darray_size(keyi->groups))
681 darray_resize0(keyi->groups, *ndx_rtrn + 1);
687 LookupKeysym(const char *str, xkb_keysym_t *sym_rtrn)
691 if (!str || istreq(str, "any") || istreq(str, "nosymbol")) {
692 *sym_rtrn = XKB_KEY_NoSymbol;
696 if (istreq(str, "none") || istreq(str, "voidsymbol")) {
697 *sym_rtrn = XKB_KEY_VoidSymbol;
701 sym = xkb_keysym_from_name(str);
702 if (sym != XKB_KEY_NoSymbol) {
711 AddSymbolsToKey(SymbolsInfo *info, KeyInfo *keyi, ExprDef *arrayNdx,
714 xkb_layout_index_t ndx;
717 xkb_level_index_t nLevels;
721 if (!GetGroupIndex(info, keyi, arrayNdx, SYMBOLS, &ndx))
724 groupi = &darray_item(keyi->groups, ndx);
727 groupi->defined |= GROUP_FIELD_SYMS;
731 if (value->op != EXPR_KEYSYM_LIST) {
732 log_err(info->keymap->ctx,
733 "Expected a list of symbols, found %s; "
734 "Ignoring symbols for group %u of %s\n",
735 expr_op_type_to_string(value->op), ndx + 1,
736 LongKeyNameText(keyi->name));
740 if (groupi->defined & GROUP_FIELD_SYMS) {
741 log_err(info->keymap->ctx,
742 "Symbols for key %s, group %u already defined; "
743 "Ignoring duplicate definition\n",
744 LongKeyNameText(keyi->name), ndx + 1);
748 nSyms = darray_size(value->value.list.syms);
749 nLevels = darray_size(value->value.list.symsMapIndex);
751 if (darray_size(groupi->syms) < nSyms)
752 darray_resize0(groupi->syms, nSyms);
754 if (darray_size(groupi->levels) < nLevels)
755 darray_resize0(groupi->levels, nLevels);
757 groupi->defined |= GROUP_FIELD_SYMS;
759 for (i = 0; i < nLevels; i++) {
760 LevelInfo *leveli = &darray_item(groupi->levels, i);
762 leveli->sym_index = darray_item(value->value.list.symsMapIndex, i);
763 leveli->num_syms = darray_item(value->value.list.symsNumEntries, i);
765 for (j = 0; j < leveli->num_syms; j++) {
766 if (!LookupKeysym(darray_item(value->value.list.syms,
767 leveli->sym_index + j),
768 &darray_item(groupi->syms,
769 leveli->sym_index + j))) {
770 log_warn(info->keymap->ctx,
771 "Could not resolve keysym %s for key %s, group %u (%s), level %u\n",
772 darray_item(value->value.list.syms, i),
773 LongKeyNameText(keyi->name),
775 xkb_atom_text(info->keymap->ctx,
776 info->group_names[ndx]),
778 leveli->sym_index = 0;
779 leveli->num_syms = 0;
783 if (leveli->num_syms == 1 &&
784 darray_item(groupi->syms,
785 leveli->sym_index + j) == XKB_KEY_NoSymbol) {
786 leveli->sym_index = 0;
787 leveli->num_syms = 0;
792 for (j = darray_size(groupi->levels) - 1;
793 j >= 0 && darray_item(groupi->levels, j).num_syms == 0; j--)
794 (void) darray_pop(groupi->levels);
800 AddActionsToKey(SymbolsInfo *info, KeyInfo *keyi, ExprDef *arrayNdx,
804 xkb_layout_index_t ndx;
808 union xkb_action *toAct;
810 if (!GetGroupIndex(info, keyi, arrayNdx, ACTIONS, &ndx))
813 groupi = &darray_item(keyi->groups, ndx);
816 groupi->defined |= GROUP_FIELD_ACTS;
820 if (value->op != EXPR_ACTION_LIST) {
821 log_wsgo(info->keymap->ctx,
822 "Bad expression type (%d) for action list value; "
823 "Ignoring actions for group %u of %s\n",
824 value->op, ndx, LongKeyNameText(keyi->name));
828 if (groupi->defined & GROUP_FIELD_ACTS) {
829 log_wsgo(info->keymap->ctx,
830 "Actions for key %s, group %u already defined\n",
831 LongKeyNameText(keyi->name), ndx);
836 for (act = value->value.child; act; act = (ExprDef *) act->common.next)
839 if (darray_size(groupi->levels) < nActs)
840 darray_resize0(groupi->levels, nActs);
842 groupi->defined |= GROUP_FIELD_ACTS;
844 act = value->value.child;
845 for (i = 0; i < nActs; i++) {
846 toAct = &darray_item(groupi->levels, i).act;
848 if (!HandleActionDef(act, info->keymap, toAct, info->actions))
849 log_err(info->keymap->ctx,
850 "Illegal action definition for %s; "
851 "Action for group %u/level %u ignored\n",
852 LongKeyNameText(keyi->name), ndx + 1, i + 1);
854 act = (ExprDef *) act->common.next;
860 static const LookupEntry repeatEntries[] = {
861 { "true", KEY_REPEAT_YES },
862 { "yes", KEY_REPEAT_YES },
863 { "on", KEY_REPEAT_YES },
864 { "false", KEY_REPEAT_NO },
865 { "no", KEY_REPEAT_NO },
866 { "off", KEY_REPEAT_NO },
867 { "default", KEY_REPEAT_UNDEFINED },
872 SetSymbolsField(SymbolsInfo *info, KeyInfo *keyi, const char *field,
873 ExprDef *arrayNdx, ExprDef *value)
876 struct xkb_context *ctx = info->keymap->ctx;
878 if (istreq(field, "type")) {
879 xkb_layout_index_t ndx;
882 if (!ExprResolveString(ctx, value, &val))
884 "The type field of a key symbol map must be a string; "
885 "Ignoring illegal type definition\n");
887 if (arrayNdx == NULL) {
888 keyi->dfltType = val;
889 keyi->defined |= KEY_FIELD_TYPE_DFLT;
891 else if (!ExprResolveGroup(ctx, arrayNdx, &ndx)) {
893 "Illegal group index for type of key %s; "
894 "Definition with non-integer array index ignored\n",
895 LongKeyNameText(keyi->name));
900 if (ndx >= darray_size(keyi->groups))
901 darray_resize0(keyi->groups, ndx + 1);
902 darray_item(keyi->groups, ndx).type = val;
903 darray_item(keyi->groups, ndx).defined |= GROUP_FIELD_TYPE;
906 else if (istreq(field, "symbols"))
907 return AddSymbolsToKey(info, keyi, arrayNdx, value);
908 else if (istreq(field, "actions"))
909 return AddActionsToKey(info, keyi, arrayNdx, value);
910 else if (istreq(field, "vmods") ||
911 istreq(field, "virtualmods") ||
912 istreq(field, "virtualmodifiers")) {
915 ok = ExprResolveVModMask(info->keymap, value, &mask);
917 keyi->vmodmap = (mask >> XKB_NUM_CORE_MODS) & 0xffff;
918 keyi->defined |= KEY_FIELD_VMODMAP;
921 log_err(info->keymap->ctx,
922 "Expected a virtual modifier mask, found %s; "
923 "Ignoring virtual modifiers definition for key %s\n",
924 expr_op_type_to_string(value->op),
925 LongKeyNameText(keyi->name));
928 else if (istreq(field, "locking") ||
929 istreq(field, "lock") ||
930 istreq(field, "locks")) {
931 log_err(info->keymap->ctx,
932 "Key behaviors not supported; "
933 "Ignoring locking specification for key %s\n",
934 LongKeyNameText(keyi->name));
936 else if (istreq(field, "radiogroup") ||
937 istreq(field, "permanentradiogroup") ||
938 istreq(field, "allownone")) {
939 log_err(info->keymap->ctx,
940 "Radio groups not supported; "
941 "Ignoring radio group specification for key %s\n",
942 LongKeyNameText(keyi->name));
944 else if (istreq_prefix("overlay", field) ||
945 istreq_prefix("permanentoverlay", field)) {
946 log_err(info->keymap->ctx,
947 "Overlays not supported; "
948 "Ignoring overlay specification for key %s\n",
949 LongKeyNameText(keyi->name));
951 else if (istreq(field, "repeating") ||
952 istreq(field, "repeats") ||
953 istreq(field, "repeat")) {
956 ok = ExprResolveEnum(ctx, value, &val, repeatEntries);
958 log_err(info->keymap->ctx,
959 "Illegal repeat setting for %s; "
960 "Non-boolean repeat setting ignored\n",
961 LongKeyNameText(keyi->name));
965 keyi->defined |= KEY_FIELD_REPEAT;
967 else if (istreq(field, "groupswrap") ||
968 istreq(field, "wrapgroups")) {
971 if (!ExprResolveBoolean(ctx, value, &set)) {
972 log_err(info->keymap->ctx,
973 "Illegal groupsWrap setting for %s; "
974 "Non-boolean value ignored\n",
975 LongKeyNameText(keyi->name));
980 keyi->out_of_range_group_action = RANGE_WRAP;
982 keyi->out_of_range_group_action = RANGE_SATURATE;
984 keyi->defined |= KEY_FIELD_GROUPINFO;
986 else if (istreq(field, "groupsclamp") ||
987 istreq(field, "clampgroups")) {
990 if (!ExprResolveBoolean(ctx, value, &set)) {
991 log_err(info->keymap->ctx,
992 "Illegal groupsClamp setting for %s; "
993 "Non-boolean value ignored\n",
994 LongKeyNameText(keyi->name));
999 keyi->out_of_range_group_action = RANGE_SATURATE;
1001 keyi->out_of_range_group_action = RANGE_WRAP;
1003 keyi->defined |= KEY_FIELD_GROUPINFO;
1005 else if (istreq(field, "groupsredirect") ||
1006 istreq(field, "redirectgroups")) {
1007 xkb_layout_index_t grp;
1009 if (!ExprResolveGroup(ctx, value, &grp)) {
1010 log_err(info->keymap->ctx,
1011 "Illegal group index for redirect of key %s; "
1012 "Definition with non-integer group ignored\n",
1013 LongKeyNameText(keyi->name));
1017 keyi->out_of_range_group_action = RANGE_REDIRECT;
1018 keyi->out_of_range_group_number = grp - 1;
1019 keyi->defined |= KEY_FIELD_GROUPINFO;
1022 log_err(info->keymap->ctx,
1023 "Unknown field %s in a symbol interpretation; "
1024 "Definition ignored\n",
1033 SetGroupName(SymbolsInfo *info, ExprDef *arrayNdx, ExprDef *value)
1035 xkb_layout_index_t grp;
1039 log_vrb(info->keymap->ctx, 1,
1040 "You must specify an index when specifying a group name; "
1041 "Group name definition without array subscript ignored\n");
1045 if (!ExprResolveGroup(info->keymap->ctx, arrayNdx, &grp)) {
1046 log_err(info->keymap->ctx,
1047 "Illegal index in group name definition; "
1048 "Definition with non-integer array index ignored\n");
1052 if (!ExprResolveString(info->keymap->ctx, value, &name)) {
1053 log_err(info->keymap->ctx,
1054 "Group name must be a string; "
1055 "Illegal name for group %d ignored\n", grp);
1059 info->group_names[grp - 1 + info->explicit_group] = name;
1064 HandleGlobalVar(SymbolsInfo *info, VarDef *stmt)
1066 const char *elem, *field;
1070 if (ExprResolveLhs(info->keymap->ctx, stmt->name, &elem, &field,
1072 return 0; /* internal error, already reported */
1073 if (elem && istreq(elem, "key")) {
1074 ret = SetSymbolsField(info, &info->dflt, field, arrayNdx,
1077 else if (!elem && (istreq(field, "name") ||
1078 istreq(field, "groupname"))) {
1079 ret = SetGroupName(info, arrayNdx, stmt->value);
1081 else if (!elem && (istreq(field, "groupswrap") ||
1082 istreq(field, "wrapgroups"))) {
1083 log_err(info->keymap->ctx,
1084 "Global \"groupswrap\" not supported; Ignored\n");
1087 else if (!elem && (istreq(field, "groupsclamp") ||
1088 istreq(field, "clampgroups"))) {
1089 log_err(info->keymap->ctx,
1090 "Global \"groupsclamp\" not supported; Ignored\n");
1093 else if (!elem && (istreq(field, "groupsredirect") ||
1094 istreq(field, "redirectgroups"))) {
1095 log_err(info->keymap->ctx,
1096 "Global \"groupsredirect\" not supported; Ignored\n");
1099 else if (!elem && istreq(field, "allownone")) {
1100 log_err(info->keymap->ctx,
1101 "Radio groups not supported; "
1102 "Ignoring \"allownone\" specification\n");
1106 ret = SetActionField(info->keymap, elem, field, arrayNdx, stmt->value,
1114 HandleSymbolsBody(SymbolsInfo *info, VarDef *def, KeyInfo *keyi)
1117 const char *elem, *field;
1120 for (; def; def = (VarDef *) def->common.next) {
1121 if (def->name && def->name->op == EXPR_FIELD_REF) {
1122 log_err(info->keymap->ctx,
1123 "Cannot set a global default value from within a key statement; "
1124 "Move statements to the global file scope\n");
1129 if (!def->value || def->value->op == EXPR_KEYSYM_LIST)
1136 ok = ExprResolveLhs(info->keymap->ctx, def->name, &elem, &field,
1141 ok = SetSymbolsField(info, keyi, field, arrayNdx, def->value);
1148 SetExplicitGroup(SymbolsInfo *info, KeyInfo *keyi)
1150 xkb_layout_index_t i;
1154 if (info->explicit_group == 0)
1157 darray_enumerate_from(i, groupi, keyi->groups, 1) {
1158 if (groupi->defined) {
1160 ClearGroupInfo(groupi);
1165 log_warn(info->keymap->ctx,
1166 "For the map %s an explicit group specified, "
1167 "but key %s has more than one group defined; "
1168 "All groups except first one will be ignored\n",
1169 info->name, LongKeyNameText(keyi->name));
1171 darray_resize0(keyi->groups, info->explicit_group + 1);
1172 darray_item(keyi->groups, info->explicit_group) =
1173 darray_item(keyi->groups, 0);
1174 InitGroupInfo(&darray_item(keyi->groups, 0));
1179 HandleSymbolsDef(SymbolsInfo *info, SymbolsDef *stmt)
1182 xkb_layout_index_t i;
1185 darray_init(keyi.groups);
1186 darray_copy(keyi.groups, info->dflt.groups);
1187 for (i = 0; i < darray_size(keyi.groups); i++) {
1188 darray_init(darray_item(keyi.groups, i).syms);
1189 darray_copy(darray_item(keyi.groups, i).syms,
1190 darray_item(info->dflt.groups, i).syms);
1191 darray_init(darray_item(keyi.groups, i).levels);
1192 darray_copy(darray_item(keyi.groups, i).levels,
1193 darray_item(info->dflt.groups, i).levels);
1195 keyi.merge = stmt->merge;
1196 keyi.name = KeyNameToLong(stmt->keyName);
1198 if (!HandleSymbolsBody(info, (VarDef *) stmt->symbols, &keyi)) {
1203 if (!SetExplicitGroup(info, &keyi)) {
1208 if (!AddKeySymbols(info, &keyi)) {
1217 HandleModMapDef(SymbolsInfo *info, ModMapDef *def)
1221 xkb_mod_index_t ndx;
1223 struct xkb_context *ctx = info->keymap->ctx;
1225 if (!LookupModIndex(ctx, NULL, def->modifier, EXPR_TYPE_INT, &ndx)) {
1226 log_err(info->keymap->ctx,
1227 "Illegal modifier map definition; "
1228 "Ignoring map for non-modifier \"%s\"\n",
1229 xkb_atom_text(ctx, def->modifier));
1236 for (key = def->keys; key != NULL; key = (ExprDef *) key->common.next) {
1239 if (key->op == EXPR_VALUE && key->value_type == EXPR_TYPE_KEYNAME) {
1240 tmp.haveSymbol = false;
1241 tmp.u.keyName = KeyNameToLong(key->value.keyName);
1243 else if (ExprResolveKeySym(ctx, key, &sym)) {
1244 tmp.haveSymbol = true;
1248 log_err(info->keymap->ctx,
1249 "Modmap entries may contain only key names or keysyms; "
1250 "Illegal definition for %s modifier ignored\n",
1251 ModIndexText(tmp.modifier));
1255 ok = AddModMapEntry(info, &tmp) && ok;
1261 HandleSymbolsFile(SymbolsInfo *info, XkbFile *file, enum merge_mode merge)
1267 info->name = strdup_safe(file->name);
1270 for (stmt = file->defs; stmt; stmt = stmt->next) {
1271 switch (stmt->type) {
1273 ok = HandleIncludeSymbols(info, (IncludeStmt *) stmt);
1276 ok = HandleSymbolsDef(info, (SymbolsDef *) stmt);
1279 ok = HandleGlobalVar(info, (VarDef *) stmt);
1282 ok = HandleVModDef((VModDef *) stmt, info->keymap, merge,
1286 ok = HandleModMapDef(info, (ModMapDef *) stmt);
1289 log_err(info->keymap->ctx,
1290 "Interpretation files may not include other types; "
1291 "Ignoring %s\n", stmt_type_to_string(stmt->type));
1299 if (info->errorCount > 10) {
1300 log_err(info->keymap->ctx, "Abandoning symbols file \"%s\"\n",
1308 * Given a keysym @sym, return a key which generates it, or NULL.
1309 * This is used for example in a modifier map definition, such as:
1310 * modifier_map Lock { Caps_Lock };
1311 * where we want to add the Lock modifier to the modmap of the key
1312 * which matches the keysym Caps_Lock.
1313 * Since there can be many keys which generates the keysym, the key
1314 * is chosen first by lowest group in which the keysym appears, than
1315 * by lowest level and than by lowest key code.
1317 static struct xkb_key *
1318 FindKeyForSymbol(struct xkb_keymap *keymap, xkb_keysym_t sym)
1320 struct xkb_key *key, *ret = NULL;
1321 xkb_layout_index_t group, min_group = UINT32_MAX;
1322 xkb_level_index_t level, min_level = UINT16_MAX;
1324 xkb_foreach_key(key, keymap) {
1325 for (group = 0; group < key->num_groups; group++) {
1326 for (level = 0; level < XkbKeyGroupWidth(keymap, key, group);
1328 if (XkbKeyNumSyms(key, group, level) != 1 ||
1329 (XkbKeySymEntry(key, group, level))[0] != sym)
1333 * If the keysym was found in a group or level > 0, we must
1334 * keep looking since we might find a key in which the keysym
1335 * is in a lower group or level.
1337 if (group < min_group ||
1338 (group == min_group && level < min_level)) {
1340 if (group == 0 && level == 0) {
1356 FindNamedType(struct xkb_keymap *keymap, xkb_atom_t name, unsigned *type_rtrn)
1360 for (i = 0; i < keymap->num_types; i++) {
1361 if (keymap->types[i].name == name) {
1371 * Assign a type to the given sym and return the Atom for the type assigned.
1374 * - ONE_LEVEL for width 0/1
1375 * - ALPHABETIC for 2 shift levels, with lower/upercase
1376 * - KEYPAD for keypad keys.
1377 * - TWO_LEVEL for other 2 shift level keys.
1378 * and the same for four level keys.
1380 * @param width Number of sysms in syms.
1381 * @param syms The keysyms for the given key (must be size width).
1382 * @param typeNameRtrn Set to the Atom of the type name.
1384 * @returns true if a type could be found, false otherwise.
1386 * FIXME: I need to take the KeyInfo so I can look at symsMapIndex and
1387 * all that fun stuff rather than just assuming there's always one
1391 FindAutomaticType(struct xkb_context *ctx, xkb_level_index_t width,
1392 const xkb_keysym_t *syms, xkb_atom_t *typeNameRtrn,
1396 if ((width == 1) || (width == 0)) {
1397 *typeNameRtrn = xkb_atom_intern(ctx, "ONE_LEVEL");
1400 else if (width == 2) {
1401 if (syms && xkb_keysym_is_lower(syms[0]) &&
1402 xkb_keysym_is_upper(syms[1])) {
1403 *typeNameRtrn = xkb_atom_intern(ctx, "ALPHABETIC");
1405 else if (syms && (xkb_keysym_is_keypad(syms[0]) ||
1406 xkb_keysym_is_keypad(syms[1]))) {
1407 *typeNameRtrn = xkb_atom_intern(ctx, "KEYPAD");
1411 *typeNameRtrn = xkb_atom_intern(ctx, "TWO_LEVEL");
1415 else if (width <= 4) {
1416 if (syms && xkb_keysym_is_lower(syms[0]) &&
1417 xkb_keysym_is_upper(syms[1]))
1418 if (xkb_keysym_is_lower(syms[2]) && xkb_keysym_is_upper(syms[3]))
1420 xkb_atom_intern(ctx, "FOUR_LEVEL_ALPHABETIC");
1422 *typeNameRtrn = xkb_atom_intern(ctx,
1423 "FOUR_LEVEL_SEMIALPHABETIC");
1425 else if (syms && (xkb_keysym_is_keypad(syms[0]) ||
1426 xkb_keysym_is_keypad(syms[1])))
1427 *typeNameRtrn = xkb_atom_intern(ctx, "FOUR_LEVEL_KEYPAD");
1429 *typeNameRtrn = xkb_atom_intern(ctx, "FOUR_LEVEL");
1430 /* XXX: why not set autoType here? */
1436 CopySymbolsDef(SymbolsInfo *info, KeyInfo *keyi)
1438 struct xkb_keymap *keymap = info->keymap;
1439 struct xkb_key *key;
1441 const GroupInfo *group0;
1442 xkb_layout_index_t i;
1444 unsigned int sizeSyms;
1445 unsigned int symIndex;
1448 * The name is guaranteed to be real and not an alias (see
1449 * AddKeySymbols), so 'false' is safe here.
1451 key = FindNamedKey(keymap, keyi->name, false);
1453 log_vrb(info->keymap->ctx, 5,
1454 "Key %s not found in keycodes; Symbols ignored\n",
1455 LongKeyNameText(keyi->name));
1459 /* Find the range of groups we need. */
1460 key->num_groups = 0;
1461 darray_enumerate(i, groupi, keyi->groups)
1462 if (groupi->defined)
1463 key->num_groups = i + 1;
1465 if (key->num_groups <= 0)
1466 return false; /* WSGO */
1468 darray_resize(keyi->groups, key->num_groups);
1471 * If there are empty groups between non-empty ones, fill them with data
1472 * from the first group.
1473 * We can make a wrong assumption here. But leaving gaps is worse.
1475 group0 = &darray_item(keyi->groups, 0);
1476 darray_foreach_from(groupi, keyi->groups, 1) {
1477 if (groupi->defined)
1480 groupi->type = group0->type;
1481 darray_copy(groupi->syms, group0->syms);
1482 darray_copy(groupi->levels, group0->levels);
1483 groupi->defined = group0->defined;
1486 /* See if we need to allocate an actions array. */
1487 haveActions = false;
1488 darray_foreach(groupi, keyi->groups) {
1490 darray_foreach(leveli, groupi->levels) {
1491 if (leveli->act.type != ACTION_TYPE_NONE) {
1500 * Find and assign the groups' types in the keymap. Also find the
1501 * key width according to the largest type.
1503 key->kt_index = calloc(key->num_groups, sizeof(*key->kt_index));
1505 darray_enumerate(i, groupi, keyi->groups) {
1506 struct xkb_key_type *type;
1507 bool autoType = false;
1509 /* Find the type of the group, if it is missing. */
1510 if (groupi->type == XKB_ATOM_NONE) {
1511 if (keyi->dfltType != XKB_ATOM_NONE)
1512 groupi->type = keyi->dfltType;
1513 else if (FindAutomaticType(keymap->ctx,
1514 darray_size(groupi->levels),
1515 darray_mem(groupi->syms, 0),
1516 &groupi->type, &autoType)) { }
1518 log_vrb(info->keymap->ctx, 5,
1519 "No automatic type for %d levels; "
1520 "Using %s for the %s key\n",
1521 (int) darray_size(groupi->levels),
1522 xkb_atom_text(keymap->ctx, groupi->type),
1523 LongKeyNameText(keyi->name));
1526 /* Find the type in the keymap, if it was defined in xkb_types. */
1527 if (FindNamedType(keymap, groupi->type, &key->kt_index[i])) {
1528 if (!autoType || darray_size(groupi->levels) > 2)
1529 key->explicit_groups |= (1 << i);
1532 log_vrb(info->keymap->ctx, 3,
1533 "Type \"%s\" is not defined; "
1534 "Using default type for the %s key\n",
1535 xkb_atom_text(keymap->ctx, groupi->type),
1536 LongKeyNameText(keyi->name));
1538 * Index 0 is guaranteed to contain something, usually
1539 * ONE_LEVEL or at least some default one-level type.
1541 key->kt_index[i] = 0;
1544 /* If the type specifies fewer levels than the key has, shrink the key. */
1545 type = &keymap->types[key->kt_index[i]];
1546 if (type->num_levels < darray_size(groupi->levels)) {
1547 log_vrb(info->keymap->ctx, 1,
1548 "Type \"%s\" has %d levels, but %s has %d levels; "
1549 "Ignoring extra symbols\n",
1550 xkb_atom_text(keymap->ctx, type->name),
1552 LongKeyNameText(keyi->name),
1553 (int) darray_size(groupi->levels));
1554 darray_resize(groupi->levels, type->num_levels);
1558 * Why type->num_levels and not darray_size(groupi->levels)?
1559 * Because the type may have more levels, and each group must
1560 * have at least as many levels as its type. Because the
1561 * key->syms array is indexed by (group * width + level), we
1562 * must take the largest one.
1563 * Maybe we can change it to save some space.
1565 key->width = MAX(key->width, type->num_levels);
1568 /* Find the size of the syms array. */
1570 darray_foreach(groupi, keyi->groups)
1571 sizeSyms += darray_size(groupi->syms);
1573 /* Initialize the xkb_key, now that we know the sizes. */
1574 key->syms = calloc(sizeSyms, sizeof(*key->syms));
1575 key->sym_index = calloc(key->num_groups * key->width,
1576 sizeof(*key->sym_index));
1577 key->num_syms = calloc(key->num_groups * key->width,
1578 sizeof(*key->num_syms));
1579 key->out_of_range_group_number = keyi->out_of_range_group_number;
1580 key->out_of_range_group_action = keyi->out_of_range_group_action;
1582 key->actions = calloc(key->num_groups * key->width,
1583 sizeof(*key->actions));
1584 key->explicit |= EXPLICIT_INTERP;
1586 if (keyi->defined & KEY_FIELD_VMODMAP) {
1587 key->vmodmap = keyi->vmodmap;
1588 key->explicit |= EXPLICIT_VMODMAP;
1591 if (keyi->repeat != KEY_REPEAT_UNDEFINED) {
1592 key->repeats = (keyi->repeat == KEY_REPEAT_YES);
1593 key->explicit |= EXPLICIT_REPEAT;
1596 /* Copy keysyms and actions. */
1598 darray_enumerate(i, groupi, keyi->groups) {
1599 xkb_level_index_t j;
1602 /* We rely on calloc having zeroized the arrays up to key->width. */
1603 darray_enumerate(j, leveli, groupi->levels) {
1604 if (leveli->act.type != ACTION_TYPE_NONE)
1605 key->actions[i * key->width + j] = leveli->act;
1607 if (leveli->num_syms <= 0)
1610 memcpy(&key->syms[symIndex],
1611 &darray_item(groupi->syms, leveli->sym_index),
1612 leveli->num_syms * sizeof(*key->syms));
1613 key->sym_index[i * key->width + j] = symIndex;
1614 key->num_syms[i * key->width + j] = leveli->num_syms;
1615 symIndex += key->num_syms[i * key->width + j];
1623 CopyModMapDef(SymbolsInfo *info, ModMapEntry *entry)
1625 struct xkb_key *key;
1626 struct xkb_keymap *keymap = info->keymap;
1628 if (!entry->haveSymbol) {
1629 key = FindNamedKey(keymap, entry->u.keyName, true);
1631 log_vrb(info->keymap->ctx, 5,
1632 "Key %s not found in keycodes; "
1633 "Modifier map entry for %s not updated\n",
1634 LongKeyNameText(entry->u.keyName),
1635 ModIndexText(entry->modifier));
1640 key = FindKeyForSymbol(keymap, entry->u.keySym);
1642 log_vrb(info->keymap->ctx, 5,
1643 "Key \"%s\" not found in symbol map; "
1644 "Modifier map entry for %s not updated\n",
1645 KeysymText(entry->u.keySym),
1646 ModIndexText(entry->modifier));
1651 key->modmap |= (1 << entry->modifier);
1656 CopySymbolsToKeymap(struct xkb_keymap *keymap, SymbolsInfo *info)
1660 xkb_layout_index_t i;
1661 struct xkb_key *key;
1663 keymap->symbols_section_name = strdup_safe(info->name);
1665 for (i = 0; i < XKB_NUM_GROUPS; i++)
1666 if (info->group_names[i] != XKB_ATOM_NONE)
1667 keymap->group_names[i] = info->group_names[i];
1669 darray_foreach(keyi, info->keys)
1670 if (!CopySymbolsDef(info, keyi))
1673 if (xkb_context_get_log_verbosity(keymap->ctx) > 3) {
1674 xkb_foreach_key(key, keymap) {
1675 if (key->name[0] == '\0')
1678 if (key->num_groups < 1)
1679 log_info(keymap->ctx,
1680 "No symbols defined for %s\n",
1681 KeyNameText(key->name));
1685 darray_foreach(mm, info->modMaps)
1686 if (!CopyModMapDef(info, mm))
1689 /* XXX: If we don't ignore errorCount, things break. */
1694 CompileSymbols(XkbFile *file, struct xkb_keymap *keymap,
1695 enum merge_mode merge)
1698 ActionsInfo *actions;
1700 actions = NewActionsInfo();
1704 InitSymbolsInfo(&info, keymap, file->id, actions);
1705 info.dflt.merge = merge;
1707 HandleSymbolsFile(&info, file, merge);
1709 if (darray_empty(info.keys))
1712 if (info.errorCount != 0)
1715 if (!CopySymbolsToKeymap(keymap, &info))
1718 ClearSymbolsInfo(&info);
1719 FreeActionsInfo(actions);
1723 FreeActionsInfo(actions);
1724 ClearSymbolsInfo(&info);