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

  #include <stdbool.h>

  #include <string.h>

  
  
  typedef struct cell* ptarbre;
  typedef struct cell* ptcellule;
  
  typedef struct cell {

    char lettre;

    ptarbre fils; // Descend d'un étage dans le mot (lettre suivante du mot)

    ptcellule suivant; // Lettre suivante stockée à l'étage arbre en (ieme position)

    bool fin_mot;

  } cell;
  
  /* Pas utile 
  void init_dico()
  {
    ptarbre arbre;
    arbre=NULL;
  }
  */

  ptarbre rech(ptarbre arbre, char lettre)

  // recherche une lettre en ième position (correspondant à arbre)

  // Retourne l'adresse de l'arbre contenant la lettre à cette position

  {

    if (arbre!=NULL)

      {

        printf("arbre lettre %c \n", arbre->lettre);
        while ((arbre->suivant!=NULL) && (arbre->lettre != lettre))
  	{
  	  printf("lettre : %c lettre cherchee : %c adr arbre %p \n", arbre->lettre,lettre, arbre);
  	  arbre=(arbre->suivant);
  	}

      }
    return arbre;
  }

  void init_dico(ptarbre *parbre, char lettre)

  {

    (*parbre)=malloc(sizeof(cell));

    (*parbre)->fils=malloc(sizeof(cell));
    (*parbre)->fils->suivant=NULL;

    (*parbre)->suivant=NULL;

    (*parbre)->lettre=lettre;

    (*parbre)->fin_mot=false;

    printf("init dico\n");

  }
  

  void ajout_dico(ptarbre *parbre, ptarbre *parbresuiv, char lettre)

  {

    *parbresuiv=malloc(sizeof(cell));
    (*parbre)->suivant=*parbresuiv; // On relie la nouvelle lettre à l'avant dernière lettre

    (*parbresuiv)->fils=malloc(sizeof(cell));
    (*parbresuiv)->fils->suivant=NULL;

    (*parbresuiv)->suivant=NULL;

    (*parbresuiv)->fin_mot=false;

    (*parbresuiv)->lettre=lettre;

    printf("ajout lettre : %c à %p \n",(*parbresuiv)->lettre, parbresuiv);

  }
  

  void affiche_dico(ptarbre arbre, int n_lettre, char mot[])

  // affiche tout le dictionnaire à partir de l'arbre (donc le numéro de lettre) sélectionné
  {

    if(arbre == NULL)
      {
      return;
      }
    else
      {

        if (arbre->fils != NULL)

  	{

  	  printf("%c",arbre->lettre);
  	  mot[n_lettre]=arbre->lettre;
  	  n_lettre++;
  	  affiche_dico(arbre->fils,n_lettre,mot);

  	}

        printf("\n");
        if (arbre->suivant != NULL)
  	{
  	   printf("%s",mot);
  	  affiche_dico(arbre->suivant, n_lettre, mot);
  	}
        mot[n_lettre]=0;
        n_lettre--;
  	  
      }	

  }

  
  void free_tree(cell **ptr_tree)
  {
  	 if ((*ptr_tree)==NULL)
      printf("L'arbre est vide\n"); 
    else
      {
        if ((*ptr_tree)->fils!=NULL)
  	free_tree(&((*ptr_tree)->fils));
        if ((*ptr_tree)->suivant!=NULL)
  	free_tree(&(*ptr_tree)->suivant);
  	 free(*ptr_tree);
      }
  }
  

  
  int main()
  {

    ptarbre arbre_originel,arbre,arbre_prec;

    arbre_originel=NULL;

    arbre=NULL;

    char c,t, mot[30];
    int n_lettre=0;

    ptarbre rec;

    // Ouvrir fichier
    FILE *fp = fopen("words1.txt","r");
    if (fp==NULL)
      printf("words1 inaccessible \n",fp);
    else
      printf("words1 accessible \n",fp);
  
    while (fscanf(fp,"%c",&c)!= EOF) // lecture de tout le fichier
      {

        if (c != '\n')
  	{

  	  if (arbre_originel==NULL) // Cas où c'est le premier mot

  	    {

  	      printf("arbre =NULL \n");
  	      init_dico(&arbre_originel,c);

  	      printf("lettre arbre :%c \n",arbre_originel->lettre);
  	      arbre_prec=arbre_originel;
  	      arbre=arbre_originel->fils;

  	      }

  	  else // Cas où le dico n'est pas vide

  	    {

  	       printf("lettre arbre :%c \n",arbre->lettre);

  	      printf(" c: %c\n", c);
  	      rec=rech(arbre,c);

  		      
  	      if (rec->suivant==NULL && rec->lettre!=c)

  		{

  		 
  		  printf("rech suiv  = NUll \n");

  		  ajout_dico(&(arbre),&(rec->suivant),c);

  		  // printf("ajout de : %c à %p et fils :%p\n", rec->lettre, rec, rec->fils);
  		  arbre_prec=arbre;

  		  arbre=rec->suivant->fils;

  		}
  	
  	  
  	      else
  		{// Cas où le début du mot existe déjà et qu'on le complète

  		  printf("rech suiv pas null rec lettre %c\n", rec->lettre);
  		  arbre_prec=arbre;
  		  arbre=rec->fils; // On va à l'étage d'après pour former le mot dans l'arbre
  		  //

  		}

  	    }

  	}

        else {

  	printf("else\n");
  	if (arbre_originel!=NULL)
  	  {
  	    printf("%c \n", arbre_prec->lettre); 
  	    arbre_prec->fin_mot=true; // Cette lettre est la dernière du mot
  	  }
  

  	affiche_dico(arbre_originel,n_lettre,mot);

  	printf("remise à 0\n");

  	arbre=arbre_originel; // On revient en haut de l'arbre pour commencer un nouveau mot

        }

        //arbre=arbre_originel; 

      }

    printf("arbre originel lettre %c \n", arbre_originel->fils->lettre);

    affiche_dico(arbre_originel,n_lettre,mot);

    free_tree(&arbre);

    fclose(fp);
  
  
    return 0;
  }