Object <- Actor <- IRActor |
|
|
AcknowledgeMessage DestroyMessage Finalize GetMessage Init Main NewMessage SendMessage SendSynchronousMessage |
|
SyncSemaphore |
| Field | Type | |
|---|---|---|
| Actor: | status: | UnsignedShort |
| priority: | SignedShort | |
| waitingFor: | Semaphore | |
| state: | Pointer | |
| stackSegment: | Pointer | |
| stackSegmentSize: | Unsigned | |
| exceptionStack: | Pointer | |
| exceptionStackPointer: | Unsigned | |
| interruptCheck: | Function | |
| forUser: | Boolean | |
| exception: | Object | |
| exceptionReason: | Unsigned | |
| suspendLevel: | Unsigned | |
| dispatcherTimingBuffer: | Unsigned | |
| IRActor: | listenSap: | UnsignedByte |
| msgSemaphore: | Object | |
| syncSemaphore: | Object | |
| syncMsg: | Pointer | |
| mqHead: | Pointer | |
| mqTail: | Pointer |
instance IRActor tag;
status: 0;
priority: 0;
waitingFor: nilObject;
state: nil;
stackSegment: nil;
stackSegmentSize: 0;
exceptionStack: nil;
exceptionStackPointer: 0;
interruptCheck: nil;
forUser: false;
exception: nilObject;
exceptionReason: 0;
suspendLevel: 0;
dispatcherTimingBuffer: 0;
listenSap: 0;
msgSemaphore: nilObject;
syncSemaphore: nilObject;
syncMsg: nil;
mqHead: nil;
mqTail: nil;
end instance;
Define Class IRActor;
inherits from Actor;
overrides Init;
overrides Finalize;
overrides Main;
field listenSap: UnsignedByte;
field msgSemaphore: Object;
field syncSemaphore: Object, getter;
#ifdef DEBUG
field syncMsg: Pointer;
#endif
field mqHead: Pointer;
field mqTail: Pointer;
intrinsic NewMessage() : Pointer;
intrinsic DestroyMessage(msg: Pointer);
intrinsic SendMessage(msg: Pointer);
intrinsic SendSynchronousMessage(msg: Pointer);
intrinsic AcknowledgeMessage(msg: Pointer);
operation GetMessage() : Pointer;
attribute SyncSemaphore: Object, readOnly;
end class;