80 #define GetDBM(obj, dbmp) do {\ 81 TypedData_Get_Struct((obj), struct dbmdata, &sdbm_type, (dbmp));\ 82 if ((dbmp) == 0) closed_sdbm();\ 83 if ((dbmp)->di_dbm == 0) closed_sdbm();\ 86 #define GetDBM2(obj, dbmp, dbm) do {\ 87 GetDBM((obj), (dbmp));\ 88 (dbm) = (dbmp)->di_dbm;\ 104 const struct dbmdata *dbmp = ptr;
106 size +=
sizeof(*dbmp);
187 if (
rb_scan_args(argc, argv,
"11", &file, &vmode) == 1) {
190 else if (
NIL_P(vmode)) {
207 if (mode == -1)
return Qnil;
266 if (value.
dptr == 0) {
305 VALUE keystr, valstr, ifnone;
350 rb_warn(
"SDBM#index is deprecated; use SDBM#key");
408 for (i=0; i<
argc; i++) {
450 if (value.
dptr == 0) {
481 VALUE keystr, valstr;
512 VALUE keystr, valstr;
526 if (status != 0)
break;
594 VALUE keystr, valstr;
626 if (valstr ==
Qnil) {
644 #ifdef HAVE_DBM_CLAERERR 824 VALUE keystr, valstr;
static VALUE fsdbm_reject(VALUE obj)
#define RUBY_TYPED_FREE_IMMEDIATELY
static VALUE fsdbm_clear(VALUE obj)
static VALUE fsdbm_to_a(VALUE obj)
static void closed_sdbm(void)
static VALUE fsdbm_key(VALUE obj, VALUE valstr)
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.
void rb_error_frozen(const char *what)
#define TypedData_Wrap_Struct(klass, data_type, sval)
static VALUE fsdbm_each_value(VALUE obj)
static VALUE fsdbm_alloc(VALUE klass)
#define TypedData_Get_Struct(obj, type, data_type, sval)
static VALUE fsdbm_has_key(VALUE obj, VALUE keystr)
VALUE rb_ary_push(VALUE ary, VALUE item)
VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *state)
void rb_raise(VALUE exc, const char *fmt,...)
static VALUE fsdbm_update(VALUE obj, VALUE other)
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
static VALUE fsdbm_values_at(int argc, VALUE *argv, VALUE obj)
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 fsdbm_invert(VALUE obj)
static VALUE fsdbm_closed(VALUE obj)
static VALUE fsdbm_values(VALUE obj)
static const rb_data_type_t sdbm_type
static VALUE rb_eDBMError
static VALUE update_i(RB_BLOCK_CALL_FUNC_ARGLIST(pair, dbm))
static VALUE fsdbm_replace(VALUE obj, VALUE other)
#define RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg)
void sdbm_close(register DBM *db)
static VALUE fsdbm_shift(VALUE obj)
DBM * sdbm_open(register char *file, register int flags, register int mode)
static void fdbm_modify(VALUE obj)
static VALUE fsdbm_empty_p(VALUE obj)
int rb_block_given_p(void)
VALUE rb_hash_aset(VALUE hash, VALUE key, VALUE val)
RUBY_EXTERN VALUE rb_cObject
static VALUE fsdbm_aref(VALUE obj, VALUE keystr)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
datum sdbm_firstkey(register DBM *db)
static VALUE fsdbm_delete(VALUE obj, VALUE keystr)
static VALUE fsdbm_each_pair(VALUE obj)
void rb_sys_fail_str(VALUE mesg)
static VALUE fsdbm_delete_if(VALUE obj)
VALUE rb_external_str_new(const char *, long)
static VALUE fsdbm_initialize(int argc, VALUE *argv, VALUE obj)
#define RARRAY_CONST_PTR(a)
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
VALUE rb_assoc_new(VALUE car, VALUE cdr)
static VALUE fsdbm_length(VALUE obj)
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 sdbm_clearerr(db)
#define RARRAY_LENINT(ary)
void rb_sys_fail(const char *mesg)
void rb_jump_tag(int tag)
static VALUE fsdbm_to_hash(VALUE obj)
static VALUE fsdbm_store(VALUE obj, VALUE keystr, VALUE valstr)
int sdbm_store(register DBM *db, datum key, datum val, int flags)
#define ExportStringValue(v)
#define RARRAY_AREF(a, i)
static void free_sdbm(void *ptr)
#define GetDBM(obj, dbmp)
static VALUE fsdbm_fetch(VALUE obj, VALUE keystr, VALUE ifnone)
#define GetDBM2(obj, dbmp, dbm)
static VALUE fsdbm_s_open(int argc, VALUE *argv, VALUE klass)
static VALUE fsdbm_each_key(VALUE obj)
static size_t memsize_dbm(const void *ptr)
#define RETURN_ENUMERATOR(obj, argc, argv)
datum sdbm_nextkey(register DBM *db)
static VALUE fsdbm_has_value(VALUE obj, VALUE valstr)
static VALUE fsdbm_fetch_m(int argc, VALUE *argv, VALUE obj)
#define RSTRING_LENINT(str)
VALUE rb_hash_delete_if(VALUE hash)
static VALUE fsdbm_index(VALUE hash, VALUE value)
int sdbm_delete(register DBM *db, datum key)
static VALUE fsdbm_select(VALUE obj)
datum sdbm_fetch(register DBM *db, datum key)
static VALUE fsdbm_close(VALUE obj)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
void rb_warn(const char *fmt,...)
static VALUE fsdbm_keys(VALUE obj)