/* $XConsortium: xkbInit.c,v 1.8 94/05/16 10:49:53 dpw Exp $ */
/************************************************************
Copyright (c) 1993 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 <stdio.h>
#include <ctype.h>
#include <math.h>
#define NEED_EVENTS 1
#include <X11/X.h>
#include <X11/Xproto.h>
#include <X11/keysym.h>
#include "misc.h"
#include "inputstr.h"
#include "XKMformat.h"
#include "XKBsrv.h"

#define	CREATE_ATOM(s)	MakeAtom(s,sizeof(s)-1,1)

#define IsKeypadKey(keysym) \
  (((unsigned)(keysym) >= XK_KP_Space) && ((unsigned)(keysym) <= XK_KP_Equal))

#ifdef sgi
#define LED_CAPS	5
#define	LED_NUM		6
#define	LED_SCROLL	7
#define	NUM_PHYS	7
#else
#ifdef sun
#define LED_NUM		1
#define	LED_SCROLL	2
#define LED_COMPOSE	3
#define LED_CAPS	4
#define	NUM_PHYS	4
#else
#define	LED_CAPS	1
#define	LED_NUM		2
#define	LED_SCROLL	3
#define	NUM_PHYS	3
#endif
#endif

#define	MAX_TOC	16
typedef struct	_SrvXkmInfo {
	DeviceIntPtr	dev;
	FILE *		file;
	xkmFileInfo	finfo;
	xkmSectionInfo	toc[MAX_TOC];
	unsigned	loaded;
	unsigned	present;
} SrvXkmInfo;

/***====================================================================***/

#ifndef XKB_BASE_DIRECTORY
#define	XKB_BASE_DIRECTORY	"/usr/lib/X11/xkb"
#endif

char	*XkbBaseDirectory=	XKB_BASE_DIRECTORY;
char	*XkbInitialMap=		NULL;
int	 XkbWantAccessX=	0;	


#if defined(luna)
#define	XKB_DDX_PERMANENT_LOCK	1
#endif
#define XKB_IN_SERVER
#include "xkbDflts.h"

static void
XkbInitKeyTypes(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
register int	 i;
XkbClientMapPtr	map;

    if (file->present&XkmTypesMask) {
	xkmSectionInfo *toc;
	toc= XkmFindTOCEntry(&file->finfo,file->toc,XkmTypesIndex);
	if (toc) {
	    if (XkmReadFileSection(file->file,toc,file->dev,&file->loaded))
		return;
	    ErrorF("Error loading key types\n");
	    ErrorF("Reverting to defaults\n");
	}
    }
    map= xkb->desc.map;
    map->size_types= num_dflt_types;
    map->num_types= num_dflt_types;
    map->types= dflt_types;
    initTypeNames(NULL);
    return;
}

static void
XkbInitKeySyms(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
XkbClientMapRec	*map= xkb->desc.map;
int	nKeys= xkb->desc.max_key_code-xkb->desc.min_key_code+1;

    map->num_syms= 1;
    map->size_syms= (nKeys*15)/10;
    map->syms=(KeySym *)Xcalloc(map->size_syms*sizeof(KeySym));
    if (map->syms) {
	register int i;
	XkbSymMapRec *symMap= &map->key_sym_map[xkb->desc.min_key_code];
	map->syms[0]= NoSymbol;
	for (i=0;i<nKeys;symMap++,i++) {
	    symMap->kt_index = XkbOneLevelIndex;
	    symMap->group_info = XkbSetGroupInfo(0,FALSE);
	    symMap->offset = 0;
	}
    }
    else {
	ErrorF("Fatal Error! Couldn't allocate keysyms array\n");
	GiveUp(1);
    }
    return;
}

