summaryrefslogtreecommitdiffstatshomepage
path: root/3rdparty/genie/src/host/string_hash.c
blob: f54033819b75b8695bb4d5d4e178fe8a1d6b50d2 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
/**
 * \file   string_hash.c
 * \brief  Computes a hash value for a string.
 * \author Copyright (c) 2012 Jason Perkins and the Premake project
 */

#include "premake.h"
#include <string.h>


int string_hash(lua_State* L)
{
	const char* str = luaL_checkstring(L, 1);
	lua_pushnumber(L, (lua_Number)do_hash(str, 0));
	return 1;	
}


unsigned long do_hash(const char* str, int seed)
{
	/* DJB2 hashing; see http://www.cse.yorku.ca/~oz/hash.html */
	
	unsigned long hash = 5381;
	
	if (seed != 0) {
		hash = hash * 33 + seed;
	}

	while (*str) {
		hash = hash * 33 + (*str);
		str++;
	}

	return hash;
}