/* from Repair fossil .exe from "Enzyme21" ;*/

/*#include <stdio.h>;
#include <stdlib.h>;
#include <process.h>;*/

/*#include <filebackup.h>;*/

/*Outside Function, is 4 kinds,
1)discover1st();
2)discoverend();
3)closeend();
4)between2linekw1st();
5)repairfossil();
6)refossil2();
;*/
//==========================================================================
int discover1st(char buf[258],char keyword[258])
{
/*char buf[258], keyword[258];*/
/*strcpy(buf,str1);
strcpy(keyword,str2);*/
static int bufferlength,keywordlength,keychar1st,i,j;



/*printf("%d\n",keywordlength);
printf("%s%s\n",buf,keyword);
exit(1);*/
keychar1st=-1;
	for(i=0;buf[i]!='\0';i++)//'+1+1'is '\n+\0' character No.;
	{
		if (buf[i]==keyword[0])
		{
			for (j=0 ;j<=strlen(keyword)-1;j++)
			{

			//For example, 'abcde',
			//keyword[0]='a' and keyword[4]='e';

				if (buf[i+j]!=keyword[j] )
				{keychar1st=-1;
				goto nomatchranaway;
				}
			}
			/*printf("atta!\n");
			exit(1);*/
			keychar1st=i;
			goto oncediscover;
		}
	nomatchranaway:;
	}
oncediscover:;
/*first keyword's keyword[0] 's location sberch,*/
/*ignore after second keywords of one lines.;*/
/*printf("%d\n",keychar1st);
exit(1);*/

/*for(i=0;*(buf+i)!='\0';i++)
{
	if (*(buf+i)==*(keyword+0)){
		for(j=0;*(keyword+j)!='\0';j++){

			if(*(buf+i+j)!=*(keyword+j)){
			keychar1st=-1;
			goto nomatchranaway;
			}

		}
	keychar1st=i;
	goto oncediscover;
	}
nomatchranaway:;
}
oncediscover:;*/
return(keychar1st);
}
//==========================================================================
int discoverend(char *buf,char *keyword)
{
int keywordlength;
keywordlength=strlen(keyword);
/*;*/
return(discover1st(buf,keyword)+keywordlength-1);
}
//==========================================================================
void closeend(void)
{
/*;*/
exit(1);
}
/*=======================================================================;*/
int between2line(char chbuf[258],char keyword[258])
{
char newkeyword[258],oldkeyword[258];
strcpy(oldkeyword,keyword);
/*printf("%s\n",oldkeyword);*/
int alpha,chno,kl,check;
kl=strlen(keyword);
check=-1;

for(alpha=0;alpha<=kl-1-1;alpha++)/*alpha,new keyword kinds No.;*/
	{
	for(chno=0;chno<=kl-1+2+1;chno++)
		{
		if(chno<alpha)   {newkeyword[chno]=oldkeyword[chno];}

		if(chno==alpha)  {newkeyword[chno]=oldkeyword[chno];}
		if(chno==alpha+1){newkeyword[chno]='#';}
		if(chno==alpha+2){newkeyword[chno]='#';}
		if(alpha+2<chno){newkeyword[chno]=oldkeyword[chno-2];}
		if(chno==kl-1+2+1)  {newkeyword[chno]='\0';}
		/*	-1+2+1
			-1
			-1 to n as, 0 to n-1/+2='##'/+1=for '\0'*/

/*	if(chno<alpha)   {*(newkeyword+chno)=*(oldkeyword+chno);}
	if(chno==alpha)  {*(newkeyword+chno)=*(oldkeyword+chno);}
	if(chno==alpha+1){*(newkeyword+chno)='#';}
	if(chno==alpha+2){*(newkeyword+chno)='#';}
	if(chno+2<alpha) {*(newkeyword+chno)=*(oldkeyword+chno-2);}*/

	/*keywordlength=7;
	  alpha       =7-1

	chno:	0123456  012345678

	alpha=0 keyword  k##eyword : k\0 + eyword k##eyword
	alpha=1 keyword  ke##yword : ke\0 + yword ke##yword
	alpha=2 keyword  key##word : key\0 + word key##word
	alpha=3 keyword  keyw##ord : keyw\0 + ord keyw##ord
	alpha=4 keyword  keywo##rd : keywo\0 + rd keywo##rd
	alpha=5 keyword  keywor##d : keywor\0 + d keywor##d

	real no 0123456  012345678   before-str + after-str =chstr
	     keyword[chno-1] newkeyword[chno-1]

	attention;'##'(2 # is for 2byte code char.)
	;*/
	/*printf("%s\n",newkeyword);*/
		check=discover1st(chbuf,newkeyword);
		if (check!=-1) break;
		}
	}

return(check);
}
/*=======================================================================;*/
void repairfossil
(char read_filename[258],
char keyword1[258],
char keyword2[258],
char out_filename[258])
{
printf("%s %s\n",read_filename,keyword1);
int i,j,m,n;
int kwflag;

char keyword[258];
/*strcpy(keyword,"あいうえお");*/
strcpy(keyword,keyword1);

char bufa[258],bufb[258];/*buf-a front line buffer,buf-b back line buffer.*/
char chbuf[258];
/*chbuf is for CR-LFed keyword plusedas bufa + "##"(marker) + bufb.;*/
/*remainbuf is remain of chbuf removed off CR-LFed Keyword.;*/

/*strcpy(keyword,keyword1);*/
FILE *read_fp;
FILE *writefp;

if((read_fp=fopen(read_filename,"r"))!=NULL)
	{
	/*Check read_fp:Original-file exist.;*/
	writefp=fopen(out_filename,"w");
	/* output file is "temp.txt" only, original-file is no changed any element.;*/
	strcat(bufa,"== ");		/*Write filename to 1st buffer.;*/
	strcat(bufa,read_filename);
	strcat(bufa," =====");

	while(fgets(bufb,256,read_fp)!=NULL)/*Read file line to "nd Buffer;*/
		{
		for(i=0;i<=258;i++)
			{
			chbuf[0]='\0';		/*Initialize to chbuf;*/
			}
		for(j=0;j<=258;j++)/*Remove \n code to Conbine-Next.;*/
			{
			if(bufa[j]=='\n')bufa[j]='\0';
			}
		strcat(chbuf,bufa);/* Bis conthent-buffer making with marker.;*/
		strcat(chbuf,"##");
		strcat(chbuf,bufb);
		kwflag=between2line(chbuf,keyword);
		/*Check CR-LFed keyword Being;*/
		if (kwflag==-1)		/*If key word nothing,1st buf write,;*/
			{		/*and 2nd buf to 1st buf as renewal.;*/
			fputs(bufa,writefp);
			fprintf(writefp,"\n");
			strcpy(bufa,bufb);
			}
		if (kwflag!=-1)                 /*When Discovered CRLFkeyword,;*/
			{
			for(n=0;n<=kwflag-1;n++)/*Write to file until keyword.;*/
				{
				fprintf(writefp,"%c",chbuf[n]);
				}
			fprintf(writefp,"\n");	/*Newline to protect line Over flow.;*/
			fprintf(writefp,"%s\n",keyword);/*Write keyword;*/
			/*Write Remain of chbuf to File;*/
			for(m=kwflag+strlen(keyword)+2;chbuf[m]!='\0';m++)
				{
				bufa[m-(kwflag+strlen(keyword)+2)]=chbuf[m];
				}
			bufa[m+1-(kwflag+strlen(keyword)+2)]='\0';
			printf("%s\n",bufa);
			}
		}/*whiles end.;*/
	fprintf(writefp,bufa);
	fclose(writefp);
	fclose(read_fp);
	}/*fopen of read_fp's end.*/

if((read_fp=fopen(read_filename,"r"))==NULL)
	{
	printf("Cannot File open.\n");
	fclose(read_fp);
	}
}/*general end;*/
/*========================================================================;*/
/* function of CRLFed Keyword repair=======================================*/
static char globalchbuf[520],globalkeyword[258];
/* This two are passed to mt.c as pedegree by extern-command.=============;*/
/*========================================================================;*/
void refossil2(void)
{
/* it recieves through parameters of global:strings,
    globalchbuf[258] and globalkeyword[258];*/

static int i,j,n;
static int d1st;

static char new_chbuf[520],ver_keyword[258];

/*char *new_chbuf_agent;*/
if((globalkeyword[0]=='\0')||(globalkeyword[1]=='\0'))
	{
	strcpy(new_chbuf,globalchbuf);
	}
	else
	{
	for(i=0+1;i<=strlen(globalkeyword)-1;i++)
		{
		strcpy(ver_keyword,globalkeyword);
		for (j=strlen(globalkeyword)-1+1;0<=j;j=j-1)/*'-1' for globalkeyword[0],
							'+1' is for '\0';*/
			{
			ver_keyword[j+1]=ver_keyword[j];
			if (i==j+1)
				{
				goto reach_newline_place_pointed;
				}
			}
		printf("Logic error appeared on Refossil2 on refossil.h .\n");
		exit(1);
		/*=====;*/
		reach_newline_place_pointed:;
		ver_keyword[i]='\n';
		printf("%s\n",ver_keyword);
		/*Serch Chbuf by Ver_keyword including \n of random place.;*/
		d1st=discover1st(globalchbuf,ver_keyword);
		if(d1st!=-1)
			{
			new_chbuf[0]='\0';
			for(n=0;n<=d1st-1;n++)
				{
				new_chbuf[n]=globalchbuf[n];
				}
			n=n-1;
			new_chbuf[n+1]='\0';

			strcat(new_chbuf,"\n");
			strcat(new_chbuf,globalkeyword);
			for(n=d1st+strlen(ver_keyword);globalchbuf[n]!='\0';n++)
				{
				new_chbuf[n]=globalchbuf[n];
				}
			n=n-1;
			new_chbuf[n+1]='\0';
			strcat(new_chbuf,"\n");

			strcpy(globalchbuf,new_chbuf);
			goto oncediscover;
			}
			else
			{
			strcpy(new_chbuf,globalchbuf);
			}
		}
	}
/*strcpy(new_chbuf_agent,new_chbuf);*/
oncediscover:;
/*printf("globalchbuf:%s\nnew_chbuf in refossil2:%s\n",globalchbuf,new_chbuf);*/
//return(&new_chbuf[0]);no actually action for passing by global function-strings.
}
/*== end; =================================================================;*/