[AINSI-C]BRAINFUCK INTERPRETER ;)

// brainfuck interpreter


#include <stdio.h>
#include <stdlib.h>
#include <malloc.h>
#include <time.h>
#include <windows.h>
void interpreteur(void);
void langage(void);
void about(void);

int main(void) {

int choix;
	
do {
printf("*****************brain fuck interpreter*************\\n
	1. interpreter\\n
	2. infos sur le langage\\n
	3. about\\n
	4. quitter\\n");
scanf("%d",&choix);

switch (choix) {

	case 1:
		interpreteur();
		break;
	case 2:
		langage();
		break;
	case 3:
		about();
		break;
	default : break;


}

}while (choix!=4);

return 0;
}

void interpreteur(void) {
FILE *brainfile;
char *braintab;
int nbchar=0;
char temp;
int increment;
int countacc;
int init;
int boucle, continu;
unsigned char c;
int debug=0;
time_t temps1, temps2;
/* variables  du prog interprete */
unsigned char *Ptr;
int etendue=256;
int deplacement=0;
Ptr=(unsigned char *)malloc(etendue*sizeof(char));
for (init=0;init<etendue;init++) 
{
*(Ptr+init)=0;
}



braintab=(char *)malloc(150*sizeof(char));
do {	
printf("\\nmettre le fichier a interpreter ds brainfuck.b (fichier txt) dans le repertoire dans lequel se trouve le programme\\n
 	puis appuyer sur une touche\\n");
fflush(stdin);
getchar();


brainfile=fopen("brainfuck.b", "r");

} while (brainfile==NULL);	

while ((temp=fgetc(brainfile))!=EOF) {
nbchar++;
}
braintab=(char *)malloc((nbchar+5)*sizeof(char));
fclose(brainfile);
brainfile=fopen("brainfuck.b", "r");

printf("***affichage du fichier***\\n\\n");
increment=0;
while ((*(braintab+increment)=fgetc(brainfile))!=EOF) {
printf("%c", *(braintab+increment));
increment++;
}
printf("\\n\\nsortie du programme : \\n\\n");

*(braintab+increment)='\\0';
boucle=0;
continu=0;
/* on teste si le nombre de [ ouvertes est egale au nombre de ] */
countacc=0;
for (increment=0;*(braintab+increment)!='\\0';increment++) {

	if (*(braintab+increment)=='[')
		countacc++;
	if (*(braintab+increment)==']')
		countacc--;
	if (countacc<0)
		break;

}
if (countacc<0) {
	printf("\\nerreur dans les [], veuillez verifier le programme\\n");
} else { 
/*la on a un prog avec les [] justes */
countacc=0;

	for (increment=0;*(braintab+increment)!='\\0';increment++) {
	/* l'interpretation en elle meme */

   	if (*(braintab+increment)=='[')
		countacc++;
	if (*(braintab+increment)==']')
		countacc--;

		switch (*(braintab+increment)) {
			case '#' :
				debug=1;
				break;
			
			case '>' :
				deplacement++;
				if (deplacement>=etendue) {
					etendue+=10;
					realloc(Ptr, etendue);
					for (init=0;init<10;init++) {
					*(Ptr+init)=0;
					}
				}
				Ptr++;
				break;
			case '<' :
				deplacement--;
				if (deplacement<0) {
				printf("\\ntentative d acces a une zone non allouee. ");
				}else {
					Ptr--; }
				break;
			case '+' :
				if (*Ptr<256)
					(*Ptr)++;
				break;
			case '-' :
				if (*Ptr>0)
					(*Ptr)--;
				break;

			case '.' :
				printf("%c",*Ptr);
				break;
			case ',' :
				c=getchar();
				while (c=='\\n') // sinon le \\n reste ds le buffer stdin.......
				scanf("%c", &c);
				*Ptr=c;
                break;
			
			case '[' :
				if (*Ptr==0){
                     countacc=1;

                     while (countacc!=0){
                           increment++;
                           if (*(braintab+increment)=='[')
                              countacc++;
                           if (*(braintab+increment)==']')
                              countacc--;

                   //  printf("countacc %d increment %d braintab %c", countacc, increment, *(braintab+increment));
                    // Sleep(1000);
                     }



				}

				break;
			case ']' :
				if (*Ptr!=0) { /* on recherche la precedente [ */

                 countacc=-1;
                 while (countacc!=0) {
                       increment--;
                       if (*(braintab+increment)=='[')
                          countacc++;
                       if (*(braintab+increment)==']')
                          countacc--;

                 }




				boucle++;
				if (boucle>10000 && continu==0) {
					printf("\\nla boucle semble etre sans fin, continuer ? (0 : non, 1 : oui)  ");
					scanf("%d", &continu);
					if (continu==0) goto pb;
				}// boucle sans fin ?
				
				}// if *Ptr!=0
				
				break;

		
		
		
		}
		
	if (debug) {
	printf("\\ncaractere %d, valeur du *Ptr %d en asci : %c, Ptr=%c", increment, *Ptr, *Ptr, Ptr);
	
//	temps2=temps1;
//	while (temps1==temps2) {
//	time(&temps1);
//	}
	
	}
	
	
	}
	


}


pb :

printf("\\n\\n");
free(braintab);
free(Ptr-deplacement-128);



return;
}

void langage(void) {
printf("\\n\\n
	> incremente le pointeur 	Ptr++\\n
	< decremente le pointeur	Ptr--\\n
	+ incremente la valeur pointee	(*Ptr)++\\n
	- decremente la valeur pointee	(*Ptr)--\\n
	[ boucle tant que la valeur du pointeur n est pas zero   (while (*Ptr)!=0 )\\n
	] ferme la boucle\\n
	, demande une valeur a l'utilisateur (char) et la place dans la variable pointee\\n
	. affiche a l ecran la valeur de la variable pointee\\n
	# active le mode debug\\n
	tout autre caractere est ignore, le pointeur pointe vers des unsigned char (de 0 a 256 donc..)
	\\n\\n");
return;
}

void about(void) {
	return;

}