/* Tema d'esame del 26.XI.2018 */

#include <stdio.h>

#define DIM_AUTO 12

void show(int aut[][DIM_AUTO]) {

	int i,j;
	for(i=0;i<DIM_AUTO;i++) printf("-");
	printf("\n");
	for(i=0;i<DIM_AUTO;i++) {
		for(j=0;j<DIM_AUTO;j++) {
			//Linux
			if(aut[i][j]==0) printf("\u2591"); //rettangolo grigiochiaro
			if(aut[i][j]==1) printf("\u2593"); //rettangolo grigioscuro
			/*//Windows 
			if(aut[i][j]==0) printf("\xB2"); //rettangolo grigiochiaro
			if(aut[i][j]==1) printf("\xB0"); //rettangolo grigioscuro
			*/
		}
		printf("\n");
	}
	for(i=0;i<DIM_AUTO;i++) printf("-");
	printf("\n");
}

int next_cell_state(int aut[][DIM_AUTO], int i, int j){

int x,y,na=0,na1=0,xmax,ymax; //na = numero celle vive nell'intorno di (i,j),
//PC VERSION
for(x=i-1;x<=i+1;x++)
    for(y=j-1;y<=j+1;y++)
        if(x>=0 && x<DIM_AUTO && y>=0 && y<DIM_AUTO)
            na+=aut[x][y];
//
/*
(i==0)? (x=0): (x=i-1);
(i==DIM_AUTO)? (xmax=i): (xmax=i+1);

for(; x<=xmax; x++) {
	(j==0)? (y=0): (y=j-1);
	(j==DIM_AUTO)? (ymax=y): (ymax=j+1);
	for(; y<=j+1; y++)
		if(aut[x][y]==1) na++;
}
*/
if(aut[i][j]==1) {
	if(na<3) return 0; // viva con meno di 2 vicine vive, allora muore
	if(na<=4) return 1;//viva con $2$ o $3$ vicine vive, allora resta viva
	if(na>4) return 0;//viva con piu' di $3$ vive, allora muore
}
else if(na==3) return 1;//morta con $3$ vicine vive, allora diventa viva

return 0;
}


void next_automata_state(int aut[][DIM_AUTO]){
	int newaut[DIM_AUTO][DIM_AUTO];
	int i,j;
	for(i=0;i<DIM_AUTO;i++)
		for(j=0;j<DIM_AUTO;j++)
			newaut[i][j]=next_cell_state(aut,i,j);

	for(i=0;i<DIM_AUTO;i++)
		for(j=0;j<DIM_AUTO;j++)
			aut[i][j]=newaut[i][j];

}

int importa(FILE* fp,int aut[][DIM_AUTO]) { //Importa automa da file gia' aperto in lettura
	int i;
	int cells=0;

	for (i=0; i<DIM_AUTO; i++)
	cells=cells+fscanf(fp,"%d %d %d %d %d %d %d %d %d %d %d %d ",&aut[i][0],&aut[i][1],&aut[i][2],&aut[i][3],&aut[i][4],&aut[i][5],&aut[i][6],&aut[i][7],&aut[i][8],&aut[i][9],&aut[i][10],&aut[i][11]);
	return cells;
}

int esporta(FILE* fp,int aut[][DIM_AUTO]) {//Salva automa su file gia' aperto in scrittura
	int i;
	int cells=0;

	for (i=0; i<DIM_AUTO; i++)
	cells=cells+fprintf(fp,"%d %d %d %d %d %d %d %d %d %d %d %d\n",aut[i][0],aut[i][1],aut[i][2],aut[i][3],aut[i][4],aut[i][5],aut[i][6],aut[i][7],aut[i][8],aut[i][9],aut[i][10],aut[i][11]);

	return cells;
}

int leggi_stringa(char *str) {
	int i=0;
	printf("Digitare il path del file da aprire: ");
	while (fgets(str,BUFSIZ,stdin)==NULL)
		printf("Ridigitare, per favore: ");
	for(;str[i]!='\n';i++);
	str[i]='\0';

	return 0;
}


void run(int n,int aut[][DIM_AUTO]){
		int i;
		for(i=0;i<n; i++) {
			next_automata_state(aut);
			show(aut);
		}
}

int main(){

	int aut[DIM_AUTO][DIM_AUTO]={0};

	int i=0,j=0,cont=1, scelta=0;
	char nomefile[BUFSIZ];
	int cells=0;
	char menu[]="1.\tmostra automa corrente.\n2.\trendi viva una cella.\n3.\tprossimo stato.\n4.\tleggi stato da file\n5.\tscrivi stato su file\n6.\tn stati\n7.\tEsci.\nFai la tua scelta:";

	do
	{
		printf("%s",menu);
		scanf("%d%*c", &scelta);

		switch(scelta)
		{
		case 1: show(aut); break;
		case 2:
		{
			printf("Inserisci riga:");
			scanf("%d%*c", &i);
			printf("Inserisci colonna:");
			scanf("%d%*c", &j);

			if (0<= i && i<= DIM_AUTO-1 && 0<= j && j<= DIM_AUTO-1) {
				aut[i][j]=1;
	//			printf("\nCella (%d,%d) viva!\n",i,j);
			}
			else printf("Coordinate errate!.\n");
		}
		break;
		case 3:
		{ next_automata_state(aut);
		}
		break;
		case 4: {
			leggi_stringa(nomefile);
			FILE* fp=fopen(nomefile,"r");
			if (fp==NULL)	{
				printf("Errore nell'apertura del file: %s\n", nomefile);
			}
			else {
				cells=importa(fp,aut);
				if(cells==144) printf("Automa letto correttamente\n");
				else printf("Errore in lettura celle\n");
				cells=0;
				fclose(fp);
			}
		} break;
		case 5: {
			leggi_stringa(nomefile);
			FILE* fp=fopen(nomefile,"w");
			if (fp==NULL)	{
				printf("Errore nell'apertura del file: %s\n", nomefile);
			}
			else {
				cells=esporta(fp,aut);
				if(cells==288) printf("Automa salvato correttamente\n");
				else printf("Errore in scrittura celle\n");
				cells=0;
				fclose(fp);
			}
		} break;
		case 6:{
			printf("Quante transizioni vuoi fare?");
			scanf("%d%*c", &j);

			if (0< j) run(j,aut);
			else printf("Le transizioni devono essere positive!.\n");

		} break;
		case 7:	cont=0; break;
		default: printf("Scelta inesistente.\n");
		}
	}
	while (cont);


	return 0;


}