static void
XkbInitKeyActions(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
XkbServerMapRec	*map= xkb->desc.server;
int	nKeys= xkb->desc.max_key_code-xkb->desc.min_key_code+1;

    map->num_acts= 1;
    map->size_acts= (nKeys/2)+1;
    map->acts=(XkbAction *)Xcalloc(map->size_acts*sizeof(XkbAction));
    if (map->acts) {
	register int i;
	map->acts[0].type = XkbSA_NoAction;
	for (i=0;i<nKeys;i++) {
	    map->key_acts[i+xkb->desc.min_key_code]= 0;
	}
    }
    else {
	ErrorF("Fatal Error! Couldn't allocate keysyms array\n");
	GiveUp(1);
    }
    return;
}

#define	RG_BOGUS_FUNCTION_GROUP	0
#define	RG_COUNT		1

static void
XkbInitRadioGroups(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
XkbRadioGroupRec	*grp;
 
#ifndef DEBUG_RADIO_GROUPS
    xkb->nRadioGroups = 0;
    xkb->radioGroups = NULL;
    return;
#else
    if ( xkb->num_rg>0 )
	return;

    xkb->radioGroups=(XkbRadioGroupRec *)Xcalloc(RG_COUNT*
						sizeof(XkbRadioGroupRec));
    if (!xkb->radioGroups)
	return;
    xkb->nRadioGroups = RG_COUNT;

    grp = &xkb->radioGroups[RG_BOGUS_FUNCTION_GROUP];
    grp->flags = 0;
    grp->nMembers = 0;
    grp->dfltDown = 0;
#endif
}


static void
XkbInitCompatStructs(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
register int i;
XkbCompatRec	*compat;

    if (file->present&XkmCompatMapMask) {
	xkmSectionInfo *toc;
	toc= XkmFindTOCEntry(&file->finfo,file->toc,XkmCompatMapIndex);
	if (toc) {
	    if (XkmReadFileSection(file->file,toc,file->dev,&file->loaded))
		return;
	    ErrorF("Error loading compatibility map\n");
	    ErrorF("Reverting to defaults\n");
	}
    }
    compat = xkb->desc.compat;
    for (i=0;i<XkbNumModifiers;i++) {
	compat->real_mod_compat[i].mods = (1<<i);
	compat->real_mod_compat[i].groups = 0;
	compat->mod_compat[i]= &compat->real_mod_compat[i];
    }
    for (i=0;i<XkbNumVirtualMods;i++) {
	compat->vmod_compat[i].mods = 0;
	compat->vmod_compat[i].groups = 0;
    }
    compat->vmod_compat[vmod_AltGr].groups= 0xfe;

    compat->num_si= 0;
    compat->sym_interpret = (XkbSymInterpretRec *)Xcalloc(sizeof(dfltSI));
    if (compat->sym_interpret) {
	compat->num_si = num_dfltSI;
	memcpy((char *)compat->sym_interpret,(char *)dfltSI,sizeof(dfltSI));
    }
    return;
}

static void
XkbInitSemantics(xkb,file)
    XkbSrvInfoRec *	xkb;
    SrvXkmInfo *	file;
{
char	buf[1024];

    XkbInitKeyTypes(xkb,file);
    XkbInitCompatStructs(xkb,file);
    return;
}

/***====================================================================***/

