/*
coded by :Da_MoRz
Email :p_mdriyaz@hotmail.com
*/
/*____________________________ ECMA(Ver 1.11) __________________________*/
/*_____________________________ Source  code ___________________________*/
/*__________________________________________________________Header files*/

#include <stdio.h>
#include <conio.h>
#include <process.h>

/*___________________________________________________Global Declarations*/

FILE *fv,*fk;
int tot=1;

/*_________________________________________________Function declerations*/

void prnt_top(void);
void prnt_scr(void);
void rec_cmp(char,float);
void rec_in(char,float,int);
float rec_out(char);

void main()
{

/*________________________________________________________Initialization*/

	char var1,var2,var3,var4,op;
	int check=1,ct=1,chk_goto,found_goto;
	int command_no=0;
	int i=0,go=0;float j;
	float val2=0.0,val3=0.0;
	float sum2,sum3;
	FILE *fx,*fy,*fz,*fc,*fw;
clr:
	fw=fopen("var4.ec","w");
	fx=fopen("var1.ec","w");
	fy=fopen("var2.ec","w");
	fz=fopen("var3.ec","w");
	fc=fopen("commands.ec","w");
	fv=fopen("value.ec","w");
	fclose(fv);
/*_______________________________________________________Store the files*/

clrscr();
prnt_top();
prnt_scr();
clrscr();
prnt_top();
while(check)
	{
	begin:
	go=0;
	op=' ';var1=' ';var2=' ';var3=' ';var4=' ';
	printf("(Ln:%d)",command_no+1);
	printf("Operator--> ");
	op=getche();
	if(op=='\b') {command_no=0;goto clr;}
	if(op=='\r') {printf("\a");goto begin;}
	if(op==';') go=1;
	if(op==':') go=2;
	if(op=='g' || op=='d')
		{
		printf(" Label--> ");
		if(op=='d'){var1=getche();}
		if(op=='g'){var2=getche();}
		if((op=='d' && var1=='\r') || (op=='g' && var2=='\r')) {printf("\a");goto begin;}
		printf("\n");
		}
	else if(op=='x'){check=0;}
	else
		{
		printf(" Option--> ");
		var1=getche();
		if(var1=='\r') {printf("\a");goto begin;}
		printf(" Var 1--> ");
		var2=getche();
		if(var2=='\r') {printf("\a");goto begin;}
		if(go!=1)
			{
			printf(" var 2--> ");
			var3=getche();
			if(var3=='\r') {printf("\a");goto begin;}
			if(go != 2)
				{
				printf(" Eq.Var--> ");
				var4=getche();
				}
			}
		printf("\n");
		}
	++command_no;
	if(op !='x')

		{
		fwrite(&var1,sizeof(var1),1,fx);
		fwrite(&var2,sizeof(var2),1,fy);
		fwrite(&var3,sizeof(var3),1,fz);
		fwrite(&var4,sizeof(var4),1,fw);
		fwrite(&op,sizeof(op),1,fc);
		}
	}
fclose(fc);fclose(fz);fclose(fy);fclose(fx);fclose(fw);

/*___________________________________________________________________Run*/


fx=fopen("var1.ec","r");
fy=fopen("var2.ec","r");
fz=fopen("var3.ec","r");
fw=fopen("var4.ec","r");
fc=fopen("commands.ec","r");
getch();
coding:
clrscr();
prnt_top();
printf("\n\n\n\n\n\n\n\n\n\n\t   Press BACKSPACE to list the code (or) any other key to RUN");
if(getch()=='\b')
	{
	clrscr();
	prnt_top();
	rewind(fc);rewind(fx);rewind(fy);rewind(fz);rewind(fw);ct=1;
	printf("PROGRAM CODING");
	printf("\n~~~~~~~~~~~~~~\n");
	while(ct<command_no)
	{
	fread(&op,sizeof(op),1,fc);
	fread(&var1,sizeof(var1),1,fx);
	fread(&var2,sizeof(var2),1,fy);
	fread(&var3,sizeof(var3),1,fz);
	fread(&var4,sizeof(var4),1,fw);
	printf("Ln:%d %c %c %c %c %c\n",ct,op,var1,var2,var3,var4);
	ct++;
	if(!(ct%15))
		{printf("Press any key ...\n");getch();}
	}
	getch();
	goto coding;
	}
clrscr();
prnt_top();
rewind(fc);rewind(fx);rewind(fy);rewind(fz);rewind(fw);ct=1;
while(ct<command_no)
	{
	fread(&op,sizeof(op),1,fc);
	fread(&var1,sizeof(var1),1,fx);
	fread(&var2,sizeof(var2),1,fy);
	fread(&var3,sizeof(var3),1,fz);
	fread(&var4,sizeof(var4),1,fw);
/*__________________________________________________________Input-single*/

	if(op==';' && var1=='i')
		{
		printf("\n");
		printf("Enter the value of %c:",var2);
		scanf("%f",&val2);
		rec_in(var2,val2,ct);
		tot+=1;
		}
/*__________________________________________________________Input-double*/

	else if(op==':' && var1=='i')
		{
		printf("\n");
		printf("Enter the value of %c:",var2);
		scanf("%f",&val2);
		rec_in(var2,val2,ct);
		printf("Enter the value of %c:",var3);
		scanf("%f",&val3);
		rec_in(var3,val3,ct);
		tot+=2;
		}
/*__________________________________________________________Print-single*/

	else if(op==';' && var1=='p')
		{
		if(rec_out(var2))
		printf("\nThe value of %c is :%f",var2,rec_out(var2));
		else printf("\nLn:%d OUTPUT ERROR [Variable dosent exist]\n",ct);
		}
/*__________________________________________________________Print-double*/

	else if(op==':' && var1=='p')
		{
		printf("\n");
		if(rec_out(var2))
		printf("The value of %c is :%f",var2,rec_out(var2));
		else printf("\nLn:%d OUTPUT ERROR [Variable dosent exist]\n",ct);

		if(rec_out(var3))
		printf("\nThe value of %c is :%f",var3,rec_out(var3));
		else printf("\nLn:%d OUTPUT ERROR [Variable dosent exist]\n",ct);
		}

/*____________________Addition/Subtraction/Multiplication/Division/power*/

	else if(op=='+' || op=='-' || op=='*' || op=='/' || op=='^')
		{
			if(rec_out(var2) && rec_out(var3))
				{
				sum2=rec_out(var2);
				sum3=rec_out(var3);
				if(op=='+')
					sum3=sum2+sum3;
				if(op=='-')
					sum3=sum2-sum3;
				if(op=='*')
					sum3=sum2*sum3;
				if(op=='/')
					sum3=sum2/sum3;
				if(op=='^')
					{
					j=1;
					for(i=0;i<(int)sum3;i++)
						j=j*sum2;
					sum3=j;
					}
				rec_in(var4,sum3,ct);
				tot+=1;
				if(var1=='p')
					printf("\nThe value of %c is :%f",var4,rec_out(var4));
				}
			else
			printf("\nLn:%d OUTPUT ERROR [Variable dosent exist]\n",ct);
		}

/*______________________________________Goto statements(defnition/access)*/

	else if(op=='d')
		printf("\nThe LABEL:%c has been defined in Ln:%d\n",var1,ct);
	else if(op=='g')
		{
		found_goto=0;
		chk_goto=1;
		rewind(fx);
		while(chk_goto<command_no)
			{
			fread(&var1,sizeof(var1),1,fx);
			if(var1!=var2)
				chk_goto++;
			else
				{
				found_goto=1;
				break;
				}
			}
		if(found_goto)
			{
			fseek(fc,chk_goto,SEEK_SET);
			fseek(fx,chk_goto,SEEK_SET);
			fseek(fy,chk_goto,SEEK_SET);
			fseek(fz,chk_goto,SEEK_SET);
			fseek(fw,chk_goto,SEEK_SET);
			ct=chk_goto;
			}
		if(!found_goto)
			{
			printf("\nERROR [Call to unknown,undefined LABEL in Ln:%d].The program has been terminated\n",ct);
			getch();
			exit(0);
			}
		getch();
		}

/*______________________________________________________________________*/

	else {printf("\nLn:%d INVALID SYNTAX\n",ct);}
	++ct;
	}
getch();
fclose(fc);fclose(fz);fclose(fy);fclose(fx);fclose(fw);
clrscr();
prnt_top();
prnt_scr();
}

