Mon Jan 19 14:06:13 JST 1998

git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/branches/v1_1r@23 b2dd03c8-39d4-4d8f-98ff-823fe69b080e

1 files changed, 58 insertions, 63 deletions

diff --git a/lib/finalize.rb b/lib/finalize.rb
index d91bb0d333..fcdb1dc448 100644
--- a/lib/finalize.rb
+++ b/lib/finalize.rb
@@ -1,8 +1,8 @@
 #
 #   finalizer.rb - 
 #   	$Release Version: 0.2$
-#   	$Revision: 1.1.1.2 $
-#   	$Date: 1998/01/16 04:14:51 $
+#   	$Revision: 1.1.1.2.2.1 $
+#   	$Date: 1998/01/16 12:36:04 $
 #   	by Keiju ISHITSUKA
 #
 # --
@@ -13,10 +13,10 @@
 #   add_dependency(obj, dependant, method = :finalize, *opt)
 #	依存関係 R_method(obj, dependant) の追加
 #
-#   delete(obj_or_id, dependant, method = :finalize)
-#   delete_dependency(obj_or_id, dependant, method = :finalize)
+#   delete(obj, dependant, method = :finalize)
+#   delete_dependency(obj, dependant, method = :finalize)
 #	依存関係 R_method(obj, dependant) の削除
-#   delete_all_dependency(obj_or_id, dependant)
+#   delete_all_dependency(obj, dependant)
 #	依存関係 R_*(obj, dependant) の削除
 #   delete_by_dependant(dependant, method = :finalize)
 #	依存関係 R_method(*, dependant) の削除
@@ -25,11 +25,11 @@
 #   delete_all
 #	全ての依存関係の削除.
 #
-#   finalize(obj_or_id, dependant, method = :finalize)
-#   finalize_dependency(obj_or_id, dependant, method = :finalize)
+#   finalize(obj, dependant, method = :finalize)
+#   finalize_dependency(obj, dependant, method = :finalize)
 #	依存関連 R_method(obj, dependtant) で結ばれるdependantを
 #	finalizeする.
-#   finalize_all_dependency(obj_or_id, dependant)
+#   finalize_all_dependency(obj, dependant)
 #	依存関連 R_*(obj, dependtant) で結ばれるdependantをfinalizeする.
 #   finalize_by_dependant(dependant, method = :finalize)
 #	依存関連 R_method(*, dependtant) で結ばれるdependantをfinalizeする.
@@ -44,50 +44,46 @@
 #
 
 module Finalizer
-  RCS_ID='-$Header: /home/cvsroot/ruby/lib/finalize.rb,v 1.1.1.2 1998/01/16 04:14:51 matz Exp $-'
-  
-  # @dependency: {id => [[dependant, method, *opt], ...], ...}
+  RCS_ID='-$Header: /home/cvsroot/ruby/lib/finalize.rb,v 1.1.1.2.2.1 1998/01/16 12:36:04 matz Exp $-'
+
+  # Dependency: {id => [[dependant, method, opt], ...], ...}
+  Dependency = {}
   
   # 依存関係 R_method(obj, dependant) の追加
   def add_dependency(obj, dependant, method = :finalize, *opt)
     ObjectSpace.call_finalizer(obj)
-    method = method.intern unless method.kind_of?(Integer)
-    assoc = [dependant, method].concat(opt)
-    if dep = @dependency[obj.id]
+    assoc = [dependant, method, opt]
+    if dep = Dependency[obj.id]
       dep.push assoc
     else
-      @dependency[obj.id] = [assoc]
+      Dependency[obj.id] = [assoc]
     end
   end
   alias add add_dependency
   
   # 依存関係 R_method(obj, dependant) の削除
-  def delete_dependency(id, dependant, method = :finalize)
-    id = id.id unless id.kind_of?(Integer)
-    method = method.intern unless method.kind_of?(Integer)
-    for assoc in @dependency[id]
-      assoc.delete_if do
-	|d, m, *o|
+  def delete_dependency(obj, dependant, method = :finalize)
+    id = obj.id
+    for assoc in Dependency[id]
+      assoc.delete_if do |d,m,*o|
 	d == dependant && m == method
       end
-      @dependency.delete(id) if assoc.empty?
+      Dependency.delete(id) if assoc.empty?
     end
   end
   alias delete delete_dependency
   
   # 依存関係 R_*(obj, dependant) の削除
-  def delete_all_dependency(id, dependant)
-    id = id.id unless id.kind_of?(Integer)
-    method = method.intern unless method.kind_of?(Integer)
-    for assoc in @dependency[id]
-      assoc.delete_if do
-	|d, m, *o|
+  def delete_all_dependency(obj, dependant)
+    id = obj.id
+    for assoc in Dependency[id]
+      assoc.delete_if do |d,m,*o|
 	d == dependant
       end
