22 lines
446 B
Plaintext
22 lines
446 B
Plaintext
fun {NewActiveSync Class Init}
|
|
Obj = {New Class Init}
|
|
MsgPort
|
|
in
|
|
thread MsgStream in
|
|
{NewPort ?MsgStream ?MsgPort}
|
|
for Msg#Sync in MsgStream do
|
|
try
|
|
{Obj Msg}
|
|
Sync = unit
|
|
catch E then
|
|
Sync = {Value.failed E}
|
|
end
|
|
end
|
|
end
|
|
proc {$ Msg}
|
|
Sync = {Port.sendRecv MsgPort Msg}
|
|
in
|
|
{Wait Sync}
|
|
end
|
|
end
|