/** Simulation.java, Timm Grams, Fulda, 01.03.00

(Turbo Pascal-Urversion EventSim: 24.8.90)
Die Simulation-Klasse ist Kern der ereignisorientierten Simulation im
Package EventSim. Die eigentliche Simulation ist Nachfolger der
Simulation-Klasse. Durch Aufruf der Ablaufmethode run wird die Simulation
gestartet. Die aktuelle Simulationszeit wird von der Methode Time geliefert.

Die Ablaufmethode Simulation.run ruft nacheinander die Prozesse auf, und
startet dann deren virtuelle Prozedur run. Simulation.run endet, wenn die
Ereignisfolge (sequence) leer ist. Die Prozedur stop beendet die Simulation
indem sie sequence leert.

Fehlermeldungen werden mit Hilfe der Prozedurvariablen error realisiert.
Diese wird mit einer Ausgabeprozedur vorbelegt, die im Textmodus ausgibt. Bei
Verwendung eines Dialog-Schnittstellensystems ist die Prozedurvariable passend
neu zu belegen.*/

package EventSim;
import SingleLink.*;

public class Simulation {
    static NamedLink sequence=new NamedLink();
    static double SimTime=0;
    public static double time(){return SimTime;}
    public static void run() {
        while (!sequence.empty()){
            process p=(process)sequence.out();
            SimTime=p.ti;
            p.run();
        }
    }
    public static void stop() {sequence.clear();}
}