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;
+}