Mercurial > projects > dwt-mac

annotate dwt/internal/Lock.d @ 156:969e7de37c3d default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixes to get dwt to work with dmd and ldc
author Jacob Carlborg <doob@me.com>
date Wed, 08 Jul 2009 21:56:44 +0200
parents 6d9ec9ccdcdd
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
45
d8635bb48c7c Merge with SWT 3.5
Jacob Carlborg <doob@me.com>
parents: 0
diff changeset
1 /*******************************************************************************
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
2 * Copyright (c) 2000, 2005 IBM Corporation and others.
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
3 * All rights reserved. This program and the accompanying materials
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
4 * are made available under the terms of the Eclipse Public License v1.0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
5 * which accompanies this distribution, and is available at
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
6 * http://www.eclipse.org/legal/epl-v10.html
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
7 *
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
8 * Contributors:
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
9 * IBM Corporation - initial API and implementation
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
10 * Port to the D programming language:
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
11 * Frank Benoit <benoit@tionex.de>
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
12 *******************************************************************************/
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
13 module dwt.internal.Lock;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
14
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
15 import tango.core.Thread;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
16 import tango.core.sync.Mutex;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
17 import tango.core.sync.Condition;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
18
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
19 /**
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
20 * Instance of this represent a recursive monitor.
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
21 */
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
22 public class Lock {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
23 int count, waitCount;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
24 Thread owner;
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
25 Mutex mutex;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
26 Condition cond;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
27
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
28 public this() {
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
29 mutex = new Mutex;
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
30 cond = new Condition(mutex);
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
31 }
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
32 /**
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
33 * Locks the monitor and returns the lock count. If
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
34 * the lock is owned by another thread, wait until
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
35 * the lock is released.
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
36 *
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
37 * @return the lock count
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
38 */
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
39 public int lock() {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
40 synchronized (mutex) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
41 Thread current = Thread.getThis();
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
42 if (owner !is current) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
43 waitCount++;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
44 while (count > 0) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
45 try {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
46 cond.wait();
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
47 } catch (SyncException e) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
48 /* Wait forever, just like synchronized blocks */
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
49 }
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
50 }
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
51 --waitCount;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
52 owner = current;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
53 }
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
54 return ++count;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
55 }
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
56 }
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
57
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
58 /**
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
59 * Unlocks the monitor. If the current thread is not
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
60 * the monitor owner, do nothing.
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
61 */
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
62 public void unlock() {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
63 synchronized (mutex) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
64 Thread current = Thread.getThis();
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
65 if (owner is current) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
66 if (--count is 0) {
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
67 owner = null;
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
68 if (waitCount > 0) cond.notifyAll();
0
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
69 }
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
70 }
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
71 }
380af2bdd8e5 Upload of whole dwt tree
Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
parents:
diff changeset
72 }
58
6d9ec9ccdcdd Updated Accessible to 3.514
Jacob Carlborg <doob@me.com>
parents: 45
diff changeset
73 }