/* Hey EMACS -*- linux-c -*- */

/*  libcalcconv - charset library, a part of the CalcForge project
 *  Copyright (C) 1999-2004  Romain Lievin
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
 */

/*
  This program contains a lot of routines for testing various part of the
  library as well as checking file support.
*/

#ifdef HAVE_CONFIG_H
#include <config.h>
#endif

#include <stdio.h>
#include <string.h>
#include <glib.h>
#ifdef __WIN32__
#include <conio.h>
#endif

#ifndef _DEBUG
# define _DEBUG
#endif
#include "../src/calcconv.h"

const unsigned long* charsets[8];

/*
  The main function
*/
int main(int argc, char **argv)
{
	int i, j;
	int n = 0;
	int is_utf8 = g_get_charset(NULL);

	goto pass2;

	charsets[0] = ti73_charset;
	charsets[1] = ti82_charset;
	charsets[2] = ti83_charset;
	charsets[3] = ti83p_charset;
	charsets[4] = ti85_charset;
	charsets[5] = ti86_charset;
	charsets[6] = ti9x_charset;

	// test calcconv.c
	printf("Library version : <%s>\n", calcconv_version_get());
	printf("--\n");

	printf("Choose your charset: ");
	if(!scanf("%i", &n))
	    n = 0;
	if(n >= 7)
	    n = 6;

	printf("  0 1 2 3 4 5 6 7 8 9 A B C D E F\n");

	for(i = 0; i < 16; i++)
	{
		printf("%x ", i);
		for(j = 0; j < 16; j++)
		{
		    unsigned long wc = charsets[n][16*i+j];
		    gchar *str = NULL;

		    if(wc && wc != '\n')
		    {
				gunichar2 buf[4] = { 0 };

				buf[0] = (gunichar2)wc;
				str = calcconv_utf16_to_utf8(buf);

				if(!is_utf8 && str)
				{
					gchar *tmp = g_locale_from_utf8(str, -1, NULL, NULL, NULL);
					g_free(str);
					str = tmp;
				}
		    }
		    else
		    {
				str = NULL;
		    }

		    if(str)
				printf("%s ", str);
		    
		    g_free(str);
		}
		printf("\n");
	}
	pass2:
	{
		char ti82_varname[9] = { 0 };
		char ti92_varname[9] = { 0 };
		char ti84p_varname[36] = { 0 };
		char *utf8;
		char *filename;
		char *varname;

		ti82_varname[0] = 0x5d;			// L1
		ti82_varname[1] = 0x01;
		ti82_varname[2] = 0;

		ti92_varname[0] = (char)132;	// delta
		ti92_varname[1] = (char)0xE9;   // eacute
		ti92_varname[2] = 0;

		ti84p_varname[0] = 'L';			// L1 in TI-UTF-8
		ti84p_varname[1] = (char)0xE2;
		ti84p_varname[2] = (char)0x82;
		ti84p_varname[3] = (char)0x81;

		// TI -> UTF-8
		utf8 = calcconv_varname_to_utf8(CALC_TI82, ti82_varname, -1);
		printf("UTF-8 varname: <%s> (%i)\n", ti82_varname, 
		       (int)strlen(ti82_varname));
		g_free(utf8);

		utf8 = calcconv_varname_to_utf8(CALC_TI92, ti92_varname, -1);
		printf("UTF-8 varname: <%s> (%i)\n", ti92_varname, 
		       (int)strlen(ti92_varname));
		g_free(utf8);

		utf8 = calcconv_varname_to_utf8(CALC_TI84P_USB, ti84p_varname,
					      -1);
		printf("UTF-8 varname: <%s> (%i)\n", ti84p_varname, 
		       (int)strlen(ti84p_varname));
		g_free(utf8);


		// TI -> filename
		printf("raw varname: <%s> (%i)\n", ti92_varname, 
		       (int)strlen(ti92_varname));
		filename = calcconv_varname_to_filename(CALC_TI92, ti92_varname, -1);
		printf("filename: <%s>\n", filename);
		g_free(filename);

		printf("raw varname: <%s> (%i)\n", ti82_varname, 
		       (int)strlen(ti82_varname));
		filename = calcconv_varname_to_filename(CALC_TI82, ti82_varname, -1);
		printf("filename: <%s>\n", filename);
		g_free(filename);

		printf("raw varname: <%s> (%i)\n", ti84p_varname, 
		       (int)strlen(ti84p_varname));
		filename = calcconv_varname_to_filename(CALC_TI84P_USB, ti84p_varname, -1);
		printf("filename: <%s>\n", filename);
		g_free(filename);

		// varname -> varname
		printf("raw varname: <%s> (%i)\n", ti84p_varname, 
		       (int)strlen(ti84p_varname));
		varname = calcconv_varname_to_tifile(CALC_TI84P_USB, ti84p_varname, -1);
		printf("varname: <%s>\n", varname);
		g_free(varname);
	}

#ifdef __WIN32__
	while(!_kbhit());
#endif

	return 0;
}