lib/db-test.c

   1 /*
   2  *      Sherlock Library -- Database Manager -- Tests and Benchmarks
   3  *
   4  *      (c) 1999 Martin Mares <mj@ucw.cz>
   5  */
   6
   7 #if 1
   8 #include "lib/db.c"
   9 #define NAME "SDBM"
  10 #else
  11 #include "lib/db-emul.c"
  12 #define NAME "GDBM"
  13 #endif
  14
  15 #include <getopt.h>
  16 #include <unistd.h>
  17 #include <stdarg.h>
  18 #include <sys/stat.h>
  19
  20 static struct sdbm_options opts = {
  21   flags: SDBM_CREAT | SDBM_WRITE,
  22   name: "db.test",
  23   page_order: 10,
  24   cache_size: 1024,
  25   key_size: -1,
  26   val_size: -1
  27 };
  28
  29 static struct sdbm *d;
  30 static int key_min, key_max;            /* min<0 -> URL distribution */
  31 static int val_min, val_max;
  32 static int num_keys;                    /* Number of distinct keys */
  33 static int verbose;
  34
  35 static void
  36 help(void)
  37 {
  38   printf("Usage: dbtest [<options>] <commands>\n\
  39 \n\
  40 Options:\n\
  41 -c<n>           Use cache of <n> pages\n\
  42 -p<n>           Use pages of order <n>\n\
  43 -k<n>           Use key size <n>\n\
  44 -k<m>-<n>       Use key size uniformly distributed between <m> and <n>\n\
  45 -kU             Use keys with URL distribution\n\
  46 -n<n>           Number of distinct keys\n\
  47 -d<m>[-<n>]     Use specified value size (see -k<m>-<n>)\n\
  48 -t              Perform the tests on an existing database file\n\
  49 -v              Be verbose\n\
  50 -s              Turn on synchronous mode\n\
  51 -S              Turn on supersynchronous mode\n\
  52 -F              Turn on fast mode\n\
  53 \n\
  54 Commands:\n\
  55 c               Fill database\n\
  56 r               Rewrite database\n\
  57 f[<p>%%][<n>]   Find <n> records with probability of success <p>%% (default=100)\n\
  58 F[<p>%%][<n>]   Find, but don't fetch values\n\
  59 d               Delete records\n\
  60 w               Walk database\n\
  61 W               Walk, but don't fetch values\n\
  62 ");
  63   exit(0);
  64 }
  65
  66 static uns
  67 krand(uns kn)
  68 {
  69   return kn * 2000000011;
  70 }
  71
  72 static uns
  73 gen_url_size(uns rnd)
  74 {
  75   uns l, m, r;
  76   static uns utable[] = {
  77 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 3, 22, 108, 245, 481, 979, 3992, 7648, 13110, 19946, 27256, 34993, 43222, 52859, 64563,
  78 80626, 117521, 147685, 188364, 233174, 290177, 347132, 407231, 465787, 540931, 628601, 710246, 808671, 922737, 1025691, 1138303,
  79 1238802, 1344390, 1443843, 1533207, 1636494, 1739082, 1826911, 1910725, 1993940, 2094365, 2188987, 2267827, 2350190, 2441980,
  80 2520713, 2593654, 2668632, 2736009, 2808356, 2889682, 2959300, 3017945, 3086488, 3146032, 3204818, 3251897, 3307001, 3349388,
  81 3392798, 3433429, 3476765, 3529107, 3556884, 3585120, 3633005, 3677697, 3699561, 3716660, 3739823, 3765154, 3795096, 3821184,
  82 3858117, 3908757, 3929095, 3943264, 3957033, 3969588, 3983441, 3994630, 4005413, 4028890, 4039678, 4058007, 4071906, 4087029,
  83 4094233, 4105259, 4111603, 4120338, 4127364, 4133983, 4140310, 4144843, 4150565, 4155974, 4165132, 4170648, 4176811, 4187118,
  84 4190866, 4199051, 4206686, 4216122, 4226109, 4233721, 4254123, 4261792, 4270396, 4276650, 4282932, 4291738, 4295932, 4299370,
  85 4304011, 4307098, 4311866, 4318168, 4325730, 4329774, 4332946, 4336305, 4339770, 4345237, 4349038, 4356129, 4362872, 4366542,
  86 4371077, 4374524, 4376733, 4378794, 4380652, 4382340, 4383552, 4385952, 4386914, 4393123, 4394106, 4395142, 4396593, 4399112,
  87 4399909, 4401015, 4401780, 4402616, 4403454, 4404481, 4405231, 4405947, 4406886, 4408364, 4409159, 4409982, 4410872, 4412010,
  88 4413341, 4414161, 4415673, 4417135, 4418032, 4419117, 4419952, 4420677, 4421387, 4421940, 4422469, 4423210, 4423696, 4424274,
  89 4424982, 4425665, 4426363, 4427018, 4427969, 4428992, 4429791, 4430804, 4432601, 4433440, 4434157, 4434967, 4436280, 4439784,
  90 4444255, 4445544, 4446416, 4447620, 4449638, 4453004, 4455470, 4456982, 4457956, 4458617, 4459538, 4460007, 4460377, 4460768,
  91 4461291, 4461520, 4461678, 4461911, 4462063, 4462239, 4462405, 4462607, 4462666, 4462801, 4462919, 4463108, 4463230, 4463438,
  92 4463530, 4463698, 4463779, 4463908, 4463991, 4464138, 4464188, 4464391, 4464580, 4464868, 4464980, 4465174, 4465255, 4465473,
  93 4465529, 4465681, 4465746, 4465916, 4465983, 4466171, 4466248, 4466430, 4466560, 4466751, 4466930, 4467807, 4468847, 4469940,
  94 4470344, 4470662, 4470716, 4471120, 4471389, 4471814, 4472141, 4472545, 4472687, 4473051, 4473253, 4473603, 4473757, 4474065,
  95 4474125, 4474354, 4474428, 4474655, 4474705, 4474841, 4474858, 4475133, 4475201, 4475327, 4475367, 4475482, 4475533, 4475576,
  96 4475586, 4475616, 4475637, 4475659, 4475696, 4475736, 4475775, 4475794, 4476156, 4476711, 4477004, 4477133, 4477189, 4477676,
  97 4477831, 4477900, 4477973, 4477994, 4478011, 4478040, 4478063, 4478085, 4478468, 4478715, 4479515, 4480034, 4481804, 4483259,
  98 4483866, 4484202, 4484932, 4485693, 4486184, 4486549, 4486869, 4487405, 4487639, 4487845, 4488086, 4488256, 4488505, 4488714,
  99 4492669, 4496233, 4497738, 4498122, 4498653, 4499862, 4501169, 4501627, 4501673, 4501811, 4502182, 4502475, 4502533, 4502542,
 100 4502548, 4502733, 4503389, 4504381, 4505070, 4505378, 4505814, 4506031, 4506336, 4506642, 4506845, 4506971, 4506986, 4507016,
 101 4507051, 4507098, 4507107, 4507114, 4507139, 4507478, 4507643, 4507674, 4507694, 4507814, 4507894, 4507904, 4507929, 4507989,
 102 4508023, 4508047, 4508053, 4508063, 4508075, 4508092, 4508104, 4508113, 4508239, 4508285, 4508324, 4508335, 4508340, 4508378,
 103 4508405, 4508419, 4508436, 4508449, 4508470, 4508488, 4508515, 4508541, 4508564, 4508570, 4508584, 4508594, 4508607, 4508634,
 104 4508652, 4508665, 4508673, 4508692, 4508704, 4508742, 4508755, 4508773, 4508788, 4508798, 4508832, 4508869, 4508885, 4508905,
 105 4508915, 4508947, 4508956, 4509061, 4509070, 4509357, 4509368, 4509380, 4509393, 4509401, 4509412, 4509426, 4509438, 4509451,
 106 4509461, 4509473, 4509489, 4509498, 4509512, 4509537, 4509568, 4509582, 4509621, 4509629, 4509747, 4509766, 4509776, 4509795,
 107 4509802, 4509813, 4509822, 4509829, 4509834, 4509844, 4509854, 4509863, 4509868, 4509875, 4509886, 4509898, 4509908, 4509920,
 108 4509932, 4509941, 4509949, 4509955, 4509967, 4509972, 4509979, 4509987, 4509999, 4510002, 4510010, 4510014, 4510018, 4510025,
 109 4510028, 4510049, 4510055, 4510061, 4510068, 4510079, 4510085, 4510091, 4510098, 4510102, 4510104, 4510110, 4510121, 4510128,
 110 4510132, 4510138, 4510144, 4510145, 4510153, 4510161, 4510174, 4510196, 4510199, 4510208, 4510209, 4510212, 4510216, 4510217,
 111 4510219, 4510222, 4510228, 4510231, 4510236, 4510241, 4510245, 4510248, 4510250, 4510254, 4510255, 4510261, 4510262, 4510266,
 112 4510266, 4510271, 4510285, 4510287, 4510291, 4510295, 4510303, 4510306, 4510308, 4510310, 4510314, 4510319, 4510320, 4510324,
 113 4510328, 4510333, 4510333, 4510336, 4510340, 4510342, 4510348, 4510353, 4510359, 4510362, 4510365, 4510371, 4510373, 4510375,
 114 4510378, 4510380, 4510385, 4510389, 4510391, 4510391, 4510394, 4510396, 4510397, 4510398, 4510400, 4510403, 4510406, 4510407,
 115 4510408, 4510409, 4510411, 4510413, 4510417, 4510417, 4510419, 4510422, 4510426, 4510427, 4510430, 4510435, 4510437, 4510439,
 116 4510440, 4510442, 4510442, 4510446, 4510447, 4510448, 4510450, 4510451, 4510451, 4510453, 4510454, 4510455, 4510457, 4510460,
 117 4510460, 4510460, 4510462, 4510463, 4510466, 4510468, 4510472, 4510475, 4510480, 4510482, 4510483, 4510486, 4510488, 4510492,
 118 4510494, 4510497, 4510497, 4510499, 4510503, 4510505, 4510506, 4510507, 4510509, 4510512, 4510514, 4510527, 4510551, 4510553,
 119 4510554, 4510555, 4510556, 4510558, 4510561, 4510562, 4510566, 4510567, 4510568, 4510570, 4510573, 4510574, 4510586, 4510603,
 120 4510605, 4510607, 4510610, 4510610, 4510613, 4510613, 4510614, 4510614, 4510615, 4510616, 4510616, 4510620, 4510622, 4510623,
 121 4510624, 4510627, 4510628, 4510630, 4510631, 4510632, 4510634, 4510634, 4510634, 4510636, 4510636, 4510639, 4510639, 4510640,
 122 4510643, 4510647, 4510649, 4510650, 4510653, 4510653, 4510653, 4510653, 4510656, 4510659, 4510661, 4510664, 4510665, 4510669,
 123 4510672, 4510673, 4510674, 4510675, 4510680, 4510683, 4510684, 4510686, 4510687, 4510690, 4510691, 4510693, 4510693, 4510697,
 124 4510699, 4510700, 4510703, 4510704, 4510709, 4510711, 4510713, 4510713, 4510720, 4510720, 4510722, 4510724, 4510727, 4510729,
 125 4510735, 4510735, 4510738, 4510740, 4510744, 4510745, 4510746, 4510748, 4510754, 4510756, 4510758, 4510761, 4510764, 4510766,
 126 4510768, 4510768, 4510770, 4510770, 4510772, 4510774, 4510775, 4510775, 4510775, 4510776, 4510777, 4510780, 4510782, 4510783,
 127 4510785, 4510786, 4510788, 4510789, 4510791, 4510793, 4510793, 4510793, 4510795, 4510795, 4510799, 4510803, 4510804, 4510804,
 128 4510804, 4510805, 4510807, 4510809, 4510811, 4510811, 4510813, 4510815, 4510815, 4510816, 4510819, 4510820, 4510824, 4510827,
 129 4510829, 4510829, 4510830, 4510833, 4510835, 4510837, 4510838, 4510838, 4510839, 4510840, 4510840, 4510842, 4510842, 4510843,
 130 4510845, 4510845, 4510845, 4510847, 4510848, 4510848, 4510848, 4510850, 4510853, 4510855, 4510857, 4510859, 4510861, 4510862,
 131 4510864, 4510865, 4510865, 4510865, 4510869, 4510869, 4510869, 4510869, 4510869, 4510870, 4510870, 4510872, 4510872, 4510873,
 132 4510874, 4510875, 4510875, 4510877, 4510879, 4510879, 4510879, 4510879, 4510880, 4510881, 4510882, 4510883, 4510884, 4510885,
 133 4510886, 4510887, 4510890, 4510890, 4510891, 4510892, 4510892, 4510893, 4510893, 4510895, 4510895, 4510896, 4510897, 4510899,
 134 4510901, 4510901, 4510901, 4510902, 4510903, 4510903, 4510903, 4510905, 4510905, 4510906, 4510906, 4510907, 4510907, 4510909,
 135 4510910, 4510911, 4510911, 4510911, 4510913, 4510913, 4510914, 4510914, 4510914, 4510915, 4510916, 4510918, 4510918, 4510919,
 136 4510919, 4510919, 4510920, 4510921, 4510922, 4510923, 4510924, 4510924, 4510924, 4510924, 4510926, 4510927, 4510928, 4510928,
 137 4510928, 4510928, 4510928, 4510930, 4510933, 4510935, 4510935, 4510935, 4510935, 4510935, 4510936, 4510938, 4510947, 4510966,
 138 4510967, 4510969, 4510973, 4510973, 4510974, 4510974, 4510974, 4510974, 4510974, 4510974, 4510975, 4510976, 4510976, 4510976,
 139 4510976, 4510976, 4510976, 4510976, 4510977, 4510979, 4510979, 4510979, 4510979, 4510979, 4510979, 4510980, 4510980, 4510980,
 140 4510980, 4510981, 4510981, 4510981, 4510982, 4510982, 4510982, 4510982, 4510982, 4510982, 4510982, 4510983, 4510983, 4510984,
 141 4510984, 4510984, 4510984, 4510984, 4510985, 4510985, 4510985, 4510985, 4510987, 4510987, 4510987, 4510988, 4510988, 4510989,
 142 4510989, 4510989, 4510989, 4510989, 4510990, 4510990, 4510990, 4510990, 4510990, 4510990, 4510990, 4510991, 4510991, 4510991,
 143 4510991, 4510991, 4510991, 4510991, 4510992, 4510992, 4510992, 4510992, 4510992, 4510992, 4510992, 4510993, 4510993, 4510993,
 144 4510994, 4510994, 4510994, 4510994, 4510995, 4510995, 4510996, 4510997, 4510998, 4510999, 4510999, 4511000, 4511000, 4511001,
 145 4511001, 4511002, 4511002, 4511002, 4511003, 4511004, 4511004, 4511004, 4511004, 4511005, 4511006, 4511008, 4511008, 4511008,
 146 4511009, 4511009, 4511009, 4511009, 4511010, 4511011, 4511011, 4511012, 4511012, 4511012, 4511012, 4511013, 4511013, 4511014,
 147 4511014, 4511014, 4511014, 4511015, 4511018, 4511018, 4511018, 4511018, 4511018, 4511018, 4511018, 4511020, 4511020, 4511020,
 148 4511020, 4511020, 4511020, 4511020, 4511021, 4511021, 4511021, 4511021, 4511021, 4511021, 4511021, 4511021, 4511021, 4511021,
 149 4511021
 150   };
 151
 152   rnd %= utable[1024];
 153   l = 0; r = 1023;
 154   while (l < r)
 155     {
 156       m = (l+r)/2;
 157       if (utable[m] == rnd)
 158         return m;
 159       if (utable[m] >= rnd)
 160         r = m - 1;
 161       else
 162         l = m + 1;
 163     }
 164   return l;
 165 }
 166
 167 static uns
 168 gen_size(uns min, uns max, uns rnd)
 169 {
 170   if (min == max)
 171     return min;
 172   else
 173     return min + rnd % (max - min + 1);
 174 }
 175
 176 static void
 177 gen_random(byte *buf, uns size, uns kn)
 178 {
 179   kn = (kn + 0x36221057) ^ (kn << 24) ^ (kn << 15);
 180   while (size--)
 181     {
 182       *buf++ = kn >> 24;
 183       kn = kn*257 + 17;
 184     }
 185 }
 186
 187 static int
 188 keygen(byte *buf, uns kn)
 189 {
 190   uns size, rnd;
 191
 192   rnd = krand(kn);
 193   if (key_min < 0)
 194     size = gen_url_size(rnd);
 195   else
 196     size = gen_size(key_min, key_max, rnd);
 197   *buf++ = kn >> 24;
 198   *buf++ = kn >> 16;
 199   *buf++ = kn >> 8;
 200   *buf++ = kn;
 201   if (size < 4)
 202     return 4;
 203   gen_random(buf, size-4, kn);
 204   return size;
 205 }
 206
 207 static int
 208 valgen(byte *buf, uns kn)
 209 {
 210   uns size = gen_size(val_min, val_max, krand(kn));
 211   gen_random(buf, size, kn);
 212   return size;
 213 }
 214
 215 static uns
 216 keydec(byte *buf)
 217 {
 218   return (buf[0] << 24) | (buf[1] << 16) | (buf[2] << 8) | buf[3];
 219 }
 220
 221 static void
 222 verb(char *msg, ...)
 223 {
 224   int cat = 1;
 225   va_list args;
 226
 227   va_start(args, msg);
 228   if (msg[0] == '^' && msg[1])
 229     {
 230       cat = msg[1] - '0';
 231       msg += 2;
 232     }
 233   if (verbose >= cat)
 234     vfprintf(stderr, msg, args);
 235   va_end(args);
 236 }
 237
 238 static void
 239 parse_size(int *min, int *max, char *c)
 240 {
 241   char *d;
 242
 243   if ((d = strchr(c, '-')))
 244     {
 245       *d++ = 0;
 246       *min = atol(c);
 247       *max = atol(d);
 248     }
 249   else
 250     *min = *max = atol(c);
 251 }
 252
 253 #define PROGRESS(i) if ((verbose > 2) || (verbose > 1 && !(i & 1023))) fprintf(stderr, "%d\r", i)
 254
 255 int main(int argc, char **argv)
 256 {
 257   int c, i, j, k, l, m;
 258   byte kb[2048], vb[2048], vb2[2048];
 259   uns ks, vs, vs2, perc, cnt;
 260   char *ch;
 261   int dont_delete = 0;
 262
 263   log_init("dbtest");
 264   setvbuf(stdout, NULL, _IONBF, 0);
 265   setvbuf(stderr, NULL, _IONBF, 0);
 266   while ((c = getopt(argc, argv, "c:p:k:n:d:vsStF")) >= 0)
 267     switch (c)
 268       {
 269       case 'c':
 270         opts.cache_size = atol(optarg);
 271         break;
 272       case 'p':
 273         opts.page_order = atol(optarg);
 274         break;
 275       case 'k':
 276         if (!strcmp(optarg, "U"))
 277           key_min = key_max = -1;
 278         else
 279           parse_size(&key_min, &key_max, optarg);
 280         break;
 281       case 'n':
 282         num_keys = atol(optarg);
 283         break;
 284       case 'd':
 285         parse_size(&val_min, &val_max, optarg);
 286         break;
 287       case 'v':
 288         verbose++;
 289         break;
 290       case 's':
 291         opts.flags |= SDBM_SYNC;
 292         break;
 293       case 'S':
 294         opts.flags |= SDBM_SYNC | SDBM_FSYNC;
 295         break;
 296       case 'F':
 297         opts.flags |= SDBM_FAST;
 298         break;
 299       case 't':
 300         dont_delete = 1;
 301         break;
 302       default:
 303         help();
 304       }
 305
 306   if (key_min >= 0 && key_min < 4)
 307     key_min = key_max = 4;
 308   if (key_min == key_max && key_min >= 0)
 309     opts.key_size = key_min;
 310   if (val_min == val_max)
 311     opts.val_size = val_min;
 312   if (!num_keys)
 313     die("Number of keys not given");
 314
 315   printf(NAME " benchmark: %d records, keys ", num_keys);
 316   if (key_min < 0)
 317     printf("<URL>");
 318   else
 319     printf("%d-%d", key_min, key_max);
 320   printf(", values %d-%d, page size %d, cache %d pages\n", val_min, val_max, 1 << opts.page_order, opts.cache_size);
 321
 322   verb("OPEN(%s, key=%d, val=%d, cache=%d, pgorder=%d)\n", opts.name, opts.key_size, opts.val_size,
 323        opts.cache_size, opts.page_order);
 324   if (!dont_delete)
 325     unlink(opts.name);
 326   d = sdbm_open(&opts);
 327   if (!d)
 328     die("open failed: %m");
 329
 330   while (optind < argc)
 331     {
 332       char *o = argv[optind++];
 333       init_timer();
 334       switch (*o)
 335         {
 336         case 'c':
 337           printf("create %d: ", num_keys);
 338           for(i=0; i<num_keys; i++)
 339             {
 340               PROGRESS(i);
 341               ks = keygen(kb, i);
 342               vs = valgen(vb, i);
 343               if (sdbm_store(d, kb, ks, vb, vs) != 1) die("store failed");
 344             }
 345           break;
 346         case 'r':
 347           printf("rewrite %d: ", num_keys);
 348           for(i=0; i<num_keys; i++)
 349             {
 350               PROGRESS(i);
 351               ks = keygen(kb, i);
 352               vs = valgen(vb, i);
 353               if (sdbm_replace(d, kb, ks, vb, vs) != 1) die("replace failed");
 354             }
 355           break;
 356         case 'f':
 357         case 'F':
 358           c = (*o++ == 'f');
 359           if ((ch = strchr(o, '%')))
 360             {
 361               *ch++ = 0;
 362               perc = atol(o);
 363             }
 364           else
 365             {
 366               ch = o;
 367               perc = 100;
 368             }
 369           cnt = atol(ch);
 370           if (!cnt)
 371             {
 372               cnt = num_keys;
 373               m = (perc == 100);
 374             }
 375           else
 376             m = 0;
 377           printf("%s fetch %d (%d%% success, with%s values): ", (m ? "sequential" : "random"), cnt, perc, (c ? "" : "out"));
 378           i = -1;
 379           while (cnt--)
 380             {
 381               if (m)
 382                 i++;
 383               else
 384                 i = random_max(num_keys) + ((random_max(100) < perc) ? 0 : num_keys);
 385               PROGRESS(i);
 386               ks = keygen(kb, i);
 387               if (c)
 388                 {
 389                   vs2 = sizeof(vb2);
 390                   j = sdbm_fetch(d, kb, ks, vb2, &vs2);
 391                 }
 392               else
 393                 j = sdbm_fetch(d, kb, ks, NULL, NULL);
 394               if (j < 0)
 395                 die("fetch: error %d", j);
 396               if ((i < num_keys) != j)
 397                 die("fetch mismatch at key %d, res %d", i, j);
 398               if (c && j)
 399                 {
 400                   vs = valgen(vb, i);
 401                   if (vs != vs2 || memcmp(vb, vb2, vs))
 402                     die("fetch data mismatch at key %d: %d,%d", i, vs, vs2);
 403                 }
 404             }
 405           break;
 406         case 'd':
 407           printf("delete %d: ", num_keys);
 408           for(i=0; i<num_keys; i++)
 409             {
 410               PROGRESS(i);
 411               ks = keygen(kb, i);
 412               if (sdbm_delete(d, kb, ks) != 1) die("delete failed");
 413             }
 414           break;
 415         case 'w':
 416         case 'W':
 417           c = (*o == 'w');
 418           i = k = l = m = 0;
 419           printf("walk %d (with%s keys): ", num_keys, (c ? "" : "out"));
 420           sdbm_rewind(d);
 421           for(;;)
 422             {
 423               ks = sizeof(kb);
 424               vs = sizeof(vb);
 425               if (c)
 426                 j = sdbm_get_next(d, kb, &ks, vb, &vs);
 427               else
 428                 j = sdbm_get_next(d, kb, &ks, NULL, NULL);
 429               if (!j)
 430                 break;
 431               if (ks < 4)
 432                 die("get_next: too short");
 433               i = keydec(kb);
 434               if (i < 0 || i >= num_keys)
 435                 die("get_next: %d out of range", i);
 436               PROGRESS(i);
 437               vs2 = keygen(vb2, i);
 438               if (ks != vs2 || memcmp(kb, vb2, ks))
 439                 die("get_next: key mismatch at %d", i);
 440               if (c)
 441                 {
 442                   vs2 = valgen(vb2, i);
 443                   if (vs != vs2 || memcmp(vb, vb2, vs))
 444                     die("get_next: data mismatch at %d", i);
 445                 }
 446               l += k;
 447               m += i;
 448               k++;
 449             }
 450           if (k != num_keys)
 451             die("fetch: wrong # of keys: %d != %d", k, num_keys);
 452           if (l != m)
 453             die("fetch: wrong checksum: %d != %d", l, m);
 454           break;
 455         default:
 456           help();
 457         }
 458       sdbm_sync(d);
 459       printf("%d ms\n", get_timer());
 460     }
 461
 462   verb("CLOSE\n");
 463   sdbm_close(d);
 464
 465   {
 466     struct stat st;
 467     if (stat(opts.name, &st)) die("stat: %m");
 468     printf("file size: %d bytes\n", (int) st.st_size);
 469   }
 470   return 0;
 471 }