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

  #include <string.h>

  #define MAX_LETTRES 30

  
  
  typedef struct node {

    char l;

    struct node * lettres[27];
    bool fin_de_mot;
    int dernier;
  } Node;
  

  bool is_empty(struct node *tree)
  {
  	return tree==NULL;
  }
  
  bool is_leaf(struct node *tree)
  {
    int cpt;
    int i=0;
    if (is_empty(tree)) return 1;
    while (tree->lettres[i] != NULL){
       cpt++;
       i++;
    }
    if (cpt !=0) cpt=1;
    return(!is_empty(tree) && !cpt);
  }
  

  void ajout(Node **N, char mot)

  {

    Node *nouveau = malloc(sizeof(struct node));
    (*nouveau).l=mot;
    for (int i=0; i<27; i++) nouveau->lettres[i]=NULL;

    *N = nouveau;
  }
  
  

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

  {

    int i = 0;
    while (mot[cpt] != '\0'){

      if ((*pn)==NULL){
        ajout(pn,mot[cpt]);
        return;
      }

      while ((*pn)->lettres[i] != NULL){
        if (strcmp(&(*pn)->l,mot) != 0){
  	i++;
        }
         *pn=(*pn)->lettres[i];
         return ajout_alphab(pn,mot,cpt++);

      }

      (*pn)->dernier++;

      ajout(&(*pn)->lettres[i],mot[cpt]);
      *pn=(*pn)->lettres[i];
      cpt++;
    }

    (*pn)->fin_de_mot=1;

  }
  
  

  Node * charger_arbre(Node ** Arbre){
    FILE * dico;

    char mot[MAX_LETTRES];

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

    while (fscanf(dico,"%s",mot) == 1){

      ajout_alphab(Arbre,mot,0);

    }

    fclose(dico);
    return *Arbre;

  }
  

  void affichage_arbre(Node * Arbre)
  {
    if (is_empty(Arbre)) return;
    if (Arbre->lettres[0]== NULL) return;
    for (int i=0; i<Arbre->dernier; i++){
      printf("%c -> %c",Arbre->l,Arbre->lettres[i]->l);
      affichage_arbre(Arbre->lettres[i]);
      if (Arbre->fin_de_mot) printf("fin de mot");
    }
    
  }
  
  
  void detruire_arbre(Node ** Arbre)
  {
    for (int i=0; i<(*Arbre)->dernier ; i++){
      if (*Arbre!=NULL)  detruire_arbre(&(*Arbre)->lettres[i]);
    }
    free(*Arbre);
  }
  
  void initialisation(Node ** Arbre){
     Node *nouveau = malloc(sizeof(struct node));
    (*nouveau).l='?';
    for (int i=0; i<27; i++) nouveau->lettres[i]=NULL;
    nouveau->dernier=0;
    *Arbre = nouveau;
  }

  
  int main(){

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

    return 0;
  }