Changeset 12028

Timestamp:

07/04/09 07:59:42 (14 years ago)

Author:

Mark Evenson

Message:

Implementation of Franz Allegro Gates MP sync primitive by Tobias Rittweiler.

See ​http://www.franz.com/support/documentation/8.1/doc/multiprocessing.htm#gates-1.

Location:

trunk/abcl/src/org/armedbear/lisp

Files:

• Autoload.java (modified) (3 diffs)
• BuiltInClass.java (modified) (1 diff)
• Gate.java (added)
• Symbol.java (modified) (1 diff)

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

@@ -490 +490 @@
         autoload(PACKAGE_EXT, "assq", "assq", true);
         autoload(PACKAGE_EXT, "assql", "assql", true);
+        autoload(PACKAGE_EXT, "close-gate", "Gate", true);
         autoload(PACKAGE_EXT, "file-directory-p", "probe_file", true);
         autoload(PACKAGE_EXT, "gc", "gc", true);
         autoload(PACKAGE_EXT, "get-floating-point-modes", "FloatFunctions", true);
         autoload(PACKAGE_EXT, "get-mutex", "Mutex", true);
+  autoload(PACKAGE_EXT, "make-gate", "Gate", true);
         autoload(PACKAGE_EXT, "mailbox-empty-p", "Mailbox", true);
         autoload(PACKAGE_EXT, "mailbox-peek", "Mailbox", true);
@@ -503 +505 @@
         autoload(PACKAGE_EXT, "make-slime-output-stream", "SlimeOutputStream", true);
         autoload(PACKAGE_EXT, "make-thread-lock", "ThreadLock", true);
+        autoload(PACKAGE_EXT, "open-gate", "Gate", true);
+        autoload(PACKAGE_EXT, "open-gate-p", "Gate", true);
         autoload(PACKAGE_EXT, "probe-directory", "probe_file", true);
         autoload(PACKAGE_EXT, "release-mutex", "Mutex", true);
@@ -513 +517 @@
         autoload(PACKAGE_EXT, "thread-lock", "ThreadLock", true);
         autoload(PACKAGE_EXT, "thread-unlock", "ThreadLock", true);
+        autoload(PACKAGE_EXT, "wait-open-gate", "Gate", true);
         autoload(PACKAGE_JAVA, "%jnew-proxy", "JProxy");
         autoload(PACKAGE_JAVA, "%find-java-class", "JavaClass");

trunk/abcl/src/org/armedbear/lisp/BuiltInClass.java

@@ -112 +112 @@
   public static final BuiltInClass METHOD_COMBINATION   = addClass(Symbol.METHOD_COMBINATION);
   public static final BuiltInClass MUTEX                = addClass(Symbol.MUTEX);
+  public static final BuiltInClass GATE                 = addClass(Symbol.GATE);
   public static final BuiltInClass NIL_VECTOR           = addClass(Symbol.NIL_VECTOR);
   public static final BuiltInClass NULL                 = addClass(Symbol.NULL);

trunk/abcl/src/org/armedbear/lisp/Symbol.java

@@ -2844 +2844 @@
   public static final Symbol MUTEX =
     PACKAGE_EXT.addExternalSymbol("MUTEX");
+  public static final Symbol GATE =
+    PACKAGE_EXT.addExternalSymbol("GATE");
   public static final Symbol THREAD =
     PACKAGE_EXT.addExternalSymbol("THREAD");