#include <SoftwareSerial.h>

//Déclaration des trois liaisons série soft de la brique esclave. La quatrième liaison est la liaison hard
SoftwareSerial soft1(A3,A2);
SoftwareSerial soft2(6,5);
SoftwareSerial soft3(9,10);

//Déclaration des pins pour handshake des quatre liaisons
const int in1 = A5;
const int out1 = A4;

const int in2 = 8;
const int out2 = 7;

const int in3 = 11;
const int out3 = 12;

const int in4 = 2;
const int out4 = 3;

//Indique si un premier message a été reçu ou non
int prem = 0;

//Indique sur quelle liaison se trouve la brique maitre
int papa = 0;

//Potentiomètre, pour une potentielle utilisation future
int potar = A0;

//Id et type de la brique. A modifier si l'on veut changer l'un ou l'autre.
char id = 0b00110001;
  
void setup()
{
  //Initialiser les quatres liaisons série, les pins du handshake en input/output, et mettre les valeurs par défaut sur les out.
  Serial.begin(9600);
  soft1.begin(9600);
  soft2.begin(9600);
  soft3.begin(9600);

  pinMode(in1,INPUT);
  pinMode(out1,OUTPUT);
  pinMode(in2,INPUT);
  pinMode(out2,OUTPUT);
  pinMode(in3,INPUT);
  pinMode(out3,OUTPUT);
  pinMode(in4,INPUT);
  pinMode(out4,OUTPUT);
  
  digitalWrite(out1,LOW);
  digitalWrite(out2,LOW);
  digitalWrite(out3,LOW);
  digitalWrite(out4,LOW);   
}

