lustre/obdclass/mea.c

   1 /* -*- mode: c; c-basic-offset: 8; indent-tabs-mode: nil; -*-
   2  * vim:expandtab:shiftwidth=8:tabstop=8:
   3  *
   4  * GPL HEADER START
   5  *
   6  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   7  *
   8  * This program is free software; you can redistribute it and/or modify
   9  * it under the terms of the GNU General Public License version 2 only,
  10  * as published by the Free Software Foundation.
  11  *
  12  * This program is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty of
  14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  15  * General Public License version 2 for more details (a copy is included
  16  * in the LICENSE file that accompanied this code).
  17  *
  18  * You should have received a copy of the GNU General Public License
  19  * version 2 along with this program; If not, see
  20  * http://www.sun.com/software/products/lustre/docs/GPLv2.pdf
  21  *
  22  * Please contact Sun Microsystems, Inc., 4150 Network Circle, Santa Clara,
  23  * CA 95054 USA or visit www.sun.com if you need additional information or
  24  * have any questions.
  25  *
  26  * GPL HEADER END
  27  */
  28 /*
  29  * Copyright  2008 Sun Microsystems, Inc. All rights reserved
  30  * Use is subject to license terms.
  31  */
  32 /*
  33  * This file is part of Lustre, http://www.lustre.org/
  34  * Lustre is a trademark of Sun Microsystems, Inc.
  35  */
  36
  37 #define DEBUG_SUBSYSTEM S_CLASS
  38 #include <obd_class.h>
  39 #ifdef __KERNEL__
  40 #include <linux/kmod.h>   /* for request_module() */
  41 #include <linux/module.h>
  42 #include <linux/random.h>
  43 #include <linux/slab.h>
  44 #include <linux/pagemap.h>
  45 #else
  46 #include <liblustre.h>
  47 #include <obd.h>
  48 #endif
  49 #include <lprocfs_status.h>
  50 #include <lustre/lustre_idl.h>
  51
  52 #ifdef __KERNEL__
  53 #include <linux/jbd.h>
  54 #ifdef HAVE_SERVER_SUPPORT
  55 /* LDISKFS_SB() */
  56 #include <linux/ldiskfs_fs.h>
  57 #endif
  58 #endif
  59 static int mea_last_char_hash(int count, char *name, int namelen)
  60 {
  61         unsigned int c;
  62
  63         c = name[namelen - 1];
  64         if (c == 0)
  65                 CWARN("looks like wrong len is passed\n");
  66         c = c % count;
  67         return c;
  68 }
  69
  70 static int mea_all_chars_hash(int count, char *name, int namelen)
  71 {
  72         unsigned int c = 0;
  73
  74         while (--namelen >= 0)
  75                 c += name[namelen];
  76         c = c % count;
  77         return c;
  78 }
  79
  80 #ifdef __KERNEL__
  81 /* This hash calculate method must be same as the lvar hash method */
  82
  83 #define LVAR_HASH_SANDWICH  (0)
  84 #define LVAR_HASH_TEA       (1)
  85 #define LVAR_HASH_R5        (0)
  86 #define LVAR_HASH_PREFIX    (0)
  87
  88 static __u32 hash_build0(const char *name, int namelen)
  89 {
  90         __u32 result;
  91
  92         if (namelen == 0)
  93                 return 0;
  94         if (strncmp(name, ".", 1) == 0 && namelen == 1)
  95                 return 1;
  96         if (strncmp(name, "..", 2) == 0 && namelen == 2)
  97                 return 2;
  98
  99         if (LVAR_HASH_PREFIX) {
 100                 result = 0;
 101                 strncpy((void *)&result,
 102                         name, min(namelen, (int)sizeof result));
 103         } else {
 104                 struct ldiskfs_dx_hash_info hinfo;
 105
 106                 if (LVAR_HASH_TEA)
 107                         hinfo.hash_version = LDISKFS_DX_HASH_TEA;
 108                 else
 109                         hinfo.hash_version = LDISKFS_DX_HASH_R5;
 110                 hinfo.seed = 0;
 111                 ldiskfsfs_dirhash(name, namelen, &hinfo);
 112                 result = hinfo.hash;
 113                 if (LVAR_HASH_SANDWICH) {
 114                         __u32 result2;
 115
 116                         hinfo.hash_version = LDISKFS_DX_HASH_TEA;
 117                         hinfo.seed = 0;
 118                         ldiskfsfs_dirhash(name, namelen, &hinfo);
 119                         result2 = hinfo.hash;
 120                         result = (0xfc000000 & result2) | (0x03ffffff & result);
 121                 }
 122         }
 123
 124         return result;
 125 }
 126
 127 enum {
 128         HASH_GRAY_AREA = 1024
 129 };
 130
 131 static __u32 hash_build(const char *name, int namelen)
 132 {
 133         __u32 hash;
 134
 135         hash = (hash_build0(name, namelen) << 1) & MAX_HASH_SIZE_32;
 136         if (hash > MAX_HASH_SIZE_32 - HASH_GRAY_AREA)
 137                 hash &= HASH_GRAY_AREA - 1;
 138         return hash;
 139 }
 140
 141 static int mea_hash_segment(int count, const char *name, int namelen)
 142 {
 143         __u32 hash;
 144
 145         LASSERT(IS_PO2(MAX_HASH_SIZE_32 + 1));
 146
 147         hash = hash_build(name, namelen) / (MAX_HASH_SIZE_32 / count);
 148         LASSERTF(hash < count, "hash %x count %d \n", hash, count);
 149
 150         return hash;
 151 }
 152 #else
 153 static int mea_hash_segment(int count, char *name, int namelen)
 154 {
 155         return 0;
 156 }
 157 #endif
 158 int raw_name2idx(int hashtype, int count, const char *name, int namelen)
 159 {
 160         unsigned int c = 0;
 161
 162         LASSERT(namelen > 0);
 163         if (count <= 1)
 164                 return 0;
 165
 166         switch (hashtype) {
 167                 case MEA_MAGIC_LAST_CHAR:
 168                         c = mea_last_char_hash(count, (char *)name, namelen);
 169                         break;
 170                 case MEA_MAGIC_ALL_CHARS:
 171                         c = mea_all_chars_hash(count, (char *)name, namelen);
 172                         break;
 173                 case MEA_MAGIC_HASH_SEGMENT:
 174                         c = mea_hash_segment(count, (char *)name, namelen);
 175                         break;
 176                 default:
 177                         CERROR("Unknown hash type 0x%x\n", hashtype);
 178         }
 179
 180         LASSERT(c < count);
 181         return c;
 182 }
 183
 184 int mea_name2idx(struct lmv_stripe_md *mea, const char *name, int namelen)
 185 {
 186         unsigned int c;
 187
 188         LASSERT(mea && mea->mea_count);
 189
 190         c = raw_name2idx(mea->mea_magic, mea->mea_count, name, namelen);
 191
 192         LASSERT(c < mea->mea_count);
 193         return c;
 194 }