Changeset 13250

Timestamp:

03/13/11 19:55:52 (14 years ago)

Author:

ehuelsmann

Message:

Close #138 by implementing a general post-finalization notification mechanism.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Autoload.java (modified) (1 diff)
• Primitives.java (modified) (3 diffs)
• util/Finalizer.java (added)

trunk/abcl/src/org/armedbear/lisp/Autoload.java ¶

@@ -520 +520 @@
         autoload(PACKAGE_EXT, "make-weak-reference", "WeakReference", true);
         autoload(PACKAGE_EXT, "weak-reference-value", "WeakReference", true);
+        autoload(PACKAGE_EXT, "finalize", "Primitives", true);
+        autoload(PACKAGE_EXT, "cancel-finalization", "Primitives", true);
         autoload(PACKAGE_JAVA, "%jnew-proxy", "JProxy");
         autoload(PACKAGE_JAVA, "%find-java-class", "JavaObject");

trunk/abcl/src/org/armedbear/lisp/Primitives.java ¶

@@ -3 +3 @@
  *
  * Copyright (C) 2002-2007 Peter Graves
+ * Copyright (C) 2011 Erik Huelsmann
  * $Id$
  *
@@ -38 +39 @@
 import java.math.BigInteger;
 import java.util.ArrayList;
+import org.armedbear.lisp.util.Finalizer;
 
 public final class Primitives {
@@ -5819 +5821 @@
     };
 
+    // ### finalize
+    private static final Primitive FINALIZE
+        = new pf_finalize();
+    private static final class pf_finalize extends Primitive {
+        pf_finalize() {
+            super("finalize", PACKAGE_EXT, true, "object function");
+        }
+
+        @Override
+        public LispObject execute(LispObject obj, final LispObject fun) {
+            Finalizer.addFinalizer(obj, new Runnable() {
+                @Override
+                public void run() {
+                    fun.execute();
+                }
+            });
+            return obj;
+        }
+    };
+
+    // ### cancel-finalization
+    private static final Primitive CANCEL_FINALIZATION
+        = new pf_cancel_finalization();
+    private static final class pf_cancel_finalization extends Primitive {
+        pf_cancel_finalization() {
+            super("cancel-finalization", PACKAGE_EXT, true, "object");
+        }
+
+        @Override
+        public LispObject execute(LispObject obj) {
+            Finalizer.clearFinalizers(obj);
+            return obj;
+        }
+    };
+
 }