/* See LICENSE file for copyright and license details. */
#include "common.h"
#ifndef TEST


char *
libsimple_stpntoupper(char *d, const char *s, size_t n)
{
	size_t i;
	char *ret;
	if (d == s) {
		for (; n && *d; d++, n--)
			*d = (char)toupper(*d);
		return d;
	} else if (d < s) {
		for (; n && *s; d++, s++, n--)
			*d = (char)toupper(*s);
		if (n)
			*d = '\0';
		return d;
	} else {
		for (i = 0; i < n && s[i]; i++);
		ret = &d[i];
		if (i != n)
			d[i] = (char)toupper(s[i]);
		while (i--)
			d[i] = (char)toupper(s[i]);
		return ret;
	}
}


#else
#include "test.h"

int
main(void)
{
	char buf[100];

	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[3], &buf[0], SIZE_MAX), ""));
	assert(!strcmp(buf, "abcABCDEABCDE12345"));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[3], SIZE_MAX), ""));
	assert(!strcmp(buf, "DEABCDE12345"));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[0], SIZE_MAX), ""));
	assert(!strcmp(buf, "ABCDEABCDE12345"));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[3], &buf[0], SIZE_MAX), "ABCDEABCDE12345"));
	assert(!strcmp(buf, "abcABCDEABCDE12345"));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[3], SIZE_MAX), "DEABCDE12345"));
	assert(!strcmp(buf, "DEABCDE12345"));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[0], SIZE_MAX), "ABCDEABCDE12345"));
	assert(!strcmp(buf, "ABCDEABCDE12345"));

	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	buf[18] = 'x';
	assert(!strcmpnul(libsimple_stpntoupper(&buf[3], &buf[0], 15), "x"));
	assert(!strcmp(buf, "abcABCDEABCDE12345x"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[3], 12), "345"));
	assert(!strcmp(buf, "DEABCDE12345345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345x");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[0], 15), "x"));
	assert(!strcmp(buf, "ABCDEABCDE12345x"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	buf[18] = 'x';
	assert(!strcmpnul(libsimple_strntoupper(&buf[3], &buf[0], 15), "ABCDEABCDE12345x"));
	assert(!strcmp(buf, "abcABCDEABCDE12345x"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[3], 12), "DEABCDE12345345"));
	assert(!strcmp(buf, "DEABCDE12345345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345x");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[0], 15), "ABCDEABCDE12345x"));
	assert(!strcmp(buf, "ABCDEABCDE12345x"));

	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[3], &buf[0], 0), "deABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[3], 0), "abcdeABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_stpntoupper(&buf[0], &buf[0], 0), "abcdeABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[3], &buf[0], 0), "deABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[3], 0), "abcdeABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));
	memset(buf, 0, sizeof(buf));
	stpcpy(buf, "abcdeABCDE12345");
	assert(!strcmpnul(libsimple_strntoupper(&buf[0], &buf[0], 0), "abcdeABCDE12345"));
	assert(!strcmp(buf, "abcdeABCDE12345"));

	return 0;
}

#endif