#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)
{
  while (mot[cpt] != '\0'){
    if ((*pn)==NULL){
      ajout(pn,mot[cpt]);
    }
    while ((*pn)->lettres[i] != NULL){
      if ((*pn)->l == '?'){
	*pn = (*pn)->lettres[0];
      }
      if ((*pn)->l != mot[cpt]){
	i++;
	return ajout_alphab(&(*pn)->lettres[i],mot,cpt,i);
      }
      cpt++;
      return ajout_alphab(&(*pn)->lettres[i],mot,cpt,i);
    }
    (*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];
  Node * debut = *Arbre;
  //dico = fopen("test.txt","r");
  /* while (fscanf(dico,"%s",mot) == 1){
    ajout_alphab(Arbre,mot,0,0);
    }*/
  ajout_alphab(Arbre,"camion",0,0);
  *Arbre = debut;
  ajout_alphab(Arbre,"casse",0,0);
  *Arbre = debut;
  //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;
}