static void
XkbInitNames(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
XkbClientMapPtr	map;
XkbNamesPtr	names;
register int	i;

    map = xkb->desc.map;
    names = xkb->desc.names;
    bzero(names,sizeof(XkbNamesRec));
    names->keycodes= CREATE_ATOM("unknown");
    names->phys_geometry= names->geometry= CREATE_ATOM("unknown");
    names->phys_symbols= names->symbols= CREATE_ATOM("unknown");
    names->semantics= CREATE_ATOM("unknown");
    names->mods[0] = CREATE_ATOM("Shift");
    names->mods[1] = CREATE_ATOM("Caps");
    names->mods[2] = CREATE_ATOM("Control");
    names->mods[3] = CREATE_ATOM("Alt");
    names->mods[4] = CREATE_ATOM("Mod2");
    names->mods[5] = CREATE_ATOM("Mod3");
    names->mods[6] = CREATE_ATOM("Mod4");
    names->mods[7] = CREATE_ATOM("Mod5");
    if (file->present&XkmVirtualModsMask) {
	xkmSectionInfo *toc;
	toc= XkmFindTOCEntry(&file->finfo,file->toc,XkmVirtualModsIndex);
	if (toc) {
	    if (!XkmReadFileSection(file->file,toc,file->dev,&file->loaded)) {
		ErrorF("Error loading key names\n");
		file->present&= ~XkmVirtualModsMask;
	    }
	}
    }
    if ((file->present&XkmVirtualModsMask)==0) {
	names->vmods[vmod_NumLock]= CREATE_ATOM("NumLock");
	names->vmods[vmod_AltGr]= CREATE_ATOM("ModeSwitch");
    }

    if (((file->present&XkmIndicatorsMask)==0)||
	((file->present&XkmGeometryMask)==0)) {
	names->indicators[LED_CAPS-1] = CREATE_ATOM("Caps Lock");
	names->indicators[LED_NUM-1] = CREATE_ATOM("Num Lock");
	names->indicators[LED_SCROLL-1] = CREATE_ATOM("Scroll Lock");
#ifdef LED_COMPOSE
	names->indicators[LED_COMPOSE-1] = CREATE_ATOM("Compose");
#endif

    }
#ifdef DEBUG_RADIO_GROUPS
    names->radio_groups= (Atom *)Xcalloc(RG_COUNT*sizeof(Atom));
    if (names->radio_groups) {
	names->num_rg = RG_COUNT;
	names->radio_groups[RG_BOGUS_FUNCTION_GROUP]= CREATE_ATOM("BOGUS");
    }
#endif
    names->num_char_sets= 1;
    names->char_sets= (Atom *)Xcalloc(sizeof(Atom));
    names->char_sets[0]= CREATE_ATOM("iso8859-1");

    if (file->present&XkmKeyNamesMask) {
	xkmSectionInfo *toc;
	toc= XkmFindTOCEntry(&file->finfo,file->toc,XkmKeyNamesIndex);
	if (toc) {
	    if (!XkmReadFileSection(file->file,toc,file->dev,&file->loaded))
		ErrorF("Error loading key names\n");
	}
    }
    return;
}

#ifdef DEBUG
static void
XkbInitAlternateSyms(xkb)
    XkbSrvInfoRec *xkb;
{
XkbAlternateSymsRec *alt;

   alt= (XkbAlternateSymsRec *)Xcalloc(sizeof(XkbAlternateSymsRec));
   if (alt) {
	alt->name= CREATE_ATOM("BOGUS_DE");
	alt->index= 0;
	alt->num_char_sets= 1;
	alt->char_sets= (Atom *)Xcalloc(sizeof(Atom));
	alt->char_sets[0]= CREATE_ATOM("iso8859-1");
	alt->first_key= 27;
	alt->num_keys= 13;
	alt->num_syms= 4;
	alt->syms= (KeySym *)Xcalloc(alt->num_syms*sizeof(KeySym));
	alt->syms[0]= XK_y;
	alt->syms[1]= XK_Y;
	alt->syms[2]= XK_z;
	alt->syms[3]= XK_Z;
	alt->maps= (XkbSymMapRec *)Xcalloc(alt->num_keys*sizeof(XkbSymMapRec));
	alt->maps[0].kt_index= XkbTwoLevelIndex;
	alt->maps[0].group_info= XkbSetGroupInfo(1,0);
	alt->maps[0].offset= 0;
	alt->maps[12].kt_index= XkbTwoLevelIndex;
	alt->maps[12].group_info= XkbSetGroupInfo(1,0);
	alt->maps[12].offset= 2;
	alt->next = NULL;
   }
   xkb->desc.alt_syms= alt;
   return;
}
#endif

