76 #if SIZEOF_LONG > SIZEOF_INT 77 #define TOO_LONG(n) ((long)(+(int)(n)) != (long)(n)) 82 #define RUBY_GDBM_RW_BIT 0x20000000 84 #define MY_BLOCK_SIZE (2048) 85 #define MY_FATAL_FUNC rb_gdbm_fatal 103 #define GetDBM(obj, dbmp) do {\ 104 TypedData_Get_Struct((obj), struct dbmdata, &dbm_type, (dbmp));\ 105 if ((dbmp) == 0) closed_dbm();\ 106 if ((dbmp)->di_dbm == 0) closed_dbm();\ 109 #define GetDBM2(obj, dbmp, dbm) do {\ 110 GetDBM((obj), (dbmp));\ 111 (dbm) = (dbmp)->di_dbm;\ 128 const struct dbmdata *dbmp = ptr;
130 size +=
sizeof(*dbmp);
131 if (dbmp->
di_dbm) size += DBM_SIZEOF_DBM;
213 VALUE file, vmode, vflags;
218 if (
rb_scan_args(argc, argv,
"12", &file, &vmode, &vflags) == 1) {
221 else if (
NIL_P(vmode)) {
235 flags |= GDBM_CLOEXEC;
239 flags &= ~RUBY_GDBM_RW_BIT;
261 if (mode == -1)
return Qnil;
263 if (gdbm_errno == GDBM_FILE_OPEN_ERROR ||
264 gdbm_errno == GDBM_CANT_BE_READER ||
265 gdbm_errno == GDBM_CANT_BE_WRITER)
321 val = gdbm_fetch(dbm, key);
341 key.
dsize = (int)len;
362 key = gdbm_firstkey(dbm);
382 key.
dsize = (int)len;
383 key2 = gdbm_nextkey(dbm, key);
429 VALUE keystr, valstr, ifnone;
451 VALUE keystr, valstr2;
459 if (!
NIL_P(valstr2) &&
473 rb_warn(
"GDBM#index is deprecated; use GDBM#key");
519 for (i=0; i<
argc; i++) {
545 key.
dsize = (int)len;
548 if (!gdbm_exists(dbm, key)) {
552 if (gdbm_delete(dbm, key)) {
591 VALUE keystr, valstr;
615 VALUE keystr, valstr;
631 if (status != 0)
break;
663 while (key = gdbm_firstkey(dbm), key.
dptr) {
664 if (gdbm_delete(dbm, key)) {
671 while (key = gdbm_firstkey(dbm), key.
dptr) {
672 for (; key.
dptr; key = nextkey) {
673 nextkey = gdbm_nextkey(dbm, key);
674 if (gdbm_delete(dbm, key)) {
700 VALUE keystr, valstr;
739 if (gdbm_store(dbm, key, val, GDBM_REPLACE)) {
808 for (key = gdbm_firstkey(dbm); key.
dptr; key = nextkey) {
809 nextkey = gdbm_nextkey(dbm, key);
835 key = gdbm_firstkey(dbm);
966 for (key = gdbm_firstkey(dbm); key.
dptr; key = nextkey) {
967 nextkey = gdbm_nextkey(dbm, key);
998 key.
dsize = (int)len;
1001 if (gdbm_exists(dbm, key))
1019 VALUE keystr, valstr2;
1028 if (!
NIL_P(valstr2) &&
1078 gdbm_reorganize(dbm);
1120 if (gdbm_setopt(dbm, GDBM_CACHESIZE, &optval,
sizeof(optval)) == -1) {
1148 if (gdbm_setopt(dbm, GDBM_FASTMODE, &optval,
sizeof(optval)) == -1) {
1170 #if !defined(GDBM_SYNCMODE) 1183 if (gdbm_setopt(dbm, GDBM_FASTMODE, &optval,
sizeof(optval)) == -1) {
1299 #if defined(GDBM_SYNC) 1303 #if defined(GDBM_NOLOCK)
static VALUE fgdbm_key(VALUE obj, VALUE valstr)
static VALUE fgdbm_set_syncmode(VALUE obj, VALUE val)
#define RUBY_TYPED_FREE_IMMEDIATELY
static VALUE fgdbm_empty_p(VALUE obj)
static VALUE fgdbm_values_at(int argc, VALUE *argv, VALUE obj)
static VALUE fgdbm_reject(VALUE obj)
static unsigned int hash(str, len) register const char *str
void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a singleton method for obj.
static VALUE fgdbm_clear(VALUE obj)
void rb_error_frozen(const char *what)
#define TypedData_Wrap_Struct(klass, data_type, sval)
#define TypedData_Get_Struct(obj, type, data_type, sval)
VALUE rb_ary_push(VALUE ary, VALUE item)
VALUE rb_ary_tmp_new(long capa)
VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *state)
static VALUE fgdbm_s_alloc(VALUE klass)
void rb_raise(VALUE exc, const char *fmt,...)
VALUE rb_ary_clear(VALUE ary)
static VALUE rb_gdbm_fetch(GDBM_FILE dbm, datum key)
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
static VALUE fgdbm_keys(VALUE obj)
static VALUE rb_eGDBMError
void rb_include_module(VALUE klass, VALUE module)
VALUE rb_block_call(VALUE, ID, int, const VALUE *, rb_block_call_func_t, VALUE)
static VALUE fgdbm_select(VALUE obj)
static VALUE fgdbm_has_key(VALUE obj, VALUE keystr)
static VALUE fgdbm_s_open(int argc, VALUE *argv, VALUE klass)
static VALUE fgdbm_close(VALUE obj)
static const rb_data_type_t dbm_type
#define RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg)
static VALUE fgdbm_aref(VALUE obj, VALUE keystr)
static VALUE fgdbm_each_value(VALUE obj)
static VALUE rb_gdbm_nextkey(GDBM_FILE dbm, VALUE keystr)
int rb_block_given_p(void)
VALUE rb_hash_aset(VALUE hash, VALUE key, VALUE val)
RUBY_EXTERN VALUE rb_cObject
static VALUE rb_gdbm_fetch3(VALUE obj, VALUE keystr)
static size_t memsize_dbm(const void *ptr)
static VALUE fgdbm_reorganize(VALUE obj)
static void closed_dbm(void)
static VALUE fgdbm_invert(VALUE obj)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
static VALUE fgdbm_to_hash(VALUE obj)
void rb_define_const(VALUE, const char *, VALUE)
static VALUE fgdbm_delete_if(VALUE obj)
void rb_sys_fail_str(VALUE mesg)
static VALUE fgdbm_has_value(VALUE obj, VALUE valstr)
static VALUE fgdbm_to_a(VALUE obj)
static VALUE fgdbm_shift(VALUE obj)
static VALUE fgdbm_store(VALUE obj, VALUE keystr, VALUE valstr)
#define RARRAY_CONST_PTR(a)
static VALUE rb_gdbm_delete(VALUE obj, VALUE keystr)
static VALUE fgdbm_each_pair(VALUE obj)
static VALUE fgdbm_initialize(int argc, VALUE *argv, VALUE obj)
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
VALUE rb_assoc_new(VALUE car, VALUE cdr)
static VALUE rb_gdbm_fetch2(GDBM_FILE dbm, VALUE keystr)
VALUE rb_ensure(VALUE(*b_proc)(ANYARGS), VALUE data1, VALUE(*e_proc)(ANYARGS), VALUE data2)
int memcmp(const void *s1, const void *s2, size_t len)
#define GetDBM2(obj, dbmp, dbm)
void rb_sys_fail(const char *mesg)
void rb_jump_tag(int tag)
#define GetDBM(obj, dbmp)
register unsigned int len
static VALUE fgdbm_fetch_m(int argc, VALUE *argv, VALUE obj)
#define RARRAY_AREF(a, i)
void rb_fd_fix_cloexec(int fd)
static VALUE update_i(RB_BLOCK_CALL_FUNC_ARGLIST(pair, dbm))
static VALUE rb_eGDBMFatalError
static VALUE fgdbm_set_cachesize(VALUE obj, VALUE val)
static VALUE fgdbm_each_key(VALUE obj)
#define RETURN_ENUMERATOR(obj, argc, argv)
#define SafeStringValue(v)
static VALUE fgdbm_length(VALUE obj)
static VALUE fgdbm_delete(VALUE obj, VALUE keystr)
static VALUE fgdbm_update(VALUE obj, VALUE other)
static VALUE fgdbm_replace(VALUE obj, VALUE other)
static VALUE rb_gdbm_firstkey(GDBM_FILE dbm)
#define RSTRING_LENINT(str)
VALUE rb_hash_delete_if(VALUE hash)
static VALUE fgdbm_values(VALUE obj)
static VALUE fgdbm_closed(VALUE obj)
static VALUE fgdbm_sync(VALUE obj)
static void rb_gdbm_modify(VALUE obj)
static VALUE fgdbm_set_fastmode(VALUE obj, VALUE val)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
void rb_warn(const char *fmt,...)
static void free_dbm(void *ptr)
static void rb_gdbm_fatal(const char *msg)
static VALUE fgdbm_index(VALUE obj, VALUE value)
static VALUE fgdbm_fetch(VALUE obj, VALUE keystr, VALUE ifnone)
VALUE rb_str_new(const char *, long)