/**
 * An actor that outputs one of a number of incoming tokens depending on the last
 * selection token it has seen.
 *
 * @author JWJ
 */



actor Select [T] (Integer initialChannel = 0) 
    Integer Control, multi T Data ==> T Output :

    Integer lastChannel := initialChannel;

    action [i], [a] at i ==> [a] 
    do
        lastChannel := i;
    end

    action [], [a] at lastChannel ==> [a] end
end