void loop()
{
  //Message qui sera envoyé par la brique
  String msg="";

  //Variable stockant chaque octet reçu
  char inByte='a';

  //Pour les délais
  int tps;
  int timeout;

  //Indique par quel port série le message a été reçu
  int fin1=0,fin2=0,fin3=0,fin4=0;


  //Lecture du pin handshake à high sur un des quatres port, ce qui veut dire qu'une demande de communication est envoyée.
  //Chacune des quatre sections qui suivent sont presque entièrement identiques, la seule variation est le port lu.
  if(digitalRead(in1)==HIGH){

    //Protocole d'écoute sur une liaison série
    digitalWrite(out1,HIGH);
    soft1.listen();
    timeout=0;
    tps=millis();
    while(soft1.available()<=0 && timeout<1000){
      timeout= millis() - tps;
      }
    if(timeout<1000){
    fin1=1;
    while(inByte != '\n'){
      inByte = soft1.read();
      if(inByte !='\n'){
        msg += inByte;
        delay(10);
      }
      }

      //Si c'est le premier message reçu, on attribue au port correspondant le statut de père, c'est dans cette direction qu'est la brique maitre.
      if(prem==0){
        prem=1;
        papa=1;
        msg += id;
        if((id & 0xF0) ==0x60) msg += '{'; //char pour 123   //0x60 correspond à une brique if, insèrer ici le code pour lire un potentiomètre (valeur à comparer)
        else if((id & 0xF0) ==0x40) msg += 0b00000100;  //0x40 correspond à une brique début while, insèrer ici le code pour lire un potentiomètre (nombre de boucles à exécuter)
        msg += '\n';
      }
     else msg+= '\n';
    }
      digitalWrite(out1, LOW);
      delay(50);
  }

  //Voir ci-dessus pour les détails
  else if(digitalRead(in2)==HIGH){
    digitalWrite(out2,HIGH);
    soft2.listen();
    timeout=0;
    tps=millis();
    while(soft2.available()<=0 && timeout<1000){
      timeout= millis() - tps;
      }
    if(timeout<1000){  
    fin2=1;
    while(inByte != '\n'){
      inByte = soft2.read();
       if(inByte !='\n'){
        msg += inByte;
        delay(10);
      }
      }
      if(prem==0){
        prem=1;
        papa=2;
        msg += id;
        if((id & 0xF0) ==0x60) msg += '{'; //char pour 123
        else if((id & 0xF0) ==0x40) msg += 0b00000100;
        msg += '\n';
      }
      else msg+= '\n';
    }
      digitalWrite(out2, LOW);
      delay(50);
  }


//Voir ci-dessus pour les détails
else if(digitalRead(in3)==HIGH){
    digitalWrite(out3,HIGH);
    soft3.listen();
    timeout=0;
    tps=millis();
    while(soft3.available()<=0 && timeout<1000){
      timeout= millis() - tps;
      }
    if(timeout<1000){  
    fin3=1;
    while(inByte != '\n'){
      inByte = soft3.read();
       if(inByte !='\n'){
        msg += inByte;
        delay(10);
      }
      }
      if(prem==0){
        prem=1;
        papa=3;
        msg += id;
        if((id & 0xF0) ==0x60) msg += '{'; //char pour 123
        else if((id & 0xF0) ==0x40) msg += 0b00000100;
        msg += '\n';
      }
      else msg+= '\n';
    }
      digitalWrite(out3, LOW);
      delay(50);
  }

//Voir ci-dessus pour les détails
  else if(digitalRead(in4)==HIGH){
    digitalWrite(out4,HIGH);
    timeout=0;
    tps=millis();
    while(Serial.available()<=0 && timeout<1000){
      timeout= millis() - tps;
      }
    if(timeout<1000){  
    fin4=1;
    while(inByte != '\n'){
      inByte = Serial.read();
       if(inByte !='\n'){
        msg += inByte;
        delay(10);
      }
    }
      if(prem==0){
        prem=1;
        papa=4;
        msg += id;
        if((id & 0xF0) ==0x60) msg += '{'; //char pour 123
        else if((id & 0xF0) ==0x40) msg += 0b00000100;
        msg += '\n';
      }
      else msg+= '\n';
    }
      digitalWrite(out4, LOW);
      delay(50);
  }


    //Si on a reçu un message sur un port, on le renvoie sur tous.
    //Comme ci-dessus, les quatres sections suivantes sont identiques.
  if(fin1==1 || fin2==1 || fin3==1 || fin4==1){

    //Si le père est dans cette direction, ou si le message ne provient pas de cette direction, on y envoie la chaine
    if((fin1==1 && papa == 1) || (fin1 == 0)){
    //Début du protocole d'envoi
    timeout=0;
    tps = millis();
    while(timeout<1000){
      digitalWrite(out1,HIGH);
      timeout= millis() - tps;
      if(fin1==1) timeout=0;
      if(digitalRead(in1)==HIGH){
        soft1.print(msg);
        soft1.flush();
        timeout = 1001;
      }
    }
    digitalWrite(out1,LOW);
    //Fin de l'envoi série
    }

  //Identique à celui-ci dessus
   if((fin2==1 && papa == 2) || (fin2 == 0)){
    timeout=0;
    tps = millis();
    while(timeout<1000){
      digitalWrite(out2,HIGH);
      timeout= millis() - tps;
      if(fin2==1) timeout=0;
      if(digitalRead(in2)==HIGH){
        soft2.print(msg);
        soft2.flush();
        digitalWrite(out2,LOW);
        timeout = 1001;
      }
    }
    digitalWrite(out2,LOW);
    }
    
  //Identique à celui-ci dessus
    if((fin3==1 && papa == 3) || (fin3 == 0)){
    timeout=0;
    tps = millis();
    while(timeout<1000){
      digitalWrite(out3,HIGH);
      timeout= millis() - tps;
      if(fin3==1) timeout=0;
      if(digitalRead(in3)==HIGH){
        soft3.print(msg);
        soft3.flush();
        digitalWrite(out3,LOW);
        timeout = 1001;
      }
    }
    digitalWrite(out3,LOW);
    }
    
  //Identique à celui-ci dessus
    if((fin4==1 && papa == 4) || (fin4 == 0)){
    timeout=0;
    tps = millis();
    while(timeout<1000){
      digitalWrite(out4,HIGH);
      timeout= millis() - tps;
      if(fin4==1) timeout=0;
      if(digitalRead(in4)==HIGH){
        Serial.print(msg);
        Serial.flush();
        digitalWrite(out4,LOW);
        timeout = 1001;
      }
    }
    digitalWrite(out4,LOW);
    }
  }
}