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

#define A 27

struct node {
  char lettre;
  struct cell* listeFils;
};

struct cell {
  struct node* arbre;
  struct cell* arbreSuivant;
};

void lien_listeFils(struct cell** pL) {
  struct cell* p;
  p = malloc(sizeof(struct cell));
 
  (*pL)->arbre->listeFils = p;
}

void initialisation_tab_arbre(struct node tab[]) {
  for(int i = 0; i < A-1; i++) {
    tab[i].lettre = 97+i; //ajout lettres minuscules
    tab[i].listeFils = NULL;
  }
  tab[A-1].lettre = 39;
  tab[A-1].listeFils = NULL;
}

void ajout_tete(char elem, struct cell** pL) {
  struct cell* p;
  p = malloc(sizeof(struct cell));
  p->arbre = malloc(sizeof(struct node));
  p->arbre->listeFils = NULL;
  p->arbre->lettre = elem;
  p->arbreSuivant = *pL;
  *pL = p;
}

struct cell ** insertion(char elem, struct cell** pL) {
	if(((*pL) == NULL) || ((*pL)->arbre->lettre > elem)) {
		ajout_tete(elem, pL);
		return &(*pL)->arbre->listeFils;
	}
	else if((*pL)->arbre->lettre == elem) {
		return &(*pL)->arbre->listeFils;
	}
	else {
		return insertion(elem, &(*pL)->arbreSuivant);
	}
}


void lire_fichier(FILE* fd, struct node tab_arbre_prcp[]) {

  printf("lirefichier\n");
  struct cell** localisationArbre = NULL; 
  int cptmot = 0;
  char motLu[50];
		while(fscanf(fd, "%s", motLu)==1) {
			int i = 0;
			cptmot += 1;
			if((motLu[0] >= 'A') && (motLu[0] <= 'Z')) {
				localisationArbre = &tab_arbre_prcp[motLu[0]-65].listeFils;
			}
			else if((motLu[0] >= 'a') && (motLu[0] <= 'z')) {
				localisationArbre = &tab_arbre_prcp[motLu[0]-97].listeFils;
			}
					  	
			else if(motLu[0] == 39) {
				localisationArbre = &tab_arbre_prcp[A].listeFils; //A = derniere case du tab
			}
			else {
				printf("Un caractère n'est pas une lettre");
				return;
			}
			while(motLu[i] != '\0') {
					      
		    	i += 1;
				printf("lettre lue : %c address : %p\n", motLu[i], localisationArbre);
				localisationArbre = insertion(motLu[i], localisationArbre);
				printf("tab_arbre[%d].listeFils : %p\n",i, tab_arbre_prcp[i].listeFils);
				/*printf("localisationArbre.lettre : %c\n", (*localisationArbre)->arbre->lettre);
				printf("localisation apres : %p\n", localisationArbre);*/
				printf("\n");
			}
		}
		printf("\n");
		fclose(fd);
	    printf("%d mots inseres dans le dictionnaire.\n", cptmot);
	
}


int main(int argc, char* argv[]) {
  FILE* fd = NULL;
  struct node tab_arbre[A];
  
  if(argc>1) fd = fopen(argv[1], "r");
  else fd = NULL;
  if (fd == NULL) {
        printf("Error : couldn't open file\n");
        return 1;
    }
  printf("avant init tab_arbre[1] %c\n", tab_arbre[1].lettre);
  printf("fd : %p\n", fd);
  initialisation_tab_arbre(tab_arbre);
  printf("apres init tab_arbre[1] %c\n", tab_arbre[1].lettre);
  printf("fd apres init : %p\n", fd);
  printf("avant lire fichier\n");
  lire_fichier(fd, tab_arbre);
  printf("tab_arbre[0].lettre : %c\n", tab_arbre[0].lettre);
  printf("tab_arbre[0].listeFils : %p\n", tab_arbre[0].listeFils);
  printf("tab_arbre[0].listeFils->arbre : %p\n", tab_arbre[0].listeFils->arbre);
  printf("tab_arbre[0].listeFils->arbre->lettre : %c\n", tab_arbre[0].listeFils->arbre->lettre);
  printf("tab_arbre[0].listeFils->arbre->listeFils->arbre->lettre : %c\n", tab_arbre[0].listeFils->arbre->listeFils->arbre->lettre);
  printf("tab_arbre[0].listeFils->arbre->listeFils->arbre->listeFils->arbre->lettre : %c\n", tab_arbre[0].listeFils->arbre->listeFils->arbre->listeFils->arbre->lettre);
  printf("tab_arbre[0].listeFils->arbreSuivant->arbre->lettre : %c\n", tab_arbre[0].listeFils->arbreSuivant->arbre->lettre);
  printf("tab_arbre[0].listeFils->arbreSuivant->arbre->listeFils->arbre->lettre : %c\n", tab_arbre[0].listeFils->arbreSuivant->arbre->listeFils->arbre->lettre);
  return 0;
}