util.c

PIXIL is a small footprint operating environment, complete with PDA PIM applications, a browser and

/***********************************************************************

util.c - memory allocation, error reporting, and other mundane stuff

Copyright (C) 1991 Dean Rubine

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License. See ../COPYING for
the full agreement.

**********************************************************************/
/*
 * Mundane utility routines
 *	see util.h
 */

 /*LINTLIBRARY*/
#include "util.h"
#include <stdlib.h>
#include <stdarg.h>
#include <stdio.h>
#include <ctype.h>
#include <setjmp.h>
/* ari -- for strlen */
#include <string.h>
extern char *li_err_msg;
static char err_msg[BUFSIZ];

/*
 * Function used by allocation macro
 */

char *
myalloc(nitems, itemsize, typename)
     char *typename;
{
    register unsigned int bytes = nitems * itemsize;
    register char *p = malloc(bytes);
    if (p == NULL)
	error("Can't get mem for %d %s's (each %d bytes, %d total bytes)",
	      nitems, typename, itemsize, bytes);
    return p;
}

/*
 * Return a copy of a string
 */

char *
scopy(s)
     char *s;
{
    register char *p = allocate(strlen(s) + 1, char);
    //char *strcpy();
    (void) strcpy(p, s);
    return p;
}

/*
 * Save error message, then return to recognition manager.
 */

/*VARARGS1*/
void
error(char *a, ...)
{
    va_list ap;
    va_start(ap, a);
    vsprintf(err_msg, a, ap);
    va_end(ap);

    li_err_msg = err_msg;
}

/*
 * Print error message, exit.
*/


/*VARARGS1*/

void
exit_error(char *a, ...)
{
    va_list ap;
    va_start(ap, a);
    vfprintf(stderr, a, ap);
    va_end(ap);
    exit(1);
}


/*
 * print a message if DebugFlag is non-zero
 */

int DebugFlag = 1;

void
debug(a, b, c, d, e, f, g)
     char *a;
{
    if (DebugFlag)
	fprintf(stderr, a, b, c, d, e, f, g);
}

#define	upper(c)	(islower(c) ? toupper(c) : (c))

int
ucstrcmp(s1, s2)
     register char *s1, *s2;
{
    register int i;

    for (; *s1 && *s2; s1++, s2++)
	if ((i = (upper(*s1) - upper(*s2))) != 0)
	    return i;
    return (upper(*s1) - upper(*s2));
}

#define NSTRINGS 3

char *
tempstring()
{
    static char strings[NSTRINGS][100];
    static int index;
    if (index >= NSTRINGS)
	index = 0;
    return strings[index++];
}