static void
XkbInitIndicatorMap(xkb,file)
    XkbSrvInfoPtr	xkb;
    SrvXkmInfo *	file;
{
XkbIndicatorPtr	map = xkb->desc.indicators;
register int 	i;

    map->num_phys_indicators = NUM_PHYS;
    if (file->present&XkmIndicatorsMask) {
	xkmSectionInfo *toc;
	toc= XkmFindTOCEntry(&file->finfo,file->toc,XkmIndicatorsIndex);
	if (toc) {
	    if (XkmReadFileSection(file->file,toc,file->dev,&file->loaded)) {
		XkbCheckIndicatorMaps(xkb,~((unsigned)0));
		return;
	    }
	    file->present&= ~XkmIndicatorsIndex;
	    ErrorF("Error loading indicator maps\n");
	    ErrorF("Reverting to defaults\n");
	}
    }
    xkb->iStateAuto= 0;
    xkb->iStateExplicit= 0;
    xkb->iStateEffective= 0;
    bzero(map->maps,XkbNumIndicators*sizeof(XkbIndicatorMapRec));
    map->maps[LED_CAPS-1].flags= XkbIM_NoExplicit;
    map->maps[LED_CAPS-1].which_mods= XkbIM_UseLocked;
    map->maps[LED_CAPS-1].mask= LockMask;
    map->maps[LED_CAPS-1].real_mods= LockMask;
    xkb->iAccel.usesLocked|= (1<<(LED_CAPS-1));
    xkb->iAccel.haveMap|= (1<<(LED_CAPS-1));

    map->maps[LED_NUM-1].flags= XkbIM_NoExplicit;
    map->maps[LED_NUM-1].which_mods= XkbIM_UseLocked;
    map->maps[LED_NUM-1].mask= 0;
    map->maps[LED_NUM-1].real_mods= 0;
    map->maps[LED_NUM-1].vmods= vmod_NumLockMask;
    xkb->iAccel.usesLocked|= (1<<(LED_NUM-1));
    xkb->iAccel.haveMap|= (1<<(LED_NUM-1));

    xkb->iAccel.usedComponents|= XkbModifierLockMask;
    return;
}

