Small cleanup of script.c

 * removed DEBUG_FUNCIN (some tracing code for expression parsing)
 * cleaned up the hashing functions code a bit
 * removed SCRIPT_HASH_PJW since it gives results identical to SCRIPT_HASH_ELF
 * switched the hashing function used to ELF, since on current eathena it gives strictly better results than all others (w.r.t. entry count in buckets whose size is above the expected average)
 - note: ELF behaves very poorly if SCRIPT_HASH_SIZE is changed to 1024, others don't.

git-svn-id: https://svn.code.sf.net/p/rathena/svn/trunk@13018 54d463be-8e91-2dee-dedb-b68131a5f0ec

src/map/script.c

@@ -1,7 +1,6 @@
 // Copyright (c) Athena Dev Teams - Licensed under GNU GPL
 // For more information, see LICENCE in the main folder
 
-//#define DEBUG_FUNCIN
 //#define DEBUG_DISP
 //#define DEBUG_DISASM
 //#define DEBUG_RUN
@@ -171,13 +170,14 @@ static struct str_data_struct {
 	int next;
 } *str_data = NULL;
 int str_num=LABEL_START,str_data_size;
+
 // Using a prime number for SCRIPT_HASH_SIZE should give better distributions
 #define SCRIPT_HASH_SIZE 1021
 int str_hash[SCRIPT_HASH_SIZE];
+// Specifies which string hashing method to use
 //#define SCRIPT_HASH_DJB2
-#define SCRIPT_HASH_SDBM
-//#define SCRIPT_HASH_ELF
-//#define SCRIPT_HASH_PJW
+//#define SCRIPT_HASH_SDBM
+#define SCRIPT_HASH_ELF
 
 static DBMap* mapreg_db=NULL; // int var_id -> int value
 static DBMap* mapregstr_db=NULL; // int var_id -> char* value
@@ -480,53 +480,39 @@ static void check_event(struct script_state *st, const char *evt)
 }
 
 /*==========================================
- * 文字列のハッシュを計算
+ * Hashes the input string
  *------------------------------------------*/
-#define calc_hash(x) (calc_hash2(x)%SCRIPT_HASH_SIZE)
-static unsigned int calc_hash2(const char* p)
+static unsigned int calc_hash(const char* p)
 {
+	unsigned int h;
+
 #if defined(SCRIPT_HASH_DJB2)
-	unsigned int h = 5381;
+	h = 5381;
 	while( *p ) // hash*33 + c
 		h = ( h << 5 ) + h + ((unsigned char)TOLOWER(*p++));
-	return h;
 #elif defined(SCRIPT_HASH_SDBM)
-	unsigned int h = 0;
-	while( *p )
+	h = 0;
+	while( *p ) // hash*65599 + c
 		h = ( h << 6 ) + ( h << 16 ) - h + ((unsigned char)TOLOWER(*p++));
-	return h;
-#elif defined(SCRIPT_HASH_ELF)
-	unsigned int h = 0;
-	unsigned int g;
-	while( *p ){ // UNIX ELF hash
-		h = ( h << 4 ) + ((unsigned char)TOLOWER(*p++));
-		g = h & 0xF0000000;
-		if( g )
-			h ^= g >> 24;
-		h &= ~g;
-	}
-	return h;
-#elif defined(SCRIPT_HASH_PJW)
-	unsigned int h = 0;
-	unsigned int g;
+#elif defined(SCRIPT_HASH_ELF) // UNIX ELF hash
+	h = 0;
 	while( *p ){
+		unsigned int g;
 		h = ( h << 4 ) + ((unsigned char)TOLOWER(*p++));
 		g = h & 0xF0000000;
 		if( g )
 		{
-			h ^= g>>24;
-			h ^= g;
+			h ^= g >> 24;
+			h &= ~g;
 		}
 	}
-	return h;
-#else
-	unsigned int h = 0;
-	while( *p ){
-		h = ( h << 1 ) + ( h >> 3 ) + ( h >> 5 ) + ( h >> 8 );
-		h += (unsigned char)TOLOWER(*p++);
-	}
-	return h;
+#else // athena hash
+	h = 0;
+	while( *p )
+		h = ( h << 1 ) + ( h >> 3 ) + ( h >> 5 ) + ( h >> 8 ) + (unsigned char)TOLOWER(*p++);
 #endif
+
+	return h % SCRIPT_HASH_SIZE;
 }
 
 /*==========================================
@@ -890,10 +876,6 @@ const char* parse_simpleexpr(const char *p)
 	int i;
 	p=skip_space(p);
 
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_simpleexpr %s\n",p);
-#endif
 	if(*p==';' || *p==',')
 		disp_error_message("parse_simpleexpr: unexpected expr end",p);
 	if(*p=='('){
@@ -969,10 +951,6 @@ const char* parse_simpleexpr(const char *p)
 
 	}
 
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_simpleexpr end %s\n",p);
-#endif
 	return p;
 }
 
@@ -984,10 +962,6 @@ const char* parse_subexpr(const char* p,int limit)
 	int op,opl,len;
 	const char* tmpp;
 
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_subexpr %s\n",p);
-#endif
 	p=skip_space(p);
 
 	if(*p=='-'){
@@ -1038,10 +1012,7 @@ const char* parse_subexpr(const char* p,int limit)
 		add_scriptc(op);
 		p=skip_space(p);
 	}
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_subexpr end %s\n",p);
-#endif
+
 	return p;  /* return first untreated operator */
 }
 
@@ -1050,20 +1021,12 @@ const char* parse_subexpr(const char* p,int limit)
  *------------------------------------------*/
 const char* parse_expr(const char *p)
 {
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_expr %s\n",p);
-#endif
 	switch(*p){
 	case ')': case ';': case ':': case '[': case ']':
 	case '}':
 		disp_error_message("parse_expr: unexpected char",p);
 	}
 	p=parse_subexpr(p,-1);
-#ifdef DEBUG_FUNCIN
-	if(battle_config.etc_log)
-		ShowDebug("parse_expr end %s\n",p);
-#endif
 	return p;
 }
 
@@ -1074,7 +1037,6 @@ const char* parse_line(const char* p)
 {
 	const char* p2;
 
-
 	p=skip_space(p);
 	if(*p==';') {
 		// if(); for(); while(); のために閉じ判定
@@ -3550,12 +3512,11 @@ int do_final_script()
 
 			ShowNotice("Dumping script str hash information to hash_dump.txt\n");
 			memset(count, 0, sizeof(count));
-			fprintf(fp,"num : calced_val -> hash : data_name\n");
+			fprintf(fp,"num : hash : data_name\n");
 			fprintf(fp,"---------------------------------------------------------------\n");
 			for(i=LABEL_START; i<str_num; i++) {
-				unsigned int h2=calc_hash2(str_buf+str_data[i].str);
-				unsigned int h =h2%SCRIPT_HASH_SIZE;
-				fprintf(fp,"%04d: %10u ->  %3u : %s\n",i,h2,h,str_buf+str_data[i].str);
+				unsigned int h = calc_hash(str_buf+str_data[i].str);
+				fprintf(fp,"%04d : %4u : %s\n",i,h,str_buf+str_data[i].str);
 				++count[h];
 			}
 			fprintf(fp,"--------------------\n\n");