From 2af3aabf0e7eb1514d39b29a6b58fcd0d4de41d1 Mon Sep 17 00:00:00 2001
From: Kaleb Keithley <kaleb@freedesktop.org>
Date: Fri, 14 Nov 2003 15:54:54 +0000
Subject: R6.6 is the Xorg base-line

---
 listing.c | 500 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 500 insertions(+)
 create mode 100644 listing.c

(limited to 'listing.c')

diff --git a/listing.c b/listing.c
new file mode 100644
index 0000000..c87e178
--- /dev/null
+++ b/listing.c
@@ -0,0 +1,500 @@
+/* $Xorg: listing.c,v 1.5 2001/02/09 02:05:49 xorgcvs Exp $ */
+/************************************************************
+ Copyright 1996 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.
+
+ ********************************************************/
+/***********************************************************
+
+Copyright 1988, 1998  The Open Group
+
+Permission to use, copy, modify, distribute, and sell this software and its
+documentation for any purpose is hereby granted without fee, provided that
+the above copyright notice appear in all copies and that both that
+copyright notice and this permission notice appear in supporting
+documentation.
+
+The above copyright notice and this permission notice shall be included in
+all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
+AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
+CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+
+Except as contained in this notice, the name of The Open Group shall not be
+used in advertising or otherwise to promote the sale, use or other dealings
+in this Software without prior written authorization from The Open Group.
+
+
+Copyright 1988 by Digital Equipment Corporation, Maynard, Massachusetts.
+
+                        All Rights Reserved
+
+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 Digital not be
+used in advertising or publicity pertaining to distribution of the
+software without specific, written prior permission.  
+
+DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
+ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
+DIGITAL 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 <sys/types.h>
+#include <sys/stat.h>
+#include <X11/keysym.h>
+
+#if defined(sgi)
+#include <malloc.h>
+#endif
+
+#define	DEBUG_VAR_NOT_LOCAL
+#define	DEBUG_VAR listingDebug
+#include "xkbcomp.h"
+#ifndef X_NOT_STDC_ENV
+#include <stdlib.h>
+#endif
+#ifndef X_NOT_POSIX
+#ifdef _POSIX_SOURCE
+#include <limits.h>
+#else
+#define _POSIX_SOURCE
+#include <limits.h>
+#undef _POSIX_SOURCE
+#endif
+#endif
+#ifndef PATH_MAX
+#ifdef WIN32
+#define PATH_MAX 512
+#else
+#include <sys/param.h>
+#endif
+#ifndef PATH_MAX
+#ifdef MAXPATHLEN
+#define PATH_MAX MAXPATHLEN
+#else
+#define PATH_MAX 1024
+#endif
+#endif
+#endif
+
+#ifdef WIN32
+#define BOOL wBOOL
+#include <windows.h>
+#undef BOOL
+#define FileName(file) file.cFileName
+#else
+#define FileName(file) file->d_name
+#ifndef X_NOT_POSIX
+#include <dirent.h>
+#else
+#ifdef SYSV
+#include <dirent.h>
+#else
+#ifdef USG
+#include <dirent.h>
+#else
+#include <sys/dir.h>
+#ifndef dirent
+#define dirent direct
+#endif
+#endif
+#endif
+#endif
+#endif
+
+#include "xkbpath.h"
+#include "parseutils.h"
+#include "misc.h"
+#include "tokens.h"
+#include <X11/extensions/XKBgeom.h>
+
+#define	lowbit(x)	((x) & (-(x)))
+
+static	int		szListing= 0;
+static	int		nListed= 0;
+static	int		nFilesListed= 0;
+
+typedef struct _Listing {
+	char *		file;
+	char *		map;
+} Listing;
+
+static	int		szMapOnly;
+static	int		nMapOnly;
+static	char **		mapOnly;
+
+static	Listing *	list= NULL;
+
+/***====================================================================***/
+
+int
+#if NeedFunctionPrototypes
+AddMapOnly(char *map)
+#else
+AddMapOnly(map)
+    char *map;
+#endif
+{
+    if (nMapOnly>=szMapOnly) {
+	if (szMapOnly<1)	szMapOnly= 5;
+	else			szMapOnly*= 2;
+	mapOnly= uTypedRealloc(list,szMapOnly,char *);
+	if (!mapOnly) {
+	    WSGO("Couldn't allocate list of maps\n");
+	    return 0;
+	}
+    }
+    mapOnly[nMapOnly++]= map;
+    return 1;
+}
+
+int
+#if NeedFunctionPrototypes
+AddListing(char *file,char *map)
+#else
+AddListing(file,map)
+    char *file;
+    char *map;
+#endif
+{
+    if (nListed>=szListing) {
+	if (szListing<1)	szListing= 10;
+	else			szListing*= 2;
+	list= uTypedRealloc(list,szListing,Listing);
+	if (!list) {
+	    WSGO("Couldn't allocate list of files and maps\n");
+	    ACTION("Exiting\n");
+	    exit(1);
+	}
+    }
+
+    list[nListed].file= file;
+    list[nListed].map= map;
+    nListed++;
+    if (file!=NULL)
+	nFilesListed++;
+    return 1;
+}
+
+/***====================================================================***/
+
+static void
+#if NeedFunctionPrototypes
+ListFile(FILE *outFile,char *fileName,XkbFile *map)
+#else
+ListFile(outFile,fileName,map)
+FILE *		outFile;
+char *		fileName;
+XkbFile *	map;
+#endif
+{
+register unsigned	flags;
+char *			mapName;
+
+    flags= map->flags;
+    if ((flags&XkbLC_Hidden)&&(!(verboseLevel&WantHiddenMaps)))
+	return;
+    if ((flags&XkbLC_Partial)&&(!(verboseLevel&WantPartialMaps)))
+	return;
+    if (verboseLevel&WantLongListing) {
+	fprintf(outFile,(flags&XkbLC_Hidden)?"h":"-");
+	fprintf(outFile,(flags&XkbLC_Default)?"d":"-");
+	fprintf(outFile,(flags&XkbLC_Partial)?"p":"-");
+	fprintf(outFile,"----- ");
+	if (map->type==XkmSymbolsIndex) {
+	    fprintf(outFile,(flags&XkbLC_AlphanumericKeys)?"a":"-");
+	    fprintf(outFile,(flags&XkbLC_ModifierKeys)?"m":"-");
+	    fprintf(outFile,(flags&XkbLC_KeypadKeys)?"k":"-");
+	    fprintf(outFile,(flags&XkbLC_FunctionKeys)?"f":"-");
+	    fprintf(outFile,(flags&XkbLC_AlternateGroup)?"g":"-");
+	    fprintf(outFile,"--- ");
+	}
+        else fprintf(outFile,"-------- ");
+    }
+    mapName= map->name;
+    if ((!(verboseLevel&WantFullNames))&&((flags&XkbLC_Default)!=0))
+	mapName= NULL;
+    if (dirsToStrip>0) {
+	char *tmp,*last;
+	int	i;
+	for (i=0,tmp=last=fileName;(i<dirsToStrip)&&tmp;i++) {
+	    last= tmp;
+	    tmp= strchr(tmp,'/');
+	    if (tmp!=NULL)
+		tmp++;
+	}
+	fileName= (tmp?tmp:last);
+    }
+    if (mapName)
+	 fprintf(outFile,"%s(%s)\n",fileName,mapName);
+    else fprintf(outFile,"%s\n",fileName);
+    return;
+}
+
+/***====================================================================***/
+
+static int
+#if NeedFunctionPrototypes
+AddDirectory(char *head,char *ptrn,char *rest,char *map)
+#else
+AddDirectory(head,ptrn,rest,map)
+    char *	head;
+    char *	ptrn;
+    char *	rest;
+    char *	map;
+#endif
+{
+#ifdef WIN32
+    HANDLE		dirh;
+    WIN32_FIND_DATA	file;
+#else
+    DIR			*dirp;
+    struct dirent	*file;
+#endif
+    int			nMatch;
+
+    if (map==NULL) {
+	char *tmp = ptrn;
+	if ((rest==NULL)&&(ptrn!=NULL)&&(strchr(ptrn,'/')==NULL)) {
+	    tmp= ptrn;
+	    map= strchr(ptrn,'(');
+	}
+	else if ((rest==NULL)&&(ptrn==NULL)&&
+				(head!=NULL)&&(strchr(head,'/')==NULL)) {
+	    tmp= head;
+	    map= strchr(head,'(');
+	}
+	if (map!=NULL) {
+	    tmp= strchr(tmp,')');
+	    if ((tmp==NULL)||(tmp[1]!='\0')) {
+		ERROR("File and map must have the format file(map)\n");
+		return 0;
+	    }
+	    *map= '\0'; map++;
+	    *tmp= '\0';
+	}
+    }
+#ifdef WIN32
+    if ((dirh = FindFirstFile("*.*", &file)) == INVALID_HANDLE_VALUE)
+	return 0;
+#else
+    if ((dirp = opendir ((head?head:"."))) == NULL)
+	return 0;
+    nMatch= 0;
+#endif
+#ifdef WIN32
+    do
+#else
+    while ((file = readdir (dirp)) != NULL)
+#endif
+    {
+	char *tmp,*filename;
+	struct stat sbuf;
+
+	filename= FileName(file);
+	if (!filename || filename[0]=='.') 
+	    continue;
+	if (ptrn && (!XkbNameMatchesPattern(filename,ptrn)))
+	    continue;
+	tmp= (char *)uAlloc((head?strlen(head):0)+strlen(filename)+2);
+	if (!tmp)
+	    continue;
+	sprintf(tmp,"%s%s%s",(head?head:""),(head?"/":""),filename);
+	if (stat(tmp,&sbuf)<0) {
+	    uFree(tmp);
+	    continue;
+	}
+	if (((rest!=NULL)&&(!S_ISDIR(sbuf.st_mode)))||
+				    ((map!=NULL)&&(S_ISDIR(sbuf.st_mode)))) {
+	    uFree(tmp);
+	    continue;
+	}
+	if (S_ISDIR(sbuf.st_mode)) {
+	     if ((rest!=NULL)||(verboseLevel&ListRecursive))
+		nMatch+= AddDirectory(tmp,rest,NULL,map);
+	}
+	else nMatch+= AddListing(tmp,map);
+    }
+#ifdef WIN32
+    while (FindNextFile(dirh, &file));
+#endif
+    return nMatch;
+}
+
+/***====================================================================***/
+
+Bool
+#if NeedFunctionPrototypes
+AddMatchingFiles(char *head_in)
+#else
+AddMatchingFiles(head_in)
+    char *	head_in;
+#endif
+{
+char 	*str,*head,*ptrn,*rest= NULL;
+
+    if (head_in==NULL)
+	return 0;
+    ptrn= NULL;
+    for (str=head_in;(*str!='\0')&&(*str!='?')&&(*str!='*');str++) {
+	if ((str!=head_in)&&(*str=='/'))
+	    ptrn= str;
+    }
+    if (*str=='\0') { /* no wildcards */
+	head= head_in;
+	ptrn= NULL;
+	rest= NULL;
+    }
+    else if (ptrn==NULL) { /* no slash before the first wildcard */
+	head= NULL;
+	ptrn= head_in;
+    }
+    else {	/* slash followed by wildcard */
+	head= head_in;
+	*ptrn= '\0'; ptrn++;
+    }
+    if (ptrn) {
+	rest= strchr(ptrn,'/');
+	if (rest!=NULL) {
+	    *rest= '\0';
+	    rest++;
+	}
+    }
+    if(((rest && ptrn)&&((strchr(ptrn,'(')!=NULL)||(strchr(ptrn,')')!=NULL)))||
+	(head && ((strchr(head,'(')!=NULL)||(strchr(head,')')!=NULL)))) {
+	ERROR("Files/maps to list must have the form file(map)\n");
+	ACTION("Illegal specifier ignored\n");
+	return 0;
+    }
+    return AddDirectory(head,ptrn,rest,NULL);
+}
+
+/***====================================================================***/
+
+Bool
+MapMatches(mapToConsider,ptrn)
+    char *	mapToConsider;
+    char *	ptrn;
+{
+int	i;
+
+    if (ptrn!=NULL)
+	return XkbNameMatchesPattern(mapToConsider,ptrn);
+    if (nMapOnly<1)
+	return True;
+    for (i=0;i<nMapOnly;i++) {
+	if (XkbNameMatchesPattern(mapToConsider,mapOnly[i]))
+	    return True;
+    }
+    return False;
+}
+
+int
+#if NeedFunctionPrototypes
+GenerateListing(char *out_name)
+#else
+GenerateListing(out_name)
+    char *	out_name;
+#endif
+{
+int		i;
+FILE *		inputFile,*outFile;
+XkbFile *	rtrn,*mapToUse;
+unsigned	oldWarningLevel;
+char *		mapName;
+
+    if (nFilesListed<1) {
+	ERROR("Must specify at least one file or pattern to list\n");
+	return 0;
+    }
+    if ((!out_name)||((out_name[0]=='-')&&(out_name[1]=='\0')))
+	outFile= stdout;
+    else if ((outFile=fopen(out_name,"w"))==NULL) {
+	ERROR1("Cannot open \"%s\" to write keyboard description\n",out_name);
+	ACTION("Exiting\n");
+	return 0;
+    }
+#ifdef DEBUG
+    if (warningLevel>9)
+	fprintf(stderr,"should list:\n");
+#endif
+    for (i=0;i<nListed;i++) {
+#ifdef DEBUG
+	if (warningLevel>9) {
+	    fprintf(stderr,"%s(%s)\n",(list[i].file?list[i].file:"*"),
+					(list[i].map?list[i].map:"*"));
+	}
+#endif
+	oldWarningLevel= warningLevel;
+	warningLevel= 0;
+	if (list[i].file) {
+	    struct stat sbuf;
+	    
+	    if (stat(list[i].file,&sbuf)<0) {
+		if (oldWarningLevel>5)
+		    WARN1("Couldn't open \"%s\"\n",list[i].file);
+		continue;
+	    }
+	    if (S_ISDIR(sbuf.st_mode)) {
+		if (verboseLevel&ListRecursive)
+		    AddDirectory(list[i].file,NULL,NULL,NULL);
+		continue;
+	    }
+
+	    inputFile= fopen(list[i].file,"r");
+	    if (!inputFile) {
+		if (oldWarningLevel>5)
+		    WARN1("Couldn't open \"%s\"\n",list[i].file);
+		continue;
+	    }
+	    if (XKBParseFile(inputFile,&rtrn)&&(rtrn!=NULL)) {
+		mapName= list[i].map;
+		mapToUse= rtrn;
+		for (;mapToUse;mapToUse= (XkbFile *)mapToUse->common.next) {
+		    if (!MapMatches(mapToUse->name,mapName))
+			continue;
+		    ListFile(outFile,list[i].file,mapToUse);
+		}
+	    }
+	    fclose(inputFile);
+	}
+	warningLevel= oldWarningLevel;
+    }
+    return 1;
+}
+
-- 
cgit v1.2.3