Minor fix to keyb, added hash function to banal.h, added aux input ports with settabl...

[dttsp.git] / jDttSP / banal.c

diff --git a/jDttSP/banal.c b/jDttSP/banal.c
index 8bc08f10131b1b328b833a515ae50d378a7bca1a..b62cec9eae2a89c18facf0051bc7bd3986663db7 100644 (file)
--- a/jDttSP/banal.c
+++ b/jDttSP/banal.c
@@ -197,3 +197,11 @@ find_rcfile(char *base) {
 
 //------------------------------------------------------------------------
 
+unsigned long
+hash(unsigned char *str) {
+  unsigned long hash = 5381;
+  int c;
+  while (c = *str++)
+    hash = ((hash << 5) + hash) + c; // (hash * 33 + c) better
+  return hash;
+}