#include<stdio.h>//NOTA_3
#include<fcntl.h>
#define nc() for(;(getchar())!='\n';);
#define BUFSIZE 10000
int main()
{
char*incoming(),*input,*output,c;
char*sh[]={"pa","ra","ple","gi","co"," ","in","gua","ri","bi","le","!"};
typedef void elab(char*,char*,int,int);//NOTA_1
elab defmod;
int overwrite=0,j=0,select,incoming2(char*),tmp,sht=0;
printf("input file : ");
input=incoming();//PATHNAME FILE DI INPUT
printf("Sovrascrivere il file dopo l'operazione ?(s/n) ");
if(incoming2(&c))
	++overwrite;//SOVRASCRIVERE INPUT DOPO ELABORAZIONE ?
else	{printf("output file : ");
	 output=incoming();}//EV. PATHNAME FILE OUTPUT
printf("\n\n1) default mode\n2) insert mode\n3) exit\n\n_");
for(incoming2(&c);c<'1'||c>'3';incoming2(&c))
	{++j;
	 if(j>2&&j<15)
		 printf("! %s _",sh[sht++]);
	 else if(j==15)
		{j=0;sht=0;putchar('_');}
	 else	putchar('_');}
select=c-48;//SELEZIONE: DEFAULT-INSERT-EXIT
defmod(input,output,overwrite,select);
printf("\n\nFile processato .\n");
}

char*incoming()
{
char c,*p;
int i=0,t=sizeof(char);
for(p=(char*)malloc(t);(c=getchar())!='\n';p=(char*)realloc(p,(i+1)*t))
	if(p)
		*(p+i++)=c;
	else	{fprintf(stderr,"memoria esaurita\n");exit(1);}
return p;
}

int incoming2(char*c)
{
*c=getchar();nc();
if(*c=='s')
	return 1;
return 0;
}

void defmod(char*in,char*out,int f,int select)
{
void cpf(int*,int*),tara(char*,int,int*),sost(char*,char*,char*,char*);
char c,*incoming(),buf1[BUFSIZE+1],buf2[BUFSIZE*2],*p1=buf1,*p2=buf2;
char*insmod(),*ins,*old,*new;
int indf,outdf,dummy=0,i,o,count,tmp,ftmp=0,t,dep=0;
if(!strcmp(in,out))
	++dummy;//IL FILE DI IN == QUELLO DI OUT
if((indf=open(in,O_RDWR))==-1)//APERTO IN_FILE
	{fprintf(stderr,"Impossibile accedere a %s\n",in);exit(2);}
if(!f&&!dummy&&(creat(out,0666))==-1)//CRTEATO OUT_FILE
	{fprintf(stderr,"Impossibile creare %s\n",out);exit(3);}
if(!f&&!dummy&&(outdf=open(out,O_WRONLY))==-1)//APERTO OUT_FILE
	{fprintf(stderr,"Impossibile accedere a %s\n",out);exit(4);}
if(!f&&!dummy&&select==1)
	a:for(;count=read(indf,buf1,BUFSIZE);write(outdf,buf2,count+o))
		for(i=o=0;i++<BUFSIZE+1;++p1,++p2)
	 		if(*p1=='à')
	 			{*p2='a';*++p2='\'';++o;}
	 		else if(*p1=='è')
	 			{*p2='e';*++p2='\'';++o;}
	 		else if(*p1=='ì')
	 			{*p2='i';*++p2='\'';++o;}
	 		else if(*p1=='ò')
	 			{*p2='o';*++p2='\'';++o;}
	 		else if(*p1=='ù')
	 			{*p2='u';*++p2='\'';++o;}
	 		else	*p2=*p1;
if(select==2)
	ins=insmod();
if(!f&&!dummy&&select==2)
	{b:for(dep=0;count=read(indf,buf1,BUFSIZE);)
		{tara(buf1,count,&indf);
		 for(t=1;t;)
		 	{old=ins;
		 	 ins+=strlen(ins);++ins;
			 new=ins;
		 	 ins+=strlen(ins);++ins;
		 	 if(*ins==EOF)
		 	 	--t;
      		 	 ++dep;
      		 	 if(dep%2)
      		 	 	sost(buf1,old,new,buf2);
      		 	 else	sost(buf2,old,new,buf1);}
      		 if(dep%2)
      		 	write(outdf,buf2,strlen(buf2));
      		 else	write(outdf,buf1,strlen(buf1));}}
if((!f&&dummy)||(f&&!dummy)&&!ftmp)
	{close(outdf);
	 if((creat("txtd.tmp",0666))==-1)
	 	{fprintf(stderr,"Impossibile creare un file temporaneo"
	 		 "\n");exit(5);}
	 if((outdf=open("txtd.tmp",O_RDWR))==-1)
	 	{fprintf(stderr,"Impossibile accedere al file "
	 		 "temporaneo\n");exit(6);}
	 ++ftmp;
	 if(select==1)
	 	goto a;
	 else	goto b;}
if(ftmp)
	{if((creat(in,0666))==-1)
		{fprintf(stderr,"Impossibile sovrascrivere %s\n",in);
		 exit(10);}
	 if((indf=open(in,O_WRONLY))==-1)
	 	{fprintf(stderr,"Impossibile aprire %s\n",in);exit(11);}
	 cpf(&indf,&outdf);
	 if((unlink("txtd.tmp"))==-1)//NOTA_2
	 	{fprintf(stderr,"Impossibile eliminare il file "
	 		 "temporaneo\n");exit(7);}}
close(indf);
close(outdf);
}

