here - Stefan-Marr.de

6. Evaluation: The OMOP as a Unifying Substrate
1 ATActor = Domain (
2 | process mailbox terminate |
3
4 processIncomingMessages = unenforced (
5 | msg |
6 msg := mailbox next .
7 msg deliverPromise : msg send )
8
9 initialize = (
10 mailbox := SharedQueue new .
11 terminate := false .
12 process := self spawnHere : [
13 [ terminate ] whileFalse : [
14 self processIncomingMessages ]] )
15
16 sendAsAsyncMessage : aSelector to: anObj
17 with : anArgArray inLookupClass : cls = (
18 | msg |
19 msg := ATMessage new .
20 msg setSelector : aSelector arguments : anArgArray .
21 msg receiver : anObj lookupClass : cls .
22 mailbox nextPut : msg .
23 ^ msg promise )
24
25 requestExecOf : aSelector with : args
26 on: anObj lookup : cls = unenforced (
27 | msg |
28 self == Domain currentDomain ifTrue : [
29 ^ anObj performEnforced : aSelector
30 withArguments : args inSuperclass : cls ].
31
32 ^ self sendAsAsyncMessage : aSelector
33 to: anObj with : args inLookupClass : cls )
34
35 requestThreadResume : process = unenforced (
36 ThreadResumptionDenied signal ) )
Listing 6.7: Definition of the ATActor Domain for Event-Loop Actors
156