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

Files @ ef64fd0cdb07

Branch filter:

Location: CSY/reowolf/testdata/parser/negative/8.pdl

ef64fd0cdb07 260 B text/plain Show Annotation Show as Raw Download as Raw

Christopher Esterhuyse

correctly merging protocol component branches: forks that create existing predicates MERGE the results, combining their inboxes s.t. there is no race condition on the order of received messages

#version 100

import std.reo;

composite main(in a, out b) {
	channel c -> d;
	syncdrain(a, b);
}

// shadowing import
primitive syncdrain(in a, in b) {
	while (true) {
		synchronous {
			if (!fires(a) || !fires(b)) {
				block(a);
				block(b);
			}
		}
	}
}