Algorithm-ConsistentHash-CHash
view release on metacpan or search on metacpan
/* this is wrong */
len = 0;
k = NULL;
}
else {
k = SvPVbyte(*svp, len); /* FIXME is this correct for UTF8? */
}
keys[i] = k;
lens[i] = len;
/* fprintf(stderr, "node => '%s', len => %u\n", k, len); */
}
/* fprintf(stderr, "nkeys => %u, replicas => %u\n", nkeys, replicas); */
RETVAL = chash_create(keys, lens, nkeys, replicas);
if (RETVAL == NULL)
croak("Unknown error");
OUTPUT: RETVAL
void
DESTROY(self)
struct chash_t *self
len1 = snprintf(buffer, sizeof(buffer), "%lu", (unsigned long) r);
if ((sizeof(buffer) - len1) < name_lens[n]) {
len2 = sizeof(buffer) - len1;
} else {
len2 = name_lens[n];
}
memcpy(buffer + len1, node_names[n], len2);
len = len1 + len2;
buffer[len] = '\0';
if (len >= 255) {
fprintf(stderr, "Node name truncated to: %s\n", buffer);
}
blist[bidx].point =
leveldb_bloom_hash((const unsigned char *) buffer, len);
bidx++;
}
}
qsort(blist, bidx, sizeof(struct bucket_t), cmpbucket);
chash = malloc(sizeof(chash_t));
PerlIO_flush||5.007003|
PerlIO_get_base||5.007003|
PerlIO_get_bufsiz||5.007003|
PerlIO_get_cnt||5.007003|
PerlIO_get_ptr||5.007003|
PerlIO_read||5.007003|
PerlIO_seek||5.007003|
PerlIO_set_cnt||5.007003|
PerlIO_set_ptrcnt||5.007003|
PerlIO_setlinebuf||5.007003|
PerlIO_stderr||5.007003|
PerlIO_stdin||5.007003|
PerlIO_stdout||5.007003|
PerlIO_tell||5.007003|
PerlIO_unread||5.007003|
PerlIO_write||5.007003|
Perl_signbit||5.009005|n
PoisonFree|5.009004||p
PoisonNew|5.009004||p
PoisonWith|5.009004||p
Poison|5.008000||p
vwarner||5.006000|
vwarn||5.006000|
wait4pid|||
warn_nocontext|||vn
warner_nocontext|||vn
warner|5.006000|5.004000|pv
warn|||v
watch|||
whichsig|||
write_no_mem|||
write_to_stderr|||
xmldump_all|||
xmldump_attr|||
xmldump_eval|||
xmldump_form|||
xmldump_indent|||v
xmldump_packsubs|||
xmldump_sub|||
xmldump_vindent|||
yyerror|||
yylex|||
( run in 0.499 second using v1.01-cache-2.11-cpan-49f99fa48dc )