summaryrefslogtreecommitdiff
path: root/utils.c
diff options
context:
space:
mode:
Diffstat (limited to 'utils.c')
-rw-r--r--utils.c530
1 files changed, 530 insertions, 0 deletions
diff --git a/utils.c b/utils.c
new file mode 100644
index 0000000..37058c7
--- /dev/null
+++ b/utils.c
@@ -0,0 +1,530 @@
+
+ /*\
+ * $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.
+ \*/
+
+#include "utils.h"
+#include <ctype.h>
+#ifndef X_NOT_STDC_ENV
+#include <stdlib.h>
+#else
+char *malloc();
+#endif
+
+/***====================================================================***/
+
+Opaque
+#if NeedFunctionPrototypes
+uAlloc(unsigned size)
+#else
+uAlloc(size)
+ unsigned size;
+#endif
+{
+ return((Opaque)malloc(size));
+}
+
+/***====================================================================***/
+
+Opaque
+#if NeedFunctionPrototypes
+uCalloc(unsigned n,unsigned size)
+#else
+uCalloc(n,size)
+ unsigned n;
+ unsigned size;
+#endif
+{
+ return((Opaque)calloc(n,size));
+}
+
+/***====================================================================***/
+
+Opaque
+#if NeedFunctionPrototypes
+uRealloc(Opaque old,unsigned newSize)
+#else
+uRealloc(old,newSize)
+ Opaque old;
+ unsigned newSize;
+#endif
+{
+ if (old==NULL)
+ return((Opaque)malloc(newSize));
+ else return((Opaque)realloc((char *)old,newSize));
+}
+
+/***====================================================================***/
+
+Opaque
+#if NeedFunctionPrototypes
+uRecalloc(Opaque old,unsigned nOld,unsigned nNew,unsigned itemSize)
+#else
+uRecalloc(old,nOld,nNew,itemSize)
+ Opaque old;
+ unsigned nOld;
+ unsigned nNew;
+ unsigned itemSize;
+#endif
+{
+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
+#if NeedFunctionPrototypes
+uFree(Opaque ptr)
+#else
+uFree(ptr)
+ Opaque ptr;
+#endif
+{
+ if (ptr!=(Opaque)NULL)
+ free((char *)ptr);
+ return;
+}
+
+/***====================================================================***/
+/*** FUNCTION ENTRY TRACKING ***/
+/***====================================================================***/
+
+static FILE *entryFile= stderr;
+ int uEntryLevel;
+
+Boolean
+#if NeedFunctionPrototypes
+uSetEntryFile(char *name)
+#else
+uSetEntryFile(name)
+ char *name;
+#endif
+{
+ 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
+#if NeedFunctionPrototypes
+uEntry(int l,char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,
+ Opaque a6)
+#else
+uEntry(l,s,a1,a2,a3,a4,a5,a6)
+int l;
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+int i;
+
+ for (i=0;i<uEntryLevel;i++) {
+ putc(' ',entryFile);
+ }
+ fprintf(entryFile,s,a1,a2,a3,a4,a5,a6);
+ uEntryLevel+= l;
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uExit(int l,char *rtVal)
+#else
+uExit(l,rtVal)
+ int l;
+ char * rtVal;
+#endif
+{
+int i;
+
+ uEntryLevel-= l;
+ if (uEntryLevel<0) uEntryLevel= 0;
+ for (i=0;i<uEntryLevel;i++) {
+ putc(' ',entryFile);
+ }
+ fprintf(entryFile,"---> 0x%x\n",rtVal);
+ return;
+}
+
+/***====================================================================***/
+/*** PRINT FUNCTIONS ***/
+/***====================================================================***/
+
+ FILE *uDebugFile= stderr;
+ int uDebugIndentLevel= 0;
+ int uDebugIndentSize= 4;
+
+Boolean
+#if NeedFunctionPrototypes
+uSetDebugFile(char *name)
+#else
+uSetDebugFile(name)
+ char *name;
+#endif
+{
+ 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
+#if NeedFunctionPrototypes
+uDebug(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uDebug(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+int i;
+
+ for (i=(uDebugIndentLevel*uDebugIndentSize);i>0;i--) {
+ putc(' ',uDebugFile);
+ }
+ fprintf(uDebugFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(uDebugFile);
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uDebugNOI(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uDebugNOI(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ fprintf(uDebugFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(uDebugFile);
+ return;
+}
+
+/***====================================================================***/
+
+static FILE *errorFile= stderr;
+static int outCount= 0;
+static char *preMsg= NULL;
+static char *postMsg= NULL;
+static char *prefix= NULL;
+
+Boolean
+#if NeedFunctionPrototypes
+uSetErrorFile(char *name)
+#else
+uSetErrorFile(name)
+ char *name;
+#endif
+{
+ 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
+#if NeedFunctionPrototypes
+uInformation(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,
+ Opaque a6)
+#else
+uInformation(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(errorFile);
+ return;
+}
+
+/***====================================================================***/
+
+void
+#if NeedFunctionPrototypes
+uAction(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uAction(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ if (prefix!=NULL)
+ fprintf(errorFile,"%s",prefix);
+ fprintf(errorFile," ");
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(errorFile);
+ return;
+}
+
+/***====================================================================***/
+
+void
+#if NeedFunctionPrototypes
+uWarning(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uWarning(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ if ((outCount==0)&&(preMsg!=NULL))
+ fprintf(errorFile,"%s\n",preMsg);
+ if (prefix!=NULL)
+ fprintf(errorFile,"%s",prefix);
+ fprintf(errorFile,"Warning: ");
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(errorFile);
+ outCount++;
+ return;
+}
+
+/***====================================================================***/
+
+void
+#if NeedFunctionPrototypes
+uError(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uError(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ if ((outCount==0)&&(preMsg!=NULL))
+ fprintf(errorFile,"%s\n",preMsg);
+ if (prefix!=NULL)
+ fprintf(errorFile,"%s",prefix);
+ fprintf(errorFile,"Error: ");
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(errorFile);
+ outCount++;
+ return;
+}
+
+/***====================================================================***/
+
+void
+#if NeedFunctionPrototypes
+uFatalError(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,Opaque a6)
+#else
+uFatalError(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ if ((outCount==0)&&(preMsg!=NULL))
+ fprintf(errorFile,"%s\n",preMsg);
+ if (prefix!=NULL)
+ fprintf(errorFile,"%s",prefix);
+ fprintf(errorFile,"Fatal Error: ");
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fprintf(errorFile," Exiting\n");
+ fflush(errorFile);
+ outCount++;
+ exit(1);
+ /* NOTREACHED */
+}
+
+/***====================================================================***/
+
+void
+#if NeedFunctionPrototypes
+uInternalError(char *s,Opaque a1,Opaque a2,Opaque a3,Opaque a4,Opaque a5,
+ Opaque a6)
+#else
+uInternalError(s,a1,a2,a3,a4,a5,a6)
+char *s;
+Opaque a1,a2,a3,a4,a5,a6;
+#endif
+{
+ if ((outCount==0)&&(preMsg!=NULL))
+ fprintf(errorFile,"%s\n",preMsg);
+ if (prefix!=NULL)
+ fprintf(errorFile,"%s",prefix);
+ fprintf(errorFile,"Internal error: ");
+ fprintf(errorFile,s,a1,a2,a3,a4,a5,a6);
+ fflush(errorFile);
+ outCount++;
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uSetPreErrorMessage(char *msg)
+#else
+uSetPreErrorMessage(msg)
+ char *msg;
+#endif
+{
+ outCount= 0;
+ preMsg= msg;
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uSetPostErrorMessage(char *msg)
+#else
+uSetPostErrorMessage(msg)
+ char *msg;
+#endif
+{
+ postMsg= msg;
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uSetErrorPrefix(char *pre)
+#else
+uSetErrorPrefix(pre)
+ char *pre;
+#endif
+{
+ prefix= pre;
+ return;
+}
+
+void
+#if NeedFunctionPrototypes
+uFinishUp(void)
+#else
+uFinishUp()
+#endif
+{
+ if ((outCount>0)&&(postMsg!=NULL))
+ fprintf(errorFile,"%s\n",postMsg);
+ return;
+}
+
+/***====================================================================***/
+
+#ifndef HAVE_STRDUP
+char *
+#if NeedFunctionPrototypes
+uStringDup(char *str)
+#else
+uStringDup(str)
+ char *str;
+#endif
+{
+char *rtrn;
+
+ if (str==NULL)
+ return NULL;
+ rtrn= (char *)uAlloc(strlen(str)+1);
+ strcpy(rtrn,str);
+ return rtrn;
+}
+#endif
+
+#ifndef HAVE_STRCASECMP
+int
+#if NeedFunctionPrototypes
+uStrCaseCmp(char *str1,char *str2)
+#else
+uStrCaseCmp(str1, str2)
+ char *str1, *str2;
+#endif
+{
+ 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
+#if NeedFunctionPrototypes
+uStrCasePrefix(char *prefix,char *str)
+#else
+uStrCasePrefix(prefix, str)
+ char *prefix, *str;
+#endif
+{
+ char c1;
+ char c2;
+ while (((c1=*prefix)!='\0')&&((c2=*str)!='\0')) {
+ if (isupper(c1)) c1= tolower(c1);
+ if (isupper(c2)) c2= tolower(c2);
+ if (c1!=c2)
+ return 0;
+ prefix++; str++;
+ }
+ if (c1!='\0')
+ return 0;
+ return 1;
+}
+
+#endif