Active Objects: Servers

fun {MakeServer Object}

Stream

proc {Serve Ms}

case Ms of M|Mr

then {Object M} {Serve Mr}

end

end

in

thread {Serve Stream} end

{NewPort Stream}

end

declare StackServer in

StackServer = {MakeServer MyStack}

{Send StackServer push(1)}

{Send StackServer pop(X)}

{Send StackServer push(2)}

Previous slide

Next slide

Back to first slide

View graphic version