void
XkbInitDevice(pXDev)
    DeviceIntPtr pXDev;
{
int		nKeys,i;
XkbSrvInfoPtr	xkb;
XkbChangesRec	changes;
SrvXkmInfo	file;

    file.dev= pXDev;
    file.file=NULL;
    file.loaded=file.present= 0;
    if (XkbInitialMap!=NULL) {
	char buf[1024];
	if (XkbBaseDirectory)
	     sprintf(buf,"%s/%s.xkm",XkbBaseDirectory,XkbInitialMap);
	else sprintf(buf,"%s.xkm",XkbInitialMap);
	if ((file.file=fopen(buf,"r"))!=NULL) {
	    Bool ok;
	    ok= XkmReadTOC(file.file,&xkb->desc,&file.finfo,MAX_TOC,file.toc);
	    if (ok) {
		for (i=0;i<file.finfo.num_toc;i++) {
		    file.present|= (1<<file.toc[i].type);
		}
	    }
	    else {
		ErrorF("Error loading keymap file %s, reverting to defaults\n",
								XkbInitialMap);
		fclose(file.file);
		file.file= NULL;
	    }
	}
    }
    /* determine size of fixed-length arrays */
    i= sizeof(XkbBehavior)+sizeof(XkbSymMapRec);
    i+= sizeof(unsigned short);	/* key acts */
    i+= sizeof(unsigned char);	/* explicit components */
    i*= pXDev->key->curKeySyms.maxKeyCode+1;

    pXDev->key->xkbInfo= xkb=(XkbSrvInfoRec *)Xcalloc(sizeof(XkbSrvInfoRec)+i);
    if ( xkb ) {
	xkb->desc.ctrls = &xkb->Controls;
	xkb->desc.map = &xkb->Map;
	xkb->desc.server = &xkb->Server;
	xkb->desc.indicators = &xkb->Indicators;
	xkb->desc.compat = &xkb->Compat;
	xkb->desc.names = &xkb->Names;
	xkb->desc.device_spec = pXDev->id;
	xkb->desc.flags = 1;
	xkb->desc.min_key_code = pXDev->key->curKeySyms.minKeyCode;
	xkb->desc.max_key_code = pXDev->key->curKeySyms.maxKeyCode;

	nKeys = xkb->desc.max_key_code+1;	/* size of fixed arrays */
	xkb->Map.key_sym_map= (XkbSymMapRec *)&xkb[1];
	xkb->Server.behaviors = (XkbBehavior *)&xkb->Map.key_sym_map[nKeys];
	xkb->Server.key_acts=(unsigned short*)&xkb->Server.behaviors[nKeys];
	xkb->Server.explicit=(unsigned char *)&xkb->Server.key_acts[nKeys];

	xkb->dfltPtrDelta=1;
	xkb->interest = NULL;
	xkb->device = pXDev;

	for (i=0;i<XkbNumVirtualMods;i++) { 
	   xkb->desc.server->vmods[i]= XkbNoModifier;
	}
	XkbInitNames(xkb,&file);
	XkbInitSemantics(xkb,&file);
	XkbInitKeySyms(xkb,&file);
	XkbInitKeyActions(xkb,&file);
	XkbInitRadioGroups(xkb,&file);
	if (file.present&XkmSymbolsMask) {
	    xkmSectionInfo *toc;
	    toc= XkmFindTOCEntry(&file.finfo,file.toc,XkmSymbolsIndex);
	    if (toc) {
		if (!XkmReadFileSection(file.file,toc,file.dev,&file.loaded)) {
		    ErrorF("Error loading key symbols\n");
		    ErrorF("Reverting to defaults\n");
		    file.present&= ~XkmSymbolsIndex;
		}
	    }
	}

	xkb->state.group = 0;
	xkb->state.latched_group = 0;
	xkb->state.mods = 0;
	xkb->state.latched_mods = 0;
	xkb->state.locked_mods = 0;
	xkb->state.compat_state = 0;

	XkbInitIndicatorMap(xkb,&file);

	xkb->desc.ctrls->num_groups = 1;
	xkb->desc.ctrls->internal_mask = 0;
	xkb->desc.ctrls->internal_real_mods = 0;
	xkb->desc.ctrls->internal_vmods = 0;
	xkb->desc.ctrls->ignore_lock_mask = 0;
	xkb->desc.ctrls->ignore_lock_real_mods = 0;
	xkb->desc.ctrls->ignore_lock_vmods = 0;
	xkb->desc.ctrls->enabled_ctrls = XkbAccessXTimeoutMask|
						XkbRepeatKeysMask|
						XkbGroupsWrapMask|
						XkbMouseKeysAccelMask|
						XkbAudibleBellMask|
						XkbAutoAutorepeatMask;
	if (XkbWantAccessX)
	    xkb->desc.ctrls->enabled_ctrls|= XkbAccessXKeysMask;
	AccessXInit(pXDev);
	DDXInitXkbDevice(pXDev);

	XkbUpdateKeyTypesFromCore(pXDev,xkb->desc.min_key_code,
					XkbNumKeys(&xkb->desc),&changes);
	XkbUpdateActions(pXDev,xkb->desc.min_key_code,
					XkbNumKeys(&xkb->desc),&changes);
    }
    if (file.file!=NULL)
	fclose(file.file);
    return;
}

	/*
	 * InitKeyClassDeviceStruct initializes the key class before it
	 * initializes the keyboard feedback class for a device. UpdateActions
	 * can't set up the correct autorepeat for keyboard initialization
	 * because the keyboard feedback isn't created yet.   Instead, 
	 * UpdateActions notes the "correct" autorepeat in the SrvInfo
	 * structure and InitKbdFeedbackClass calls UpdateAutorepeat to
	 * apply the computed autorepeat once the feedback class exists.
	 *
	 * DIX will apply the changed autorepeat, so there's no need to
	 * do so here.   This function returns True if both RepeatKeys and
	 * the core protocol autorepeat ctrls are set (i.e. should use 
	 * software autorepeat), false otherwise.
	 */
