#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <string.h>

#include "libbmp.h"
#include "libstegano.h"
#include "libcrypto.h"

//CONSTANTES
unsigned int SIZEHEADER;
byte *TABHEADER;


byte *readFile (char *path, unsigned int *size)
{
	//lecture du fichier
	FILE *fichier = NULL;
 	fichier = fopen (path, "rb");//"rb"=ouvert en mode binaire

	//Vérification de la présence du fichier
	if(fichier==NULL)
	{
		printf("[ERREUR] Aucun fichier n'est lu\n\n");
	}
	else
	{
		printf("[OK] Lecture du fichier\n\n");
	}

	//Taille du fichier
	fseek(fichier,0,SEEK_END);	//[déplacement] du ptr à la fin à partir case 0

	*size = ftell(fichier);		//retourne [position] ptr dans fichier
	
	rewind(fichier);//remet ptr au début du fichier
	
	if(*size!=0)
	{
		printf("[OK] Détermination de la taille du fichier\n");
		printf("     Taille = %d octets\n\n", *size);
	}
	else
	{
		printf("[ERREUR] Détermination de la taille du fichier\n");
	}

	//Déclaration tableau dynamique taboctet, *size élément à allouer de taille byte
	byte *tab;
	tab = (byte*) calloc (*size, sizeof(byte));

	//Récupération données du fichier
	fread (tab, 1, *size, fichier);//(tab, taille_element_lu, 

	//fermeture du fichier
	fclose(fichier);
	
	return tab;

}


int writeFile (char *path, byte *array, unsigned int size)
{
	//lecture du fichier
	FILE *fichier = NULL;
 	fichier = fopen (path, "ab+");//"wb"=fichier ouvert en mode binaire

	//Vérification de la présence du fichier
	if(fichier==NULL)
	{
		printf("[ERREUR] Aucun fichier ne peut être écrit\n\n");
	}
	else
	{
		printf("[OK] Ecriture du fichier\n\n");
	}


	//Ecriture sur le fichier, 1=>bitparbit, sizeof(byte)=>nbr case mem taille octet=bytes
	fwrite(array, 1, size, fichier);//(ptr, taille_element, nbr_element, fichier)

	fclose(fichier);
	
	return 0;
}

int readValue (byte *array, int length, unsigned int *value)
{
	int i, j=0;
	for(i=0; i<length; i++)
	{
		*value = *value + array[i]*puissance(2, j);
		j+=8;
	}
	SIZEHEADER = *value;
	return 0;
}

unsigned int puissance(unsigned int valeur, int j)
{
	int i;
	unsigned int res = 1;
	for(i=0; i<j; i++)
	{
		res = res*valeur;
	}
	return res;
}

byte *readImg (char *path, unsigned int *size)
{	
	//lecture du fichier
	FILE *fichier = NULL;
 	fichier = fopen (path, "rb");//"rb"=ouvert en mode binaire

	//Taille du fichier
	fseek(fichier,0,SEEK_END);
	unsigned int sizeFichier = ftell(fichier);
	
	//Taille tabPix
	*size = sizeFichier - SIZEHEADER;
	
	//Stockage de tabHeader dans variable globale
	fseek(fichier,0,SEEK_SET);
	TABHEADER = (byte*) calloc (SIZEHEADER, sizeof(byte));
	fread(TABHEADER, 1, SIZEHEADER, fichier);
	printf("Première valeur TABHEADER = %d\n", TABHEADER[0]);
	
	
	//Détermination de la position lecture pour tabPix
	fseek(fichier, SIZEHEADER+1,SEEK_SET);	//[déplacement] du ptr à la fin à partir case 0

	//Déclaration tableau dynamique taboctet, *size élément à allouer de taille byte
	byte *tabPix;
	tabPix = (byte*) calloc (*size, sizeof(byte));

	//Récupération données pour tabPix
	fread (tabPix, 1, *size, fichier);//(tab, taille_element_lu_octet, fichier)

	//fermeture du fichier
	fclose(fichier);
	
	return tabPix;
}

int writeImg (char *path, byte *pix, unsigned int size)
{
	//lecture du fichier
	FILE *fichier = NULL;
 	fichier = fopen (path, "wb");//"wb"=écriture en mode binaire
 	
 	fseek(fichier,0,SEEK_SET);
 	
 	//Ecriture du Header
 	fwrite(TABHEADER, 1, SIZEHEADER, fichier);	free(TABHEADER);
	
	//Ecriture du tableau de pixel
	fseek(fichier, SIZEHEADER+1, SEEK_SET);
	fwrite(pix, 1, size, fichier);
	
	fclose(fichier);
	
	return 0;
}