#include "dico.h"
  
  void make_empty_dico(dico d){

    for(int i=0;i<NBCHAR;i++)

      d[i]=NULL;
  }

  void delete_dico(dico d){

    for(int i=0;i<NBCHAR;i++)

      delete_tree(d+i);

  }
  

  byte addto_dico(dico d,const string word){

    //return values : -1 if word can't enter, 0if allready in dico, 1 if added

    int i;

    byte isIn=0, endKind=0;
    endKind=end_kind(word);

    if(!is_word(endKind)){

      return -1;

    }

    tree*tmp=&d[hash(word[0])],*temp=tmp;

    //1st, let's go through the tree, until the word is not in tree

    for(i=0; word[i]!='\0' && word[i]!='\'' && !is_empty(*tmp) ;i++){

      temp=tmp;

      if(isalpha(word[i+1]))

      tmp=&((*tmp)->next[hash(word[i+1])]);

    }

    //if word is not ended at the end of the tree
    if(is_empty(*tmp)){
      isIn=0;
      for(; word[i]!='\0' && word[i]!='\'';i++){
        *tmp=make_node(tolower(word[i]),NOT_AN_END);
        temp=tmp;

        if(isalpha(word[i+1]))
  	tmp=&((*tmp)->next[hash(word[i+1])]);

      }
      (*temp)->isEnd = endKind;

    }

    //if word is ended
    else{

      isIn=endKind & (*temp)->isEnd;

      (*temp)->isEnd = endKind | (*temp)->isEnd;

    }
    return isIn;

  }
  

  void loadfrom_keyboard(dico d){loadfrom_file(d,stdin);} 
  void loadfrom_file(dico d,FILE*stream){
    if(stream==NULL){

      printf("sorry, we can't open the file\n");

      return;

    }

    char word[30]={0};

    while(fscanf(stream,"%30s",word)==1){

      addto_dico(d,word);

    }
    printf("load success\n");

  }
  

  void printto_terminal(dico d){printto_file(d,stdout);} 

  void printto_file(dico d,FILE*stream){
    if(stream==NULL){

      printf("sorry, we can't open the file\n");

      return;
    }
    if(d==NULL){

      printf("sorry, we can't open the dictionary\n");

      return;
    }

    printf("\n\nThis is what the dictionnary contains :\n");

    for(int i=0;i<NBCHAR;i++){
      print(d[i],stream,"");
    }
  }
  
  void print(tree t,FILE*stream,string prefix){
    //needs to check stream!=NULL
    if(is_empty(t))
      return;

    
    string word=calloc((strlen(prefix)+2),sizeof(char));
    strcpy(word,prefix);
    strncat(word,&(t->letter),1);
    

    if(is_end(t)){

      string word2=calloc((strlen(prefix)+4),sizeof(char));
      strcpy(word2,word);
      //common_end

      if(is_common_end(t) && is_straight_end(t)){
        fprintf(stream,"%s\n",word2);

      }

      if(is_common_end(t) && ends_with_apostrophe(t)){
        fprintf(stream,"%s's\n",word2);
      }
      //proper_end1
      word2[0]=toupper(word2[0]);
      if(is_proper_end(t) && is_straight_end(t)){
        fprintf(stream,"%s\n",word2);
      }
      if(is_proper_end(t) && ends_with_apostrophe(t)){
        fprintf(stream,"%s's\n",word2);

      }

      //acronyme_end

      strupper(word2);
      if(is_acronyme_end(t) && is_straight_end(t)){
        fprintf(stream,"%s\n",word2);
      }
      if(is_acronyme_end(t) && ends_with_apostrophe(t)){
        fprintf(stream,"%s's\n",word2);

      }

      free(word2);

    }
    for(int i=0;i<NBCHAR;i++){

      print(t->next[i],stream,word);

    }

      free(word);
  }
  

  //uppers all letters in str

  void strupper(string str){
    for(int i=0;str[i]!='\0';i++)
      str[i]=toupper(str[i]);

  }

  byte is_in(dico d,string word){
    //return : -1 if incorrect word, 1 if is in, else 0 

    byte endKind=end_kind(word);
    if(!is_word(endKind)){

      return -1;

    }
    tree tmp=d[hash(word[0])];

    for(int i=1; word[i]!='\0' && word[i]!='\'' && !is_empty(tmp) ;i++){

      tmp=tmp->next[hash(word[i])];
    }
    return !is_empty(tmp) && (endKind & is_end(tmp));
  }

  
  void test_words(dico d,FILE*inStream,FILE*outStream){
    stringLIFO absWords=init_stringLIFO();
    char word[30]={0};
    byte isIn=0,someWrong=0;
    while(fscanf(inStream,"%30s",word)!=EOF){

      /*//get rid of punctuation marks
      isIn=0;
      while(ischar_of_word(word[(int)isIn]))
        isIn++;
      word[(int)isIn]='\0';
      */

      isIn=is_in(d,word);
      if(isIn<1){
        if(someWrong==0){
  	someWrong=1;

  	fprintf(outStream,"Voici les mots absent du dictionnaire\n");

        }
        fprintf(outStream,"%s est absent dans le dictionnaire",word);
        if(isIn)
  	fprintf(outStream,", car il est incorrect.\n");
        else{
  	push(&absWords,word);
  	fprintf(outStream,".\n");
        }
      }
    }

    //fermer outStream pour permettre à l'utilisateur de lire le compte rendu des tests
    if(outStream!=stdout)
      fclose(outStream);
    outStream=stdout;
    
    //aucun mot ne peut être ajouté au dictionnaire ?
    if(is_emptyLIFO(absWords)){
      if(someWrong)
        printf("Parmi les mots absents du dictionnaire, aucun ne peut être ajouté au dictionnaire.\n");
      else
        printf("Felicitations !!!\nAucun des mots que vous avez entre n'est absents du dictionnaire.\n");
      return;
    }
  
  
      //ajout des mots absent?

    printf("Voulez-vous ajouter certains de ces mots au dictionnaire?\n(1 for yes,0 for no)\n");
    someWrong=saisie(0,1);
    
    //ajout de certains mots au cas par cas
    if(someWrong){
      string aword;
      while(!is_emptyLIFO(absWords)){
        aword=pop(&absWords);
        printf("Voulez-vous ajouter %s au dictionnaire?   (1 for yes,0 for no)\n",aword);
        isIn=saisie(0,1);
        if(isIn){
  	addto_dico(d,aword);
        }
        free(aword);
      }
    }
    delete_LIFO(&absWords);
  }