#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <ctype.h>
#include <assert.h>
#include <errno.h>
#include <unistd.h>
#include <libusb.h>

//uncomment to DEBUG this file alone
#define DEBUG
//"make debug" to get DEBUG msgs on entire program
#include "dbg.h"

#include "usb_operations.h"


// vendor requests also defined in firmware
// TODO put in combined .h file for both host and fw
#define REQ_LED_ON  1
#define REQ_LED_OFF 2


int main(int argc, char *argv[]) 
{	
        check(argc > 1, "USAGE: inlretro <action o/f>");

	int o_flag = 0;	//LED ON
	int f_flag = 0;	//LED OFF
	int e_flag = 0; //ERASE
	int m_flag = 0; //MIRROR
	char *w_value = NULL; //WRITE FILE
	char *d_value = NULL; //DUMP FILE
	char *s_value = NULL; //SAVE FILE
	char *i_value = NULL; //iNES MAPPER
	char *b_value = NULL; //BOARD   

	int index = 0;
	int rv = 0;
	opterr = 0;

	//getopt returns args till done then returns -1
	//string of possible args : denotes 1 required additional arg
	//:: denotes optional additional arg follows	
	while( (rv = getopt( argc, argv, "ofemw:d:s:i:b:")) != -1) {
		
		switch(rv) {
			case 'o':
				o_flag = 1;
				break;
			case 'f':
				f_flag = 1;
				break;
			case 'e':
				e_flag = 1;
				break;
			case 'm':
				m_flag = 1;
				break;
			case 'w':
				w_value = optarg;
				break;
			case 'd':
				d_value = optarg;
				break;
			case 's':
				s_value = optarg;
				break;
			case 'i':
				i_value = optarg;
				break;
			case 'b':
				b_value = optarg;
				break;
			case '?':
				if ( optopt == 'w' ) {
					log_err("Option -%c requires an argument.", optopt);
				} else if ( optopt == 'd' ) {
					log_err("Option -%c requires an argument.", optopt);
				} else if ( optopt == 's' ) {
					log_err("Option -%c requires an argument.", optopt);
				} else if ( optopt == 'i' ) {
					log_err("Option -%c requires an argument.", optopt);
				} else if ( optopt == 'b' ) {
					log_err("Option -%c requires an argument.", optopt);
				} else if ( isprint(optopt)) {
					log_err("Unknown option -%c .", optopt);
				} else {
					log_err("Unknown option character '\\x%x'", optopt);
				}
				log_err("Improper arguements passed");
				break;
			default:
				sentinel("getopt failed to catch all arg cases");
		}
	
	}
	debug("flags= o:%d f:%d e:%d m:%d", o_flag, f_flag, e_flag, m_flag); 
	debug("args= w:%s d:%s s:%s i:%s b:%s", w_value, d_value, s_value, i_value, b_value); 
	for( index = optind; index < argc; index++) {
		log_err("Non-option arguement: %s \n", argv[index]);
	}


	//context set to NULL since only acting as single user of libusb
	libusb_context *context = NULL;
	//create usb device handle pointer to interact with retro-prog
	libusb_device_handle *rprog_handle = NULL;

	rprog_handle = open_usb_device( context );
	check( rprog_handle != NULL, "Unable to open INL retro-prog usb device handle.");

	int xfr_cnt = 0;
    	//uint8_t buffer8[8];		//8 is max payload for low speed devices' data packet
    	//uint8_t buffer128[128];	//128 largest power of 2 for non-LONG_TRANSFERS with V-USB
    	uint8_t buffer254[254];		//254 is max for non-LONG_TRANSFERS with V-USB
    	//uint8_t buffer16k[16384];	//16384 is max for LONG_TRANSFERS with V-USB

	if (o_flag) { //ON send REQ_LED_ON
		xfr_cnt = usb_write_to_device( rprog_handle, 
			REQ_LED_ON, (unsigned char *)buffer254, sizeof(buffer254) );
		printf("total bytes xfrd: %d \n", xfr_cnt);
	}
	if (f_flag) { //OFF send REQ_LED_OFF
		xfr_cnt = usb_write_to_device( rprog_handle, 
			REQ_LED_OFF, (unsigned char *)buffer254, sizeof(buffer254) );
		printf("total bytes xfrd: %d \n", xfr_cnt);
	}

	close_usb( context, rprog_handle);	
	
	return 0;

error:
	printf("main program went to error\n");

	return 1;

}