summary refs log tree commit diff
path: root/intl/hash-string.h
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1995-09-28 18:42:29 +0000
committerRoland McGrath <roland@gnu.org>1995-09-28 18:42:29 +0000
commit24906b43b9bd9108aef17d18dfbb8764212085f7 (patch)
tree48d641dc176c9941b3b036e66c383b00a6974bad /intl/hash-string.h
parent91f62ce6b5797f04006ac5aff08416ecd61bf972 (diff)
downloadglibc-24906b43b9bd9108aef17d18dfbb8764212085f7.tar.gz
glibc-24906b43b9bd9108aef17d18dfbb8764212085f7.tar.xz
glibc-24906b43b9bd9108aef17d18dfbb8764212085f7.zip
Thu Sep 28 13:05:54 1995 Roland McGrath <roland@churchy.gnu.ai.mit.edu>
	Merge new message handling code from GNU gettext, by Drepper.
	* intl: New directory.
	* Makefile (subdirs): Add intl.

	* sysdeps/generic/dl-sysdep.c (_dl_sysdep_start): Return
	USER_ENTRY instead of storing it on our stack.

	* elf/rtld.c (rtld_command): Variable removed.
	(_dl_skip_args): New variable.
	(dl_main): Increment _dl_skip_args instead of setting rtld_command.
	If the link_map for the executable itself is not first in the chain,
	make it so.
	* sysdeps/i386/dl-machine.h (RTLD_START): Use _dl_skip_args as
	count of args to skip.

Thu Sep 28 09:20:04 1995  Ulrich Drepper  <drepper@gnu.ai.mit.edu>

	* stdlib/strtod.c (STRTOF): Fix handling of numbers with lots of
	leading zeroes. 
	
Diffstat (limited to 'intl/hash-string.h')
-rw-r--r--intl/hash-string.h56
1 files changed, 56 insertions, 0 deletions
diff --git a/intl/hash-string.h b/intl/hash-string.h
new file mode 100644
index 0000000000..e846b507ac
--- /dev/null
+++ b/intl/hash-string.h
@@ -0,0 +1,56 @@
+/* hash-string - Implements a string hashing function.
+   Copyright (C) 1995 Software Foundation, Inc.
+
+This program is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+This program is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+GNU General Public License for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
+
+#ifdef HAVE_VALUES_H
+# include <values.h>
+#endif
+
+/* @@ end of prolog @@ */
+
+#ifndef BITSPERBYTE
+# define BITSPERBYTE 8
+#endif
+
+#ifndef LONGBITS
+# define LONGBITS (sizeof (long) * BITSPERBYTE)
+#endif	/* LONGBITS  */
+
+/* Defines the so called `hashpjw' function by P.J. Weinberger
+   [see Aho/Sethi/Ullman, COMPILERS: Principles, Techniques and Tools,
+   1986, 1987 Bell Telephone Laboratories, Inc.]  */ 
+static inline unsigned long
+hash_string (str_param)
+     const char *str_param;
+{
+  unsigned long hval, g;
+  const char *str = str_param;
+
+  /* Compute the hash value for the given string.  */
+  hval = 0;
+  while (*str != '\0')
+    {
+      hval <<= 4;
+      hval += (unsigned long) *str++;
+      g = hval & ((unsigned long) 0xf << (LONGBITS - 4));
+      if (g != 0)
+	{
+	  hval ^= g >> (LONGBITS - 8);
+	  hval ^= g;
+	}
+    }
+  return hval;
+}