void cpf(int*indf,int*tmp)
{
char s[BUFSIZE];
int count;
lseek(*indf,0,0);
lseek(*tmp,0,0);
for(;count=read(*tmp,s,BUFSIZE);write(*indf,s,count));
}

char*insmod()
{
char*p,c;
int i=0,t=sizeof(char),dep=1;
printf("Inserire le sostituzioni ,quindi premere EOF .\n");
printf("da sostituire: ");
for(p=(char*)malloc(1);(c=getchar())!=EOF;p=(char*)realloc(p,(i+1)*t))
	if(p&&c=='\n')
		{*(p+i++)='\0';
		 if(!(++dep%2))
		 	printf("sostituzione : ");
		 else	printf("da sostituire: ");}
	else if(p)
		*(p+i++)=c;
	else	{fprintf(stderr,"memoria esaurita\n");exit(8);}
if(dep%2)
	{*(p+i)=EOF;return p;}
else	{fprintf(stderr,"errore di sintassi\n");exit(9);}
}

void tara(char*buf,int count,int*indf)
{
int i=0;
static int tmp=0;
static int oldcount;
if(count==BUFSIZE)
	{for(;buf[count]!=' ';--count,--i);
	 lseek(*indf,i,1);}
buf[count+1]='\0';
}

void sost(char*buf1,char*old,char*new,char*buf2)
{
int sold=strlen(old),snew=strlen(new);
for(;;)
	{for(;*buf1!=*old&&*buf1!='\0';++buf1,++buf2)
		*buf2=*buf1;
	 if(*buf1=='\0')
		{*buf2='\0';return;}
	 else if(!strncmp(buf1,old,sold))
		{strcpy(buf2,new);
	 	 buf2+=snew;
	 	 buf1+=sold;}
	 else	*buf2++=*buf1++;}
}

/*NOTA_1
ho usato typedef perche' in principio volevo fare 2 funzioni : 1a per
la modalita' di default ed un'altra per la modalita' di inserimento .
Avendo cambiato idea ho lasciato typedef a titolo puramente scolastico .
NOTA_2
int unlink(char*) e' usato per cancellare files ,ritorna 0 se ha
successo ,-1 altrimenti .
int remove(char*) chiama unlink per i files e rmdir per le directory .
NOTA_3
potevo utilizzare l'allocazione dinamica della memoria per buf2
ma non volevo complicarmi troppo la vita per un programma del genere .
Sarebbe comunque un grave difetto poiche' una parola da sostituire lunga
>BUFSIZE*2+1 elementi creerebbe un errore .
ps:non e' stata rilasciata la memoria con free()*/