aboutsummaryrefslogtreecommitdiff
path: root/xkbcomp/compat.c
diff options
context:
space:
mode:
authormarha <marha@users.sourceforge.net>2009-06-28 22:07:26 +0000
committermarha <marha@users.sourceforge.net>2009-06-28 22:07:26 +0000
commit3562e78743202e43aec8727005182a2558117eca (patch)
tree8f9113a77d12470c5c851a2a8e4cb02e89df7d43 /xkbcomp/compat.c
downloadvcxsrv-3562e78743202e43aec8727005182a2558117eca.tar.gz
vcxsrv-3562e78743202e43aec8727005182a2558117eca.tar.bz2
vcxsrv-3562e78743202e43aec8727005182a2558117eca.zip
Checked in the following released items:
xkeyboard-config-1.4.tar.gz ttf-bitstream-vera-1.10.tar.gz font-alias-1.0.1.tar.gz font-sun-misc-1.0.0.tar.gz font-sun-misc-1.0.0.tar.gz font-sony-misc-1.0.0.tar.gz font-schumacher-misc-1.0.0.tar.gz font-mutt-misc-1.0.0.tar.gz font-misc-misc-1.0.0.tar.gz font-misc-meltho-1.0.0.tar.gz font-micro-misc-1.0.0.tar.gz font-jis-misc-1.0.0.tar.gz font-isas-misc-1.0.0.tar.gz font-dec-misc-1.0.0.tar.gz font-daewoo-misc-1.0.0.tar.gz font-cursor-misc-1.0.0.tar.gz font-arabic-misc-1.0.0.tar.gz font-winitzki-cyrillic-1.0.0.tar.gz font-misc-cyrillic-1.0.0.tar.gz font-cronyx-cyrillic-1.0.0.tar.gz font-screen-cyrillic-1.0.1.tar.gz font-xfree86-type1-1.0.1.tar.gz font-adobe-utopia-type1-1.0.1.tar.gz font-ibm-type1-1.0.0.tar.gz font-bitstream-type1-1.0.0.tar.gz font-bitstream-speedo-1.0.0.tar.gz font-bh-ttf-1.0.0.tar.gz font-bh-type1-1.0.0.tar.gz font-bitstream-100dpi-1.0.0.tar.gz font-bh-lucidatypewriter-100dpi-1.0.0.tar.gz font-bh-100dpi-1.0.0.tar.gz font-adobe-utopia-100dpi-1.0.1.tar.gz font-adobe-100dpi-1.0.0.tar.gz font-util-1.0.1.tar.gz font-bitstream-75dpi-1.0.0.tar.gz font-bh-lucidatypewriter-75dpi-1.0.0.tar.gz font-adobe-utopia-75dpi-1.0.1.tar.gz font-bh-75dpi-1.0.0.tar.gz bdftopcf-1.0.1.tar.gz font-adobe-75dpi-1.0.0.tar.gz mkfontscale-1.0.6.tar.gz openssl-0.9.8k.tar.gz bigreqsproto-1.0.2.tar.gz xtrans-1.2.2.tar.gz resourceproto-1.0.2.tar.gz inputproto-1.4.4.tar.gz compositeproto-0.4.tar.gz damageproto-1.1.0.tar.gz zlib-1.2.3.tar.gz xkbcomp-1.0.5.tar.gz freetype-2.3.9.tar.gz pthreads-w32-2-8-0-release.tar.gz pixman-0.12.0.tar.gz kbproto-1.0.3.tar.gz evieext-1.0.2.tar.gz fixesproto-4.0.tar.gz recordproto-1.13.2.tar.gz randrproto-1.2.2.tar.gz scrnsaverproto-1.1.0.tar.gz renderproto-0.9.3.tar.gz xcmiscproto-1.1.2.tar.gz fontsproto-2.0.2.tar.gz xextproto-7.0.3.tar.gz xproto-7.0.14.tar.gz libXdmcp-1.0.2.tar.gz libxkbfile-1.0.5.tar.gz libfontenc-1.0.4.tar.gz libXfont-1.3.4.tar.gz libX11-1.1.5.tar.gz libXau-1.0.4.tar.gz libxcb-1.1.tar.gz xorg-server-1.5.3.tar.gz
Diffstat (limited to 'xkbcomp/compat.c')
-rw-r--r--xkbcomp/compat.c780
1 files changed, 780 insertions, 0 deletions
diff --git a/xkbcomp/compat.c b/xkbcomp/compat.c
new file mode 100644
index 000000000..00eb72b81
--- /dev/null
+++ b/xkbcomp/compat.c
@@ -0,0 +1,780 @@
+/* $Xorg: compat.c,v 1.3 2000/08/17 19:54:30 cpqbld Exp $ */
+/************************************************************
+ 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.
+
+ ********************************************************/
+/* $XFree86: xc/programs/xkbcomp/compat.c,v 3.3 2001/01/17 23:45:43 dawes Exp $ */
+
+#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"
+
+typedef struct _SymInterpInfo {
+ CommonInfo defs;
+ XkbSymInterpretRec interp;
+} 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)
+
+typedef struct _GroupCompatInfo {
+ unsigned char fileID;
+ unsigned char merge;
+ unsigned char real_mods;
+ unsigned short vmods;
+} GroupCompatInfo;
+
+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;
+} 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 *
+siText(SymInterpInfo * si,CompatInfo * info)
+{
+static char buf[128];
+
+ if (si==&info->dflt) {
+ sprintf(buf,"default");
+ }
+ else {
+ sprintf(buf,"%s+%s(%s)",XkbKeysymText(si->interp.sym,XkbMessage),
+ XkbSIMatchText(si->interp.match,XkbMessage),
+ XkbModMaskText(si->interp.mods,XkbMessage));
+ }
+ return buf;
+}
+
+static void
+InitCompatInfo(CompatInfo *info,XkbDescPtr xkb)
+{
+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);
+ return;
+}
+
+static void
+ClearCompatInfo(CompatInfo *info,XkbDescPtr xkb)
+{
+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);
+ /* 3/30/94 (ef) -- XXX! Should free action info here */
+ ClearVModInfo(&info->vmods,xkb);
+ return;
+}
+
+static SymInterpInfo *
+NextInterp(CompatInfo *info)
+{
+SymInterpInfo * si;
+
+ si= uTypedAlloc(SymInterpInfo);
+ if (si) {
+ bzero((char *)si,sizeof(SymInterpInfo));
+ info->interps= (SymInterpInfo *)AddCommonInfo(&info->interps->defs,
+ (CommonInfo *)si);
+ info->nInterps++;
+ }
+ return si;
+}
+
+static SymInterpInfo *
+FindMatchingInterp(CompatInfo *info,SymInterpInfo *new)
+{
+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;
+ }
+ }
+ return NULL;
+}
+
+static Bool
+AddInterp(CompatInfo *info,SymInterpInfo *new)
+{
+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;
+ return True;
+}
+
+static Bool
+AddGroupCompat(CompatInfo *info,unsigned group,GroupCompatInfo *newGC)
+{
+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;
+ return True;
+}
+
+/***====================================================================***/
+
+static Bool
+ResolveStateAndPredicate( ExprDef * expr,
+ unsigned * pred_rtrn,
+ unsigned * mods_rtrn,
+ CompatInfo * info)
+{
+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;
+ }
+ return False;
+}
+
+/***====================================================================***/
+
+static void
+MergeIncludedCompatMaps( CompatInfo * into,
+ CompatInfo * from,
+ unsigned merge)
+{
+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++;
+ }
+ return;
+}
+
+typedef void (*FileHandler)(
+ XkbFile * /* rtrn */,
+ XkbDescPtr /* xkb */,
+ unsigned /* merge */,
+ CompatInfo * /* info */
+);
+
+static Bool
+HandleIncludeCompatMap( IncludeStmt * stmt,
+ XkbDescPtr xkb,
+ CompatInfo * info,
+ FileHandler hndlr)
+{
+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;
+ }
+ }
+ }
+ if (haveSelf)
+ *info= included;
+ else {
+ MergeIncludedCompatMaps(info,&included,newMerge);
+ ClearCompatInfo(&included,xkb);
+ }
+ return (info->errorCount==0);
+}
+
+static LookupEntry useModMapValues[] = {
+ { "levelone", 1 },
+ { "level1", 1 },
+ { "anylevel", 0 },
+ { "any", 0 },
+ { NULL, 0 }
+};
+
+static int
+SetInterpField( SymInterpInfo * si,
+ XkbDescPtr xkb,
+ char * field,
+ ExprDef * arrayNdx,
+ ExprDef * value,
+ CompatInfo * info)
+{
+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));
+ }
+ return ok;
+}
+
+LookupEntry groupNames[]= {
+ { "group1", 0x01 },
+ { "group2", 0x02 },
+ { "group3", 0x04 },
+ { "group4", 0x08 },
+ { "group5", 0x10 },
+ { "group6", 0x20 },
+ { "group7", 0x40 },
+ { "group8", 0x80 },
+ { "none", 0x00 },
+ { "all", 0xff },
+ { NULL, 0 }
+};
+
+static int
+HandleInterpVar(VarDef *stmt,XkbDescPtr xkb,CompatInfo *info)
+{
+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);
+}
+
+static int
+HandleInterpBody(VarDef *def,XkbDescPtr xkb,SymInterpInfo *si,CompatInfo *info)
+{
+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);
+ }
+ return ok;
+}
+
+static int
+HandleInterpDef(InterpDef *def,XkbDescPtr xkb,unsigned merge,CompatInfo *info)
+{
+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;
+ }
+ return True;
+}
+
+static int
+HandleGroupCompatDef( GroupCompatDef * def,
+ XkbDescPtr xkb,
+ unsigned merge,
+ CompatInfo * info)
+{
+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);
+}
+
+static void
+HandleCompatMapFile( XkbFile * file,
+ XkbDescPtr xkb,
+ unsigned merge,
+ CompatInfo * info)
+{
+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) {
+#ifdef NOISY
+ ERROR("Too many errors\n");
+#endif
+ ACTION1("Abandoning compatibility map \"%s\"\n",file->topName);
+ break;
+ }
+ }
+ return;
+}
+
+static void
+CopyInterps( CompatInfo * info,
+ XkbCompatMapPtr compat,
+ Bool needSymbol,
+ unsigned pred)
+{
+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;
+ }
+ return;
+}
+
+Bool
+CompileCompatMap( XkbFile * file,
+ XkbFileInfo * result,
+ unsigned merge,
+ LEDInfo ** unboundLEDs)
+{
+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);
+ return False;
+}