summaryrefslogtreecommitdiff
path: root/lib/Queue.ck
blob: f05ae5ed9f62671bfff6026fd36b80babd2c99f3 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
/*
 * Queue data structure
 */
public class Queue {
	class Element {
		Element @next;
		Object @payload;
	}
	Element head @=> Element @tail;

	fun void
	push(Object @data)
	{
		new Element @=> tail.next @=> tail;
		data @=> tail.payload;
	}

	fun Object @
	peek()
	{
		if (head.next == null)
			/* empty */
			return null;
		else
			return head.next.payload;
	}

	fun Object @
	pop()
	{
		head.next @=> Element @el;
		if (el == null)
			/* empty */
			return null;

		el.next @=> head.next;
		if (el == tail)
			/* but now it's empty! */
			head @=> tail;
		return el.payload;
	}

	fun void
	flush()
	{
		while (pop() != null);
	}
}