X10

documents/Programmierparadigmen/scripts/x10/atomic-example.x10

@@ -0,0 +1,18 @@
+// push data on concurrent
+// list-stack
+val node = new Node(data); 
+
+atomic {
+    node.next = head;
+    head = node;
+}
+
+// target defined in
+// enclosing scope
+atomic def CAS(old:Object, n:Object) {
+    if (target.equals(old)) {
+        target = n;
+        return true;
+    }
+    return false;
+}