int
XkbUpdateAutorepeat(pXDev)
    DeviceIntPtr pXDev;
{
XkbSrvInfoRec *xkb;
int	       softRepeat;

    if (pXDev && pXDev->key && pXDev->key->xkbInfo) {
	xkb= pXDev->key->xkbInfo;
	if (pXDev->kbdfeed->ctrl.autoRepeat)
	    xkb->desc.ctrls->enabled_ctrls|= XkbRepeatKeysMask;
	softRepeat= (xkb->desc.ctrls->enabled_ctrls&XkbRepeatKeysMask)!=0;
	if (XkbComputeAutoRepeat && pXDev->kbdfeed) {
	    memcpy((char *)pXDev->kbdfeed->ctrl.autoRepeats,
						(char *)xkb->repeat,32);
	    softRepeat= softRepeat&&pXDev->kbdfeed->ctrl.autoRepeat;
	}
    }
    else softRepeat= 0;
    return softRepeat;
}

	/*
	 * Be very careful about what does and doesn't get freed by this 
	 * function.  To reduce fragmentation, XkbInitDevice allocates a 
	 * single huge block per device and divides it up into most of the 
	 * fixed-size structures for the device.   Don't free anything that
	 * is part of this larger block.
	 */
void
XkbFreeInfo(xkb)
    XkbSrvInfoRec *xkb;
{
    if (xkb->radioGroups) {
	Xfree(xkb->radioGroups);
	xkb->radioGroups= NULL;
    }
    if (xkb->mouseKeyTimer) {
	TimerFree(xkb->mouseKeyTimer);
	xkb->mouseKeyTimer= NULL;
    }
    if (xkb->slowKeysTimer) {
	TimerFree(xkb->slowKeysTimer);
	xkb->slowKeysTimer= NULL;
    }
    if (xkb->bounceKeysTimer) {
	TimerFree(xkb->bounceKeysTimer);
	xkb->bounceKeysTimer= NULL;
    }
    if (xkb->repeatKeyTimer) {
	TimerFree(xkb->repeatKeyTimer);
	xkb->repeatKeyTimer= NULL;
    }
    if (xkb->krgTimer) {
	TimerFree(xkb->krgTimer);
	xkb->krgTimer= NULL;
    }
    if (xkb->desc.ctrls)
	xkb->desc.ctrls= NULL;
    if (xkb->desc.server) {
	if (xkb->desc.server->acts)
	    Xfree(xkb->desc.server->acts);
	xkb->desc.server->num_acts= xkb->desc.server->size_acts= 0;
	xkb->desc.server->acts= NULL;
	if (xkb->desc.server->behaviors)
	    xkb->desc.server->behaviors= NULL;
	if (xkb->desc.server->key_acts)
	    xkb->desc.server->key_acts= NULL;
	xkb->desc.server= NULL;
    }
    if (xkb->desc.names) {
	if (xkb->desc.names->radio_groups) {
	    Xfree(xkb->desc.names->radio_groups);
	    xkb->desc.names->radio_groups= NULL;
	}
	if (xkb->desc.names->char_sets) {
	    Xfree(xkb->desc.names->char_sets);
	    xkb->desc.names->char_sets= NULL;
	}
	xkb->desc.names= NULL;
    }
    if (xkb->desc.map) {
	if (xkb->desc.map->types) {
	    register unsigned i;
	    XkbKeyTypeRec	*type= xkb->desc.map->types;
	    for (i=0;i<xkb->desc.map->num_types;i++,type++) {
		if (type->map&&(!(type->free&XkbNoFreeKTMap))) {
		    Xfree(type->map);
		    type->map_count= 0;
		    type->map= NULL;
		}
		if (type->preserve&&(!(type->free&XkbNoFreeKTPreserve))) {
		    Xfree(type->preserve);
		    type->preserve= NULL;
		}
		if (type->lvl_names&&(!(type->free&XkbNoFreeKTLevelNames))) {
		    Xfree(type->lvl_names);
		    type->lvl_names= NULL;
		}
	    }
	    type= xkb->desc.map->types;
	    if (!(type->free&XkbNoFreeKTStruct)) {
		Xfree(type);
	    }
	    xkb->desc.map->types= NULL;
	}
	if (xkb->desc.map->syms) {
	    Xfree(xkb->desc.map->syms);
	    xkb->desc.map->syms= NULL;
	}
	if (xkb->desc.map->key_sym_map) {
	    xkb->desc.map->key_sym_map= NULL;
	}
	xkb->desc.map= NULL;
    }
    if (xkb->desc.indicators) {
	xkb->desc.indicators= NULL;
    }
    if (xkb->desc.compat) {
	if (xkb->desc.compat->sym_interpret)
	    Xfree(xkb->desc.compat->sym_interpret);
	xkb->desc.compat->num_si= 0;
	xkb->desc.compat->sym_interpret= NULL;
	xkb->desc.compat= NULL;
    }
    if (xkb->desc.alt_syms) {
	XkbAlternateSymsRec *this,*next;
	this= xkb->desc.alt_syms;
	next= this->next;
	while (this) {
	    if (this->char_sets)
		Xfree(this->char_sets);
	    this->num_char_sets= 0;
	    this->char_sets= NULL;
	    if (this->syms)
		Xfree(this->syms);
	    this->num_syms= 0;
	    this->syms= NULL;
	    if (this->maps)
		Xfree(this->maps);
	    this->num_keys= 0;
	    this->maps= NULL;
	    Xfree(this);
	    this= next;
	}
	xkb->desc.alt_syms= NULL;
    }
    Xfree(xkb);
    return;
}

