/*  libcalcprotocols - link protocol 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 shows how to use libcalcprotocols. You can consider this an
 * authoritative example.
 */

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

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

#include "calccables.h"
#include "calcfiles.h"
#include "../src/calcprotocols.h"

#define TRYF(x) { int aaa_; if((aaa_ = (x))) return aaa_; }

#undef VERSION
#define VERSION "Test program"

#ifdef _MSC_VER
# define SNULL	{ 0 }
#else
# define SNULL	{}
#endif

static void print_lc_error(int errnum)
{
	char *msg;

	calccables_error_get(errnum, &msg);
	fprintf(stderr, "Link cable error (code %i)...\n<<%s>>\n", 
		errnum, msg);

	free(msg);

}

static int is_ready(CalcHandle* h)
{
	int err;

	err = calcprotocols_calc_isready(h);
	printf("Hand-held is %sready !\n", err ? "not " : "");

	return 0;
}

static int send_key(CalcHandle *h)
{
	const CalcKey *key = calcprotocols_keys_92p('A');

	TRYF(calcprotocols_calc_send_key(h, key->normal.value));
	return 0;
}

static int execute(CalcHandle *h)
{
	VarEntry ve = SNULL;
	int ret;

	if(calcfiles_calc_is_ti9x(h->model))
        {
            printf("Enter folder name: ");
            ret = scanf("%1023s", ve.folder);
            if(ret < 1) return 0;
        }

	printf("Enter variable name: ");
	ret = scanf("%1023s", ve.name);
	if(ret < 1) return 0;
	    
	TRYF(calcprotocols_calc_execute(h, &ve, ""));
	return 0;
}

static int recv_screen(CalcHandle *h)
{
	CalcScreenCoord sc = { SCREEN_CLIPPED, 0, 0, 0, 0 };
	uint8_t* bitmap = NULL;

	TRYF(calcprotocols_calc_recv_screen(h, &sc, &bitmap));
	//free(bitmap);
	return 0;
}

static int get_dirlist(CalcHandle *h)
{
	GNode *vars, *apps;

	TRYF(calcprotocols_calc_get_dirlist(h, &vars, &apps));
	calcprotocols_dirlist_display(vars);
	calcprotocols_dirlist_display(apps);
	calcprotocols_dirlist_destroy(&vars);
	calcprotocols_dirlist_destroy(&apps);

	return 0;
}

static int send_backup(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;
	strcat(filename, ".");
	strcat(filename, calcfiles_fext_of_backup(h->model));

	TRYF(calcprotocols_calc_send_backup2(h, filename));
	return 0;
}

static int recv_backup(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;
	strcat(filename, ".");
	strcat(filename, calcfiles_fext_of_backup(h->model));

	TRYF(calcprotocols_calc_recv_backup2(h, filename));
	return 0;
}

static int send_var(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_send_var2(h, MODE_NORMAL, filename));
	return 0;
}

static int recv_var(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;
	VarEntry ve = SNULL;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	if(calcfiles_calc_is_ti9x(h->model))
	{
	    printf("Enter folder name: ");
	    ret = scanf("%1023s", ve.folder);
	    if(ret < 1)
		return 0;
	}

	printf("Enter variable name: ");
	ret = scanf("%1023s", ve.name);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_recv_var2(h, MODE_NORMAL, filename, &ve));
	return 0;
}

static int send_var_ns(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_send_var_ns2(h, MODE_NORMAL, filename));
	return 0;
}

static int recv_var_ns(CalcHandle* h)
{
	char filename[1024] = "";
	int ret;
	VarRequest *ve;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_recv_var_ns2(h, MODE_NORMAL, filename, &ve));

	return 0;
}

static int send_flash(CalcHandle *h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;
	strcat(filename, ".");
	strcat(filename, calcfiles_fext_of_flash_app(h->model));

	TRYF(calcprotocols_calc_send_app2(h, filename));
	return 0;
}

static int recv_flash(CalcHandle *h)
{
	char filename[1024] = "";
	int ret;
	VarEntry ve = SNULL;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	printf("Enter application name: ");
	ret = scanf("%1023s", ve.name);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_recv_app2(h, filename, &ve));
	return 0;
}

static int recv_idlist(CalcHandle *h)
{
	uint8_t id[32];

	TRYF(calcprotocols_calc_recv_idlist(h, id));
	printf("IDLIST: <%s>", id);

	return 0;
}

static int dump_rom(CalcHandle *h)
{
	char filename[1024] = "";
	int ret;

	printf("Enter filename: ");
	ret = scanf("%1023s", filename);
	if(ret < 1)
		return 0;

	TRYF(calcprotocols_calc_dump_rom_1(h));
	TRYF(calcprotocols_calc_dump_rom_2(h, 0, filename));
	return 0;
}

