Marcus Daniels
Sep. 14, 2001

`Concurrent' isn't implemented, only Randomized.  No, don't bother
complaining: implement it or send money... :-)


import swarm.objectbase.SwarmImpl;
import swarm.objectbase.Swarm;
import swarm.activity.Schedule;
import swarm.activity.ScheduleImpl;
import swarm.activity.Activity;
import swarm.defobj.Zone;
import swarm.Selector;

import swarm.Globals;

public class TestRandomize extends SwarmImpl {
    Schedule schedule;

    TestRandomize (Zone aZone) {
        super (aZone);
    }
    
    public void bonk () {
        System.out.println ("bonk @ " + Globals.env.getCurrentTime ());
    }

    public void bap () {
        System.out.println ("bap @ " + Globals.env.getCurrentTime ());
    }

    public Object buildActions () {
        super.buildActions ();

        schedule = new ScheduleImpl (getZone (), false);
        schedule.setDefaultOrder (Globals.env.Randomized);

        try {
            Selector sel1 = new Selector (getClass (), "bonk", false);
            Selector sel2 = new Selector (getClass (), "bap", false);

            schedule.at$createActionTo$message (0, this, sel1);
            schedule.at$createActionTo$message (0, this, sel2);
        } catch (Exception e) {
            e.printStackTrace (System.err);
            System.exit (1);
        }

        return this;
    }

    public Activity activateIn (Swarm swarmContext) {
        super.activateIn (swarmContext);

        schedule.activateIn (this);
        return getActivity ();
    }
        

    static void main (String args[]) {
        Globals.env.initSwarm ("TestRandomize", "0.0", "bug-swarm@swarm.org",
                               args);

        TestRandomize testRandomize =
            new TestRandomize (Globals.env.globalZone);

        testRandomize.buildObjects ();
        testRandomize.buildActions ();
        testRandomize.activateIn (null).run ();
    }
}