#include<stdio.h>
#include<stdlib.h>
#include<string.h>
int grammes;
typedef struct typos_seiras
{
	int mikos;
	char xaraktiras[80];
}typos_seiras;
void dimiourgia(typos_seiras *seira)
{
	seira->mikos = 0;
}
int mikos(typos_seiras seira)
{
	return seira.mikos;
}
char anaktisi(typos_seiras seira, int i)
{
	if (i >= 0 && i < mikos(seira))
	{
		return seira.xaraktiras[i];
	}
	else printf("Deiktis ektos diastimatos");
	return '0';
}
void prosartisi(typos_seiras *seira, char xar)
{
	if (mikos(*seira) == 80) {
		printf("H symvoloseira einai gemati");
		getchar();}
	else
		seira->mikos++;
	seira->xaraktiras[seira->mikos - 1] = xar;
}
void diagrafi(typos_seiras *seira)
{
	int i;
	if (mikos(*seira) == 0)
		printf("Keni symvoloseira");
	else
	{
		for (i = 0; i <= (seira->mikos - 2); i++)
			seira->xaraktiras[i] = seira->xaraktiras[i + 1];
		seira->mikos--;
	}
}
int anazitisi_seiras(typos_seiras sxima, typos_seiras keimeno)
{
	int s, k, thesi, mkss=mikos(sxima), mksk=mikos(keimeno);
	if (mkss == 0)
		return -1;
	else
		if (mkss > mksk)
			return -2;
		else
		{
			thesi = 0;
			s = 0;
			k = 0;
			while ((s < mkss) && (k < mksk) && anaktisi(sxima,s)!='\0'){
				if (anaktisi(sxima, s) == anaktisi(keimeno, k))
				{
					s++;
					k++;
				}
				else
				{
					thesi++;
					k = thesi;
					s = 0;
				}
			}
			if ((s > mkss - 1) || ((anaktisi(sxima,s))=='\0'))
				return thesi;
			else
				return -2;
		}
}
void antigrafi_seiras(typos_seiras arxiki, int thesi, int n, typos_seiras *neaseira)
{
	int i;
	if (n >= 80)
		printf("H nea seira einai poly megali.");
	else
	{
	//	dimiourgia(neaseira);
		for (i = 0; i < n; i++)
			prosartisi(neaseira, anaktisi(arxiki, thesi + i));
	}
}
void synenosi_seiras(typos_seiras seira1, typos_seiras seira2, typos_seiras *neaseira)
{
	int mks1=mikos(seira1), mks2=mikos(seira2);
	if (mks1 + mks2 >= 80)
		printf("Oi symvoloseires einai megales kai den mporoun na synenwthoyn.");
	else
	{
		dimiourgia(neaseira);
		antigrafi_seiras(seira1, 0, mks1-1, neaseira);
		antigrafi_seiras(seira2, 0, mks2-1, neaseira);
	}
}
void eisagogi_seiras(typos_seiras seira1, typos_seiras *seira2, int thesi)
{
	typos_seiras proti, teleytaia;
	dimiourgia(&proti);
	dimiourgia(&teleytaia);
//	
	if ((thesi>=0) && (thesi < mikos(*seira2)))
	{
		antigrafi_seiras(*seira2, 0, thesi, &proti);
		antigrafi_seiras(*seira2, thesi, mikos(*seira2)-thesi, &teleytaia);
		synenosi_seiras(proti, seira1, &proti);
		synenosi_seiras(proti, teleytaia, seira2);
	}
	else
		printf("Den einai swsti i timi tis %d", thesi);
}
void diagrafi_seiras(typos_seiras *seira, int thesi, int mks)
{
	typos_seiras proti, teleytaia;
	dimiourgia(&proti);
	dimiourgia(&teleytaia);
//	int a=thesi+mks;
//	if ((thesi>0) && (a <= mikos(*seira)-thesi))
//	{
		antigrafi_seiras(*seira, 0, thesi, &proti);
		thesi += mks;
		antigrafi_seiras(*seira, thesi, mikos(*seira)-thesi, &teleytaia);
		synenosi_seiras(proti, teleytaia, seira);
//	}
//	else
//		printf("H timi tis %d einai arnitiki h poly megali.den mporei na ginei i diagrafi.", thesi);
}
void antikatastasi_seiras(typos_seiras seira1, typos_seiras seira2, typos_seiras *seira)
{
	int thesi=anazitisi_seiras(seira1,*seira),mks;
	printf("\n%d\n",thesi);
	if (thesi >=0)
	{
		mks = mikos(seira1);
		diagrafi_seiras(seira, thesi, mks);
		eisagogi_seiras(seira2, seira, thesi);
	}
}
void typose_seira(typos_seiras seira)
{
	int i, mks = mikos(seira);
	for (i = 0; i < mks - 1; i++)
		putchar(anaktisi(seira, i));
}
void add()
{
FILE *eis,*ex;
typos_seiras seira,grammi;
int n,i,j,k;
char xar;
system("cls");
printf("Dwste arithmo grammis poy tha prostethei i symvoloseira:");
scanf("%d",&n);
getchar();
printf("Dwste ti symvoloseira:(katw apo 80 xaraktires)");
dimiourgia(&seira);
scanf("%c",&xar);
while(xar!='\n')
{
	prosartisi(&seira,xar);
	scanf("%c",&xar);
}
//prosartisi(&seira,'\0');
//anoigei_ta_arxeia(eis,eks);
	if ((eis = fopen("koligas.txt", "r"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy koligas.txt");
		exit(-1);
	}
	if ((ex = fopen("neo.txt", "w"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy neo.txt");
		exit(-1);
	}
for(i=0;i<n;i++)
{
	dimiourgia(&grammi);
	fscanf(eis,"%c",&xar);
	while(xar!='\n')
	{
	 prosartisi(&grammi,xar);
	 fscanf(eis,"%c",&xar);	
	 printf("%c",xar);
	}
	getchar();
	//prosartisi(&grammi,'\0');
	for(j=0;j<mikos(grammi);j++)
	{
		xar=anaktisi(grammi,j);
		fprintf(ex,"%c",xar);
		printf("%c",xar);
	}
	fprintf(ex,"\n");
	getchar();
}
for(j=0;j<mikos(seira);j++)
	{
		xar=anaktisi(seira,j);
		fprintf(ex,"%c",xar);
		printf("%c",xar);
	}
	fprintf(ex,"\n");
	getchar();
	fscanf(eis,"%c",&xar);
	k=grammes-i;
	int c=0;
	while(!feof(eis) && c<=k)
	{
	dimiourgia(&grammi);
	printf("dimiourgeitai i voithitiki grammi.\n");
	//fscanf(eis,"%c",&xar);
	printf("%c",xar);
//	fprintf(ex,"%c",xar);
	while(xar!='\n')
	{
	 prosartisi(&grammi,xar);
	 fscanf(eis,"%c",&xar);
	 printf("%c",xar);	
	}
//	getchar();
	//prosartisi(&grammi,'\0');
	for(j=0;j<mikos(grammi);j++)
	{
		xar=anaktisi(grammi,j);
		fprintf(ex,"%c",xar);
		printf("%c",xar);
	}
	getchar();
	fprintf(ex,"\n");
	fscanf(eis,"%c",&xar);
	c++;
	}
	grammes++;
	//kleinei_ta_arxeia(eis,eks);  
	fclose(eis);
	fclose(ex);
	unlink("koligas.txt");
	rename("neo.txt", "koligas.txt");
	
}
void del()
{
FILE *eis,*ex;
typos_seiras seira;
int i,j,n,start;
char xar;
printf("Dwste arithmo grammwn poy tha diagrafoun:");
scanf("%d",&n);
getchar();
printf("Dwste ton arithmo tis grammis pou tha ksekinisei i diagrafi:");
scanf("%d",&start);
getchar();
if ((eis = fopen("koligas.txt", "r"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy koligas.txt");
		exit(-1);
	}
	if ((ex = fopen("neo.txt", "w"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy neo.txt");
		exit(-1);
	}
for(i=0;i<start;i++)
{
	dimiourgia(&seira);
	fscanf(eis,"%c",&xar);
	printf("%c",xar);
	while(xar!='\n')
	{
		prosartisi(&seira,xar);
		fscanf(eis,"%c",&xar);
		printf("%c",xar);
	}
	//prosartisi(&seira,"\n");
	for(j=0;j<mikos(seira);j++)
	{
		xar=anaktisi(seira,j);
		fprintf(ex,"%c",xar);
	}
	fprintf(ex,"\n");
}
getchar();
for(i=0;i<n;i++)
{
	dimiourgia(&seira);
	fscanf(eis,"%c",&xar);
	printf("%c",xar);
	while(xar!='\n')
	{
		prosartisi(&seira,xar);
		fscanf(eis,"%c",&xar);
		printf("%c",xar);
	}
}
getchar();
i=start+n;
while(i<grammes)
{
    dimiourgia(&seira);
	fscanf(eis,"%c",&xar);
	printf("%c",xar);
	while(xar!='\n')
	{
		prosartisi(&seira,xar);
		fscanf(eis,"%c",&xar);
		printf("%c",xar);
	}
	//prosartisi(&seira,"\n");
	for(j=0;j<mikos(seira);j++)
	{
		xar=anaktisi(seira,j);
		fprintf(ex,"%c",xar);
		printf("%c",xar);
	}
	fprintf(ex,"\n");
	i++;
}
getchar();
grammes-=n;
	fclose(eis);
	fclose(ex);
	unlink("koligas.txt");
	rename("neo.txt", "koligas.txt");
}
void print()
{
FILE *eis;	
typos_seiras seira;
int m,n,i,k;
char xar;
system("cls");
printf("Dwste arithmo grammwn poy tha ektypwthoyn:");
scanf("%d",&n);
getchar();
printf("\nDwste arithmo grammis poy tha arxisei i ektypwsi:");
scanf("%d",&m);
getchar();
if ((eis = fopen("koligas.txt", "r"))==0)
	{
		fprintf(stderr, "Lathos sto anoigma toy koligas.txt");
		exit(-1);
	}	
	i=1;
	while(i<m && !feof(eis))
	{
		fscanf(eis,"%c",&xar);
		if(xar=='\n')
		i++;
	}
	if(feof(eis))
	{
		printf("H %d grammi den yparxei.",m);
	}
	i=0;
	dimiourgia(&seira);
	k=0;
	while(i<n && !feof(eis))
	{
		fscanf(eis,"%c",&xar);
		prosartisi(&seira,xar);
		//printf("%c",xar);
		if(xar=='\n')
		{
		i++;
		k=1;
		prosartisi(&seira,'\0');
		typose_seira(seira);
	    }
	   if(k==1)
	   {
	   	dimiourgia(&seira);
	    k=0;
	   }
	}
	if(feof(eis))
	{
		printf("H %d grammi den yparxei.\n",m+i);
	}
	fclose(eis);
}
void insert()
{
	
}
void replace()
{
FILE *eis,*ex;
typos_seiras seira,palia,nea;
int i,n,j,k,o;
char xar;
system("cls");
printf("Dwste arithmo grammis poy tha arxisei i antikatastasi:");
scanf("%d",&n);
getchar();
printf("Dwste tin leksi poy tha antikatastathei:");
dimiourgia(&palia);
scanf("%c",&xar);
while(xar!='\n')
{
	prosartisi(&palia,xar);
	scanf("%c",&xar);
}
prosartisi(&palia,'\0');
printf("Dwste tin kainourgia symvoloseira:");
dimiourgia(&nea);
scanf("%c",&xar);
while(xar!='\n')
{
	prosartisi(&nea,xar);
	scanf("%c",&xar);
}
prosartisi(&nea,'\0');
if ((eis = fopen("koligas.txt", "r"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy koligas.txt");
		exit(-1);
	}
	if ((ex = fopen("neo.txt", "w"))==NULL)
	{
		fprintf(stderr, "Lathos sto anoigma toy neo.txt");
		exit(-1);
	}
	i=0;
//	printf("----prin tin antikatastasi----");
	while(i<n-1)
	{
		dimiourgia(&seira);
		fscanf(eis,"%c",&xar);
	//	printf("%c",xar);
		while(xar!='\n')
		{
			prosartisi(&seira,xar);
	//		printf("%c",xar);
			fscanf(eis,"%c",&xar);
		}
		i++;
		for(j=0;j<mikos(seira);j++)
		{
		xar=anaktisi(seira,j);
	//	printf("%c",xar);
		fprintf(ex,"%c",xar);
		}
		fprintf(ex,"\n");
	}
	printf("\n----antikatastasi-----");
	while(i<grammes-1)
	{
		dimiourgia(&seira);
		fscanf(eis,"%c",&xar);
		printf("%c",xar);
		while(xar!='\n')
		{
			prosartisi(&seira,xar);
			printf("%c",xar);
			fscanf(eis,"%c",&xar);
		}
		prosartisi(&seira,'\0');
		i++;
		k=anazitisi_seiras(palia,seira);
		printf("\n%d\n",k);
		getchar();
		if(k<0)
		{
			printf("\nden ginetai antikatastasi\n");
		for(j=0;j<mikos(seira);j++)
		{
		xar=anaktisi(seira,j);
		printf("%c",xar);
		fprintf(ex,"%c",xar);
		}
		fprintf(ex,"\n");
		}
		else if(k>=0)
		{
			antikatastasi_seiras(palia,nea,&seira);
			//printf("\nginetai antikatastasi\n");
			/*for(j=k,o=0;j<k+mikos(palia)-1;j++,o++)
			{
				seira.xaraktiras[j]=anaktisi(nea,o);
			}*/
			printf("\nginetai antikatastasi.");
			getchar();
			for(j=0;j<mikos(seira);j++)
			{
			 xar=anaktisi(seira,j);
			 printf("%c",xar);
	      	 fprintf(ex,"%c",xar);
	        }
	        getchar();
	        fprintf(ex,"\n");
		}
	}
	fclose(eis);
	fclose(ex);
	unlink("koligas.txt");
	rename("neo.txt", "koligas.txt");
}
void last()
{
FILE *eis;	
typos_seiras seira,keimeno;
char xar;
int i=1;
system("cls");
dimiourgia(&seira);
printf("\nDwste tin symvoloseira poy psaxnete:");
while((xar=getchar())!='\n')
{
	prosartisi(&seira,xar);
}
prosartisi(&seira,'\0');
printf("\nDwsate ti symvoloseira:");
typose_seira(seira);
getchar();
if ((eis = fopen("koligas.txt", "r"))==0)
	{
		fprintf(stderr, "Lathos sto anoigma toy koligas.txt");
		exit(-1);
	}	
while(!feof(eis))
{
dimiourgia(&keimeno);
fscanf(eis,"%c",&xar);
while(xar!='\n' && !feof(eis))
{
prosartisi(&keimeno,xar);
fscanf(eis,"%c",&xar);
}
prosartisi(&keimeno,'\0');
//typose_seira(keimeno);
//getchar();
if((anazitisi_seiras(seira,keimeno))==1)
{
printf("Grammi %d:",i);	
typose_seira(keimeno);
printf("\n");
}
i++;
}
fclose(eis);
}

void count_lines(void)
{
	int a;
	printf("Dwste arithmo grammwn toy keimenoy:");
	scanf("%d",&a);
	getchar();
	grammes=a;
	system("cls");
}

void menu()
{
	int a;
	count_lines();
	do
	{
		printf("Dwste 1 gia na prosthesete mia symvoloseira sto keimeno.");
		printf("\nDwste 2 gia na diagrapsete grammes apo to keimeno.");
		printf("\nDwste 3 gia na ektypwsete grammes apo to keimeno.");
		printf("\nDwste 4 gia na eisagete mia symvoloseira sto keimeno.");
		printf("\nDwste 5 gia na antikatastisete mia symvoloseira me mia alli.");
		printf("\nDwste 6 gia na ektypwsete grammes poy periexoun mia symvoloseira.");
		printf("\nDwste 0 gia eksodo.");
		scanf("%d",&a);
		getchar();
		if(a==1)
		add();
		else if(a==2)
		del();
		else if(a==3)
		print();
		else if(a==4)
		insert();
		else if(a==5)
		replace();
		else if(a==6)
		last();
	}while(a!=0);
}
int main()
{
	menu();
	return 0;
}