static int set_clock(CalcHandle *h)
{
	printf("Not implemented yet !\n");
	return 0;
}

static int get_clock(CalcHandle *h)
{
	CalcClock clk;

	TRYF(calcprotocols_calc_get_clock(h, &clk));
	calcprotocols_clock_show(h->model, &clk);

	return 0;
}

static int del_var(CalcHandle* h)
{
	VarEntry ve = SNULL;
	int ret;

	if(calcfiles_calc_is_ti9x(h->model))
        {
            printf("Enter folder name: ");
            ret = scanf("%1023s", ve.folder);
            if(ret < 1) return 0;
        }

	printf("Enter variable name: ");
	ret = scanf("%1023s", ve.name);
	if(ret < 1) return 0;
	    
	TRYF(calcprotocols_calc_del_var(h, &ve));
	return 0;
}

static int new_folder(CalcHandle* h)
{
	VarEntry ve = SNULL;
	int ret;

	if(calcfiles_calc_is_ti9x(h->model))
        {
            printf("Enter folder name: ");
            ret = scanf("%1023s", ve.folder);
            if(ret < 1) return 0;
        }
	    
	TRYF(calcprotocols_calc_new_fld(h, &ve));
	return 0;
}

static int get_version(CalcHandle *h)
{
	CalcInfos infos;

	TRYF(calcprotocols_calc_get_version(h, &infos));
	//calcprotocols_clock_show(h->model, &clk);

	return 0;
}

static int probe_calc(CalcHandle *h)
{
	int m;
	int p;
	int ret;
	CalcModel model;

	printf("Enter cable & port for probing (c p): ");
	ret = scanf("%i %i", &m, &p);
	if(ret < 2)
		return 0;

	calcprotocols_probe((CableModel)m, (CablePort)p, &model, !0);
	//calcprotocols_probe_calc(h->cable, &model);
	//calcprotocols_probe_usb_calcs(h->cable, &model);
	printf("Found: <%s>", calcprotocols_model_to_string(model));

	return 0;
}

#define NITEMS	22

static const char *str_menu[NITEMS] = 
{
	"Exit",
	"Check whether calc is ready",
	"Send a key",
	"Execute program",
	"Do a screenshot",
	"Listing",
	"Send backup",
	"Recv backup",
	"Send var",
	"Recv var",
	"Send var (ns)",
	"Recv var (ns)",
	"Send flash",
	"Recv flash",
	"Get ID-LIST",
	"Dump ROM",
	"Set clock",
	"Get clock",
	"Delete var",
	"New folder",
	"Get version",
	"Probe calc",
};

typedef int (*FNCT_MENU) (CalcHandle*);

static FNCT_MENU fnct_menu[NITEMS] = 
{
	NULL,
	is_ready,
	send_key,
	execute,
	recv_screen,
	get_dirlist,
	send_backup,
	recv_backup,
	send_var,
	recv_var,
	send_var_ns,
	recv_var_ns,
	send_flash,
	recv_flash,
	recv_idlist,
	dump_rom,
	set_clock,
	get_clock,
	del_var,
	new_folder,
	get_version,
	probe_calc,
};

int main(int argc, char **argv)
{
	CableHandle* cable;
	CalcHandle* calc;
	int err, i;
	int exit=0;
	int choice;

	// init libs
	calccables_library_init();
	calcprotocols_library_init();

	// set cable
	cable = calccables_handle_new(CABLE_SLV, PORT_1);
	if(cable == NULL)
	    return -1;

	// set calc
	calc = calcprotocols_handle_new(CALC_TI89T);
	if(calc == NULL)
		return -1;

	// attach cable to calc (and open cable)
	err = calcprotocols_cable_attach(calc, cable);

	do
	{
restart:
		// Display menu
		printf("Choose an action:\n");
		for(i = 0; i < NITEMS; i++)
			printf("%2i. %s\n", i, str_menu[i]);
		printf("Your choice: ");

		err = scanf("%i", &choice);
		if(err < 1)
			goto restart;
		printf("\n");

		if(choice == 0)
			exit = 1;

		// Process choice
		if(fnct_menu[choice])
			fnct_menu[choice](calc);
		printf("\n");

	} while(!exit);

	// detach cable (made by handle_del, too)
	err = calcprotocols_cable_detach(calc);

	// remove calc & cable
	calcprotocols_handle_del(calc);
	calccables_handle_del(cable);

  return 0;
}