412 lines
8.5 KiB
C
412 lines
8.5 KiB
C
|
|
/*\
|
|
* $Xorg: utils.c,v 1.4 2000/08/17 19:54:33 cpqbld Exp $
|
|
*
|
|
* COPYRIGHT 1990
|
|
* DIGITAL EQUIPMENT CORPORATION
|
|
* MAYNARD, MASSACHUSETTS
|
|
* ALL RIGHTS RESERVED.
|
|
*
|
|
* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND
|
|
* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT CORPORATION.
|
|
* DIGITAL MAKES NO REPRESENTATIONS ABOUT THE SUITABILITY OF THIS SOFTWARE
|
|
* FOR ANY PURPOSE. IT IS SUPPLIED "AS IS" WITHOUT EXPRESS OR IMPLIED
|
|
* WARRANTY.
|
|
*
|
|
* IF THE SOFTWARE IS MODIFIED IN A MANNER CREATING DERIVATIVE COPYRIGHT
|
|
* RIGHTS, APPROPRIATE LEGENDS MAY BE PLACED ON THE DERIVATIVE WORK IN
|
|
* ADDITION TO THAT SET FORTH ABOVE.
|
|
*
|
|
* 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 Equipment Corporation not be
|
|
* used in advertising or publicity pertaining to distribution of the
|
|
* software without specific, written prior permission.
|
|
\*/
|
|
/* $XFree86: xc/programs/xkbcomp/utils.c,v 3.6 2001/07/25 15:05:24 dawes Exp $ */
|
|
|
|
#include "utils.h"
|
|
#include <ctype.h>
|
|
#include <stdlib.h>
|
|
#include <stdarg.h>
|
|
|
|
/***====================================================================***/
|
|
|
|
Opaque
|
|
uAlloc(unsigned size)
|
|
{
|
|
return((Opaque)malloc(size));
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
Opaque
|
|
uCalloc(unsigned n,unsigned size)
|
|
{
|
|
return((Opaque)calloc(n,size));
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
Opaque
|
|
uRealloc(Opaque old,unsigned newSize)
|
|
{
|
|
if (old==NULL)
|
|
return((Opaque)malloc(newSize));
|
|
else return((Opaque)realloc((char *)old,newSize));
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
Opaque
|
|
uRecalloc(Opaque old,unsigned nOld,unsigned nNew,unsigned itemSize)
|
|
{
|
|
char *rtrn;
|
|
|
|
if (old==NULL)
|
|
rtrn= (char *)calloc(nNew,itemSize);
|
|
else {
|
|
rtrn= (char *)realloc((char *)old,nNew*itemSize);
|
|
if ((rtrn)&&(nNew>nOld)) {
|
|
bzero(&rtrn[nOld*itemSize],(nNew-nOld)*itemSize);
|
|
}
|
|
}
|
|
return (Opaque)rtrn;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uFree(Opaque ptr)
|
|
{
|
|
if (ptr!=(Opaque)NULL)
|
|
free((char *)ptr);
|
|
return;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
/*** FUNCTION ENTRY TRACKING ***/
|
|
/***====================================================================***/
|
|
|
|
static FILE *entryFile= NULL;
|
|
int uEntryLevel;
|
|
|
|
Boolean
|
|
uSetEntryFile(char *name)
|
|
{
|
|
if ((entryFile!=NULL)&&(entryFile!=stderr)) {
|
|
fprintf(entryFile,"switching to %s\n",name?name:"stderr");
|
|
fclose(entryFile);
|
|
}
|
|
if (name!=NullString) entryFile= fopen(name,"w");
|
|
else entryFile= stderr;
|
|
if (entryFile==NULL) {
|
|
entryFile= stderr;
|
|
return(False);
|
|
}
|
|
return(True);
|
|
}
|
|
|
|
void
|
|
uEntry(int l,char *s,...)
|
|
{
|
|
int i;
|
|
va_list args;
|
|
|
|
for (i=0;i<uEntryLevel;i++) {
|
|
putc(' ',entryFile);
|
|
}
|
|
va_start(args, s);
|
|
vfprintf(entryFile,s,args);
|
|
va_end(args);
|
|
uEntryLevel+= l;
|
|
}
|
|
|
|
void
|
|
uExit(int l,char *rtVal)
|
|
{
|
|
int i;
|
|
|
|
uEntryLevel-= l;
|
|
if (uEntryLevel<0) uEntryLevel= 0;
|
|
for (i=0;i<uEntryLevel;i++) {
|
|
putc(' ',entryFile);
|
|
}
|
|
fprintf(entryFile,"---> %p\n",rtVal);
|
|
return;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
/*** PRINT FUNCTIONS ***/
|
|
/***====================================================================***/
|
|
|
|
FILE *uDebugFile= NULL;
|
|
int uDebugIndentLevel= 0;
|
|
int uDebugIndentSize= 4;
|
|
|
|
Boolean
|
|
uSetDebugFile(char *name)
|
|
{
|
|
if ((uDebugFile!=NULL)&&(uDebugFile!=stderr)) {
|
|
fprintf(uDebugFile,"switching to %s\n",name?name:"stderr");
|
|
fclose(uDebugFile);
|
|
}
|
|
if (name!=NullString) uDebugFile= fopen(name,"w");
|
|
else uDebugFile= stderr;
|
|
if (uDebugFile==NULL) {
|
|
uDebugFile= stderr;
|
|
return(False);
|
|
}
|
|
return(True);
|
|
}
|
|
|
|
void
|
|
uDebug(char *s,...)
|
|
{
|
|
int i;
|
|
va_list args;
|
|
|
|
for (i=(uDebugIndentLevel*uDebugIndentSize);i>0;i--) {
|
|
putc(' ',uDebugFile);
|
|
}
|
|
va_start(args, s);
|
|
vfprintf(uDebugFile,s,args);
|
|
va_end(args);
|
|
fflush(uDebugFile);
|
|
}
|
|
|
|
void
|
|
uDebugNOI(char *s,...)
|
|
{
|
|
va_list args;
|
|
|
|
va_start(args, s);
|
|
vfprintf(uDebugFile,s,args);
|
|
va_end(args);
|
|
fflush(uDebugFile);
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
static FILE *errorFile= NULL;
|
|
static int outCount= 0;
|
|
static char *preMsg= NULL;
|
|
static char *postMsg= NULL;
|
|
static char *prefix= NULL;
|
|
|
|
Boolean
|
|
uSetErrorFile(char *name)
|
|
{
|
|
if ((errorFile!=NULL)&&(errorFile!=stderr)) {
|
|
fprintf(errorFile,"switching to %s\n",name?name:"stderr");
|
|
fclose(errorFile);
|
|
}
|
|
if (name!=NullString) errorFile= fopen(name,"w");
|
|
else errorFile= stderr;
|
|
if (errorFile==NULL) {
|
|
errorFile= stderr;
|
|
return(False);
|
|
}
|
|
return(True);
|
|
}
|
|
|
|
void
|
|
uInformation(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fflush(errorFile);
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uAction(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
if (prefix!=NULL)
|
|
fprintf(errorFile,"%s",prefix);
|
|
fprintf(errorFile," ");
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fflush(errorFile);
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uWarning(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
if ((outCount==0)&&(preMsg!=NULL))
|
|
fprintf(errorFile,"%s\n",preMsg);
|
|
if (prefix!=NULL)
|
|
fprintf(errorFile,"%s",prefix);
|
|
fprintf(errorFile,"Warning: ");
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fflush(errorFile);
|
|
outCount++;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uError(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
if ((outCount==0)&&(preMsg!=NULL))
|
|
fprintf(errorFile,"%s\n",preMsg);
|
|
if (prefix!=NULL)
|
|
fprintf(errorFile,"%s",prefix);
|
|
fprintf(errorFile,"Error: ");
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fflush(errorFile);
|
|
outCount++;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uFatalError(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
if ((outCount==0)&&(preMsg!=NULL))
|
|
fprintf(errorFile,"%s\n",preMsg);
|
|
if (prefix!=NULL)
|
|
fprintf(errorFile,"%s",prefix);
|
|
fprintf(errorFile,"Fatal Error: ");
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fprintf(errorFile," Exiting\n");
|
|
fflush(errorFile);
|
|
outCount++;
|
|
exit(1);
|
|
/* NOTREACHED */
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
void
|
|
uInternalError(char *s, ...)
|
|
{
|
|
va_list args;
|
|
|
|
if ((outCount==0)&&(preMsg!=NULL))
|
|
fprintf(errorFile,"%s\n",preMsg);
|
|
if (prefix!=NULL)
|
|
fprintf(errorFile,"%s",prefix);
|
|
fprintf(errorFile,"Internal error: ");
|
|
va_start(args, s);
|
|
vfprintf(errorFile,s,args);
|
|
va_end(args);
|
|
fflush(errorFile);
|
|
outCount++;
|
|
}
|
|
|
|
void
|
|
uSetPreErrorMessage(char *msg)
|
|
{
|
|
outCount= 0;
|
|
preMsg= msg;
|
|
return;
|
|
}
|
|
|
|
void
|
|
uSetPostErrorMessage(char *msg)
|
|
{
|
|
postMsg= msg;
|
|
return;
|
|
}
|
|
|
|
void
|
|
uSetErrorPrefix(char *pre)
|
|
{
|
|
prefix= pre;
|
|
return;
|
|
}
|
|
|
|
void
|
|
uFinishUp(void)
|
|
{
|
|
if ((outCount>0)&&(postMsg!=NULL))
|
|
fprintf(errorFile,"%s\n",postMsg);
|
|
return;
|
|
}
|
|
|
|
/***====================================================================***/
|
|
|
|
#ifndef HAVE_STRDUP
|
|
char *
|
|
uStringDup(char *str)
|
|
{
|
|
char *rtrn;
|
|
|
|
if (str==NULL)
|
|
return NULL;
|
|
rtrn= (char *)uAlloc(strlen(str)+1);
|
|
strcpy(rtrn,str);
|
|
return rtrn;
|
|
}
|
|
#endif
|
|
|
|
#ifndef HAVE_STRCASECMP
|
|
int
|
|
uStrCaseCmp(char *str1,char *str2)
|
|
{
|
|
char buf1[512],buf2[512];
|
|
char c, *s;
|
|
register int n;
|
|
|
|
for (n=0, s = buf1; (c = *str1++); n++) {
|
|
if (isupper(c))
|
|
c = tolower(c);
|
|
if (n>510)
|
|
break;
|
|
*s++ = c;
|
|
}
|
|
*s = '\0';
|
|
for (n=0, s = buf2; (c = *str2++); n++) {
|
|
if (isupper(c))
|
|
c = tolower(c);
|
|
if (n>510)
|
|
break;
|
|
*s++ = c;
|
|
}
|
|
*s = '\0';
|
|
return (strcmp(buf1, buf2));
|
|
}
|
|
|
|
int
|
|
uStrCasePrefix(char *my_prefix,char *str)
|
|
{
|
|
char c1;
|
|
char c2;
|
|
while (((c1=*my_prefix)!='\0')&&((c2=*str)!='\0')) {
|
|
if (isupper(c1)) c1= tolower(c1);
|
|
if (isupper(c2)) c2= tolower(c2);
|
|
if (c1!=c2)
|
|
return 0;
|
|
my_prefix++; str++;
|
|
}
|
|
if (c1!='\0')
|
|
return 0;
|
|
return 1;
|
|
}
|
|
|
|
#endif
|