//Assignment 7

//test reading function and to determine magic square value for assign 7
#include <stdio.h>
#include <stdlib.h>
#define MAX_SIZE 10

void readem(int x[MAX_SIZE][MAX_SIZE],int *n, int *end);
void get_the_value(int x[MAX_SIZE][MAX_SIZE],int *n,int *value);
void off_diag(int x[MAX_SIZE][MAX_SIZE], int *n, int *value, int *okay);
void rows(int x[MAX_SIZE][ MAX_SIZE], int *n, int *value, int *okay);
void cols(int x[MAX_SIZE][ MAX_SIZE], int *n, int *value, int *okay);
void output_file(int x[MAX_SIZE][ MAX_SIZE], int *n, int *num, int *ismagic, int *eof);

int main()
{
int row, col; //dummy variable to access the array values
int okay = 1; //dummy variable to test if the function should continue to the next test, assume true
int endoffile = 0; // dummy variable to hold if the source.txt has been read to the end
int mn; //magic number of the current square
int ms[MAX_SIZE][MAX_SIZE]; //table for holding matrix values for magic square
int size; // array size
	readem (ms, &size, &endoffile);

	//prints out the values of the square to the console
	for (row = 1; row <=size; row++)
	{
		for (col = 1; col <= size; col++)
			printf("%4d",ms[row][col]);
		printf("\n");
	}
	
	get_the_value(ms,&size,&mn);
	printf("The magic value is %d\n",mn);

	off_diag(ms, &size, &mn, &okay);
	//printf("\noff_diag okay? %d\n", okay);
	if(okay)
	{
		rows(ms, &size, &mn, &okay);
		//printf("rows okay? %d\n", okay);
	}
	if(okay)
	{
		cols(ms, &size, &mn, &okay);
		//printf("cols okay? %d\n", okay);
	}
	//outputs the results to a text file
	output_file(ms, &size, &mn, &okay, &endoffile);

	return (0);
}

//This function reads the size of the array and then array elements 
//and returns the filled array and size to the main program
void readem(int x[MAX_SIZE][MAX_SIZE],int *n, int *end)
{
	FILE *fin;
	int i,j;
	int input_status;
	if((fin = fopen("source.txt", "r")) == NULL)
	{
		printf ("cannot open the file for reading\n");
		exit(1);
	}
	input_status =fscanf(fin,"%d", n);
	//printf ("size of matrix is %d\n",*n);

	//assigns the read values to the array
	for (i=1; i<= *n;i++)
	{
		for (j=1; j<= *n; j++)
		{
			input_status = fscanf(fin, "%d",&x[j]);
		}
	}
	if(input_status == EOF)
	{
		//printf("FILE END!");
		fclose(fin);
		*end = 1;
	}
}

void get_the_value(int x[MAX_SIZE][MAX_SIZE],int *n,int *value)
{
	int i,sum=0;
	for (i=1;i<=*n;i++)
		sum +=x;  // add the diagonal elements
	*value = sum;      //this time only
	// printf("%d\n",*value);
}


void off_diag(int x[MAX_SIZE][MAX_SIZE], int *n, int *value, int *okay)
{
	int i, sum = 0;
	for(i=0; i<=*n-1; i++)
	{
		sum = sum + x[i+1][*n-i];
		//printf("%d sum of off diagonal = %d\n", i, sum);
	}
	if(sum == *value)
	{
		*okay = 1;
	}		
	else
	{
		*okay = 0;
	}
}

void rows(int x[MAX_SIZE][ MAX_SIZE], int *n, int *value, int *okay)
{
	int i, j, sum = 0;
		for(i = 1; i<=*n; i++)
		{
			sum = 0;
			for(j=1; j<=*n; j++)
			{
				sum = sum + x[j];
				//printf("[%d][%d] sum of rows = %d\n", i, j, sum);
			}
			if(sum != *value)
				*okay=0;
		}
}

void cols(int x[MAX_SIZE][ MAX_SIZE], int *n, int *value, int *okay)
{
	int i, j, sum = 0;
		for(j = 1; j<=*n; j++)
		{
			sum = 0;
			for(i=1; i<=*n; i++)
			{
				sum = sum + x[j];
				//printf("[%d][%j] sum of cols = %d\n", i, j, sum);
			}
			if(sum != *value)
				*okay=0;
		}
}

void output_file(int x[MAX_SIZE][ MAX_SIZE], int *n, int *num, int *ismagic, int *eof){
	int row, col;//dummy variable to access the array values

	FILE *fout;
	if((fout = fopen("output.txt", "w")) == NULL)
	{
		printf ("cannot open the file for writing\n");
		exit(1);
	}
	//display the square in the output file
	for (row = 1; row <=*n; row ++)
	{
		for (col = 1; col <= *n; col++)
			fprintf(fout, "%4d ",x[row][col]);
		fprintf(fout, "\n");
	}
	//tell if it is a magic square or not
	if(*ismagic)
	{
		fprintf(fout, "is a magic square whose constant is %d\n\n", *num);
	}
	else
	{
		fprintf(fout, "is not a magic square\n\n");
	}
	//close files if the end of the input file has been reached
	if(*eof == 1)
		fclose(fout);

}

void readem(int x[MAX_SIZE][MAX_SIZE],int *n, int *end)
{
	FILE *fin;
	int i,j;
	int input_status;
	if((fin = fopen("source.txt", "r")) == NULL)
	{
		printf ("cannot open the file for reading\n");
		exit(1);
	}
	input_status =fscanf(fin,"%d", n);
	//printf ("size of matrix is %d\n",*n);

	//assigns the read values to the array
	for (i=1; i<= *n;i++)
	{
		for (j=1; j<= *n; j++)
		{
			input_status = fscanf(fin, "%d",&x[j]);
		}
	}
	if(input_status == EOF)
	{
		//printf("FILE END!");
		fclose(fin);
		*end = 1;
	}
}

void readem(int x[MAX_SIZE][MAX_SIZE],int *n, int *end)
{
	FILE *fin;
	int i,j;
	int input_status;
	if((fin = fopen("source.txt", "r")) == NULL)
	{
		printf ("cannot open the file for reading\n");
		exit(1);
	}
	input_status =fscanf(fin,"%d", n);
	//printf ("size of matrix is %d\n",*n);

	//assigns the read values to the array
	for (i=1; i<= *n;i++)
	{
		for (j=1; j<= *n; j++)
		{
			input_status = fscanf(fin, "%d",&x[j]);
		}
	}

	if(input_status == EOF)
	{
		//printf("FILE END!");
		fclose(fin);
		*end = 1;
	}
else
{
printf("My teacher writes crappy code");
fclose(fin);
}
}