/* initial.scs : initialization coordination. */

/* Procedure to write header to the specified file/dev. */
initrepheader (rep)
    FILE *rep;
{
    fprintf (rep, "********************************************\n");
    fprintf (rep, "       A Simple Classifier System - SCS     \n");
    fprintf (rep, "         (C) David E. Goldberg,  1987       \n");
    fprintf (rep, "           Translated into C by AFA         \n");
    fprintf (rep, "             All rights reserved.           \n");
    fprintf (rep, "********************************************\n");
    fprintf (rep, "\n\n");
}

/* Procedure to clear screen and print interactive header. */
interactiveheader()
{
    system ("clear");
    initrepheader (stdout);
}

/* Procedure to coordinate input and initialization. */
initialization()
{
    interactiveheader();
    /* Random number and normal init. */
    randomize();
    initrandomnormaldeviate();
    /* file/device init. */
    open_input (&trfile, interactive, " training file ", fn); 
    open_input (&cfile, interactive, "   classifier  ", fn);
    open_input (&efile, interactive, "  environment  ", fn);
    open_input (&rfile, batch, " reinforcement ", "reinf.dta");
    open_input (&tfile, batch, "  timekeeper   ", "time.dta");
    open_input (&gfile, batch, "gen. algorithm ", "ga.dta");
    open_output (&rep,   batch, "     report    ", "report");
    open_output (&pfile1, batch, "   plot file   ", "plotter1");
    open_output (&pfile2, batch, "   plot file   ", "plotter2");

    /* Segment initialization : class., obj., det., aoc., reinf., timekeep., ga. */
    initrepheader (rep);
    initclassifiers (cfile, &population);
    initrepclassifiers (rep, &population);
    initenvironment (efile, &environrec);
    initrepenvironment (rep, &environrec);
    initdetectors (efile, &detectrec);
    initrepdetectors (rep, &detectrec);
    initaoc (&clearingrec);
    initrepaoc (rep, &clearingrec);
    initreinforcement (rfile, &reinforcementrec);
    initrepreinforcement (rep, &reinforcementrec);
    inittimekeeper (tfile, &timekeeprec);
    initreptimekeeper (rep, &timekeeprec);
    initga (gfile, &garec, &population);
    initrepga (rep, &garec);
}