/***====================================================================***/

extern int	XkbDfltRepeatDelay;
extern int	XkbDfltRepeatInterval;

int
XkbProcessArguments(argc,argv,i)
    int		argc;
    char *	argv[];
    int		i;
{
    if (strncmp(argv[i], "-xkbdir", 7) == 0) {
	if(++i < argc) {
	    XkbBaseDirectory= argv[i];
	    return 2;
	}
	else {
	    return -1;
	}
    }
    else if (strncmp(argv[i], "-xkbmap", 7) == 0) {
	if(++i < argc) {
	    XkbInitialMap= argv[i];
	    return 2;
	}
	else {
	    return -1;
	}
    }
    else if ((strncmp(argv[i],"-accessx",8)==0)||
                 (strncmp(argv[i],"+accessx",8)==0)) {
	extern int XkbWantAccessX;
	if (argv[i][0]=='-')        XkbWantAccessX= 0;
	else                        XkbWantAccessX= 1;
	return 1;
    }
    if (strcmp (argv[i], "-ar1") == 0) {	/* -ar1 int */
	if (++i >= argc) UseMsg ();
	XkbDfltRepeatDelay = (long)atoi(argv[i]);
	return 2;
    }
    if (strcmp (argv[i], "-ar2") == 0) {	/* -ar2 int */
	if (++i >= argc) UseMsg ();
	XkbDfltRepeatInterval = (long)atoi(argv[i]);
	return 2;
    }
    return 0;
}

void
XkbUseMsg()
{
    ErrorF("-xkbdir                base directory for XKB layout files\n");
    ErrorF("-xkbmap                XKB keyboard description to load on startup\n");
    ErrorF("[+-]accessx            enable/disable accessx key sequences\n");
    ErrorF("-ar1                   set XKB autorepeat delay\n");
    ErrorF("-ar2                   set XKB autorepeat interval\n");
}