CSY/reowolf Files · testdata/parser/positive/13.pdl · Centrum Wiskunde & Informatica (CWI)

Files @ a3c92705eeee

Branch filter:

Location: CSY/reowolf/testdata/parser/positive/13.pdl

a3c92705eeee 662 B text/plain Show Annotation Show as Raw Download as Raw

Christopher Esterhuyse

bugfix: native component branch forks that clash are MERGED rather than overwritten. Avoids race condition where (1) branch x ends and submits a solution, (2) branch y is created, has same predicate as x and overwrites it, but has a subset of its messages, (3) round ends in success but branch x is gone, so no suitable native branch is found

#version 100

/*
Adaptation of 7.pdl
*/

composite main() {}

composite example(in[] a, in[] b, out x) {
	new async(a);
	new async(b);
	new resolve(a, b, x);
}

primitive resolve(in[] a, in[] b, out x) {
	while (true) {
		synchronous {
			int i = 0;
			while (i < a.length && i < b.length) {
				if (fires(a[i]) && fires(b[i])) {
					put(x, create(0)); // send token to x
					break;
				}
				i++;
			}
			if (i >= a.length || i >= b.length)
				assert !fires(x);
		}
	}
}

primitive async(in[] a) {
	while (true) {
		synchronous {
			int i = 0;
			while (i < a.length)
				if (fires(a[i++])) break;
			while (i < a.length)
				assert !fires(a[i++]);
		}
	}
}