From 84adefa331c4159d432d22840663c38f155cd4c1 Mon Sep 17 00:00:00 2001
From: Erlang/OTP <otp@erlang.org>
Date: Fri, 20 Nov 2009 14:54:40 +0000
Subject: The R13B03 release.

---
 .../com/ericsson/otp/erlang/GenericQueue.java      | 186 +++++++++++++++++++++
 1 file changed, 186 insertions(+)
 create mode 100644 lib/jinterface/java_src/com/ericsson/otp/erlang/GenericQueue.java

(limited to 'lib/jinterface/java_src/com/ericsson/otp/erlang/GenericQueue.java')

diff --git a/lib/jinterface/java_src/com/ericsson/otp/erlang/GenericQueue.java b/lib/jinterface/java_src/com/ericsson/otp/erlang/GenericQueue.java
new file mode 100644
index 0000000000..80bb02f16c
--- /dev/null
+++ b/lib/jinterface/java_src/com/ericsson/otp/erlang/GenericQueue.java
@@ -0,0 +1,186 @@
+/* 
+ * %CopyrightBegin%
+ * 
+ * Copyright Ericsson AB 2000-2009. All Rights Reserved.
+ * 
+ * The contents of this file are subject to the Erlang Public License,
+ * Version 1.1, (the "License"); you may not use this file except in
+ * compliance with the License. You should have received a copy of the
+ * Erlang Public License along with this software. If not, it can be
+ * retrieved online at http://www.erlang.org/.
+ * 
+ * Software distributed under the License is distributed on an "AS IS"
+ * basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See
+ * the License for the specific language governing rights and limitations
+ * under the License.
+ * 
+ * %CopyrightEnd%
+ */
+package com.ericsson.otp.erlang;
+
+/**
+ * This class implements a generic FIFO queue. There is no upper bound on the
+ * length of the queue, items are linked.
+ */
+
+public class GenericQueue {
+    private static final int open = 0;
+    private static final int closing = 1;
+    private static final int closed = 2;
+
+    private int status;
+    private Bucket head;
+    private Bucket tail;
+    private int count;
+
+    private void init() {
+	head = null;
+	tail = null;
+	count = 0;
+    }
+
+    /** Create an empty queue */
+    public GenericQueue() {
+	init();
+	status = open;
+    }
+
+    /** Clear a queue */
+    public void flush() {
+	init();
+    }
+
+    public void close() {
+	status = closing;
+    }
+
+    /**
+     * Add an object to the tail of the queue.
+     * 
+     * @param o
+     *                Object to insert in the queue
+     */
+    public synchronized void put(final Object o) {
+	final Bucket b = new Bucket(o);
+
+	if (tail != null) {
+	    tail.setNext(b);
+	    tail = b;
+	} else {
+	    // queue was empty but has one element now
+	    head = tail = b;
+	}
+	count++;
+
+	// notify any waiting tasks
+	notify();
+    }
+
+    /**
+     * Retrieve an object from the head of the queue, or block until one
+     * arrives.
+     * 
+     * @return The object at the head of the queue.
+     */
+    public synchronized Object get() {
+	Object o = null;
+
+	while ((o = tryGet()) == null) {
+	    try {
+		this.wait();
+	    } catch (final InterruptedException e) {
+	    }
+	}
+	return o;
+    }
+
+    /**
+     * Retrieve an object from the head of the queue, blocking until one arrives
+     * or until timeout occurs.
+     * 
+     * @param timeout
+     *                Maximum time to block on queue, in ms. Use 0 to poll the
+     *                queue.
+     * 
+     * @exception InterruptedException
+     *                    if the operation times out.
+     * 
+     * @return The object at the head of the queue, or null if none arrived in
+     *         time.
+     */
+    public synchronized Object get(final long timeout)
+	    throws InterruptedException {
+	if (status == closed) {
+	    return null;
+	}
+
+	long currentTime = System.currentTimeMillis();
+	final long stopTime = currentTime + timeout;
+	Object o = null;
+
+	while (true) {
+	    if ((o = tryGet()) != null) {
+		return o;
+	    }
+
+	    currentTime = System.currentTimeMillis();
+	    if (stopTime <= currentTime) {
+		throw new InterruptedException("Get operation timed out");
+	    }
+
+	    try {
+		this.wait(stopTime - currentTime);
+	    } catch (final InterruptedException e) {
+		// ignore, but really should retry operation instead
+	    }
+	}
+    }
+
+    // attempt to retrieve message from queue head
+    public Object tryGet() {
+	Object o = null;
+
+	if (head != null) {
+	    o = head.getContents();
+	    head = head.getNext();
+	    count--;
+
+	    if (head == null) {
+		tail = null;
+		count = 0;
+	    }
+	}
+
+	return o;
+    }
+
+    public synchronized int getCount() {
+	return count;
+    }
+
+    /*
+     * The Bucket class. The queue is implemented as a linked list of Buckets.
+     * The container holds the queued object and a reference to the next Bucket.
+     */
+    class Bucket {
+	private Bucket next;
+	private final Object contents;
+
+	public Bucket(final Object o) {
+	    next = null;
+	    contents = o;
+	}
+
+	public void setNext(final Bucket newNext) {
+	    next = newNext;
+	}
+
+	public Bucket getNext() {
+	    return next;
+	}
+
+	public Object getContents() {
+	    return contents;
+	}
+    }
+}
-- 
cgit v1.2.3