home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MISC / GNU / GDBM14AS.ZIP / HASH.C < prev    next >
Encoding:
C/C++ Source or Header  |  1992-02-22  |  2.5 KB  |  79 lines
  1. /* hash.c - The gdbm hash function. */
  2.  
  3. /*  This file is part of GDBM, the GNU data base manager, by Philip A. Nelson.
  4.     Copyright (C) 1990  Free Software Foundation, Inc.
  5.  
  6.     GDBM is free software; you can redistribute it and/or modify
  7.     it under the terms of the GNU General Public License as published by
  8.     the Free Software Foundation; either version 1, or (at your option)
  9.     any later version.
  10.  
  11.     GDBM is distributed in the hope that it will be useful,
  12.     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13.     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14.     GNU General Public License for more details.
  15.  
  16.     You should have received a copy of the GNU General Public License
  17.     along with GDBM; see the file COPYING.  If not, write to
  18.     the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20.     You may contact the author by:
  21.        e-mail:  phil@wwu.edu
  22.       us-mail:  Philip A. Nelson
  23.                 Computer Science Department
  24.                 Western Washington University
  25.                 Bellingham, WA 98226
  26.         phone:  (206) 676-3035
  27.        
  28. *************************************************************************/
  29.  
  30. /*
  31.  * MS-DOS port (c) 1990 by Thorsten Ohl, ohl@gnu.ai.mit.edu
  32.  *
  33.  * To this port, the same copying conditions apply as to the
  34.  * original release.
  35.  *
  36.  * IMPORTANT:
  37.  * This file is not identical to the original GNU release!
  38.  * You should have received this code as patch to the official
  39.  * GNU release.
  40.  *
  41.  * MORE IMPORTANT:
  42.  * This port comes with ABSOLUTELY NO WARRANTY.
  43.  *
  44.  * $Header: e:/gnu/gdbm/RCS/hash.c'v 1.4.0.1 90/08/16 09:22:38 tho Exp $
  45.  */
  46.  
  47. #include <stdio.h>
  48. #include <sys/types.h>
  49. #ifndef MSDOS
  50. #include <sys/file.h>
  51. #endif /* not MSDOS */
  52. #include <sys/stat.h>
  53. #include "gdbmdefs.h"
  54.  
  55.  
  56. /* This hash function computes a 31 bit value.  The value is used to index
  57.    the hash directory using the top n bits.  It is also used in a hash bucket
  58.    to find the home position of the element by taking the value modulo the
  59.    bucket hash table size. */
  60.  
  61. LONG
  62. _gdbm_hash (key)
  63.      datum key;
  64. {
  65.   LONG value;        /* Used to compute the hash value.  */
  66.   int  index;        /* Used to cycle through random values. */
  67.  
  68.  
  69.   /* Set the initial value from key. */
  70.   value = 0x238F13AF * key.dsize;
  71.   for (index = 0; index < key.dsize; index++)
  72.     value = (value + (key.dptr[index] << (index*5 % 24))) & 0x7FFFFFFF;
  73.  
  74.   value = (1103515243 * value + 12345) & 0x7FFFFFFF;  
  75.  
  76.   /* Return the value. */
  77.   return value;
  78. }
  79.