@use Control.
@use NetworkServer.
@use Data.

@define PORT_NUM 2323.
@define MASTERHOST "192.168.0.100".

Controller Test.

Control : Test {
	+ variables:
                isthumus (object).
		homeland (string).
		results (object).
		volley (int).
		stuff (list).
	+ to init:
                isthumus = new NetworkServer.
                isthumus listen on-port PORT_NUM.
                homeland = isthumus get-url.
		results = new Results.
		volley = 1.
		push volley onto stuff.
                results set-to fitness stuff.
	+ to iterate:
		if volley:{
                        push volley onto stuff.
			results set-to fitness stuff.
			self migrate.
		}			
        + to migrate:
		results send-over-network to MASTERHOST on PORT_NUM.
		volley = 0.
	+ to mig-to place there (string):
		results send-over-network to there on PORT_NUM.
	+ to accept-upload of-instance i (object) from-host h (string):
        	i save-as-xml file "/breveData/testupload$h.xml".
		results = i.
		volley = 1.
		print "upload from $h to $homeland".
}
Data : Results {
    + variables:
        fits (list).
    + to set-to fitness obj (list):
        fits = obj.
    + to get-fits:
        return fits.
}