contrib/isc-dhcp/common/hash.c

   1 /* hash.c
   2
   3    Routines for manipulating hash tables... */
   4
   5 /*
   6  * Copyright (c) 1995, 1996, 1997, 1998 The Internet Software Consortium.
   7  * All rights reserved.
   8  *
   9  * Redistribution and use in source and binary forms, with or without
  10  * modification, are permitted provided that the following conditions
  11  * are met:
  12  *
  13  * 1. Redistributions of source code must retain the above copyright
  14  *    notice, this list of conditions and the following disclaimer.
  15  * 2. Redistributions in binary form must reproduce the above copyright
  16  *    notice, this list of conditions and the following disclaimer in the
  17  *    documentation and/or other materials provided with the distribution.
  18  * 3. Neither the name of The Internet Software Consortium nor the names
  19  *    of its contributors may be used to endorse or promote products derived
  20  *    from this software without specific prior written permission.
  21  *
  22  * THIS SOFTWARE IS PROVIDED BY THE INTERNET SOFTWARE CONSORTIUM AND
  23  * CONTRIBUTORS ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
  24  * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF
  25  * MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
  26  * DISCLAIMED.  IN NO EVENT SHALL THE INTERNET SOFTWARE CONSORTIUM OR
  27  * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
  28  * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
  29  * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
  30  * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
  31  * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
  32  * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
  33  * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  34  * SUCH DAMAGE.
  35  *
  36  * This software has been written for the Internet Software Consortium
  37  * by Ted Lemon <mellon@fugue.com> in cooperation with Vixie
  38  * Enterprises.  To learn more about the Internet Software Consortium,
  39  * see ``http://www.vix.com/isc''.  To learn more about Vixie
  40  * Enterprises, see ``http://www.vix.com''.
  41  */
  42
  43 #ifndef lint
  44 static char copyright[] =
  45 "$Id: hash.c,v 1.9.2.3 1999/04/09 17:39:41 mellon Exp $ Copyright (c) 1995, 1996, 1997, 1998 The Internet Software Consortium.  All rights reserved.\n";
  46 #endif /* not lint */
  47
  48 #include "dhcpd.h"
  49
  50 static INLINE int do_hash PROTO ((unsigned char *, int, int));
  51
  52 struct hash_table *new_hash ()
  53 {
  54         struct hash_table *rv = new_hash_table (DEFAULT_HASH_SIZE, "new_hash");
  55         if (!rv)
  56                 return rv;
  57         memset (&rv -> buckets [0], 0,
  58                 DEFAULT_HASH_SIZE * sizeof (struct hash_bucket *));
  59         return rv;
  60 }
  61
  62 static INLINE int do_hash (name, len, size)
  63         unsigned char *name;
  64         int len;
  65         int size;
  66 {
  67         register int accum = 0;
  68         register unsigned char *s = name;
  69         int i = len;
  70         while (i--) {
  71                 /* Add the character in... */
  72                 accum += *s++;
  73                 /* Add carry back in... */
  74                 while (accum > 255) {
  75                         accum = (accum & 255) + (accum >> 8);
  76                 }
  77         }
  78         return accum % size;
  79 }
  80
  81 void add_hash (table, name, len, pointer)
  82         struct hash_table *table;
  83         int len;
  84         unsigned char *name;
  85         unsigned char *pointer;
  86 {
  87         int hashno;
  88         struct hash_bucket *bp;
  89
  90         if (!table)
  91                 return;
  92         if (!len)
  93                 len = strlen ((char *)name);
  94
  95         hashno = do_hash (name, len, table -> hash_count);
  96         bp = new_hash_bucket ("add_hash");
  97
  98         if (!bp) {
  99                 warn ("Can't add %s to hash table.", name);
 100                 return;
 101         }
 102         bp -> name = name;
 103         bp -> value = pointer;
 104         bp -> next = table -> buckets [hashno];
 105         bp -> len = len;
 106         table -> buckets [hashno] = bp;
 107 }
 108
 109 void delete_hash_entry (table, name, len)
 110         struct hash_table *table;
 111         int len;
 112         unsigned char *name;
 113 {
 114         int hashno;
 115         struct hash_bucket *bp, *pbp = (struct hash_bucket *)0;
 116
 117         if (!table)
 118                 return;
 119         if (!len)
 120                 len = strlen ((char *)name);
 121
 122         hashno = do_hash (name, len, table -> hash_count);
 123
 124         /* Go through the list looking for an entry that matches;
 125            if we find it, delete it. */
 126         for (bp = table -> buckets [hashno]; bp; bp = bp -> next) {
 127                 if ((!bp -> len &&
 128                      !strcmp ((char *)bp -> name, (char *)name)) ||
 129                     (bp -> len == len &&
 130                      !memcmp (bp -> name, name, len))) {
 131                         if (pbp) {
 132                                 pbp -> next = bp -> next;
 133                         } else {
 134                                 table -> buckets [hashno] = bp -> next;
 135                         }
 136                         free_hash_bucket (bp, "delete_hash_entry");
 137                         break;
 138                 }
 139                 pbp = bp;       /* jwg, 9/6/96 - nice catch! */
 140         }
 141 }
 142
 143 unsigned char *hash_lookup (table, name, len)
 144         struct hash_table *table;
 145         unsigned char *name;
 146         int len;
 147 {
 148         int hashno;
 149         struct hash_bucket *bp;
 150
 151         if (!table)
 152                 return (unsigned char *)0;
 153
 154         if (!len)
 155                 len = strlen ((char *)name);
 156
 157         hashno = do_hash (name, len, table -> hash_count);
 158
 159         for (bp = table -> buckets [hashno]; bp; bp = bp -> next) {
 160                 if (len == bp -> len && !memcmp (bp -> name, name, len))
 161                         return bp -> value;
 162         }
 163         return (unsigned char *)0;
 164 }