17 #ifdef HAVE_SYS_CDEFS_H 18 # include <sys/cdefs.h> 24 #define DSIZE_TYPE TYPEOF_DATUM_DSIZE 25 #if SIZEOF_DATUM_DSIZE > SIZEOF_INT 26 # define RSTRING_DSIZE(s) RSTRING_LEN(s) 27 # define TOO_LONG(n) 0 29 # define RSTRING_DSIZE(s) RSTRING_LENINT(s) 30 # define TOO_LONG(n) ((long)(+(DSIZE_TYPE)(n)) != (n)) 35 #define RUBY_DBM_RW_BIT 0x20000000 48 #define GetDBM(obj, dbmp) do {\ 49 TypedData_Get_Struct((obj), struct dbmdata, &dbm_type, (dbmp));\ 50 if ((dbmp) == 0) closed_dbm();\ 51 if ((dbmp)->di_dbm == 0) closed_dbm();\ 54 #define GetDBM2(obj, dbmp, dbm) do {\ 55 GetDBM((obj), (dbmp));\ 56 (dbm) = (dbmp)->di_dbm;\ 73 const struct dbmdata *dbmp = ptr;
75 size +=
sizeof(*dbmp);
76 if (dbmp->
di_dbm) size += DBM_SIZEOF_DBM;
148 VALUE file, vmode, vflags;
153 if (
rb_scan_args(argc, argv,
"12", &file, &vmode, &vflags) == 1) {
156 else if (
NIL_P(vmode)) {
177 flags &= ~RUBY_DBM_RW_BIT;
212 #if defined(HAVE_DBM_PAGFNO) 215 #if defined(HAVE_DBM_DIRFNO) 219 #if defined(RUBYDBM_DB_HEADER) && defined(HAVE_TYPE_DBC) 222 ((DBC*)dbm)->dbp->set_errfile(((DBC*)dbm)->dbp,
NULL);
227 if (mode == -1)
return Qnil;
278 value = dbm_fetch(dbm, key);
279 if (value.
dptr == 0) {
315 VALUE keystr, valstr, ifnone;
346 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
347 val = dbm_fetch(dbm, key);
360 rb_warn(
"DBM#index is deprecated; use DBM#key");
380 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
382 val = dbm_fetch(dbm, key);
407 for (i=0; i<
argc; i++) {
444 value = dbm_fetch(dbm, key);
445 if (value.
dptr == 0) {
454 if (dbm_delete(dbm, key)) {
478 VALUE keystr, valstr;
484 key = dbm_firstkey(dbm);
486 val = dbm_fetch(dbm, key);
489 dbm_delete(dbm, key);
508 VALUE keystr, valstr;
518 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
519 val = dbm_fetch(dbm, key);
524 if (status != 0)
break;
533 if (dbm_delete(dbm, key)) {
560 while (key = dbm_firstkey(dbm), key.
dptr) {
561 if (dbm_delete(dbm, key)) {
583 VALUE keystr, valstr;
587 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
588 val = dbm_fetch(dbm, key);
696 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
721 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
748 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
749 val = dbm_fetch(dbm, key);
772 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
792 VALUE keystr, valstr;
798 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
799 val = dbm_fetch(dbm, key);
826 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
849 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
850 val = dbm_fetch(dbm, key);
881 val = dbm_fetch(dbm, key);
909 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
910 val = dbm_fetch(dbm, key);
935 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
936 val = dbm_fetch(dbm, key);
961 for (key = dbm_firstkey(dbm); key.
dptr; key = dbm_nextkey(dbm)) {
962 val = dbm_fetch(dbm, key);
1116 #if defined(_DBM_IOERR) 1118 #elif defined(RUBYDBM_GDBM_HEADER) 1119 # if defined(HAVE_DECLARED_LIBVAR_GDBM_VERSION) 1122 # elif defined(HAVE_UNDECLARED_LIBVAR_GDBM_VERSION) 1130 #elif defined(RUBYDBM_DB_HEADER) 1131 # if defined(HAVE_DB_VERSION) 1137 #elif defined(_RELIC_H) 1138 # if defined(HAVE_DPVERSION)
static VALUE fdbm_delete(VALUE obj, VALUE keystr)
static size_t memsize_dbm(const void *ptr)
static VALUE fdbm_length(VALUE obj)
#define RUBY_TYPED_FREE_IMMEDIATELY
#define GetDBM2(obj, dbmp, dbm)
static VALUE fdbm_s_open(int argc, VALUE *argv, VALUE klass)
static unsigned int hash(str, len) register const char *str
static VALUE fdbm_store(VALUE, VALUE, VALUE)
void rb_define_singleton_method(VALUE obj, const char *name, VALUE(*func)(ANYARGS), int argc)
Defines a singleton method for obj.
static VALUE fdbm_index(VALUE hash, VALUE value)
void rb_error_frozen(const char *what)
#define TypedData_Wrap_Struct(klass, data_type, sval)
static VALUE fdbm_values(VALUE obj)
#define TypedData_Get_Struct(obj, type, data_type, sval)
VALUE rb_ary_push(VALUE ary, VALUE item)
static VALUE fdbm_replace(VALUE obj, VALUE other)
VALUE rb_ary_tmp_new(long capa)
VALUE rb_protect(VALUE(*proc)(VALUE), VALUE data, int *state)
void rb_raise(VALUE exc, const char *fmt,...)
VALUE rb_ary_clear(VALUE ary)
void rb_define_alloc_func(VALUE, rb_alloc_func_t)
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 fdbm_has_key(VALUE obj, VALUE keystr)
static VALUE fdbm_values_at(int argc, VALUE *argv, VALUE obj)
#define RB_BLOCK_CALL_FUNC_ARGLIST(yielded_arg, callback_arg)
static VALUE fdbm_empty_p(VALUE obj)
static VALUE fdbm_reject(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 fdbm_aref(VALUE obj, VALUE keystr)
static VALUE fdbm_to_a(VALUE obj)
static VALUE fdbm_select(VALUE obj)
VALUE rb_obj_as_string(VALUE)
static VALUE fdbm_close(VALUE obj)
static void fdbm_modify(VALUE obj)
VALUE rb_define_class(const char *name, VALUE super)
Defines a top-level class.
void rb_define_const(VALUE, const char *, VALUE)
void rb_sys_fail_str(VALUE mesg)
static const rb_data_type_t dbm_type
static VALUE fdbm_shift(VALUE obj)
static VALUE fdbm_each_key(VALUE obj)
#define RARRAY_CONST_PTR(a)
static VALUE fdbm_clear(VALUE obj)
VALUE rb_sprintf(const char *format,...)
int rb_scan_args(int argc, const VALUE *argv, const char *fmt,...)
VALUE rb_assoc_new(VALUE car, VALUE cdr)
static VALUE fdbm_to_hash(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)
void rb_sys_fail(const char *mesg)
void rb_jump_tag(int tag)
static VALUE rb_eDBMError
static VALUE fdbm_alloc(VALUE klass)
register unsigned int len
static VALUE fdbm_fetch(VALUE obj, VALUE keystr, VALUE ifnone)
#define ExportStringValue(v)
#define RARRAY_AREF(a, i)
static VALUE fdbm_initialize(int argc, VALUE *argv, VALUE obj)
void rb_fd_fix_cloexec(int fd)
static void free_dbm(void *ptr)
static VALUE fdbm_closed(VALUE obj)
static VALUE fdbm_each_value(VALUE obj)
static VALUE fdbm_keys(VALUE obj)
static VALUE fdbm_update(VALUE obj, VALUE other)
static VALUE fdbm_invert(VALUE obj)
#define RETURN_ENUMERATOR(obj, argc, argv)
static VALUE fdbm_has_value(VALUE obj, VALUE valstr)
static void closed_dbm(void)
#define GetDBM(obj, dbmp)
VALUE rb_hash_delete_if(VALUE hash)
VALUE rb_tainted_str_new(const char *, long)
static VALUE fdbm_key(VALUE obj, VALUE valstr)
static VALUE fdbm_delete_if(VALUE obj)
void rb_define_method(VALUE klass, const char *name, VALUE(*func)(ANYARGS), int argc)
void rb_warn(const char *fmt,...)
static VALUE fdbm_each_pair(VALUE obj)
static VALUE fdbm_fetch_m(int argc, VALUE *argv, VALUE obj)
static VALUE update_i(RB_BLOCK_CALL_FUNC_ARGLIST(pair, dbm))