/*========================================================================
??PISA??（www.tik.ee.ethz.ch/pisa/）
??========================================================================
??Computer?Engineering?（TIK）
??ETH?Zurich
??========================================================================
??SPEA2?-?Strength?Pareto?EA?2

??Implementation?in?C?for?the?selector?side.
??
??Implements?Petri?net.
??
??file:?spea2.c
??author:?Marco?Laumanns?laumanns@tik.ee.ethz.ch

??revision?by:?Stefan?Bleuler?bleuler@tik.ee.ethz.ch
??last?change:?$date$
??========================================================================
*/

/*?CAUTION:??is?not?standard?C
???It?is?used?only?for?sleep（）?and?usleep（）?in?wait（）.
???In?Windows?use?Sleep（）?in??or?implement?busy?waiting.
*/

#include?
#include?
#include?
#include?

#include?“spea2.h“

#ifdef?PISA_UNIX
#include?
#endif

#ifdef?PISA_WIN
#include?
#endif

/*------------------------------|?main（）?|-------------------------------*/

int?main（int?argc?char*?argv[]）
{
?????/*?command?line?parameters?*/
?????char?paramfile[FILE_NAME_LENGTH];?????/*?file?with?local?parameters?*/
?????char?filenamebase[FILE_NAME_LENGTH];??/*?filename?base
??????????????????????????????????????????????e.g.?“dir/test.“?*/
?????double?poll?=?1.0;????????????????????/*?polling?interval?in?seconds?*/

?????/*?other?variables?*/
?????int?state?=?-1;
?????char?statefile[FILE_NAME_LENGTH];
?????int?result;
?????
?????/*?reading?command?line?parameters?*/
?????if?（argc?!=?4）
??????????PISA_ERROR（“Selector:?wrong?number?of?arguments“）;
?????sscanf（argv[1]?“%s“?paramfile）;
?????sscanf（argv[2]?“%s“?filenamebase）;
?????sscanf（argv[3]?“%lf“?&poll）;

?????/*?generate?name?of?statefile?*/
?????sprintf（statefile?“%ssta“?filenamebase）;

?????/*?main?loop?*/
?????while?（state?!=?6）?/*?stop?state?for?selector?*/
????????????????????????/*?Caution:?if?reading?of?the?statefile?fails
???????????????????????????（e.g.?no?permission）?this?is?an?infinite?loop?*/
?????{
??????????state?=?read_flag（statefile）;
??????????
??????????if?（state?==?1）?/*?inital?selection?*/
??????????{
???????????????initialize（paramfile?filenamebase）;
???????????????result?=?read_ini（）;???/*?read?ini?file?*/
???????????????if?（result?==?0）???????/*?reading?ini?file?successful?*/
???????????????{
????????????????????select_initial（）;?/*?do?selection?*/
????????????????????write_arc（）;??????/*?write?arc?file?（all?individuals
?????????????????????????????????????????that?could?ever?be?used?again）?*/
????????????????????write_sel（）;??????/*?write?sel?file?*/
????????????????????state?=?2;
????????????????????write_flag（statefile?state）;
???????????????}?/*?else?don‘t?do?anything?and?wait?again?*/
??????????}
??????????
??????????else?if?（state?==?3）?/*?selection?*/
??????????{
???????????????if（check_arc（）?==?0?&&?check_sel（）?==?0）
???????????????{
????????????????????result?=?read_var（）;??/*?