435 lines
9.3 KiB
C
435 lines
9.3 KiB
C
|
|
/*\
|
|
*
|
|
* 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.
|
|
\*/
|
|
|
|
#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
|