-      @dependency.delete(id) if assoc.empty?
+      Dependency.delete(id) if assoc.empty?
     end
   end
-  
+
   # 依存関係 R_method(*, dependant) の削除
   def delete_by_dependant(dependant, method = :finalize)
     method = method.intern unless method.kind_of?(Integer)
@@ -95,61 +91,63 @@ module Finalizer
       delete(id, dependant, method)
     end
   end
-  
+
   # 依存関係 R_*(*, dependant) の削除
   def delete_all_by_dependant(dependant)
-    for id in @dependency.keys
+    for id in Dependency.keys
       delete_all_dependency(id, dependant)
     end
   end
-  
-  # 依存関連 R_method(obj, dependtant) で結ばれるdependantをfinalizeす
+
+  # 依存関連 R_method(id, dependtant) で結ばれるdependantをfinalizeす
   # る.
   def finalize_dependency(id, dependant, method = :finalize)
-    id = id.id unless id.kind_of?(Integer)
-    method = method.intern unless method.kind_of?(Integer)
-    for assocs in @dependency[id]
-      assocs.delete_if do
-	|d, m, *o|
-	d.send(m, *o) if ret = d == dependant && m == method
-	ret
+    for assocs in Dependency[id]
+      assocs.delete_if do |d, m, *o|
+	if d == dependant && m == method
+	  d.send(m, *o)
+	  true
+	else
+	  false
+	end
       end
-      @dependency.delete(id) if assoc.empty?
+      Dependency.delete(id) if assoc.empty?
     end
   end
   alias finalize finalize_dependency
   
-  # 依存関連 R_*(obj, dependtant) で結ばれるdependantをfinalizeする.
+  # 依存関連 R_*(id, dependtant) で結ばれるdependantをfinalizeする.
   def finalize_all_dependency(id, dependant)
-    id = id.id unless id.kind_of?(Integer)
-    method = method.intern unless method.kind_of?(Integer)
-    for assoc in @dependency[id]
-      assoc.delete_if do
-	|d, m, *o|
-	d.send(m, *o) if ret = d == dependant
+    for assoc in Dependency[id]
+      assoc.delete_if do |d, m, *o|
+	if d == dependant
+	  d.send(m, *o)
+	  true
+	else
+	  false
+	end
       end
-      @dependency.delete(id) if assoc.empty?
+      Dependency.delete(id) if assoc.empty?
     end
   end
   
   # 依存関連 R_method(*, dependtant) で結ばれるdependantをfinalizeする.
   def finalize_by_dependant(dependant, method = :finalize)
-    method = method.intern unless method.kind_of?(Integer)
-    for id in @dependency.keys
+    for id in Dependency.keys
       finalize(id, dependant, method)
     end
   end
   
   # 依存関連 R_*(*, dependtant) で結ばれるdependantをfinalizeする.
   def fainalize_all_by_dependant(dependant)
-    for id in @dependency.keys
+    for id in Dependency.keys
       finalize_all_dependency(id, dependant)
     end
   end
   
   # Finalizerに登録されている全てのdependantをfinalizeする
   def finalize_all
-    for id, assocs in @dependency
+    for id, assocs in Dependency
       for dependant, method, *opt in assocs
 	dependant.send(method, id, *opt)
       end
@@ -159,26 +157,24 @@ module Finalizer
   
   # finalize_* を安全に呼び出すためのイテレータ
   def safe
-    old_status = Thread.critical
-    Thread.critical = TRUE
-    ObjectSpace.remove_finalizer(@proc)
+    old_status, Thread.critical = Thread.critical, true
+    ObjectSpace.remove_finalizer(Proc)
     yield
-    ObjectSpace.add_finalizer(@proc)
+    ObjectSpace.add_finalizer(Proc)
     Thread.critical = old_status
   end
   
   # ObjectSpace#add_finalizerへの登録関数
   def final_of(id)
-    if assocs = @dependency.delete(id)
+    if assocs = Dependency.delete(id)
       for dependant, method, *opt in assocs
 	dependant.send(method, id, *opt)
       end
     end
   end
   
-  @dependency = Hash.new
-  @proc = proc{|id| final_of(id)}
-  ObjectSpace.add_finalizer(@proc)
+  Proc = proc{|id| final_of(id)}
+  ObjectSpace.add_finalizer(Proc)
 
   module_function :add
   module_function :add_dependency
@@ -202,4 +198,3 @@ module Finalizer
   private_class_method :final_of
   
 end
-