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


typedef struct arbre{
    char val;
    struct arbre *suite[26];
    bool finmot; //1 si fin de mot
}Arbre;

typedef struct dico {
    Arbre *alpha[26];
}Dico;



int calculcase(char c){
    return 'c'-'a';
}

void arbre_vide(struct arbre ** pt_arbre)
{
	*pt_arbre = NULL;
}

bool est_vide(struct arbre *arbre)
{
	return arbre==NULL;
}

bool fin_de_mot(struct arbre *arbre)
{
	return arbre->finmot;
}

void ini_dico(struct dico * pt_dico){
    printf("ini_dico\n");
    for(int i=0;i<26;i++){
        pt_dico->alpha[i]=NULL;        
    }
}


void ajout_mot(struct arbre *arbrecourant,char *mot,int i){
//     Arbre *arbrecourant=malloc(sizeof(struct arbre));
//     if( (*ppt_dico)->alpha[calculcase(mot[0])]==NULL){
//         arbrecourant->val=mot[0];
//         arbrecourant->finmot=false;
//         for(int j=0;j<26;j++){
//             arbrecourant->suite[j]=NULL;     
//         }
//     }
//     arbrecourant=(*ppt_dico)->alpha[calculcase(mot[0])];
//    
//     int i=1;
     printf("%s:length:%d\n",mot,strlen(mot));
    
    while(mot[i]!='\0'){
        printf("\nlettre:%c; i=%d\n",mot[i],i);
        if (arbrecourant->suite[calculcase(mot[i])]==NULL){
            
            printf("creation arbre\n");
            Arbre *monarbre=malloc(sizeof(struct arbre));
            monarbre->val=mot[i];
            monarbre->finmot=false;
            for(int j=0;j<26;j++){
                monarbre->suite[j]=NULL;     
            }
            arbrecourant=monarbre;
//             printf("%c\n",(*pt_arbre)->val);
                
        }
        arbrecourant=arbrecourant->suite[calculcase(mot[i])];
        i++;
        ajout_mot(arbrecourant->suite[calculcase(mot[i])],mot,i);
    }

}

void charger_arbre(FILE *fp, struct dico **ppt_dico)
{   char mot[20];
    ini_dico(*ppt_dico);
    while (fscanf(fp, "%s", mot)==1){
        printf("mot:%s\n",mot);
            
        Arbre *arbrecourant=malloc(sizeof(struct arbre));
        if( (*ppt_dico)->alpha[calculcase(mot[0])]==NULL){
            arbrecourant->val=mot[0];
            arbrecourant->finmot=false;
            for(int j=0;j<26;j++){
                arbrecourant->suite[j]=NULL;
            }
        }
        arbrecourant=(*ppt_dico)->alpha[calculcase(mot[0])];
        int i=1;
        ajout_mot(&arbrecourant,mot,i);
    }
    return ;
}


void free_arbre(struct arbre *pt_arbre){
   if (pt_arbre==NULL){
        return ;
    }
    for(int i=0;i<26;i++){
        free_arbre(pt_arbre->suite[i]);
    }
    free(pt_arbre);

}

void free_dico(struct dico *pt_dico){
   if (pt_dico==NULL){
        return ;
    }
    for(int i=0;i<26;i++){
        free_arbre(pt_dico->alpha[i]);
        free(pt_dico->alpha[i]);
    }
    free(pt_dico);

}

void affiche_arbre(struct arbre *arbre){
    if(arbre==NULL){
        return ;
    }
    printf("%c\n",arbre->val);
    for(int i=0;i<26;i++){
        affiche_arbre(arbre->suite[i]);
    }
}

void affiche_dico(struct dico *dico){
    if(dico==NULL){
        return ;
    }
    printf("---------------------------------------\n");
    for(int i=0;i<26;i++){
        printf("%d:",i);
        affiche_arbre(dico->alpha[i]);
        printf("\n");
    }
   
}


int main (){
    FILE* fp = fopen("dicotest.txt","r"); //amelioration entrée
	if(fp == NULL){ return EXIT_FAILURE;} //File is not readable
	
    struct dico *mondico=malloc(sizeof(struct dico));
    charger_arbre(fp,&mondico);
    affiche_dico(mondico);
    
    
    free(mondico);
    fclose(fp);    
    return 0;
}