From 8f8d7c1113364b3e87600ea82760a50121a93c6f Mon Sep 17 00:00:00 2001 From: usa Date: Mon, 20 Jun 2005 07:53:22 +0000 Subject: * ext/dbm/dbm.c (fdbm_closed): new method DBM#closed? * ext/gdbm/gdbm.c (fgdbm_closed): new method GDBM#closed? * ext/sdbm/init.c (fsdbm_closed): new method SDBM#closed? * test/dbm/test_dbm.rb, test/gdbm/test_gdbm.rb, test/sdbm/test_sdbm.rb (teardown): close all db objects before deleting data files. * win32/win32.{ch} (unlink): hook runtime function to change file attribute before unlinking. fixed: [ruby-dev:26360] git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/ruby_1_8@8648 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ChangeLog | 14 ++++++++++++++ ext/dbm/dbm.c | 16 ++++++++++++++++ ext/gdbm/gdbm.c | 16 ++++++++++++++++ ext/sdbm/init.c | 16 ++++++++++++++++ test/dbm/test_dbm.rb | 4 +++- test/gdbm/test_gdbm.rb | 4 +++- test/sdbm/test_sdbm.rb | 4 +++- win32/win32.c | 20 ++++++++++++++++++++ win32/win32.h | 3 +++ 9 files changed, 94 insertions(+), 3 deletions(-) diff --git a/ChangeLog b/ChangeLog index ccb187c99f..fbdf58e73e 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,3 +1,17 @@ +Mon Jun 20 16:48:36 2005 NAKAMURA Usaku + + * ext/dbm/dbm.c (fdbm_closed): new method DBM#closed? + + * ext/gdbm/gdbm.c (fgdbm_closed): new method GDBM#closed? + + * ext/sdbm/init.c (fsdbm_closed): new method SDBM#closed? + + * test/dbm/test_dbm.rb, test/gdbm/test_gdbm.rb, test/sdbm/test_sdbm.rb + (teardown): close all db objects before deleting data files. + + * win32/win32.{ch} (unlink): hook runtime function to change + file attribute before unlinking. + Mon Jun 20 02:15:35 2005 Nobuyoshi Nakada * gc.c (define_final): document fix: finalizers never get called diff --git a/ext/dbm/dbm.c b/ext/dbm/dbm.c index 9caf808961..69b7a6e7a7 100644 --- a/ext/dbm/dbm.c +++ b/ext/dbm/dbm.c @@ -71,6 +71,21 @@ fdbm_close(obj) return Qnil; } +static VALUE +fdbm_closed(obj) + VALUE obj; +{ + struct dbmdata *dbmp; + + Data_Get_Struct(obj, struct dbmdata, dbmp); + if (dbmp == 0) + return Qtrue; + if (dbmp->di_dbm == 0) + return Qtrue; + + return Qfalse; +} + static VALUE fdbm_alloc _((VALUE)); static VALUE fdbm_alloc(klass) @@ -750,6 +765,7 @@ Init_dbm() rb_define_method(rb_cDBM, "initialize", fdbm_initialize, -1); rb_define_method(rb_cDBM, "close", fdbm_close, 0); + rb_define_method(rb_cDBM, "closed?", fdbm_closed, 0); rb_define_method(rb_cDBM, "[]", fdbm_aref, 1); rb_define_method(rb_cDBM, "fetch", fdbm_fetch_m, -1); rb_define_method(rb_cDBM, "[]=", fdbm_store, 2); diff --git a/ext/gdbm/gdbm.c b/ext/gdbm/gdbm.c index e59b01addf..d50cb91eed 100644 --- a/ext/gdbm/gdbm.c +++ b/ext/gdbm/gdbm.c @@ -72,6 +72,21 @@ fgdbm_close(obj) return Qnil; } +static VALUE +fgdbm_closed(obj) + VALUE obj; +{ + struct dbmdata *dbmp; + + Data_Get_Struct(obj, struct dbmdata, dbmp); + if (dbmp == 0) + return Qtrue; + if (dbmp->di_dbm == 0) + return Qtrue; + + return Qfalse; +} + static VALUE fgdbm_s_alloc _((VALUE)); static VALUE @@ -941,6 +956,7 @@ Init_gdbm() rb_define_method(rb_cGDBM, "initialize", fgdbm_initialize, -1); rb_define_method(rb_cGDBM, "close", fgdbm_close, 0); + rb_define_method(rb_cGDBM, "closed?", fgdbm_closed, 0); rb_define_method(rb_cGDBM, "[]", fgdbm_aref, 1); rb_define_method(rb_cGDBM, "fetch", fgdbm_fetch_m, -1); rb_define_method(rb_cGDBM, "[]=", fgdbm_store, 2); diff --git a/ext/sdbm/init.c b/ext/sdbm/init.c index 62ce478c4d..c401d4a050 100644 --- a/ext/sdbm/init.c +++ b/ext/sdbm/init.c @@ -62,6 +62,21 @@ fsdbm_close(obj) return Qnil; } +static VALUE +fsdbm_closed(obj) + VALUE obj; +{ + struct dbmdata *dbmp; + + Data_Get_Struct(obj, struct dbmdata, dbmp); + if (dbmp == 0) + return Qtrue; + if (dbmp->di_dbm == 0) + return Qtrue; + + return Qfalse; +} + static VALUE fsdbm_alloc _((VALUE)); static VALUE fsdbm_alloc(klass) @@ -734,6 +749,7 @@ Init_sdbm() rb_define_method(rb_cDBM, "initialize", fsdbm_initialize, -1); rb_define_method(rb_cDBM, "close", fsdbm_close, 0); + rb_define_method(rb_cDBM, "closed?", fsdbm_closed, 0); rb_define_method(rb_cDBM, "[]", fsdbm_aref, 1); rb_define_method(rb_cDBM, "fetch", fsdbm_fetch_m, -1); rb_define_method(rb_cDBM, "[]=", fsdbm_store, 2); diff --git a/test/dbm/test_dbm.rb b/test/dbm/test_dbm.rb index 1bf1480a2f..53ab4c83a6 100644 --- a/test/dbm/test_dbm.rb +++ b/test/dbm/test_dbm.rb @@ -42,7 +42,9 @@ if defined? DBM def teardown assert_nil(@dbm.close) assert_nil(@dbm_rdonly.close) - GC.start + ObjectSpace.each_object(DBM) do |obj| + obj.close unless obj.closed? + end File.delete *Dir.glob("tmptest_dbm*").to_a p Dir.glob("tmptest_dbm*") if $DEBUG end diff --git a/test/gdbm/test_gdbm.rb b/test/gdbm/test_gdbm.rb index 920a78c548..e3f52ef5ed 100644 --- a/test/gdbm/test_gdbm.rb +++ b/test/gdbm/test_gdbm.rb @@ -39,7 +39,9 @@ if defined? GDBM def teardown assert_nil(@gdbm.close) assert_nil(@gdbm_rdonly.close) - GC.start + ObjectSpace.each_object(GDBM) do |obj| + obj.close unless obj.closed? + end File.delete *Dir.glob("tmptest_gdbm*").to_a p Dir.glob("tmptest_gdbm*") if $DEBUG end diff --git a/test/sdbm/test_sdbm.rb b/test/sdbm/test_sdbm.rb index 25e5371048..488b37a9a5 100644 --- a/test/sdbm/test_sdbm.rb +++ b/test/sdbm/test_sdbm.rb @@ -12,7 +12,9 @@ class TestSDBM < Test::Unit::TestCase end def teardown assert_nil(@sdbm.close) - GC.start + ObjectSpace.each_object(SDBM) do |obj| + obj.close unless obj.closed? + end File.delete *Dir.glob("tmptest_sdbm*").to_a p Dir.glob("tmptest_sdbm*") if $DEBUG end diff --git a/win32/win32.c b/win32/win32.c index 13c45005df..c5ca269732 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -3433,6 +3433,26 @@ rb_w32_rmdir(const char *path) return ret; } +#undef unlink +int +rb_w32_unlink(const char *path) +{ + DWORD attr; + int ret; + RUBY_CRITICAL({ + attr = GetFileAttributes(path); + if (attr != (DWORD)-1 && (attr & FILE_ATTRIBUTE_READONLY)) { + attr &= ~FILE_ATTRIBUTE_READONLY; + SetFileAttributes(path, attr); + } + ret = unlink(path); + if (ret < 0 && attr != (DWORD)-1) { + SetFileAttributes(path, attr); + } + }); + return ret; +} + #if !defined(__BORLANDC__) && !defined(_WIN32_WCE) int rb_w32_isatty(int fd) diff --git a/win32/win32.h b/win32/win32.h index c73b91bda5..6e0b1fe851 100644 --- a/win32/win32.h +++ b/win32/win32.h @@ -128,6 +128,8 @@ extern "C++" { #define mkdir(p, m) rb_w32_mkdir(p, m) #undef rmdir #define rmdir(p) rb_w32_rmdir(p) +#undef unlink +#define unlink(p) rb_w32_unlink(p) #ifdef __MINGW32__ struct timezone { @@ -191,6 +193,7 @@ extern int rb_w32_isatty(int); #endif extern int rb_w32_mkdir(const char *, int); extern int rb_w32_rmdir(const char *); +extern int rb_w32_unlink(const char*); #ifdef __BORLANDC__ extern FILE *rb_w32_fopen(const char *, const char *); -- cgit v1.2.3