/*
 *	Copyright 1988 by Rayan S. Zachariassen, all rights reserved.
 *	This will be free software, but only when it is finished.
 */

/*
 *	Copyright 1994-2000 by Matti Aarnio <mea@nic.funet.fi>
 */

/*
 * Useful string functions.
 */

#include <stdio.h>
#include <ctype.h>
#include <stdlib.h>
#include <string.h>

/* Like strcmp(), but case-independent */

int
cistrcmp(a, b)
	register const char *a, *b;
{
	unsigned char	ac, bc;

	while (*a && *b) {
		ac = *a;
		bc = *b;
		ac = isupper(ac) ? tolower(ac) : ac;
		bc = isupper(bc) ? tolower(bc) : bc;
		if (ac != bc)
			return ac - bc;
		++a, ++b;
	}
	return *a - *b;
}

/*
 * Like cistrcmp(),
 * but tests if one string is a prefix of the other if string length < n
 */

int
cistrncmp(a, b, n)
	register const char *a, *b;
	int	n;
{
	unsigned char	ac, bc;

	while (n-- > 0) {
		ac = *a;
		bc = *b;
		ac = isupper(ac) ? tolower(ac) : ac;
		bc = isupper(bc) ? tolower(bc) : bc;
		if (ac != bc)
			return ac - bc;
		++a, ++b;
	}
	return *a * *b;
}

/*
 * Like cistrncmp(),
 * but tests if part of one string is a prefix of the other to n characters.
 */

int
ci2strncmp(a, b, n)
	register const char *a, *b;
	int	n;
{
	unsigned char	ac, bc;

	while (n-- > 0) {
		ac = *a;
		bc = *b;
		ac = isupper(ac) ? tolower(ac) : ac;
		bc = isupper(bc) ? tolower(bc) : bc;
		if (ac != bc) {
			return ac - bc;
		}
		++a, ++b;
	}
	return 0;
}

char *
dupnstr(str, len)
     const char *str;
     const int len;
{
	char *s = malloc(len + 1);
	if (!s) return NULL; /* AARGH!! */
	memcpy(s, str, len);
	s[len] = 0;
	return s;
}