Orphaned Response - (nf)

[kubitzsc@exunido.UUCP@ndmce.uucp]

Here are the changes I had to add to the simulation
methods shown in the 'Blue Book'. I added then on a PCS
Cadmus 9200. There occurred no further problems while
running the examples and implementing others.

!ProbabilityDistibution methodsFor: 'private'!

atEnd
^false! !

!Simulation methodsFor: 'initialization'!

activate
ProbabilityDistribution initialize.
SimulationObject activeSimulation: self.
Resource activeSimulation: self! !

!Simulation methosFor: 'scheduling'!

newProcessFor: aBlock
self startProcess.
[aBlock value.
self stopProcess]
forkAt: [Processor activePriority + 1]! !

!Simulation methodsFor: 'simulation control'!

proceed
|eventProcess|
[self readyToContinue] whileFalse: [Processsor yield].
eventQueue isEmpty
ifTrue: [^self finishUp]
ifFalse:[eventProcess _ eventQueue removeFirst.
currentTime _ eventProcess condition.
eventProcess resume]! !

!Simulation methodsFor: 'run a simulation'!

run
self startUp.
[eventQueue isEmpty] whileFalse: [self proceed]!

runUntil: aTime
self startUp.
[self time <= aTime and: [eventQueue isEmpty not]]
whileTrue: [self proceed]! !

After all you should not forget to close the files you opened for
gathering your statistics. Therefor you need the following method
at least in this class:

!EventMonitor class methodsFor: 'accessing'!

file
^file! !


If you don't close an open file, the last 512 bytes block will not
be written onto disk.

I hope you enjoy your simulation.

Peter Kubitzsch
Vogelpothsweg 92/2
4600 Dortmund 50
Germany