Initial revision

1 files changed, 291 insertions, 0 deletions

diff --git a/xc/programs/xkbcomp/vmod.c b/xc/programs/xkbcomp/vmod.c
new file mode 100644
index 000000000..799a6a6a5
--- /dev/null
+++ b/xc/programs/xkbcomp/vmod.c
@@ -0,0 +1,291 @@
+/* $XConsortium: vmod.c,v 1.4 93/09/28 20:16:45 rws 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.
+
+ ********************************************************/
+#define	DEBUG_VAR_NOT_LOCAL
+#define	DEBUG_VAR debugFlags
+#include <stdio.h>
+#include <string.h>
+#include "xkbcomp.h"
+#include "xkbio.h"
+#include "tokens.h"
+#include "expr.h"
+#include "misc.h"
+
+#include <X11/extensions/XKB.h>
+#include <X11/extensions/XKBstr.h>
+
+#include "vmod.h"
+
+char *
+vmodIndexText(xkb,ndx,format)
+    XkbDescPtr	xkb;
+    unsigned	ndx;
+    unsigned	format;
+{
+register int i;
+register StringToken *vmodNames;
+static char buf[16];
+
+    if (xkb && xkb->names)
+	 vmodNames= (StringToken *)xkb->names->vmods;
+    else vmodNames= NULL;
+
+    if (ndx>=XkbNumVirtualMods)
+	 sprintf(buf,"illegal");
+    else if (format==XkbCHeaderFile)
+	 sprintf(buf,"%d",ndx);
+    else if ((!vmodNames)||(vmodNames[ndx]==NullStringToken))
+	 sprintf(buf,"0x%x",ndx);
+    else return stGetString(vmodNames[ndx]);
+    return buf;
+}
+
+char *
+vmodMaskText(xkb,modMask,mask,format)
+    XkbDescPtr	xkb;
+    unsigned	modMask;
+    unsigned	mask;
+    unsigned	format;
+{
+register int i,bit;
+static char buf[64];
+char *str= buf;
+
+    if ((modMask==0)&&(mask==0)) {
+	if (format==XkbCHeaderFile)
+	     sprintf(buf,"0");
+	else sprintf(buf,"None");
+	return buf;
+    }
+    buf[0]= '\0';
+    if (modMask) {
+	strcpy(buf,modMaskText(modMask,format));
+	str= &str[strlen(str)];
+    }
+    if (mask) {
+	for (i=0,bit=1;i<XkbNumVirtualMods;i++,bit<<=1) {
+	    if (mask&bit) {
+		if (str!=buf) {
+		    if (format==XkbCHeaderFile)	*str++= '|';
+		    else			*str++= '+';
+		}
+		if (format==XkbCHeaderFile)
+		     sprintf(str,"(1<<%s)",vmodIndexText(xkb,i,format));
+		else strcpy(str,vmodIndexText(xkb,i,format));
+		str= &str[strlen(str)];
+	    }
+	}
+    }
+    return buf;
+}
+
+void
+InitVModInfo(info,xkb)
+    VModInfo *	info;
+    XkbDescPtr	xkb;
+{
+    ClearVModInfo(info,xkb);
+    info->errorCount= 0;
+    return;
+}
+
+void
+ClearVModInfo(info,xkb)
+    VModInfo *	info;
+    XkbDescPtr	xkb;
+{
+register int i;
+
+    XkbAllocNames(xkb,XkbVirtualModNamesMask);
+    XkbAllocServerMap(xkb,XkbVirtualModsMask,0);
+    info->xkb= xkb;
+    info->newlyDefined= info->defined= info->available= 0;
+    if (xkb && xkb->names) {
+	register int bit;
+	for (i=0,bit=1;i<XkbNumVirtualMods;i++,bit<<=1) {
+	    if (xkb->names->vmods[i]!=(Atom)NullStringToken)
+		info->defined|= bit;
+	}
+    }
+    return;
+}
+
+/***====================================================================***/
+
+Bool
+HandleVModDef(stmt,mergeMode,info)
+    VModDef *	stmt;
+    unsigned	mergeMode;
+    VModInfo * 	info;
+{
+register int 	i,bit,nextFree;
+ExprResult 	mod;
+XkbServerMapPtr	srv;
+XkbNamesPtr	names;
+    
+    srv= info->xkb->server;
+    names= info->xkb->names;
+    for (i=0,bit=1,nextFree=-1;i<XkbNumVirtualMods;i++,bit<<=1) {
+	if (info->defined&bit) {
+	    if (names->vmods[i]==(stmt->name)) {	/* already defined */
+		info->available|= bit;
+		if (stmt->value==NULL)
+		    return True;
+		else {
+		    char *str1,*str2;
+		    if (!ExprResolveModIndex(stmt->value,&mod,NULL,NULL)) {
+			str1= stText(stmt->name);
+			uAction("Declaration of %s ignored\n",str1);
+			return False;
+		    }
+		    if (mod.uval==srv->vmods[i])
+			return True;
+
+		    str1= stText(stmt->name);
+		    uWarning("Virtual modifier %s multiply defined\n",str1);
+		    str1= modIndexText(srv->vmods[i],XkbCHeaderFile);
+		    if (mergeMode==MergeOverride) {
+			str2= str1;
+			str1= modIndexText(mod.uval,XkbCHeaderFile);
+		    }
+		    uAction("Using %s, ignoring %s\n",str1,str2);
+		    if (mergeMode==MergeOverride)
+			srv->vmods[i]= mod.uval;
+		    return True;
+		}
+	    }
+	}
+	else if (nextFree<0)
+	    nextFree= i;
+    }
+    if (nextFree<0) {
+	uError("Too many virtual modifiers defined (maximum 16)\n");
+	uAction("Exiting\n");
+	return False;
+    }
+    info->defined|= (1<<nextFree);
+    info->newlyDefined|= (1<<nextFree);
+    info->available|= (1<<nextFree);
+    names->vmods[nextFree]= stmt->name;
+    if (stmt->value==NULL)
+	return True;
+    if (ExprResolveModIndex(stmt->value,&mod,NULL,NULL)) {
+	srv->vmods[nextFree]= mod.uval;
+	return True;
+    }
+    uAction("Declaration of %s ignored\n",stText(stmt->name));
+    return False;
+}
+
+int
+LookupVModIndex(priv,elem,field,type,val_rtrn)
+    XPointer 		priv;
+    StringToken		elem;
+    StringToken		field;
+    unsigned		type;
+    ExprResult *	val_rtrn;
+{
+register int	i;
+register char *	fieldStr;
+register char *	modStr;
+XkbDescPtr	xkb;
+
+    xkb= (XkbDescPtr)priv;
+    if ((xkb==NULL)||(xkb->names==NULL)||(elem!=NullStringToken)||
+		     				(type!=TypeInt)) {
+	return False;
+    }
+    fieldStr= stGetString(field);
+    if (fieldStr==NULL)
+	return False;
+    for (i=0;i<XkbNumVirtualMods;i++) {
+	modStr= stGetString(xkb->names->vmods[i]);
+	if ((modStr!=NULL)&&(strcasecmp(fieldStr,modStr)==0)) {
+	    val_rtrn->uval= i;
+	    return True;
+	}
+    }
+    return False;
+}
+
+int
+LookupVModMask(priv,elem,field,type,val_rtrn)
+    XPointer 		priv;
+    StringToken		elem;
+    StringToken		field;
+    unsigned		type;
+    ExprResult *	val_rtrn;
+{
+    if (LookupVModIndex(priv,elem,field,type,val_rtrn)) {
+	register unsigned ndx= val_rtrn->uval;
+	val_rtrn->uval= (1<<(8+ndx));
+	return True;
+    }
+    return False;
+}
+
+int
+FindKeypadVMod(xkb)
+    XkbDescPtr	xkb;
+{
+StringToken name;
+ExprResult rtrn;
+
+    name= stGetToken("NumLock");
+    if ((xkb)&&
+	LookupVModIndex((XPointer)xkb,NullStringToken,name,TypeInt,&rtrn)) {
+	return rtrn.ival;
+    }
+    return -1;
+}
+
+Bool
+ResolveVirtualModifier(def,val_rtrn,info)
+    ExprDef *		def;
+    ExprResult *	val_rtrn;
+    VModInfo *		info;
+{
+XkbNamesPtr	names;
+
+    names= info->xkb->names;
+    if (def->op==ExprIdent) {
+	register int i,bit;
+	for (i=0,bit=1;i<XkbNumVirtualMods;i++,bit<<=1) {
+	    if ((info->available&bit)&&
+		(stCaseCompare(names->vmods[i],def->value.str)==Equal)) {
+		val_rtrn->uval= i;
+		return True;
+	    }
+	}
+    }
+    if (ExprResolveInteger(def,val_rtrn,NULL,NULL)) {
+	if (val_rtrn->uval<XkbNumVirtualMods)
+	    return True;
+	uError("Illegal virtual modifier %d (must be 0..15 inclusive)\n",
+							val_rtrn->uval);
+    }
+    return False;
+}