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

Files @ 36cc1fe490f7

Branch filter:

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

36cc1fe490f7 648 B text/plain Show Annotation Show as Raw Download as Raw

Merge branch 'feat-api-cmds-and-branching'

Implements the programmer-facing API to allow programmatic
specification of a synchronous round. The way in which these put/get
interactions are performed is in an initial shape. Perhaps this will
change in the future.

The second main set of changes is the addion of a 'fork' statement,
which allows explicit forking, and allowing multiple puts/gets over the
same transport link within a single sync round.

#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) {
		sync {
			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) {
		sync {
			int i = 0;
			while (i < a.length)
				if (fires(a[i++])) break;
			while (i < a.length)
				assert !fires(a[i++]);
		}
	}
}