Active Objects: Ports

fun {NewPort Ms}

{NewCell Ms}

end

proc {Send Port M}

Ms Mr in

{Exchange Port Ms Mr}

Ms = M | Mr

end

declare MessageStream P in

P = {NewPort MessageStream}

{Send P push(1)}

{Send P pop(X)}

{Send P push(2)}

Previous slide

Next slide

Back to first slide

View graphic version