xenocara/app/xkbcomp/utils.c
2008-04-20 16:32:06 +00:00

412 lines
8.6 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(const char *s, ...)
{
va_list args;
va_start(args, s);
vfprintf(errorFile,s,args);
va_end(args);
fflush(errorFile);
}
/***====================================================================***/
void
uAction(const 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(const 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(const 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(const 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(const 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(const 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(const char *str1, const 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(const 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