Add an NQPLock type.

To make locks and condition variables available a little more easily.

Author: jnthn

src/core/NQPLock.nqp

@@ -0,0 +1,30 @@
+#?if !parrot
+my class NQPLock is repr('ReentrantMutex') {
+    class ConditionVariable is repr('ConditionVariable') {
+        method new() {
+            nqp::die("Cannot directly create a ConditionVariable; use the 'condition' method on a lock");
+        }
+        method wait() { nqp::condwait(self) }
+        method signal() { nqp::condsignalone(self) }
+        method signal_all() { nqp::condsignalall(self) }
+    }
+
+    method new() { nqp::create(self) }
+
+    method lock() { nqp::lock(self) }
+
+    method unlock() { nqp::unlock(self) }
+
+    method protect($code) {
+        nqp::lock(self);
+        my $res := $code();
+        nqp::unlock(self);
+        CATCH { nqp::unlock(self); }
+        $res
+    }
+
+    method condition() {
+        nqp::getlockcondvar(self, ConditionVariable)
+    }
+}
+#?endif

tools/build/Makefile-common.in

@@ -18,6 +18,7 @@ CORE_SETTING_SOURCES = \
   src/core/IO.nqp \
   src/core/Regex.nqp \
   src/core/Hash.nqp \
+  src/core/NQPLock.nqp \
   src/core/testing.nqp \
   src/core/YOUAREHERE.nqp \