/*
 * Copyright (c) 2011-2012, Centre National d'Etudes Spatiales (CNES), France 
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS `AS IS'
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 */

/*
 * compareRAWimages.c
 *
 *  Created on: 31 August 2011
 *      Author: mickael
 */

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

#include "opj_getopt.h"

typedef struct test_cmp_parameters
{
	/**  */
	char* base_filename;
	/**  */
	char* test_filename;
} test_cmp_parameters;

/*******************************************************************************
 * Command line help function
 *******************************************************************************/
static void compareRAWimages_help_display(void) {
	fprintf(stdout,"\nList of parameters for the comparePGX function  \n");
	fprintf(stdout,"\n");
	fprintf(stdout,"  -b \t REQUIRED \t filename to the reference/baseline RAW image \n");
	fprintf(stdout,"  -t \t REQUIRED \t filename to the test RAW image\n");
	fprintf(stdout,"\n");
}

/*******************************************************************************
 * Parse command line
 *******************************************************************************/
static int parse_cmdline_cmp(int argc, char **argv, test_cmp_parameters* param)
{
	int sizemembasefile, sizememtestfile;
	int index;
	const char optlist[] = "b:t:";
	int c;

	/* Init parameters*/
	param->base_filename = NULL;
	param->test_filename = NULL;

	opj_opterr = 0;
	while ((c = opj_getopt(argc, argv, optlist)) != -1)
		switch (c)
		{
		case 'b':
			sizemembasefile = (int)strlen(opj_optarg)+1;
			param->base_filename = (char*) malloc(sizemembasefile);
			param->base_filename[0] = '\0';
			strncpy(param->base_filename, opj_optarg, strlen(opj_optarg));
			param->base_filename[strlen(opj_optarg)] = '\0';
			/*printf("param->base_filename = %s [%d / %d]\n", param->base_filename, strlen(param->base_filename), sizemembasefile );*/
			break;
		case 't':
			sizememtestfile = (int) strlen(opj_optarg) + 1;
			param->test_filename = (char*) malloc(sizememtestfile);
			param->test_filename[0] = '\0';
			strncpy(param->test_filename, opj_optarg, strlen(opj_optarg));
			param->test_filename[strlen(opj_optarg)] = '\0';
			/*printf("param->test_filename = %s [%d / %d]\n", param->test_filename, strlen(param->test_filename), sizememtestfile);*/
			break;
		case '?':
			if ((opj_optopt == 'b') || (opj_optopt == 't'))
				fprintf(stderr, "Option -%c requires an argument.\n", opj_optopt);
			else
				if (isprint(opj_optopt))	fprintf(stderr, "Unknown option `-%c'.\n", opj_optopt);
				else	fprintf(stderr, "Unknown option character `\\x%x'.\n", opj_optopt);
			return 1;
		default:
			fprintf(stderr, "WARNING -> this option is not valid \"-%c %s\"\n", c, opj_optarg);
			break;
		}

	if (opj_optind != argc) {
		for (index = opj_optind; index < argc; index++)
			fprintf(stderr,"Non-option argument %s\n", argv[index]);
		return EXIT_FAILURE;
    }

  return EXIT_SUCCESS;
}

/*******************************************************************************
 * MAIN
 *******************************************************************************/
int main(int argc, char **argv)
{
  int pos = 0;
	test_cmp_parameters inParam;
	FILE *file_test=NULL, *file_base=NULL;
	unsigned char equal = 1;

	/* Get parameters from command line*/
	if (parse_cmdline_cmp(argc, argv, &inParam) == EXIT_FAILURE)
	{
		compareRAWimages_help_display();

		/* Free Memory */
		if (inParam.base_filename){
			free(inParam.base_filename);
			inParam.base_filename = NULL;
		}
		if (inParam.test_filename){
			free(inParam.test_filename);
			inParam.test_filename = NULL;
		}

		return EXIT_FAILURE;
	}

	file_test = fopen(inParam.test_filename, "rb");
	if (!file_test) {
		fprintf(stderr, "Failed to open %s for reading !!\n", inParam.test_filename);

		/* Free Memory */
		if (inParam.base_filename){
			free(inParam.base_filename);
			inParam.base_filename = NULL;
		}
		if (inParam.test_filename){
			free(inParam.test_filename);
			inParam.test_filename = NULL;
		}

		return EXIT_FAILURE;
	}

	file_base = fopen(inParam.base_filename, "rb");
	if (!file_base) {
		fprintf(stderr, "Failed to open %s for reading !!\n", inParam.base_filename);

		/* Free Memory */
		if (inParam.base_filename){
			free(inParam.base_filename);
			inParam.base_filename = NULL;
		}
		if (inParam.test_filename){
			free(inParam.test_filename);
			inParam.test_filename = NULL;
		}

		fclose(file_test);
		return EXIT_FAILURE;
	}

	/* Read simultaneously the two files*/
	while (equal)
	{
		unsigned char value_test = 0;
		unsigned char eof_test = 0;
		unsigned char value_base = 0;
		unsigned char eof_base = 0;

		/* Read one byte*/
		if (!fread(&value_test, 1, 1, file_test)) {
			eof_test = 1;
		}

		/* Read one byte*/
		if (!fread(&value_base, 1, 1, file_base)) {
			eof_base = 1;
		}

		/* End of file reached by the two files?*/
		if (eof_test && eof_base)
			break;

		/* End of file reached only by one file?*/
		if (eof_test || eof_base)
		{
			fprintf(stdout,"Files have different sizes.\n");
			equal = 0;
		}

		/* Binary values are equal?*/
		if (value_test != value_base)
		{
			fprintf(stdout,"Binary values read in the file are different %x vs %x at position %d.\n", value_test, value_base, pos);
			equal = 0;
		}
    pos++;
	}

	/* Free Memory */
	if (inParam.base_filename){
		free(inParam.base_filename);
		inParam.base_filename = NULL;
	}
	if (inParam.test_filename){
		free(inParam.test_filename);
		inParam.test_filename = NULL;
	}

	fclose(file_test);
	fclose(file_base);

	if (equal)
	{
		fprintf(stdout,"---- TEST SUCCEED: Files are equal ----\n");
		return EXIT_SUCCESS;
	}
	else
		return EXIT_FAILURE;
}