/* --------------------------------
   myio.c
   --------------------------------
*/
/* ------------------------------------------------
   Parte do código do TP2 de 2006
   2006-03-10: created by jcr
   2006-03-24: rev by jcr
	   - added support for an internal format
   2006-04-13: rev by jcr
           - comments describing formats were corrected
   ------------------------------------------------ */

#include <stdio.h>
#include "mydatatype.h"
#include "bool.h"

/* ------------------------------------------------
   O Meu Formato Textual (MFT) para gravação em ficheiro
	 (é apenas uma sugestão, os alunos poderão criar os
	  seus...)

   primeira linha - identificador/nome do desenho
   segunda linha  - autor
   terceira linha - data de criação do ficheiro
   quarta linha - dimensões da matriz na seguinte sintaxe:
	   Linhas = XXXX  Colunas = YYYY
		 em que XXXX e YYYY são inteiros
   restantes linhas - cada linha conterá uma linha do desenho
   ----------------------------------------------------------- */

/* --- Função de leitura de um desenho previamente
	   gravado em MFT

	   O resultado da função é um booleano:
		 1 : o desenho foi lido com sucesso
		 0 : o desenho não foi lido, ocorreu um erro */

boolean LoadMFT( char fnome[], DESENHO d )
/* fnome: nome do ficheiro que se vai carregar
   d    : matriz onde vai ser carregado o desenho */
{
  FILE *fp;
  char linha[MAXCOLUNAS+1];   // usada para ler as linhas de comentário
  int i, j;               // variáveis de controlo das linhas e colunas
  boolean erro=FALSE;  // a primeira linha da matriz guardará a dim da imagem

  fp = fopen(fnome,"r");
  if(!fp) return FALSE;  // se não se conseguiu abrir o ficheiro
						 // termina-se a execução do programa
  else
  {
	fgets(linha,MAXCOLUNAS+1,fp); /* lê a linha com o identificador
									 e, nesta versão não faz nada com ele */
	fgets(linha,MAXCOLUNAS+1,fp); /* faz o mesmo para o autor */
	fgets(linha,MAXCOLUNAS+1,fp); /* faz o mesmo para a data */

	/* --- leitura das dimensões da matriz --- */
	fscanf(fp,"%*[^=]=%d %*[^=]=%d",&d[0][0],&d[0][1]);

	fgets(linha,MAXCOLUNAS+1,fp); /* limpa o resto da linha */

	i=1;
	while((i<=d[0][0])&&(!erro)) //Enq não se tiverem lido as linhas todas
	{
	  j=0;
	  while((j<d[0][1])&&(!erro)) // Enq não se tiverem lido todas as colunas
		if(!fscanf(fp,"%c",&(d[i][j]))) erro = TRUE;
		else j++;
	  while(fgetc(fp)!='\n'); // limpa o resto da linha
	  i++;
	}

	fclose(fp);
	return (!erro);
  }
}

/* --- Função de gravação do desenho carregado na matriz
	   para o formato MFT

	   O resultado da função é um booleano:
		 1 : o desenho foi gravado com sucesso
		 0 : o desenho não foi gravado, ocorreu um erro */

boolean SaveMFT( char fnome[], DESENHO d )
/* fnome: nome do ficheiro onde se vai gravar
   d    : matriz contendo o desenho que se vai gravar */
{
  FILE *fp;
  int i, j;   // variáveis de controlo das linhas e colunas
			  // a primeira linha da matriz contem a dim da imagem

  fp = fopen(fnome,"w");
  if(!fp) return FALSE;
  else
  {
	fprintf(fp,"Desenho de teste\n");
	fprintf(fp,"criado por jcr\n");
	fprintf(fp,"em 2006-03-24\n");
	fprintf(fp,"Linhas = %d  Colunas = %d\n",d[0][0],d[0][1]);

	for(i=1;i<=d[0][0];i++)
	  {
		for(j=0;j<d[0][1];j++)
		  fprintf(fp,"%c",d[i][j]);
		fprintf(fp,"\n");
	  }

	fclose(fp);
	return (TRUE);
  }
}


/* --------------------------------------------------------------------- */
/* --- Função de leitura de um desenho previamente
	   gravado em PBM (P1)

	   O resultado da função é um booleano:
		 1 : o desenho foi lido com sucesso
		 0 : o desenho não foi lido, ocorreu um erro */

boolean Load( char fnome[], DESENHO d )
/* fnome: nome do ficheiro que se vai carregar
   d    : matriz onde vai ser carregado o desenho */
{
  FILE *fp;
  char linha[MAXCOLUNAS+1];   // usada para ler as linhas de comentário
  int i, j;               // variáveis de controlo das linhas e colunas
  boolean erro=FALSE;         // a primeira linha da matriz guardará a dim da imagem

  fp = fopen(fnome,"r");
  if(!fp) return FALSE;
  else
  {
	fgets(linha,MAXCOLUNAS+1,fp); /* lê a linha com o identificador */

	/* Enquanto não conseguir ler as dimensões... */
	while(fscanf(fp,"%d %d",&(d[0][1]),&(d[0][0]))!=2)
	  fgets(linha,MAXCOLUNAS+1,fp); // descarta as linhas com comentários

	i=1;
	while((i<d[0][0])&&(!erro)) //Enq não se tiverem lido as linhas todas
	{
	  j=0;
	  while((j<d[0][1])&&(!erro)) // Enq não se tiverem lido todas as colunas
		if(!fscanf(fp,"%d",&(d[i][j]))) erro = TRUE;
		else j++;
	  i++;
	}

	fclose(fp);
	return (!erro);
  }
}

/* --- Função de exportação do desenho carregado na matriz
	   para o formato PBM (P1)

	   O resultado da função é um booleano:
		 1 : o desenho foi gravado com sucesso
		 0 : o desenho não foi gravado, ocorreu um erro */

boolean ExportPBM( char fnome[], DESENHO d )
/* fnome: nome do ficheiro onde se vai gravar
   d    : matriz contendo o desenho que se vai gravar */
{
  FILE *fp;
  int i, j;   // variáveis de controlo das linhas e colunas
			  // a primeira linha da matriz contem a dim da imagem

  fp = fopen(fnome,"w");
  if(!fp) return FALSE;
  else
  {
	fprintf(fp,"P1\n");
	fprintf(fp,"# Imagem PBM gerada pela aplicação de DESENHO\n");
	fprintf(fp,"%d %d\n",d[0][1],d[0][0]);

	for(i=1;i<=d[0][0];i++)
	  {
		for(j=0;j<d[0][1];j++)
		{
		  if(d[i][j]!=' ') fprintf(fp,"1 ");
		  else fprintf(fp,"0 ");
		  if(j%69) fprintf(fp,"\n");
		}

		fprintf(fp,"\n");
	  }

	fclose(fp);
	return (TRUE);
  }
}

/* --- Função que escreve a matriz no monitor */

int printDesenho(DESENHO d)
{
  int i,j;

  for(i=1;i<=d[0][0];i++)
  {
	for(j=0;j<d[0][1];j++)
		printf("%c",d[i][j]);
	printf("\n");
  }

  return 0;
}