/*Soluzione compito 10 Settembre 2010*/
#include<sys/types.h>
#include<sys/stat.h>
#include<fcntl.h>
#include<stdio.h>
#include<unistd.h>
#include<sys/wait.h>
#include<stdlib.h>
#include<string.h>

typedef struct
	{
	long int c1;
	long int c2;
	}str_cont;
typedef int pipe_t[2];

int main(int argc, char **argv){
char stn[256];
pipe_t *p;
str_cont conteggi,c;    /*strutture per figli e padre*/
long int cont1,cont2;	/*variabili di conteggio*/
char ch;		/*appoggio carattere*/
int i,k,status,pid,n,fd;
/*controllo parametri>1 e numero file pari*/
if(argc<3){	
	write(2,"Errore parametri\n",17);
	exit(1);
	}
n=argc-1;
/*allocazione dinamica*/
p=(pipe_t*)malloc(n*sizeof(pipe_t));
if (p==NULL)
	{
	write(2,"Errore allocazione dinamica\n",27);
	exit(1);
	}
for(i=0;i<n;i++)
	{
	if(pipe(p[i])!=0)
		{
		/*creazione pipe*/
		snprintf(stn,sizeof(stn),"Errore in creazione pipe\n");
		write(2,stn,strlen(stn));
		exit(1);
		}
	}
/*Presentazione padre*/
snprintf(stn,sizeof(stn),"Padre con pid %d\n",getpid());
write(2,stn,strlen(stn));
for(i=0;i<n;i++)
	{
	/*creazione figli*/
		if((pid=fork())<0)
		{
		snprintf(stn,sizeof(stn),"Errore in creazione figlio\n");
		write(2,stn,strlen(stn));
		exit(1);
		}		
		if(pid==0){
			for(k=0;k<n;k++)
			{
			/*chiudo i lati inutilizzati*/
			if(k!=i)
				close(p[k][1]);
			close(p[k][0]);
			}
			if((fd=open(argv[i+1],O_RDONLY))<0)
				{
				printf("Errore apertura file");
				exit(1);
				}
		printf("Figlio con pid %d analizza file %s\n",getpid(),argv[i+1]);
		if(i%2)
			/* se figlio dispari, leggo a vuoto*/
			read(fd,&ch,1);
		cont1=0;
		cont2=0;
		while(read(fd,&ch,1)>0)
		{
                	if((ch%2)==0)
                	{
                        	if((i%2)==0)
                                	cont1++;
                        	else
                      	             	cont2++;
                	}	
                	else
                	{
                        	if(i%2)
                                	cont1++;
                        	else
                                	cont2++;
                	}	
		read(fd,&ch,1);	/*lettura a vuoto epr saltare carattere inutile*/
		}
	conteggi.c1=cont1;
	conteggi.c2=cont2;
	write(p[i][1],&conteggi,sizeof(conteggi));
	if(conteggi.c1>conteggi.c2)
		exit(0);
	else
		exit(1);
	}
}

/*padre*/
/*chiude lati*/
for(i=0;i<n;i++)
	close(p[i][1]);

/*leggo da pipe pari poi da dispari*/
for(i=0;i<n;i+=2)
{
	read(p[i][0],&c,sizeof(c));
	printf("Figlio con indice %d ritona: c1= %ld e c2=%ld\n",i,c.c1,c.c2);
}
for(i=1;i<n;i+=2)
{
	read(p[i][0],&c,sizeof(c));
	printf("Figlio con indice %d ritona: c1= %ld e c2=%ld\n",i,c.c1,c.c2);
}
/*attende terminazione figli*/
for(i=0;i<n;i++)
{
	pid=wait(&status);
	printf("Figlio con pid: %d, valore di ritorno %d\n",pid,WEXITSTATUS(status));
}
return(0);
}

/*provato con file:
p0 (pari)
aaaaaa  --6 caratteri a, ritornati valori c1=1 e c2=3
p1(dispari)
cc			ritornati valori c1=1 e c2=1*/