/*=================================================*\
  Lundi 4 mars 2013
  Arash HABIBI
  question6.c
\*=================================================*/

#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <sys/wait.h>
#include <fcntl.h>
#include <ctype.h>
#include <unistd.h>
#include <string.h>

#define MAX_WORD 30

//---------------------------------------------

int** creerNTubes(int N)
{
	int **p;
	p = (int**)calloc(N,sizeof(int*));
	int n;
	for(n=0;n<N;n++)
	{
		p[n] = calloc(2,sizeof(int));
		if(pipe(p[n])==-1)
		{
			perror("pipe");
			exit(1);
		}
	}
	return p;
}

//---------------------------------------------
// Je compte le nombre de fois ou on passe
// d'une lettre à un espace-ponctuation.
// Si le fichier finit par une lettre,
// il faut ajouter 1.

int nbMots(int filein)
{
	int nb_mots=0, nb_cars=1;
	char lu, car_est_lettre=0, car_precedent_est_lettre=0;

	lseek(filein,0,SEEK_SET);

	while(nb_cars>0)
	{
		nb_cars = read(filein,&lu,1);
		if(nb_cars>0)
		{
			car_est_lettre = (!isspace(lu))&&(!ispunct(lu));

			if(car_precedent_est_lettre && (car_est_lettre==0))
				nb_mots++;

			car_precedent_est_lettre = car_est_lettre;
		}
		else if(car_est_lettre) // si le fichier finit par une lettre
			nb_mots++;
	}
	return(nb_mots);
}

//---------------------------------------------

void litListeMots(int filein, char **mots)
{
	int nb_cars, indice_mot=0, indice_car=0;
	char lu, car_est_lettre=0, car_precedent_est_lettre=0;

	lseek(filein,0,SEEK_SET);

	while(nb_cars>0)
	{
		nb_cars = read(filein,&lu,1);
		if(nb_cars>0)
		{
			car_est_lettre = (!isspace(lu))&&(!ispunct(lu));

			if(car_est_lettre)
			{
				mots[indice_mot][indice_car] = tolower(lu);
				indice_car++;
			}

			if(car_precedent_est_lettre && (car_est_lettre==0))
			{
				indice_mot++;
				indice_car=0;
			}
			car_precedent_est_lettre = car_est_lettre;
		}
	}
}

//---------------------------------------------

int estCorrecte(char *mot, int nb_mots, char **dictionnaire)
{
	int N = strlen(mot);
	int n;
	for(n=0;n<N;n++)
		mot[n] = tolower(mot[n]);

	int on_a_trouve = 0;
	for(n=0;(n<nb_mots)&&(on_a_trouve==0);n++)
	{
		if(strcmp(mot,dictionnaire[n])==0)
			on_a_trouve=1;
	}

	return(on_a_trouve);
}

//---------------------------------------------

int prepareDictionnaire(char *dico_file, char ***dictionnaire)
{
	int dico_fd;
	if((dico_fd=open(dico_file,O_RDONLY))==-1)
	{	perror(dico_file);	exit(1);  }

	else
	{
		int nb_mots = nbMots(dico_fd);

		(*dictionnaire) = (char**)calloc(nb_mots,sizeof(char*));
		int n;
		for(n=0;n<nb_mots;n++)
			(*dictionnaire)[n] = (char*)calloc(MAX_WORD,sizeof(char));

		litListeMots(dico_fd,(*dictionnaire));

		close(dico_fd);

		return(nb_mots);
	}
}

//---------------------------------------------


int main(int argc, char **argv)
{
	if(argc<2)
	{
		fprintf(stderr,"\nUsage : %s <dictionnaire> <file1.txt> ... <fileN.txt>\n\n",argv[0]);
		return 1;
	}
	else
	{
		char** dictionnaire;
		int nb_mots_dico = prepareDictionnaire(argv[1],&dictionnaire);

		int nb_fichiers = argc - 2;
		int **p_pere_fils = creerNTubes(nb_fichiers);
		int **p_fils_pere = creerNTubes(nb_fichiers);

		pid_t pid;
		int est_fils = 0;
		int n;
		for(n=0;(n<nb_fichiers)&&(est_fils==0);n++)
		{
			if((pid = fork())==-1)
			{	perror("fork"); return 1; }

			if(pid==0) // fils
			{
				est_fils=1;
				close(p_pere_fils[n][1]);
				close(p_fils_pere[n][0]);

				char **mots;
				int N, nb_mots = prepareDictionnaire(argv[n+2],&mots);
				int nm;
				for(nm=0;nm<nb_mots;nm++)
				{
					// fprintf(stderr,"fils ----> %s : mot : %s\n",argv[n+2],mots[nm]);
					N = 1 + strlen(mots[nm]);
					write(p_fils_pere[n][1],&N,4);
					write(p_fils_pere[n][1],mots[nm],N);

					int est_ok;
					read(p_pere_fils[n][0],&est_ok,4);
					if(est_ok==0)	printf("fichier %s : le mot %s est INcorrect.\n",argv[n+2],mots[nm]);
				}
				N=0;
				write(p_fils_pere[n][1],&N,4);
			}
			else // pere
			{
				est_fils=0;
				close(p_pere_fils[n][0]);
				close(p_fils_pere[n][1]);
			}
		}
		// Une fois que tous les fils ont été crées, que fait le père ?
		if(est_fils==0)
		{
			char *est_mort;
			est_mort = (char*)calloc(nb_fichiers,sizeof(char));
			int nb_fils_vivants = nb_fichiers;

			while(nb_fils_vivants>0)
			{
				char mot[MAX_WORD];
				int N;
				int n;
				for(n=0;n<nb_fichiers;n++)
				{
					if(est_mort[n]==0)
					{
						read(p_fils_pere[n][0],&N,4);
						if(N==0)
						{
							est_mort[n]=1;
							nb_fils_vivants--;
							wait(NULL);
						}
						else
						{
							read(p_fils_pere[n][0],mot,N);
							int est_ok = estCorrecte(mot,nb_mots_dico,dictionnaire);
							write(p_pere_fils[n][1],&est_ok,4);
						}
					}
				}
			}
		}
		return 0;
	}
}