/*________________________________________________________End of program*/

/*_____________________________________________________________Functions*/

/*_____________________________________________________Display functions*/

void prnt_top(void)
{
int int_scr=0;
unsigned char col=219;
printf("ECMA(Ver 1.11)\n");
for(int_scr=0;int_scr<80;int_scr++)
printf("%c",col);
}

/*______________________________________________________________________*/

void prnt_scr(void)
{
printf("\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n");
printf("ECMA(Extended C on Mathematical Applications)");
printf("\nVersion :1.11\\05\\10\\01");
printf("\nUrl : http://www.geocities.com/ecma_ver1");
printf("\nCode developed by :Riyaz");
printf("\nEmail :p_mdriyaz@hotmail.com");
getch();
}

/*_______________________________________________________________compare*/

void rec_cmp(char cc,float ii)
{
char ccl;float iil;
int chk=1;
fv=fopen("value.ec","r");
fk=fopen("temp.ec","w");
rewind(fv);
while(chk<tot)
	{
	fscanf(fv,"%c %f",&ccl,&iil);
	if(ccl==cc)
		{
		iil=ii;
		fprintf(fk,"%c %f",ccl,iil);
		}
	else
		fprintf(fk,"%c %f",ccl,iil);
	++chk;
	}
fclose(fv);fclose(fk);
fv=fopen("value.ec","w");
fk=fopen("temp.ec","r");
chk=1;
while(chk<tot)
	{
	fscanf(fk,"%c %f",&ccl,&iil);
	fprintf(fv,"%c %f",ccl,iil);
	++chk;
	}
fclose(fv);fclose(fk);
}

/*_________________________________________________________________Input*/

void rec_in(char cc,float ii,int cn)
{
char over;
int chk=1;
int lock=0;
float iil;char ccl;
fv=fopen("value.ec","r");
while(chk<tot)
	{
	fscanf(fv,"%c %f",&ccl,&iil);
	if(cc==ccl)
		{
		printf("\nLn:%d INPUT ERROR [Variable already exists].Overwrite(y/n) :",cn);
		over=getche();
		printf("\n");
		lock=1;
		}
	++chk;
	}
fclose(fv);
if(over=='y')
	rec_cmp(cc,ii);
if(lock==0)
	{
	iil=ii;ccl=cc;
	fv=fopen("value.ec","a+");
	fprintf(fv,"%c %f",ccl,iil);
	fclose(fv);
	}
}

/*________________________________________________________________Output*/

float rec_out(char cc)
{
int chk=1;
char ccl;float iil;
fv=fopen("value.ec","r");
rewind(fv);
while(chk<tot)
	{
	fscanf(fv,"%c %f",&ccl,&iil);
	if(cc==ccl)
		{
		fclose(fv);
		return(iil);
		}
	++chk;
	}
fclose(fv);
return(0);
}

/*_______________________________________________________End of funtions*/