xenocara/app/xkbcomp/compat.c

881 lines
26 KiB
C
Raw Normal View History

2006-11-25 13:07:29 -07:00
/************************************************************
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 <X11/Xos.h>
#include "xkbcomp.h"
#include "tokens.h"
#include "expr.h"
#include "vmod.h"
#include "misc.h"
#include "indicators.h"
#include "action.h"
2011-01-11 13:56:40 -07:00
#include "compat.h"
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
typedef struct _SymInterpInfo
{
CommonInfo defs;
XkbSymInterpretRec interp;
2006-11-25 13:07:29 -07:00
} SymInterpInfo;
#define _SI_VirtualMod (1<<0)
#define _SI_Action (1<<1)
#define _SI_AutoRepeat (1<<2)
#define _SI_LockingKey (1<<3)
#define _SI_LevelOneOnly (1<<4)
2011-01-11 13:56:40 -07:00
typedef struct _GroupCompatInfo
{
unsigned char fileID;
unsigned char merge;
unsigned char real_mods;
unsigned short vmods;
2006-11-25 13:07:29 -07:00
} GroupCompatInfo;
2011-01-11 13:56:40 -07:00
typedef struct _CompatInfo
{
char *name;
unsigned fileID;
int errorCount;
int nInterps;
SymInterpInfo *interps;
SymInterpInfo dflt;
LEDInfo ledDflt;
GroupCompatInfo groupCompat[XkbNumKbdGroups];
LEDInfo *leds;
VModInfo vmods;
ActionInfo *act;
XkbDescPtr xkb;
2006-11-25 13:07:29 -07:00
} CompatInfo;
/***====================================================================***/
#define ReportSINotArray(si,f,i) \
ReportNotArray("symbol interpretation",(f),siText((si),(i)))
#define ReportSIBadType(si,f,w,i) \
ReportBadType("symbol interpretation",(f),siText((si),(i)),(w))
/***====================================================================***/
static char *
2011-01-11 13:56:40 -07:00
siText(SymInterpInfo * si, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
static char buf[128];
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if (si == &info->dflt)
{
snprintf(buf, sizeof(buf), "default");
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
else
{
snprintf(buf, sizeof(buf), "%s+%s(%s)",
XkbKeysymText(si->interp.sym, XkbMessage),
XkbSIMatchText(si->interp.match, XkbMessage),
XkbModMaskText(si->interp.mods, XkbMessage));
2006-11-25 13:07:29 -07:00
}
return buf;
}
static void
2011-01-11 13:56:40 -07:00
InitCompatInfo(CompatInfo * info, XkbDescPtr xkb)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
register int i;
info->xkb = xkb;
info->name = NULL;
info->fileID = 0;
info->errorCount = 0;
info->nInterps = 0;
info->interps = NULL;
info->act = NULL;
info->dflt.defs.fileID = info->fileID;
info->dflt.defs.defined = 0;
info->dflt.defs.merge = MergeOverride;
info->dflt.interp.flags = 0;
info->dflt.interp.virtual_mod = XkbNoModifier;
info->dflt.interp.act.type = XkbSA_NoAction;
for (i = 0; i < XkbAnyActionDataSize; i++)
{
info->dflt.interp.act.data[i] = 0;
}
ClearIndicatorMapInfo(xkb->dpy, &info->ledDflt);
info->ledDflt.defs.fileID = info->fileID;
info->ledDflt.defs.defined = 0;
info->ledDflt.defs.merge = MergeOverride;
bzero((char *) &info->groupCompat[0],
XkbNumKbdGroups * sizeof(GroupCompatInfo));
info->leds = NULL;
InitVModInfo(&info->vmods, xkb);
2006-11-25 13:07:29 -07:00
return;
}
static void
2011-01-11 13:56:40 -07:00
ClearCompatInfo(CompatInfo * info, XkbDescPtr xkb)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
register int i;
if (info->name != NULL)
uFree(info->name);
info->name = NULL;
info->dflt.defs.defined = 0;
info->dflt.defs.merge = MergeAugment;
info->dflt.interp.flags = 0;
info->dflt.interp.virtual_mod = XkbNoModifier;
info->dflt.interp.act.type = XkbSA_NoAction;
for (i = 0; i < XkbAnyActionDataSize; i++)
{
info->dflt.interp.act.data[i] = 0;
}
ClearIndicatorMapInfo(xkb->dpy, &info->ledDflt);
info->nInterps = 0;
info->interps = (SymInterpInfo *) ClearCommonInfo(&info->interps->defs);
bzero((char *) &info->groupCompat[0],
XkbNumKbdGroups * sizeof(GroupCompatInfo));
info->leds = (LEDInfo *) ClearCommonInfo(&info->leds->defs);
2006-11-25 13:07:29 -07:00
/* 3/30/94 (ef) -- XXX! Should free action info here */
2011-01-11 13:56:40 -07:00
ClearVModInfo(&info->vmods, xkb);
2006-11-25 13:07:29 -07:00
return;
}
static SymInterpInfo *
2011-01-11 13:56:40 -07:00
NextInterp(CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
SymInterpInfo *si;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
si = uTypedAlloc(SymInterpInfo);
if (si)
{
bzero((char *) si, sizeof(SymInterpInfo));
info->interps =
(SymInterpInfo *) AddCommonInfo(&info->interps->defs,
(CommonInfo *) si);
info->nInterps++;
2006-11-25 13:07:29 -07:00
}
return si;
}
static SymInterpInfo *
2011-01-11 13:56:40 -07:00
FindMatchingInterp(CompatInfo * info, SymInterpInfo * new)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
SymInterpInfo *old;
for (old = info->interps; old != NULL;
old = (SymInterpInfo *) old->defs.next)
{
if ((old->interp.sym == new->interp.sym) &&
(old->interp.mods == new->interp.mods) &&
(old->interp.match == new->interp.match))
{
return old;
}
2006-11-25 13:07:29 -07:00
}
return NULL;
}
static Bool
2011-01-11 13:56:40 -07:00
AddInterp(CompatInfo * info, SymInterpInfo * new)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
unsigned collide;
SymInterpInfo *old;
collide = 0;
old = FindMatchingInterp(info, new);
if (old != NULL)
{
if (new->defs.merge == MergeReplace)
{
SymInterpInfo *next = (SymInterpInfo *) old->defs.next;
if (((old->defs.fileID == new->defs.fileID)
&& (warningLevel > 0)) || (warningLevel > 9))
{
WARN1("Multiple definitions for \"%s\"\n", siText(new, info));
ACTION("Earlier interpretation ignored\n");
}
*old = *new;
old->defs.next = &next->defs;
return True;
}
if (UseNewField(_SI_VirtualMod, &old->defs, &new->defs, &collide))
{
old->interp.virtual_mod = new->interp.virtual_mod;
old->defs.defined |= _SI_VirtualMod;
}
if (UseNewField(_SI_Action, &old->defs, &new->defs, &collide))
{
old->interp.act = new->interp.act;
old->defs.defined |= _SI_Action;
}
if (UseNewField(_SI_AutoRepeat, &old->defs, &new->defs, &collide))
{
old->interp.flags &= ~XkbSI_AutoRepeat;
old->interp.flags |= (new->interp.flags & XkbSI_AutoRepeat);
old->defs.defined |= _SI_AutoRepeat;
}
if (UseNewField(_SI_LockingKey, &old->defs, &new->defs, &collide))
{
old->interp.flags &= ~XkbSI_LockingKey;
old->interp.flags |= (new->interp.flags & XkbSI_LockingKey);
old->defs.defined |= _SI_LockingKey;
}
if (UseNewField(_SI_LevelOneOnly, &old->defs, &new->defs, &collide))
{
old->interp.match &= ~XkbSI_LevelOneOnly;
old->interp.match |= (new->interp.match & XkbSI_LevelOneOnly);
old->defs.defined |= _SI_LevelOneOnly;
}
if (collide)
{
WARN1("Multiple interpretations of \"%s\"\n", siText(new, info));
ACTION1("Using %s definition for duplicate fields\n",
(new->defs.merge != MergeAugment ? "last" : "first"));
}
return True;
}
old = new;
if ((new = NextInterp(info)) == NULL)
return False;
*new = *old;
new->defs.next = NULL;
2006-11-25 13:07:29 -07:00
return True;
}
static Bool
2011-01-11 13:56:40 -07:00
AddGroupCompat(CompatInfo * info, unsigned group, GroupCompatInfo * newGC)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
GroupCompatInfo *gc;
unsigned merge;
merge = newGC->merge;
gc = &info->groupCompat[group];
if (((gc->real_mods == newGC->real_mods) && (gc->vmods == newGC->vmods)))
{
return True;
}
if (((gc->fileID == newGC->fileID) && (warningLevel > 0))
|| (warningLevel > 9))
{
WARN1("Compat map for group %d redefined\n", group + 1);
ACTION1("Using %s definition\n",
(merge == MergeAugment ? "old" : "new"));
}
if (merge != MergeAugment)
*gc = *newGC;
2006-11-25 13:07:29 -07:00
return True;
}
/***====================================================================***/
static Bool
2011-01-11 13:56:40 -07:00
ResolveStateAndPredicate(ExprDef * expr,
unsigned *pred_rtrn,
unsigned *mods_rtrn, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
ExprResult result;
if (expr == NULL)
{
*pred_rtrn = XkbSI_AnyOfOrNone;
*mods_rtrn = ~0;
return True;
}
*pred_rtrn = XkbSI_Exactly;
if (expr->op == ExprActionDecl)
{
char *pred_txt =
XkbAtomText(NULL, expr->value.action.name, XkbMessage);
if (uStrCaseCmp(pred_txt, "noneof") == 0)
*pred_rtrn = XkbSI_NoneOf;
else if (uStrCaseCmp(pred_txt, "anyofornone") == 0)
*pred_rtrn = XkbSI_AnyOfOrNone;
else if (uStrCaseCmp(pred_txt, "anyof") == 0)
*pred_rtrn = XkbSI_AnyOf;
else if (uStrCaseCmp(pred_txt, "allof") == 0)
*pred_rtrn = XkbSI_AllOf;
else if (uStrCaseCmp(pred_txt, "exactly") == 0)
*pred_rtrn = XkbSI_Exactly;
else
{
ERROR1("Illegal modifier predicate \"%s\"\n", pred_txt);
ACTION("Ignored\n");
return False;
}
expr = expr->value.action.args;
}
else if (expr->op == ExprIdent)
{
char *pred_txt = XkbAtomText(NULL, expr->value.str, XkbMessage);
if ((pred_txt) && (uStrCaseCmp(pred_txt, "any") == 0))
{
*pred_rtrn = XkbSI_AnyOf;
*mods_rtrn = 0xff;
return True;
}
}
if (ExprResolveModMask(expr, &result, NULL, NULL))
{
*mods_rtrn = result.uval;
return True;
2006-11-25 13:07:29 -07:00
}
return False;
}
/***====================================================================***/
static void
2011-01-11 13:56:40 -07:00
MergeIncludedCompatMaps(CompatInfo * into, CompatInfo * from, unsigned merge)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
SymInterpInfo *si;
LEDInfo *led, *rtrn, *next;
GroupCompatInfo *gcm;
register int i;
if (from->errorCount > 0)
{
into->errorCount += from->errorCount;
return;
}
if (into->name == NULL)
{
into->name = from->name;
from->name = NULL;
}
for (si = from->interps; si; si = (SymInterpInfo *) si->defs.next)
{
if (merge != MergeDefault)
si->defs.merge = merge;
if (!AddInterp(into, si))
into->errorCount++;
}
for (i = 0, gcm = &from->groupCompat[0]; i < XkbNumKbdGroups; i++, gcm++)
{
if (merge != MergeDefault)
gcm->merge = merge;
if (!AddGroupCompat(into, i, gcm))
into->errorCount++;
}
for (led = from->leds; led != NULL; led = next)
{
next = (LEDInfo *) led->defs.next;
if (merge != MergeDefault)
led->defs.merge = merge;
rtrn = AddIndicatorMap(into->leds, led);
if (rtrn != NULL)
into->leds = rtrn;
else
into->errorCount++;
2006-11-25 13:07:29 -07:00
}
return;
}
2011-01-11 13:56:40 -07:00
typedef void (*FileHandler) (XkbFile * /* rtrn */ ,
XkbDescPtr /* xkb */ ,
unsigned /* merge */ ,
CompatInfo * /* info */
);
2006-11-25 13:07:29 -07:00
static Bool
2011-01-11 13:56:40 -07:00
HandleIncludeCompatMap(IncludeStmt * stmt,
XkbDescPtr xkb, CompatInfo * info, FileHandler hndlr)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
unsigned newMerge;
XkbFile *rtrn;
CompatInfo included;
Bool haveSelf;
haveSelf = False;
if ((stmt->file == NULL) && (stmt->map == NULL))
{
haveSelf = True;
included = *info;
bzero(info, sizeof(CompatInfo));
}
else if (ProcessIncludeFile(stmt, XkmCompatMapIndex, &rtrn, &newMerge))
{
InitCompatInfo(&included, xkb);
included.fileID = rtrn->id;
included.dflt = info->dflt;
included.dflt.defs.fileID = rtrn->id;
included.dflt.defs.merge = newMerge;
included.ledDflt.defs.fileID = rtrn->id;
included.ledDflt.defs.merge = newMerge;
included.act = info->act;
(*hndlr) (rtrn, xkb, MergeOverride, &included);
if (stmt->stmt != NULL)
{
if (included.name != NULL)
uFree(included.name);
included.name = stmt->stmt;
stmt->stmt = NULL;
}
}
else
{
info->errorCount += 10;
return False;
}
if ((stmt->next != NULL) && (included.errorCount < 1))
{
IncludeStmt *next;
unsigned op;
CompatInfo next_incl;
for (next = stmt->next; next != NULL; next = next->next)
{
if ((next->file == NULL) && (next->map == NULL))
{
haveSelf = True;
MergeIncludedCompatMaps(&included, info, next->merge);
ClearCompatInfo(info, xkb);
}
else if (ProcessIncludeFile(next, XkmCompatMapIndex, &rtrn, &op))
{
InitCompatInfo(&next_incl, xkb);
next_incl.fileID = rtrn->id;
next_incl.dflt = info->dflt;
next_incl.dflt.defs.fileID = rtrn->id;
next_incl.dflt.defs.merge = op;
next_incl.ledDflt.defs.fileID = rtrn->id;
next_incl.ledDflt.defs.merge = op;
next_incl.act = info->act;
(*hndlr) (rtrn, xkb, MergeOverride, &next_incl);
MergeIncludedCompatMaps(&included, &next_incl, op);
ClearCompatInfo(&next_incl, xkb);
}
else
{
info->errorCount += 10;
return False;
}
}
2006-11-25 13:07:29 -07:00
}
if (haveSelf)
2011-01-11 13:56:40 -07:00
*info = included;
else
{
MergeIncludedCompatMaps(info, &included, newMerge);
ClearCompatInfo(&included, xkb);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
return (info->errorCount == 0);
2006-11-25 13:07:29 -07:00
}
static LookupEntry useModMapValues[] = {
2011-01-11 13:56:40 -07:00
{"levelone", 1},
{"level1", 1},
{"anylevel", 0},
{"any", 0},
{NULL, 0}
2006-11-25 13:07:29 -07:00
};
static int
2011-01-11 13:56:40 -07:00
SetInterpField(SymInterpInfo * si,
XkbDescPtr xkb,
char *field,
ExprDef * arrayNdx, ExprDef * value, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int ok = 1;
ExprResult tmp;
if (uStrCaseCmp(field, "action") == 0)
{
if (arrayNdx != NULL)
return ReportSINotArray(si, field, info);
ok = HandleActionDef(value, xkb, &si->interp.act, si->defs.merge,
info->act);
if (ok)
si->defs.defined |= _SI_Action;
}
else if ((uStrCaseCmp(field, "virtualmodifier") == 0) ||
(uStrCaseCmp(field, "virtualmod") == 0))
{
if (arrayNdx != NULL)
return ReportSINotArray(si, field, info);
ok = ResolveVirtualModifier(value, &tmp, &info->vmods);
if (ok)
{
si->interp.virtual_mod = tmp.uval;
si->defs.defined |= _SI_VirtualMod;
}
else
return ReportSIBadType(si, field, "virtual modifier", info);
}
else if (uStrCaseCmp(field, "repeat") == 0)
{
if (arrayNdx != NULL)
return ReportSINotArray(si, field, info);
ok = ExprResolveBoolean(value, &tmp, NULL, NULL);
if (ok)
{
if (tmp.uval)
si->interp.flags |= XkbSI_AutoRepeat;
else
si->interp.flags &= ~XkbSI_AutoRepeat;
si->defs.defined |= _SI_AutoRepeat;
}
else
return ReportSIBadType(si, field, "boolean", info);
}
else if (uStrCaseCmp(field, "locking") == 0)
{
if (arrayNdx != NULL)
return ReportSINotArray(si, field, info);
ok = ExprResolveBoolean(value, &tmp, NULL, NULL);
if (ok)
{
if (tmp.uval)
si->interp.flags |= XkbSI_LockingKey;
else
si->interp.flags &= ~XkbSI_LockingKey;
si->defs.defined |= _SI_LockingKey;
}
else
return ReportSIBadType(si, field, "boolean", info);
}
else if ((uStrCaseCmp(field, "usemodmap") == 0) ||
(uStrCaseCmp(field, "usemodmapmods") == 0))
{
if (arrayNdx != NULL)
return ReportSINotArray(si, field, info);
ok = ExprResolveEnum(value, &tmp, useModMapValues);
if (ok)
{
if (tmp.uval)
si->interp.match |= XkbSI_LevelOneOnly;
else
si->interp.match &= ~XkbSI_LevelOneOnly;
si->defs.defined |= _SI_LevelOneOnly;
}
else
return ReportSIBadType(si, field, "level specification", info);
}
else
{
ok = ReportBadField("symbol interpretation", field, siText(si, info));
2006-11-25 13:07:29 -07:00
}
return ok;
}
2011-01-11 13:56:40 -07:00
LookupEntry groupNames[] = {
{"group1", 0x01}
,
{"group2", 0x02}
,
{"group3", 0x04}
,
{"group4", 0x08}
,
{"group5", 0x10}
,
{"group6", 0x20}
,
{"group7", 0x40}
,
{"group8", 0x80}
,
{"none", 0x00}
,
{"all", 0xff}
,
{NULL, 0}
2006-11-25 13:07:29 -07:00
};
static int
2011-01-11 13:56:40 -07:00
HandleInterpVar(VarDef * stmt, XkbDescPtr xkb, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
ExprResult elem, field;
ExprDef *ndx;
if (ExprResolveLhs(stmt->name, &elem, &field, &ndx) == 0)
return 0; /* internal error, already reported */
if (elem.str && (uStrCaseCmp(elem.str, "interpret") == 0))
return SetInterpField(&info->dflt, xkb, field.str, ndx, stmt->value,
info);
if (elem.str && (uStrCaseCmp(elem.str, "indicator") == 0))
{
return SetIndicatorMapField(&info->ledDflt, xkb, field.str, ndx,
stmt->value);
}
return SetActionField(xkb, elem.str, field.str, ndx, stmt->value,
&info->act);
2006-11-25 13:07:29 -07:00
}
static int
2011-01-11 13:56:40 -07:00
HandleInterpBody(VarDef * def, XkbDescPtr xkb, SymInterpInfo * si,
CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int ok = 1;
ExprResult tmp, field;
ExprDef *arrayNdx;
for (; def != NULL; def = (VarDef *) def->common.next)
{
if ((def->name) && (def->name->type == ExprFieldRef))
{
ok = HandleInterpVar(def, xkb, info);
continue;
}
ok = ExprResolveLhs(def->name, &tmp, &field, &arrayNdx);
if (ok)
ok = SetInterpField(si, xkb, field.str, arrayNdx, def->value,
info);
2006-11-25 13:07:29 -07:00
}
return ok;
}
static int
2011-01-11 13:56:40 -07:00
HandleInterpDef(InterpDef * def, XkbDescPtr xkb, unsigned merge,
CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
unsigned pred, mods;
SymInterpInfo si;
if (!ResolveStateAndPredicate(def->match, &pred, &mods, info))
{
ERROR("Couldn't determine matching modifiers\n");
ACTION("Symbol interpretation ignored\n");
return False;
}
if (def->merge != MergeDefault)
merge = def->merge;
si = info->dflt;
si.defs.merge = merge;
si.interp.sym = def->sym;
si.interp.match = pred & XkbSI_OpMask;
si.interp.mods = mods;
if (!HandleInterpBody(def->def, xkb, &si, info))
{
info->errorCount++;
return False;
}
if (!AddInterp(info, &si))
{
info->errorCount++;
return False;
2006-11-25 13:07:29 -07:00
}
return True;
}
static int
2011-01-11 13:56:40 -07:00
HandleGroupCompatDef(GroupCompatDef * def,
XkbDescPtr xkb, unsigned merge, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
ExprResult val;
GroupCompatInfo tmp;
if (def->merge != MergeDefault)
merge = def->merge;
if (!XkbIsLegalGroup(def->group - 1))
{
ERROR1("Keyboard group must be in the range 1..%d\n",
XkbNumKbdGroups + 1);
ACTION1("Compatibility map for illegal group %d ignored\n",
def->group);
return False;
}
tmp.fileID = info->fileID;
tmp.merge = merge;
if (!ExprResolveModMask(def->def, &val, LookupVModMask, (XPointer) xkb))
{
ERROR("Expected a modifier mask in group compatibility definition\n");
ACTION1("Ignoring illegal compatibility map for group %d\n",
def->group);
return False;
}
tmp.real_mods = val.uval & 0xff;
tmp.vmods = (val.uval >> 8) & 0xffff;
return AddGroupCompat(info, def->group - 1, &tmp);
2006-11-25 13:07:29 -07:00
}
static void
2011-01-11 13:56:40 -07:00
HandleCompatMapFile(XkbFile * file,
XkbDescPtr xkb, unsigned merge, CompatInfo * info)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
ParseCommon *stmt;
if (merge == MergeDefault)
merge = MergeAugment;
info->name = uStringDup(file->name);
stmt = file->defs;
while (stmt)
{
switch (stmt->stmtType)
{
case StmtInclude:
if (!HandleIncludeCompatMap((IncludeStmt *) stmt, xkb, info,
HandleCompatMapFile))
info->errorCount++;
break;
case StmtInterpDef:
if (!HandleInterpDef((InterpDef *) stmt, xkb, merge, info))
info->errorCount++;
break;
case StmtGroupCompatDef:
if (!HandleGroupCompatDef
((GroupCompatDef *) stmt, xkb, merge, info))
info->errorCount++;
break;
case StmtIndicatorMapDef:
{
LEDInfo *rtrn;
rtrn = HandleIndicatorMapDef((IndicatorMapDef *) stmt, xkb,
&info->ledDflt, info->leds, merge);
if (rtrn != NULL)
info->leds = rtrn;
else
info->errorCount++;
}
break;
case StmtVarDef:
if (!HandleInterpVar((VarDef *) stmt, xkb, info))
info->errorCount++;
break;
case StmtVModDef:
if (!HandleVModDef((VModDef *) stmt, merge, &info->vmods))
info->errorCount++;
break;
case StmtKeycodeDef:
ERROR("Interpretation files may not include other types\n");
ACTION("Ignoring definition of key name\n");
info->errorCount++;
break;
default:
WSGO1("Unexpected statement type %d in HandleCompatMapFile\n",
stmt->stmtType);
break;
}
stmt = stmt->next;
if (info->errorCount > 10)
{
2006-11-25 13:07:29 -07:00
#ifdef NOISY
2011-01-11 13:56:40 -07:00
ERROR("Too many errors\n");
2006-11-25 13:07:29 -07:00
#endif
2011-01-11 13:56:40 -07:00
ACTION1("Abandoning compatibility map \"%s\"\n", file->topName);
break;
}
2006-11-25 13:07:29 -07:00
}
return;
}
static void
2011-01-11 13:56:40 -07:00
CopyInterps(CompatInfo * info,
XkbCompatMapPtr compat, Bool needSymbol, unsigned pred)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
SymInterpInfo *si;
for (si = info->interps; si; si = (SymInterpInfo *) si->defs.next)
{
if (((si->interp.match & XkbSI_OpMask) != pred) ||
(needSymbol && (si->interp.sym == NoSymbol)) ||
((!needSymbol) && (si->interp.sym != NoSymbol)))
continue;
if (compat->num_si >= compat->size_si)
{
WSGO("No room to merge symbol interpretations\n");
ACTION("Symbol interpretations lost\n");
return;
}
compat->sym_interpret[compat->num_si++] = si->interp;
2006-11-25 13:07:29 -07:00
}
return;
}
Bool
2011-01-11 13:56:40 -07:00
CompileCompatMap(XkbFile * file,
XkbFileInfo * result, unsigned merge, LEDInfo ** unboundLEDs)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int i;
CompatInfo info;
XkbDescPtr xkb;
GroupCompatInfo *gcm;
xkb = result->xkb;
InitCompatInfo(&info, xkb);
info.dflt.defs.merge = merge;
info.ledDflt.defs.merge = merge;
HandleCompatMapFile(file, xkb, merge, &info);
if (info.errorCount == 0)
{
int size;
if (XkbAllocCompatMap(xkb, XkbAllCompatMask, info.nInterps) !=
Success)
{
WSGO("Couldn't allocate compatibility map\n");
ACTION("Exiting\n");
return False;
}
if (info.name != NULL)
{
if (XkbAllocNames(xkb, XkbCompatNameMask, 0, 0) == Success)
xkb->names->compat =
XkbInternAtom(xkb->dpy, info.name, False);
else
{
WSGO("Couldn't allocate space for compat name\n");
ACTION2("Name \"%s\" (from %s) NOT assigned\n",
scanFile, info.name);
}
}
size = info.nInterps * sizeof(XkbSymInterpretRec);
if (size > 0)
{
CopyInterps(&info, xkb->compat, True, XkbSI_Exactly);
CopyInterps(&info, xkb->compat, True, XkbSI_AllOf | XkbSI_NoneOf);
CopyInterps(&info, xkb->compat, True, XkbSI_AnyOf);
CopyInterps(&info, xkb->compat, True, XkbSI_AnyOfOrNone);
CopyInterps(&info, xkb->compat, False, XkbSI_Exactly);
CopyInterps(&info, xkb->compat, False,
XkbSI_AllOf | XkbSI_NoneOf);
CopyInterps(&info, xkb->compat, False, XkbSI_AnyOf);
CopyInterps(&info, xkb->compat, False, XkbSI_AnyOfOrNone);
}
for (i = 0, gcm = &info.groupCompat[0]; i < XkbNumKbdGroups;
i++, gcm++)
{
if ((gcm->fileID != 0) || (gcm->real_mods != 0)
|| (gcm->vmods != 0))
{
xkb->compat->groups[i].mask = gcm->real_mods;
xkb->compat->groups[i].real_mods = gcm->real_mods;
xkb->compat->groups[i].vmods = gcm->vmods;
}
}
if (info.leds != NULL)
{
if (!CopyIndicatorMapDefs(result, info.leds, unboundLEDs))
info.errorCount++;
info.leds = NULL;
}
ClearCompatInfo(&info, xkb);
return True;
}
if (info.interps != NULL)
uFree(info.interps);
2006-11-25 13:07:29 -07:00
return False;
}