#include <stdio.h>
  #include <stdlib.h>
  #include <stdbool.h>

  #include <string.h>

  #define MAX_LETTRES 30

  #define size 255

  
  
  typedef struct node {

    char l;

    struct node * lettres[size];

    bool fin_de_mot;

  } Node;
  

  bool is_empty(struct node *tree)
  {
  	return tree==NULL;
  }
  

  bool is_leaf(struct node *tree)
  {

      int cpt=1;
      if (is_empty(tree)) return 1;
      for (int i=0; i<size ; i++){
          if ( tree->lettres[i] == NULL){
              cpt++;
          }
      }
      if (cpt == size) cpt=1;
      if (cpt != size) cpt=0;
      return cpt ;

  }
  

  
  
  
  
  void ajout(Node **N, char lettre)

  {

      Node *nouveau = malloc(sizeof(Node));
      (*nouveau).l=lettre;
      (*nouveau).fin_de_mot=0;
      for (int i=0; i<size; i++) nouveau->lettres[i]=NULL;
      *N = nouveau;

  }
  
  

  
  
  
  
  void ajout_alphab(Node ** pn, char *  mot,int cpt)

  {

      Node * tmp= *pn;

      char lettre=mot[cpt];

      int pos;

      pos=lettre;

      if (lettre>='A' && lettre <= 'Z') pos =lettre -'A'+'a';
      if (lettre == '\0' || pos == 44 || pos == 46){

          (*tmp).fin_de_mot=1;
          return;

      }

      if (tmp->lettres[pos] == NULL) {

          ajout(&tmp->lettres[pos],lettre);

      }

      cpt++;

      return ajout_alphab(&tmp->lettres[pos],mot,cpt);
      
      

  }
  
  

  Node * charger_arbre(Node ** Arbre){

      FILE * dico;
      char mot[MAX_LETTRES];

      dico = fopen("words.txt","r");

      int i;
      while ((i = fscanf(dico,"%s",mot)) == 1){
          ajout_alphab(Arbre,mot,0);
      }
      fclose(dico);
      return *Arbre;

  }
  

  void affichage_arbre(Node * Arbre)
  {

      if (is_empty(Arbre)){

          printf("arbre vide \n");
          return;
      }
      for (int i=0; i<size; i++){
          if (Arbre->lettres[i] != NULL){
              printf("%c -> %c \n",Arbre->l,Arbre->lettres[i]->l);
              affichage_arbre(Arbre->lettres[i]);
          }
      }
      if (Arbre->fin_de_mot) printf("fin de mot \n");

  }
  
  

  void detruire_arbre(Node ** Arbre)
  {

      if (is_empty(*Arbre)) return;

      for (int i=0; i<size; i++){
          detruire_arbre(&(*Arbre)->lettres[i]);
      }
      free(*Arbre);

      *Arbre=NULL;

  }
  

  void initialisation(Node ** Arbre){

      Node *nouveau = malloc(sizeof(struct node));
      (*nouveau).l='?';

      (*nouveau).fin_de_mot=0;

      for (int i=0; i<size; i++) nouveau->lettres[i] = NULL;

      *Arbre = nouveau;}
  
  
  
  
  
  

  int  comparaison(Node ** pn, char *  mot,int cpt,int * erreur)

  {
      char lettre=mot[cpt];

      int pos = lettre ;

      if (lettre>='A' && lettre <= 'Z') pos =lettre -'A'+'a';

      cpt++;

      if (lettre == '\0' || pos == 44 || pos == 46){

        if((*pn)->fin_de_mot==0){

            (*erreur)++;

        }
        

        return (*erreur);

      }

      if (lettre == '?' || lettre == '!' || lettre == ':' || lettre == ';') return 0;

      if ((*pn)->lettres[pos] == NULL) {

          (*erreur)++;
        return (*erreur);

      }

      return comparaison(&(*pn)->lettres[pos],mot,cpt,erreur);

      
      
  }
  

  void test_erreur(Node * Dico){

    FILE * texte;

      int * erreur=malloc(sizeof(int));
      (*erreur)=0;

    char mot[MAX_LETTRES];

    texte = fopen("test.txt","r");

    int i;
    while ((i = fscanf(texte,"%s",mot)) == 1){

      (*erreur)=comparaison(&Dico,mot,0,erreur);

    }

      if ((*erreur)==0 || (*erreur)==1 ) printf("%d erreur",(*erreur));
      else printf("%d erreurs",(*erreur));

    fclose(texte);

  }

  int main(){

      Node * Arbre;
      initialisation(&Arbre);
      charger_arbre(&Arbre);

      //affichage_arbre(Arbre);

      printf("Arbre fini \n");

      test_erreur(Arbre);

      detruire_arbre(&Arbre);

      //affichage_arbre(Arbre);
  

      return 0;

  }