summaryrefslogtreecommitdiff
path: root/tests/methods/closures.vala
blob: 00c3ce8087de29038fd57f0ece7fbc5381dfa733 (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
delegate int Func ();

class Foo : Object {
	public void bar (MainLoop loop) {
		Object o = new Object ();
		SourceFunc f = () => {
			o = null;
			loop.quit ();
			return false;
		};
		GLib.Idle.add ((owned) f);
	}
}

[CCode (has_target = false)]
delegate void NoTargetFunc ();

int A (int k, Func x1, Func x2, Func x3, Func x4, Func x5) {
	Func B = null;
	B = () => {
		k = k - 1;
		return A (k, B, x1, x2, x3, x4);
	};
	return k <= 0 ? x4 () + x5 () : B ();
}

void B ([CCode (array_length = false, array_null_terminated = true)] int[] array, NoTargetFunc func) {
	Func C = () => { array = null; func (); return 0; };
}

void main () {
	int result = A (10, () => 1, () => -1, () => -1, () => 1, () => 0);
	assert (result == -67);

	var foo = new Foo ();
	var loop = new MainLoop ();
	foo.bar (loop);
	loop.run ();
	assert (foo.ref_count == 1);
}