xenocara/app/xkbcomp/xkbcomp.c
2006-11-25 20:07:29 +00:00

979 lines
26 KiB
C

/* $Xorg: xkbcomp.c,v 1.4 2000/08/17 19:54:33 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/xkbcomp.c,v 3.20 2003/09/24 02:43:38 dawes Exp $ */
#include <stdio.h>
#include <ctype.h>
#include <X11/keysym.h>
/* for symlink attack security fix -- Branden Robinson */
#include <sys/stat.h>
#include <sys/types.h>
#include <unistd.h>
/* end BR */
#if defined(sgi)
#include <malloc.h>
#endif
#define DEBUG_VAR_NOT_LOCAL
#define DEBUG_VAR debugFlags
#include "xkbcomp.h"
#include <stdlib.h>
#include "xkbpath.h"
#include "parseutils.h"
#include "misc.h"
#include "tokens.h"
#include <X11/extensions/XKBgeom.h>
#ifdef __UNIXOS2__
#define chdir _chdir2
#endif
#ifdef WIN32
#define S_IRGRP 0
#define S_IWGRP 0
#define S_IROTH 0
#define S_IWOTH 0
#endif
#define lowbit(x) ((x) & (-(x)))
/***====================================================================***/
#define WANT_DEFAULT 0
#define WANT_XKM_FILE 1
#define WANT_C_HDR 2
#define WANT_XKB_FILE 3
#define WANT_X_SERVER 4
#define WANT_LISTING 5
#define INPUT_UNKNOWN 0
#define INPUT_XKB 1
#define INPUT_XKM 2
static char *fileTypeExt[] = {
"XXX",
"xkm",
"h",
"xkb",
"dir"
};
static unsigned inputFormat,outputFormat;
char * rootDir;
static char * inputFile;
static char * inputMap;
static char * outputFile;
static char * inDpyName;
static char * outDpyName;
static Display * inDpy;
static Display * outDpy;
static Bool showImplicit= False;
static Bool synch= False;
static Bool computeDflts= False;
static Bool xkblist= False;
unsigned warningLevel= 5;
unsigned verboseLevel= 0;
unsigned dirsToStrip= 0;
unsigned optionalParts= 0;
static char * preErrorMsg= NULL;
static char * postErrorMsg= NULL;
static char * errorPrefix= NULL;
/***====================================================================***/
#define M(m) fprintf(stderr,(m))
#define M1(m,a) fprintf(stderr,(m),(a))
static void
Usage(int argc,char *argv[])
{
if (!xkblist)
M1("Usage: %s [options] input-file [ output-file ]\n",argv[0]);
else M1("Usage: %s [options] file[(map)] ...\n",argv[0]);
M("Legal options:\n");
M("-?,-help Print this message\n");
if (!xkblist) {
M("-a Show all actions\n");
M("-C Create a C header file\n");
}
#ifdef DEBUG
M("-d [flags] Report debugging information\n");
#endif
M("-em1 <msg> Print <msg> before printing first error message\n");
M("-emp <msg> Print <msg> at the start of each message line\n");
M("-eml <msg> If there were any errors, print <msg> before exiting\n");
if (!xkblist) {
M("-dflts Compute defaults for missing parts\n");
M("-I[<dir>] Specifies a top level directory for include\n");
M(" directives. Multiple directories are legal.\n");
M("-l [flags] List matching maps in the specified files\n");
M(" f: list fully specified names\n");
M(" h: also list hidden maps\n");
M(" l: long listing (show flags)\n");
M(" p: also list partial maps\n");
M(" R: recursively list subdirectories\n");
M(" default is all options off\n");
}
M("-m[ap] <map> Specifies map to compile\n");
M("-o <file> Specifies output file name\n");
if (!xkblist) {
M("-opt[ional] <parts> Specifies optional components of keymap\n");
M(" Errors in optional parts are not fatal\n");
M(" <parts> can be any combination of:\n");
M(" c: compat map g: geometry\n");
M(" k: keycodes s: symbols\n");
M(" t: types\n");
}
if (xkblist) {
M("-p <count> Specifies the number of slashes to be stripped\n");
M(" from the front of the map name on output\n");
}
M("-R[<DIR>] Specifies the root directory for\n");
M(" relative path names\n");
M("-synch Force synchronization\n");
if (xkblist) {
M("-v [<flags>] Set level of detail for listing.\n");
M(" flags are as for the -l option\n");
}
M("-w [<lvl>] Set warning level (0=none, 10=all)\n");
if (!xkblist) {
M("-xkb Create an XKB source (.xkb) file\n");
M("-xkm Create a compiled key map (.xkm) file\n");
}
return;
}
/***====================================================================***/
static void
setVerboseFlags(char *str)
{
for (;*str;str++) {
switch (*str) {
case 'f': verboseLevel|= WantFullNames; break;
case 'h': verboseLevel|= WantHiddenMaps; break;
case 'l': verboseLevel|= WantLongListing; break;
case 'p': verboseLevel|= WantPartialMaps; break;
case 'R': verboseLevel|= ListRecursive; break;
default:
if (warningLevel>4) {
WARN1("Unknown verbose option \"%c\"\n",(unsigned int)*str);
ACTION("Ignored\n");
}
break;
}
}
return;
}
static Bool
parseArgs(int argc,char *argv[])
{
register int i,tmp;
i= strlen(argv[0]);
tmp= strlen("xkblist");
if ((i>=tmp)&&(strcmp(&argv[0][i-tmp],"xkblist")==0)) {
xkblist= True;
}
for (i=1;i<argc;i++) {
int itmp;
if ((argv[i][0]!='-')||(uStringEqual(argv[i],"-"))) {
if (!xkblist) {
if (inputFile==NULL)
inputFile= argv[i];
else if (outputFile==NULL)
outputFile= argv[i];
else if (warningLevel>0) {
WARN("Too many file names on command line\n");
ACTION3("Compiling %s, writing to %s, ignoring %s\n",
inputFile,outputFile,argv[i]);
}
}
else if (!AddMatchingFiles(argv[i]))
return False;
}
else if ((strcmp(argv[i],"-?")==0)||(strcmp(argv[i],"-help")==0)) {
Usage(argc,argv);
exit(0);
}
else if ((strcmp(argv[i],"-a")==0)&&(!xkblist)) {
showImplicit= True;
}
else if ((strcmp(argv[i],"-C")==0)&&(!xkblist)) {
if ((outputFormat!=WANT_DEFAULT)&&(outputFormat!=WANT_C_HDR)) {
if (warningLevel>0) {
WARN("Multiple output file formats specified\n");
ACTION1("\"%s\" flag ignored\n",argv[i]);
}
}
else outputFormat= WANT_C_HDR;
}
#ifdef DEBUG
else if (strcmp(argv[i],"-d")==0) {
if ((i>=(argc-1))||(!isdigit(argv[i+1][0]))) {
debugFlags= 1;
}
else {
if (sscanf(argv[++i],"%i",&itmp) == 1)
debugFlags = itmp;
}
INFO1("Setting debug flags to %d\n",debugFlags);
}
#endif
else if ((strcmp(argv[i],"-dflts")==0)&&(!xkblist)) {
computeDflts= True;
}
else if (strcmp(argv[i],"-em1")==0) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No pre-error message specified\n");
ACTION("Trailing \"-em1\" option ignored\n");
}
}
else if (preErrorMsg!=NULL) {
if (warningLevel>0) {
WARN("Multiple pre-error messsages specified\n");
ACTION2("Compiling %s, ignoring %s\n",preErrorMsg,argv[i]);
}
}
else preErrorMsg= argv[i];
}
else if (strcmp(argv[i],"-emp")==0) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No error prefix specified\n");
ACTION("Trailing \"-emp\" option ignored\n");
}
}
else if (errorPrefix!=NULL) {
if (warningLevel>0) {
WARN("Multiple error prefixes specified\n");
ACTION2("Compiling %s, ignoring %s\n",errorPrefix,argv[i]);
}
}
else errorPrefix= argv[i];
}
else if (strcmp(argv[i],"-eml")==0) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No post-error message specified\n");
ACTION("Trailing \"-eml\" option ignored\n");
}
}
else if (postErrorMsg!=NULL) {
if (warningLevel>0) {
WARN("Multiple post-error messages specified\n");
ACTION2("Compiling %s, ignoring %s\n",postErrorMsg,argv[i]);
}
}
else postErrorMsg= argv[i];
}
else if ((strncmp(argv[i],"-I",2)==0)&&(!xkblist)) {
if (!XkbAddDirectoryToPath(&argv[i][2])) {
ACTION("Exiting\n");
exit(1);
}
}
else if ((strncmp(argv[i],"-l",2)==0)&&(!xkblist)) {
if (outputFormat!=WANT_DEFAULT) {
if (warningLevel>0) {
WARN("Multiple output file formats specified\n");
ACTION1("\"%s\" flag ignored\n",argv[i]);
}
}
else {
if (argv[i][2]!='\0')
setVerboseFlags(&argv[i][2]);
xkblist= True;
if ((inputFile)&&(!AddMatchingFiles(inputFile)))
return False;
else inputFile= NULL;
if ((outputFile)&&(!AddMatchingFiles(outputFile)))
return False;
else outputFile= NULL;
}
}
else if ((strcmp(argv[i],"-m")==0)||(strcmp(argv[i],"-map")==0)) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No map name specified\n");
ACTION1("Trailing \"%s\" option ignored\n",argv[i-1]);
}
}
else if (xkblist) {
if (!AddMapOnly(argv[i]))
return False;
}
else if (inputMap!=NULL) {
if (warningLevel>0) {
WARN("Multiple map names specified\n");
ACTION2("Compiling %s, ignoring %s\n",inputMap,argv[i]);
}
}
else inputMap= argv[i];
}
else if ((strcmp(argv[i],"-merge")==0)&&(!xkblist)) {
/* Ignored */
}
else if (strcmp(argv[i],"-o")==0) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No output file specified\n");
ACTION("Trailing \"-o\" option ignored\n");
}
}
else if (outputFile!=NULL) {
if (warningLevel>0) {
WARN("Multiple output files specified\n");
ACTION2("Compiling %s, ignoring %s\n",outputFile,argv[i]);
}
}
else outputFile= argv[i];
}
else if (((strcmp(argv[i],"-opt")==0)||(strcmp(argv[i],"optional")==0))
&&(!xkblist)) {
if (++i>=argc) {
if (warningLevel>0) {
WARN("No optional components specified\n");
ACTION1("Trailing \"%s\" option ignored\n",argv[i-1]);
}
}
else {
char *tmp2;
for (tmp2=argv[i];(*tmp2!='\0');tmp2++) {
switch (*tmp2) {
case 'c': case 'C':
optionalParts|= XkmCompatMapMask;
break;
case 'g': case 'G':
optionalParts|= XkmGeometryMask;
break;
case 'k': case 'K':
optionalParts|= XkmKeyNamesMask;
break;
case 's': case 'S':
optionalParts|= XkmSymbolsMask;
break;
case 't': case 'T':
optionalParts|= XkmTypesMask;
break;
default:
if (warningLevel>0) {
WARN1("Illegal component for %s option\n",
argv[i-1]);
ACTION1("Ignoring unknown specifier \"%c\"\n",
(unsigned int)*tmp2);
}
break;
}
}
}
}
else if (strncmp(argv[i],"-p",2)==0) {
if (isdigit(argv[i][2])) {
if (sscanf(&argv[i][2],"%i",&itmp) == 1)
dirsToStrip = itmp;
}
else if ((i<(argc-1))&&(isdigit(argv[i+1][0]))) {
if (sscanf(argv[++i],"%i",&itmp) == 1)
dirsToStrip = itmp;
}
else {
dirsToStrip= 0;
}
if (warningLevel>5)
INFO1("Setting path count to %d\n",dirsToStrip);
}
else if (strncmp(argv[i],"-R",2)==0) {
if (argv[i][2]=='\0') {
if (warningLevel>0) {
WARN("No root directory specified\n");
ACTION("Ignoring -R option\n");
}
}
else if (rootDir!=NULL) {
if (warningLevel>0) {
WARN("Multiple root directories specified\n");
ACTION2("Using %s, ignoring %s\n",rootDir,argv[i]);
}
}
else {
rootDir= &argv[i][2];
if (warningLevel>8) {
WARN1("Changing root directory to \"%s\"\n",rootDir);
}
if ((chdir(rootDir)<0) && (warningLevel>0)) {
WARN1("Couldn't change directory to \"%s\"\n",rootDir);
ACTION("Root directory (-R) option ignored\n");
rootDir= NULL;
}
}
}
else if ((strcmp(argv[i],"-synch")==0)||(strcmp(argv[i],"-s")==0)) {
synch= True;
}
else if (strncmp(argv[i],"-v",2)==0) {
char *str;
if (argv[i][2]!='\0')
str= &argv[i][2];
else if ((i<(argc-1))&&(argv[i+1][0]!='-'))
str= argv[++i];
else str= NULL;
if (str)
setVerboseFlags(str);
}
else if (strncmp(argv[i],"-w",2)==0) {
if ((i>=(argc-1))||(!isdigit(argv[i+1][0]))) {
warningLevel = 0;
if (isdigit(argv[i][1]))
if (sscanf(&argv[i][1],"%i",&itmp) == 1)
warningLevel = itmp;
}
else {
if (sscanf(argv[++i],"%i",&itmp) == 1)
warningLevel = itmp;
}
}
else if ((strcmp(argv[i],"-xkb")==0)&&(!xkblist)) {
if ((outputFormat!=WANT_DEFAULT)&&(outputFormat!=WANT_XKB_FILE)) {
if (warningLevel>0) {
WARN("Multiple output file formats specified\n");
ACTION1("\"%s\" flag ignored\n",argv[i]);
}
}
else outputFormat= WANT_XKB_FILE;
}
else if ((strcmp(argv[i],"-xkm")==0)&&(!xkblist)) {
if ((outputFormat!=WANT_DEFAULT)&&(outputFormat!=WANT_XKM_FILE)) {
if (warningLevel>0) {
WARN("Multiple output file formats specified\n");
ACTION1("\"%s\" flag ignored\n",argv[i]);
}
}
else outputFormat= WANT_XKM_FILE;
}
else {
ERROR1("Unknown flag \"%s\" on command line\n",argv[i]);
Usage(argc,argv);
return False;
}
}
if (xkblist)
inputFormat= INPUT_XKB;
else if (inputFile==NULL) {
ERROR("No input file specified\n");
return False;
}
else if (uStringEqual(inputFile,"-")) {
inputFormat= INPUT_XKB;
}
#ifndef WIN32
else if (strchr(inputFile,':')==0) {
#else
else if ((strchr(inputFile,':')==0) || (
strlen(inputFile) > 2 &&
isalpha(inputFile[0]) &&
inputFile[1] == ':' && strchr(inputFile + 2,':')==NULL)) {
#endif
int len;
len= strlen(inputFile);
if (inputFile[len-1]==')') {
char *tmp;
if ((tmp=strchr(inputFile,'('))!=0) {
*tmp= '\0'; inputFile[len-1]= '\0';
tmp++;
if (*tmp=='\0') {
WARN("Empty map in filename\n");
ACTION("Ignored\n");
}
else if (inputMap==NULL) {
inputMap= uStringDup(tmp);
}
else {
WARN("Map specified in filename and with -m flag\n");
ACTION1("map from name (\"%s\") ignored\n",tmp);
}
}
else {
ERROR1("Illegal name \"%s\" for input file\n",inputFile);
return False;
}
}
if ((len>4)&&(strcmp(&inputFile[len-4],".xkm")==0)) {
inputFormat= INPUT_XKM;
}
else {
FILE *file;
file= fopen(inputFile,"r");
if (file) {
if (XkmProbe(file)) inputFormat= INPUT_XKM;
else inputFormat= INPUT_XKB;
fclose(file);
}
else {
fprintf(stderr,"Cannot open \"%s\" for reading\n",inputFile);
return False;
}
}
}
else {
inDpyName= inputFile;
inputFile= NULL;
inputFormat= INPUT_XKM;
}
if (outputFormat==WANT_DEFAULT) {
if (xkblist) outputFormat= WANT_LISTING;
else if (inputFormat==INPUT_XKB) outputFormat= WANT_XKM_FILE;
else outputFormat= WANT_XKB_FILE;
}
if ((outputFormat==WANT_LISTING)&&(inputFormat!=INPUT_XKB)) {
if (inputFile)
ERROR("Cannot generate a listing from a .xkm file (yet)\n");
else ERROR("Cannot generate a listing from an X connection (yet)\n");
return False;
}
if (xkblist) {
if (outputFile==NULL) outputFile= uStringDup("-");
else if (strchr(outputFile,':')!=NULL) {
ERROR("Cannot write a listing to an X connection\n");
return False;
}
}
else if ((!outputFile) && (inputFile) && uStringEqual(inputFile,"-")) {
int len= strlen("stdin")+strlen(fileTypeExt[outputFormat])+2;
outputFile= uTypedCalloc(len,char);
if (outputFile==NULL) {
WSGO("Cannot allocate space for output file name\n");
ACTION("Exiting\n");
exit(1);
}
sprintf(outputFile,"stdin.%s",fileTypeExt[outputFormat]);
}
else if ((outputFile==NULL)&&(inputFile!=NULL)) {
int len;
char *base,*ext;
if (inputMap==NULL) {
base= strrchr(inputFile,'/');
if (base==NULL) base= inputFile;
else base++;
}
else base= inputMap;
len= strlen(base)+strlen(fileTypeExt[outputFormat])+2;
outputFile= uTypedCalloc(len,char);
if (outputFile==NULL) {
WSGO("Cannot allocate space for output file name\n");
ACTION("Exiting\n");
exit(1);
}
ext= strrchr(base,'.');
if (ext==NULL)
sprintf(outputFile,"%s.%s",base,fileTypeExt[outputFormat]);
else {
strcpy(outputFile,base);
strcpy(&outputFile[ext-base+1],fileTypeExt[outputFormat]);
}
}
else if (outputFile==NULL) {
int len;
char *ch,*name,buf[128];
if (inDpyName[0]==':')
sprintf(name=buf,"server%s",inDpyName);
else name= inDpyName;
len= strlen(name)+strlen(fileTypeExt[outputFormat])+2;
outputFile= uTypedCalloc(len,char);
if (outputFile==NULL) {
WSGO("Cannot allocate space for output file name\n");
ACTION("Exiting\n");
exit(1);
}
strcpy(outputFile,name);
for (ch=outputFile;(*ch)!='\0';ch++) {
if (*ch==':') *ch= '-';
else if (*ch=='.') *ch= '_';
}
*ch++= '.';
strcpy(ch,fileTypeExt[outputFormat]);
}
#ifdef WIN32
else if (strlen(outputFile) > 2 &&
isalpha(outputFile[0]) &&
outputFile[1] == ':' && strchr(outputFile + 2,':')==NULL) {
}
#endif
else if (strchr(outputFile,':')!=NULL) {
outDpyName= outputFile;
outputFile= NULL;
outputFormat= WANT_X_SERVER;
}
return True;
}
static Display *
GetDisplay(char *program,char *dpyName)
{
int mjr,mnr,error;
Display *dpy;
mjr= XkbMajorVersion;
mnr= XkbMinorVersion;
dpy= XkbOpenDisplay(dpyName,NULL,NULL,&mjr,&mnr,&error);
if (dpy==NULL) {
switch (error) {
case XkbOD_BadLibraryVersion:
INFO3("%s was compiled with XKB version %d.%02d\n",
program,XkbMajorVersion,XkbMinorVersion);
ERROR2("X library supports incompatible version %d.%02d\n",
mjr,mnr);
break;
case XkbOD_ConnectionRefused:
ERROR1("Cannot open display \"%s\"\n",dpyName);
break;
case XkbOD_NonXkbServer:
ERROR1("XKB extension not present on %s\n",dpyName);
break;
case XkbOD_BadServerVersion:
INFO3("%s was compiled with XKB version %d.%02d\n",
program,XkbMajorVersion,XkbMinorVersion);
ERROR3("Server %s uses incompatible version %d.%02d\n",
dpyName,mjr,mnr);
break;
default:
WSGO1("Unknown error %d from XkbOpenDisplay\n",error);
}
}
else if (synch)
XSynchronize(dpy,True);
return dpy;
}
/***====================================================================***/
extern int yydebug;
int
main(int argc,char *argv[])
{
FILE * file;
XkbFile * rtrn;
XkbFile * mapToUse;
int ok;
XkbFileInfo result;
Status status;
yyin = stdin;
uSetEntryFile(NullString);
uSetDebugFile(NullString);
uSetErrorFile(NullString);
XkbInitIncludePath();
if (!parseArgs(argc,argv))
exit(1);
#ifdef DEBUG
if (debugFlags&0x2)
yydebug= 1;
#endif
if (preErrorMsg)
uSetPreErrorMessage(preErrorMsg);
if (errorPrefix)
uSetErrorPrefix(errorPrefix);
if (postErrorMsg)
uSetPostErrorMessage(postErrorMsg);
file= NULL;
XkbInitAtoms(NULL);
XkbAddDefaultDirectoriesToPath();
if (xkblist) {
Bool gotSome;
gotSome= GenerateListing(outputFile);
if ((warningLevel>7)&&(!gotSome))
return -1;
return 0;
}
if (inputFile!=NULL) {
if (uStringEqual(inputFile,"-")) {
static char *in= "stdin";
file= stdin;
inputFile= in;
}
else {
file= fopen(inputFile,"r");
}
}
else if (inDpyName!=NULL) {
inDpy= GetDisplay(argv[0],inDpyName);
if (!inDpy) {
ACTION("Exiting\n");
exit(1);
}
}
if (outDpyName!=NULL) {
outDpy= GetDisplay(argv[0],outDpyName);
if (!outDpy) {
ACTION("Exiting\n");
exit(1);
}
}
if ((inDpy==NULL) && (outDpy==NULL)) {
int mjr,mnr;
mjr= XkbMajorVersion;
mnr= XkbMinorVersion;
if (!XkbLibraryVersion(&mjr,&mnr)) {
INFO3("%s was compiled with XKB version %d.%02d\n",
argv[0],XkbMajorVersion,XkbMinorVersion);
ERROR2("X library supports incompatible version %d.%02d\n",
mjr,mnr);
ACTION("Exiting\n");
exit(1);
}
}
if (file) {
ok= True;
setScanState(inputFile,1);
if ((inputFormat==INPUT_XKB)&&(XKBParseFile(file,&rtrn)&&(rtrn!=NULL))){
fclose(file);
mapToUse= rtrn;
if (inputMap!=NULL) {
while ((mapToUse)&&(!uStringEqual(mapToUse->name,inputMap))) {
mapToUse= (XkbFile *)mapToUse->common.next;
}
if (!mapToUse) {
FATAL2("No map named \"%s\" in \"%s\"\n",inputMap,
inputFile);
/* NOTREACHED */
}
}
else if (rtrn->common.next!=NULL) {
mapToUse= rtrn;
for (;mapToUse;mapToUse= (XkbFile*)mapToUse->common.next) {
if (mapToUse->flags&XkbLC_Default)
break;
}
if (!mapToUse) {
mapToUse= rtrn;
if (warningLevel>4) {
WARN1("No map specified, but \"%s\" has several\n",
inputFile);
ACTION1("Using the first defined map, \"%s\"\n",
mapToUse->name);
}
}
}
bzero((char *)&result,sizeof(result));
result.type= mapToUse->type;
if ((result.xkb= XkbAllocKeyboard())==NULL) {
WSGO("Cannot allocate keyboard description\n");
/* NOTREACHED */
}
switch (mapToUse->type) {
case XkmSemanticsFile:
case XkmLayoutFile:
case XkmKeymapFile:
ok= CompileKeymap(mapToUse,&result,MergeReplace);
break;
case XkmKeyNamesIndex:
ok= CompileKeycodes(mapToUse,&result,MergeReplace);
break;
case XkmTypesIndex:
ok= CompileKeyTypes(mapToUse,&result,MergeReplace);
break;
case XkmSymbolsIndex:
/* if it's just symbols, invent key names */
result.xkb->flags|= AutoKeyNames;
ok= False;
break;
case XkmCompatMapIndex:
ok= CompileCompatMap(mapToUse,&result,MergeReplace,NULL);
break;
case XkmGeometryFile:
case XkmGeometryIndex:
/* if it's just a geometry, invent key names */
result.xkb->flags|= AutoKeyNames;
ok= CompileGeometry(mapToUse,&result,MergeReplace);
break;
default:
WSGO1("Unknown file type %d\n",mapToUse->type);
ok= False;
break;
}
}
else if (inputFormat==INPUT_XKM) {
unsigned tmp;
bzero((char *)&result,sizeof(result));
if ((result.xkb= XkbAllocKeyboard())==NULL) {
WSGO("Cannot allocate keyboard description\n");
/* NOTREACHED */
}
tmp= XkmReadFile(file,0,XkmKeymapLegal,&result);
if (tmp==XkmKeymapLegal) {
ERROR1("Cannot read XKM file \"%s\"\n",inputFile);
ok= False;
}
}
else {
INFO1("Errors encountered in %s; not compiled.\n",inputFile);
ok= False;
}
}
else if (inDpy!=NULL) {
bzero((char *)&result,sizeof(result));
result.type= XkmKeymapFile;
result.xkb= XkbGetMap(inDpy,XkbAllMapComponentsMask,XkbUseCoreKbd);
if (result.xkb==NULL)
WSGO("Cannot load keyboard description\n");
if (XkbGetIndicatorMap(inDpy,~0,result.xkb)!=Success)
WSGO("Could not load indicator map\n");
if (XkbGetControls(inDpy,XkbAllControlsMask,result.xkb)!=Success)
WSGO("Could not load keyboard controls\n");
if (XkbGetCompatMap(inDpy,XkbAllCompatMask,result.xkb)!=Success)
WSGO("Could not load compatibility map\n");
if (XkbGetNames(inDpy,XkbAllNamesMask,result.xkb)!=Success)
WSGO("Could not load names\n");
if ((status=XkbGetGeometry(inDpy,result.xkb))!=Success) {
if (warningLevel>3) {
char buf[100];
buf[0]= '\0';
XGetErrorText(inDpy,status,buf,100);
WARN1("Could not load keyboard geometry for %s\n",inDpyName);
ACTION1("%s\n",buf);
ACTION("Resulting keymap file will not describe geometry\n");
}
}
if (computeDflts)
ok= (ComputeKbdDefaults(result.xkb)==Success);
else ok= True;
}
else {
fprintf(stderr,"Cannot open \"%s\" to compile\n",inputFile);
ok= 0;
}
if (ok) {
FILE *out = stdout;
if ((inDpy!=outDpy)&&
(XkbChangeKbdDisplay(outDpy,&result)!=Success)) {
WSGO2("Error converting keyboard display from %s to %s\n",
inDpyName,outDpyName);
exit(1);
}
if (outputFile!=NULL) {
if (uStringEqual(outputFile,"-"))
outputFile= "stdout";
else {
/*
* fix to prevent symlink attack (e.g.,
* ln -s /etc/passwd /var/tmp/server-0.xkm)
*/
/*
* this patch may have POSIX, Linux, or GNU libc bias
* -- Branden Robinson
*/
int outputFileFd;
int binMode = 0;
const char *openMode = "w";
unlink(outputFile);
#ifdef O_BINARY
switch (outputFormat) {
case WANT_XKM_FILE:
binMode = O_BINARY;
openMode = "wb";
break;
default:
binMode = 0;
break;
}
#endif
outputFileFd= open(outputFile, O_WRONLY|O_CREAT|O_EXCL,
S_IRUSR|S_IWUSR|S_IRGRP|S_IWGRP|S_IROTH|S_IWOTH|binMode);
if (outputFileFd<0) {
ERROR1("Cannot open \"%s\" to write keyboard description\n",
outputFile);
ACTION("Exiting\n");
exit(1);
}
#ifndef WIN32
out= fdopen(outputFileFd, openMode);
#else
close(outputFileFd);
out= fopen(outputFile, "wb");
#endif
/* end BR */
if (out==NULL) {
ERROR1("Cannot open \"%s\" to write keyboard description\n",
outputFile);
ACTION("Exiting\n");
exit(1);
}
}
}
switch (outputFormat) {
case WANT_XKM_FILE:
ok= XkbWriteXKMFile(out,&result);
break;
case WANT_XKB_FILE:
ok= XkbWriteXKBFile(out,&result,showImplicit,NULL,NULL);
break;
case WANT_C_HDR:
ok= XkbWriteCFile(out,outputFile,&result);
break;
case WANT_X_SERVER:
if (!(ok= XkbWriteToServer(&result))) {
ERROR2("%s in %s\n",_XkbErrMessages[_XkbErrCode],
_XkbErrLocation?_XkbErrLocation:"unknown");
ACTION1("Couldn't write keyboard description to %s\n",
outDpyName);
}
break;
default:
WSGO1("Unknown output format %d\n",outputFormat);
ACTION("No output file created\n");
ok= False;
break;
}
if (outputFormat!=WANT_X_SERVER) {
fclose(out);
if (!ok) {
ERROR2("%s in %s\n",_XkbErrMessages[_XkbErrCode],
_XkbErrLocation?_XkbErrLocation:"unknown");
ACTION1("Output file \"%s\" removed\n",outputFile);
unlink(outputFile);
}
}
}
if (inDpy)
XCloseDisplay(inDpy);
inDpy= NULL;
if (outDpy)
XCloseDisplay(outDpy);
uFinishUp();
return (ok==0);
}