# not sure how this is done in glibc

export types
use cstr

size_t strnlen(const char *s, size_t n)
	size_t len = 0
	while len < n && *s++
		++len
	return len

char *strndup(const char *s, size_t n)
	char *rv
	size_t len = strnlen(s, n)
	if n > len
		n = len
	rv = malloc(n+1)
	if rv
		strlcpy(rv, s, n+1)
	return rv

char *strcasestr(const char *haystack, const char *needle)
	do
		if cstr_case_begins_with((cstr)haystack, (cstr)needle)
			return (char*)haystack
	 while *(++haystack)
	# TODO stop looking when get past strlen(haystack)-strlen(needle) position
	return NULL