aboutsummaryrefslogtreecommitdiff
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
glibc-24906b43b9bd9108aef17d18dfbb8764212085f7.tar.gz
glibc-24906b43b9bd9108aef17d18dfbb8764212085f7.tar.bz2
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;
+}