/*
 * This file is part of RGBDS.
 *
 * Copyright (c) 1997-2019, Carsten Sorensen and RGBDS contributors.
 *
 * SPDX-License-Identifier: MIT
 */

#include <ctype.h>
#include <stdint.h>

#include "asm/main.h"
#include "asm/util.h"
#include "asm/warning.h"

#include "extern/utf8decoder.h"

/*
 * Calculate the hash value for a string.
 * Uses the djb2 algorithm (xor version).
 * http://www.cse.yorku.ca/~oz/hash.html
 */
uint32_t calchash(const char *s)
{
	uint32_t hash = 5381;

	while (*s != 0)
		hash = (hash * 33) ^ (*s++);

	return hash;
}

char const *print(int c)
{
	static char buf[5]; /* '\xNN' + '\0' */

	if (c == EOF)
		return "EOF";

	if (isprint(c)) {
		buf[0] = c;
		buf[1] = '\0';
		return buf;
	}

	buf[0] = '\\';
	switch (c) {
	case '\n':
		buf[1] = 'n';
		break;
	case '\r':
		buf[1] = 'r';
		break;
	case '\t':
		buf[1] = 't';
		break;

	default: /* Print as hex */
		buf[1] = 'x';
		sprintf(&buf[2], "%02hhx", c);
		return buf;
	}
	buf[2] = '\0';
	return buf;
}

size_t readUTF8Char(uint8_t *dest, char const *src)
{
	uint32_t state = 0;
	uint32_t codep;
	size_t i = 0;

	for (;;) {
		if (decode(&state, &codep, src[i]) == 1)
			return 0;

		dest[i] = src[i];
		i++;

		if (state == 0)
			return i;
	}
}
