#include <systemc.h>

#include "config.h"
#include "cross.h"
#include "print.h"
#include "source.h"


/***
 * NOTE : Les paramètres se trouvent dans le fichier "config.h"
 ***/

/*
 * Cable un réseau omega
 * nw, nh : Largeur/Hauteur du réseau
 * dw, dh : Offset de décalage en largeur/hauteur
 * gw, gh : Taille du groupe désiré largeur/hauteur
 */
void cable_omega(cross *net[ETAGES][HEIGHT],
		 sc_buffer<sc_bv<BV_SIZE> > links[ETAGES][IO],
		 int nw, int nh,
		 int dw, int dh,
		 int gw, int gh)
{

  // Pour chaque etage
  for(int i=dw;i<dw+gw-1;i++)
    {
      printf("Colonne %d\n", i);

      // Pour chaque connexion
      for(int j=dh*2;j<(dh*2+gh*2);j++)
	{
	  int dest = ((j-dh*2)*2 + (j-dh*2)/gh) % (gh*2) + dh*2;

	  printf("connect ");

	  if ( j % 2 == 0 )
	    {
	      printf("%d(out_0) -> ", j);
	      net[i][j/2]->out_0(links[i][j]);
	    }
	  else
	    {
	      printf("%d(out_1) -> ", j);
	      net[i][j/2]->out_1(links[i][j]);
	    }

	  if ( dest % 2 == 0 )
	    {
	      printf("%d(in_0)\n", dest);
	      net[i+1][dest/2]->in_0(links[i][j]);
	    }
	  else
	    {
	      printf("%d(in_1)\n", dest);
	      net[i+1][dest/2]->in_1(links[i][j]);
	    }
	}
    }
}

/*
 * Cable un réseau de type Reverse Baseline
 */
void cable_revbase(cross *net[ETAGES][HEIGHT],
		   sc_buffer<sc_bv<BV_SIZE> > links[ETAGES][IO])
{
  for(int i=1;i<ETAGES;i++)
    {
      int grpcount = IO / HEIGHT / i;

      if ( grpcount == 0 )
	continue;

      int grpsize = IO / 2 / grpcount;
	  
      /* Cabler chaque sous-groupe */
      for(int j=0;j<IO/HEIGHT/i;j++)
	{
	  printf("Taille : %d, %d\n", grpsize, 2);
	  printf("Offset : %d, %d\n", j*grpsize, i-1);

	  cable_omega(net,
		      links,
		      ETAGES, HEIGHT,
		      i-1, j*grpsize,
		      2, grpsize);
	}
    }
}

int sc_main(int argc, char *argv[])
{

  srand(time(NULL));

  // Clock
  sc_clock clk("clock", 20, 0.5);

  // Cables pour les sources
  sc_buffer<sc_bv<BV_SIZE> > e[IO];

  // Cables pour les afficheurs
  sc_buffer<sc_bv<BV_SIZE> > s[IO];

  // Cables d'interlaison
  sc_buffer<sc_bv<BV_SIZE> > links[ETAGES][IO];
  
  // Création du réseau
  cross *net[ETAGES][HEIGHT];
  for(int i=0;i<ETAGES;i++)
    for(int j=0;j<HEIGHT;j++)
      {
	char name[10];
	snprintf(name, 10, "%d-%d", i, j);
	net[i][j] = new cross(name);
      }

  // cable l'entrée
  source *sources[IO];
  for(int i=0;i<IO;i++)
    {
      char name[10];
      snprintf(name, 10, "source%d", i);
      sources[i] = new source(name);

      printf("connect in %d\n", i);
      if ( i % 2 == 0 )
	net[0][i/2]->in_0(e[i]);
      else
	net[0][i/2]->in_1(e[i]);

      sources[i]->out(e[i]);
      sources[i]->clk(clk);
      sources[i]->data = random();
    }

  // cable le réseau
  cable_revbase(net, links);

  // cable sortie
  print *printers[IO];
  for(int i=0;i<IO;i++)
    {
      char name[10];
      snprintf(name, 10, "printer%d", i);
      printers[i] = new print(name);

      sc_buffer<sc_bv<BV_SIZE> > link;

      printf("connect out %d\n", i);
      if ( i % 2 == 0 )
	net[ETAGES-1][i/2]->out_0(s[i]);
      else
	net[ETAGES-1][i/2]->out_1(s[i]);

      printers[i]->in(s[i]);
    }
  
  sc_start(1000);

  // Libère les ressources
  for(int i=0;i<ETAGES;i++)
    for(int j=0;j<HEIGHT;j++)
      delete net[i][j];

  for(int i=0;i<IO;i++)
    {
      delete printers[i];
      delete sources[i];
    }

  return 0;
}