xenocara/app/xkbcomp/utils.c

435 lines
9.3 KiB
C
Raw Normal View History

2006-11-25 13:07:29 -07:00
/*\
*
2011-01-11 13:56:40 -07:00
* COPYRIGHT 1990
* DIGITAL EQUIPMENT CORPORATION
* MAYNARD, MASSACHUSETTS
* ALL RIGHTS RESERVED.
2006-11-25 13:07:29 -07:00
*
* 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.
2011-01-11 13:56:40 -07:00
\*/
2006-11-25 13:07:29 -07:00
#include "utils.h"
#include <ctype.h>
#include <stdlib.h>
#include <stdarg.h>
/***====================================================================***/
Opaque
uAlloc(unsigned size)
{
2011-01-11 13:56:40 -07:00
return ((Opaque) malloc(size));
2006-11-25 13:07:29 -07:00
}
/***====================================================================***/
Opaque
2011-01-11 13:56:40 -07:00
uCalloc(unsigned n, unsigned size)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
return ((Opaque) calloc(n, size));
2006-11-25 13:07:29 -07:00
}
/***====================================================================***/
Opaque
2011-01-11 13:56:40 -07:00
uRealloc(Opaque old, unsigned newSize)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
if (old == NULL)
return ((Opaque) malloc(newSize));
else
return ((Opaque) realloc((char *) old, newSize));
2006-11-25 13:07:29 -07:00
}
/***====================================================================***/
Opaque
2011-01-11 13:56:40 -07:00
uRecalloc(Opaque old, unsigned nOld, unsigned nNew, unsigned itemSize)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
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);
}
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
return (Opaque) rtrn;
2006-11-25 13:07:29 -07:00
}
/***====================================================================***/
void
uFree(Opaque ptr)
{
2011-01-11 13:56:40 -07:00
if (ptr != (Opaque) NULL)
free((char *) ptr);
2006-11-25 13:07:29 -07:00
return;
}
/***====================================================================***/
/*** FUNCTION ENTRY TRACKING ***/
/***====================================================================***/
2011-01-11 13:56:40 -07:00
static FILE *entryFile = NULL;
int uEntryLevel;
2006-11-25 13:07:29 -07:00
Boolean
uSetEntryFile(char *name)
{
2011-01-11 13:56:40 -07:00
if ((entryFile != NULL) && (entryFile != stderr))
{
fprintf(entryFile, "switching to %s\n", name ? name : "stderr");
fclose(entryFile);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
if (name != NullString)
entryFile = fopen(name, "w");
else
entryFile = stderr;
if (entryFile == NULL)
{
entryFile = stderr;
return (False);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
return (True);
2006-11-25 13:07:29 -07:00
}
void
2011-01-11 13:56:40 -07:00
uEntry(int l, char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int i;
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
for (i = 0; i < uEntryLevel; i++)
{
putc(' ', entryFile);
2006-11-25 13:07:29 -07:00
}
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(entryFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
2011-01-11 13:56:40 -07:00
uEntryLevel += l;
2006-11-25 13:07:29 -07:00
}
void
2011-01-11 13:56:40 -07:00
uExit(int l, char *rtVal)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int i;
uEntryLevel -= l;
if (uEntryLevel < 0)
uEntryLevel = 0;
for (i = 0; i < uEntryLevel; i++)
{
putc(' ', entryFile);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
fprintf(entryFile, "---> %p\n", rtVal);
2006-11-25 13:07:29 -07:00
return;
}
/***====================================================================***/
/*** PRINT FUNCTIONS ***/
/***====================================================================***/
2011-01-11 13:56:40 -07:00
FILE *uDebugFile = NULL;
int uDebugIndentLevel = 0;
int uDebugIndentSize = 4;
2006-11-25 13:07:29 -07:00
Boolean
uSetDebugFile(char *name)
{
2011-01-11 13:56:40 -07:00
if ((uDebugFile != NULL) && (uDebugFile != stderr))
{
fprintf(uDebugFile, "switching to %s\n", name ? name : "stderr");
fclose(uDebugFile);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
if (name != NullString)
uDebugFile = fopen(name, "w");
else
uDebugFile = stderr;
if (uDebugFile == NULL)
{
uDebugFile = stderr;
return (False);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
return (True);
2006-11-25 13:07:29 -07:00
}
void
2011-01-11 13:56:40 -07:00
uDebug(char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
int i;
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
for (i = (uDebugIndentLevel * uDebugIndentSize); i > 0; i--)
{
putc(' ', uDebugFile);
2006-11-25 13:07:29 -07:00
}
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(uDebugFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(uDebugFile);
}
void
2011-01-11 13:56:40 -07:00
uDebugNOI(char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(uDebugFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(uDebugFile);
}
/***====================================================================***/
2011-01-11 13:56:40 -07:00
static FILE *errorFile = NULL;
static int outCount = 0;
static char *preMsg = NULL;
static char *postMsg = NULL;
static char *prefix = NULL;
2006-11-25 13:07:29 -07:00
Boolean
uSetErrorFile(char *name)
{
2011-01-11 13:56:40 -07:00
if ((errorFile != NULL) && (errorFile != stderr))
{
fprintf(errorFile, "switching to %s\n", name ? name : "stderr");
fclose(errorFile);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
if (name != NullString)
errorFile = fopen(name, "w");
else
errorFile = stderr;
if (errorFile == NULL)
{
errorFile = stderr;
return (False);
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
return (True);
2006-11-25 13:07:29 -07:00
}
void
2008-04-20 10:32:06 -06:00
uInformation(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(errorFile);
}
/***====================================================================***/
void
2008-04-20 10:32:06 -06:00
uAction(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if (prefix != NULL)
fprintf(errorFile, "%s", prefix);
fprintf(errorFile, " ");
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(errorFile);
}
/***====================================================================***/
void
2008-04-20 10:32:06 -06:00
uWarning(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if ((outCount == 0) && (preMsg != NULL))
fprintf(errorFile, "%s\n", preMsg);
if (prefix != NULL)
fprintf(errorFile, "%s", prefix);
fprintf(errorFile, "Warning: ");
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(errorFile);
outCount++;
}
/***====================================================================***/
void
2008-04-20 10:32:06 -06:00
uError(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if ((outCount == 0) && (preMsg != NULL))
fprintf(errorFile, "%s\n", preMsg);
if (prefix != NULL)
fprintf(errorFile, "%s", prefix);
fprintf(errorFile, "Error: ");
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(errorFile);
outCount++;
}
/***====================================================================***/
void
2008-04-20 10:32:06 -06:00
uFatalError(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if ((outCount == 0) && (preMsg != NULL))
fprintf(errorFile, "%s\n", preMsg);
if (prefix != NULL)
fprintf(errorFile, "%s", prefix);
fprintf(errorFile, "Fatal Error: ");
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
2011-01-11 13:56:40 -07:00
fprintf(errorFile, " Exiting\n");
2006-11-25 13:07:29 -07:00
fflush(errorFile);
outCount++;
exit(1);
/* NOTREACHED */
}
/***====================================================================***/
void
2008-04-20 10:32:06 -06:00
uInternalError(const char *s, ...)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
va_list args;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if ((outCount == 0) && (preMsg != NULL))
fprintf(errorFile, "%s\n", preMsg);
if (prefix != NULL)
fprintf(errorFile, "%s", prefix);
fprintf(errorFile, "Internal error: ");
2006-11-25 13:07:29 -07:00
va_start(args, s);
2011-01-11 13:56:40 -07:00
vfprintf(errorFile, s, args);
2006-11-25 13:07:29 -07:00
va_end(args);
fflush(errorFile);
outCount++;
}
void
uSetPreErrorMessage(char *msg)
{
2011-01-11 13:56:40 -07:00
outCount = 0;
preMsg = msg;
2006-11-25 13:07:29 -07:00
return;
}
void
uSetPostErrorMessage(char *msg)
{
2011-01-11 13:56:40 -07:00
postMsg = msg;
2006-11-25 13:07:29 -07:00
return;
}
void
uSetErrorPrefix(char *pre)
{
2011-01-11 13:56:40 -07:00
prefix = pre;
2006-11-25 13:07:29 -07:00
return;
}
void
uFinishUp(void)
{
2011-01-11 13:56:40 -07:00
if ((outCount > 0) && (postMsg != NULL))
fprintf(errorFile, "%s\n", postMsg);
2006-11-25 13:07:29 -07:00
return;
}
/***====================================================================***/
#ifndef HAVE_STRDUP
char *
2008-04-20 10:32:06 -06:00
uStringDup(const char *str)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
char *rtrn;
2006-11-25 13:07:29 -07:00
2011-01-11 13:56:40 -07:00
if (str == NULL)
return NULL;
rtrn = (char *) uAlloc(strlen(str) + 1);
strcpy(rtrn, str);
2006-11-25 13:07:29 -07:00
return rtrn;
}
#endif
#ifndef HAVE_STRCASECMP
int
2008-04-20 10:32:06 -06:00
uStrCaseCmp(const char *str1, const char *str2)
2006-11-25 13:07:29 -07:00
{
2011-01-11 13:56:40 -07:00
char buf1[512], buf2[512];
2006-11-25 13:07:29 -07:00
char c, *s;
register int n;
2011-01-11 13:56:40 -07:00
for (n = 0, s = buf1; (c = *str1++); n++)
{
if (isupper(c))
c = tolower(c);
if (n > 510)
break;
*s++ = c;
2006-11-25 13:07:29 -07:00
}
*s = '\0';
2011-01-11 13:56:40 -07:00
for (n = 0, s = buf2; (c = *str2++); n++)
{
if (isupper(c))
c = tolower(c);
if (n > 510)
break;
*s++ = c;
2006-11-25 13:07:29 -07:00
}
*s = '\0';
return (strcmp(buf1, buf2));
}
int
2008-04-20 10:32:06 -06:00
uStrCasePrefix(const char *my_prefix, char *str)
2006-11-25 13:07:29 -07:00
{
char c1;
char c2;
2011-01-11 13:56:40 -07:00
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++;
2006-11-25 13:07:29 -07:00
}
2011-01-11 13:56:40 -07:00
if (c1 != '\0')
return 0;
2006-11-25 13:07:29 -07:00
return 1;
}
#endif