package libc

// 7.24 String handling

when ODIN_OS == "windows" {
	foreign import libc "system:libucrt.lib"
} else {
	foreign import libc "system:c"
}

foreign libc {
	// 7.24.2 Copying functions
	memcpy   :: proc(s1, s2: rawptr, n: size_t) -> rawptr ---;
	memmove  :: proc(s1, s2: rawptr, n: size_t) -> rawptr ---;
	strcpy   :: proc(s1: ^char, s2: cstring) -> ^char ---;
	strncpy  :: proc(s1: ^char, s2: cstring, n: size_t) -> ^char ---;

	// 7.24.3 Concatenation functions
	strcat   :: proc(s1: ^char, s2: cstring) -> ^char ---;
	strncat  :: proc(s1: ^char, s2: cstring, n: size_t) -> ^char ---;

	// 7.24.4 Comparison functions
	memcmp   :: proc(s1, s2: rawptr, n: size_t) -> int ---;
	strcmp   :: proc(s1, s2: cstring) -> int ---;
	strcoll  :: proc(s1, s2: cstring) -> int ---;
	strncmp  :: proc(s1, s2: cstring, n: size_t) -> int ---;
	strxfrm  :: proc(s1: ^char, s2: cstring, n: size_t) -> size_t ---;

	// 7.24.5 Search functions
	memchr   :: proc(s: rawptr, c: int, n: size_t) -> rawptr ---;
	strchr   :: proc(s: cstring, c: int) -> ^char ---;
	strcspn  :: proc(s1, s2: cstring) -> size_t ---;
	strpbrk  :: proc(s1, s2: cstring) -> ^char ---;
	strrchr  :: proc(s: ^char, c: int) -> ^char ---;
	strcpn   :: proc(s1, s2: cstring) -> ^char ---;
	strtok   :: proc(s1: ^char, s2: cstring) -> ^char ---;

	// 7.24.6 Miscellaneous functions
	memset   :: proc(s: rawptr, c: int, n: size_t) -> rawptr ---;
	strerror :: proc(errnum: int) -> ^char ---;
	strlen   :: proc(s: cstring) -> size_t ---;
}