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

Files @ ef37386d0c6f

Branch filter:

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

ef37386d0c6f 418 B text/plain Show Annotation Show as Raw Download as Raw

Put expression types of procedures in type table

Before we annotated the AST. But that is silly in hindsight:
certain operations have a completely different meaning when applied
in a polymorphic context (i.e. the field index determined by a
select expression).

#version 100

import std.reo;
import std.buf;

primitive main(in a, out b) {
    while (true) {
        synchronous {
            if (fires(a) && fires(b)) {
                msg x = get(a);
                short y = readShort(x, 0);
                y++;
                writeShort(x, 0, y);
                put(b, x);
            } else {
                assert !fires(a) && !fires(b);
            }
        }
    }
}