libutil

// util/strtos.c

// String conversion source file from libutil

// Copyright (C) 2021, Jakob Wakeling

// MIT Licence

#include "util.h"

#include <ctype.h>

#include <errno.h>

/* Convert a string to a signed 8-bit integer */

s8 strtos8(const char *nptr, char **endptr, register int base) {

	register const char *s = nptr; register u8 i = 0, c; bool neg = false;

	for (; isspace(*s); ++s);

	if (*s == '+') { ++s; } else if (*s == '-') { ++s; neg = true; }

	if ((!base || base == 16) && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) {

		s += 2; base = 16;

	}

	else if (base == 0) { base = s[0] == '0' ? 8 : 10; }

	else if (base < 2 || base > 36) { errno = EINVAL; goto end; }

	for (;; ++s) {

		if (*s >= '0' && *s <= '9') { c = *s - '0'; }

		else if (*s >= 'A' && *s <= 'Z') { c = *s - ('A' - 10); }

		else if (*s >= 'a' && *s <= 'z') { c = *s - ('a' - 10); }

		else { break; }

		if (c >= base) { break; }

		if (i > (neg ? -(S8_MIN + 1) : S8_MAX - c) / base) {

			errno = ERANGE; i = neg ? S8_MIN : S8_MAX; goto end;

		}

		i = i * base + c;

	}

end:;

	if (endptr) { *endptr = (char *)s; } return neg ? -i : i;

}

/* Convert a string to a signed 16-bit integer */

s16 strtos16(const char *nptr, char **endptr, register int base) {

	register const char *s = nptr; register u16 i = 0, c; bool neg = false;

	for (; isspace(*s); ++s);

	if (*s == '+') { ++s; } else if (*s == '-') { ++s; neg = true; }

	if ((!base || base == 16) && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) {

		s += 2; base = 16;

	}

	else if (base == 0) { base = s[0] == '0' ? 8 : 10; }

	else if (base < 2 || base > 36) { errno = EINVAL; goto end; }

	for (;; ++s) {

		if (*s >= '0' && *s <= '9') { c = *s - '0'; }

		else if (*s >= 'A' && *s <= 'Z') { c = *s - ('A' - 10); }

		else if (*s >= 'a' && *s <= 'z') { c = *s - ('a' - 10); }

		else { break; }

		if (c >= base) { break; }

		if (i > (neg ? -(S16_MIN + 1) : S16_MAX - c) / base) {

			errno = ERANGE; i = neg ? S16_MIN : S16_MAX; goto end;

		}

		i = i * base + c;

	}

end:;

	if (endptr) { *endptr = (char *)s; } return neg ? -i : i;

}

/* Convert a string to a signed 32-bit integer */

s32 strtos32(const char *nptr, char **endptr, register int base) {

	register const char *s = nptr; register u32 i = 0, c; bool neg = false;

	for (; isspace(*s); ++s);

	if (*s == '+') { ++s; } else if (*s == '-') { ++s; neg = true; }

	if ((!base || base == 16) && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) {

		s += 2; base = 16;

	}

	else if (base == 0) { base = s[0] == '0' ? 8 : 10; }

	else if (base < 2 || base > 36) { errno = EINVAL; goto end; }

	for (;; ++s) {

		if (*s >= '0' && *s <= '9') { c = *s - '0'; }

		else if (*s >= 'A' && *s <= 'Z') { c = *s - ('A' - 10); }

		else if (*s >= 'a' && *s <= 'z') { c = *s - ('a' - 10); }

		else { break; }

		if (c >= base) { break; }

		if (i > (neg ? -(S32_MIN + 1) : S32_MAX - c) / base) {

			errno = ERANGE; i = neg ? S32_MIN : S32_MAX; goto end;

		}

		i = i * base + c;

	}

end:;

	if (endptr) { *endptr = (char *)s; } return neg ? -i : i;

}

/* Convert a string to a signed 64-bit integer */

s64 strtos64(const char *nptr, char **endptr, register int base) {

	register const char *s = nptr; register u64 i = 0, c; bool neg = false;

	for (; isspace(*s); ++s);

	if (*s == '+') { ++s; } else if (*s == '-') { ++s; neg = true; }

	if ((!base || base == 16) && s[0] == '0' && (s[1] == 'x' || s[1] == 'X')) {

		s += 2; base = 16;

	}

	else if (base == 0) { base = s[0] == '0' ? 8 : 10; }

	else if (base < 2 || base > 36) { errno = EINVAL; goto end; }

	for (;; ++s) {

		if (*s >= '0' && *s <= '9') { c = *s - '0'; }

		else if (*s >= 'A' && *s <= 'Z') { c = *s - ('A' - 10); }

		else if (*s >= 'a' && *s <= 'z') { c = *s - ('a' - 10); }

		else { break; }

		if (c >= base) { break; }

		if (i > (neg ? -(S64_MIN + 1) : S64_MAX - c) / base) {

			errno = ERANGE; i = neg ? S64_MIN : S64_MAX; goto end;

		}

		i = i * base + c;

	}

end:;

	if (endptr) { *endptr = (char *)s; } return neg ? -i : i;

}