/*
 * File:
 *    firmwareTest.c
 *
 * Description:
 *    JLab Flash250 V2 firmware updating
 *     Single board
 *
 */


#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include "jvme.h"
#include "fadcLib.h"

char *progName;

void
Usage();

int 
main(int argc, char *argv[]) {

    int status;
    int stat=0;
    int fpga_choice, firmware_choice=0;
    char *mcs_filename;
    char inputchar[16];
    unsigned int fadc_address=0;

    printf("\nJLAB fadc firmware update\n");
    printf("----------------------------\n");

    progName = argv[0];

    if(argc<3)
      {
	printf(" ERROR: Must specify two arguments\n");
	Usage();
	exit(-1);
      }
    else
      {
	mcs_filename = argv[1];
	fadc_address = (unsigned int) strtoll(argv[2],NULL,16)&0xffffffff;
      }

    if(fadcFirmwareReadMcsFile(mcs_filename) != OK)
      {
	exit(-1);
      }

    fpga_choice = fadcFirmwareChipFromFpgaID(0);
    if( fpga_choice == ERROR )
      {
	printf(" ERROR: Did not obtain FPGA type from firmware file.\n");
	printf("        Please specific FPGA type\n");
	printf("          1 for FX70T (Control FPGA)\n");
	printf("          2 for LX110 (Processing FPGA)\n");
	printf("    or q and <ENTER> to quit without update\n");
	printf("\n");

	REPEAT:
	printf(" (y/n): ");
	scanf("%s",(char *)&inputchar);

	if((strcmp(inputchar,"q")==0) || (strcmp(inputchar,"Q")==0))
	  {
	    printf("--- Exiting without update ---\n");
	    goto CLOSE;
	  }
	else if(strcmp(inputchar,"1")==0)
	  {
	    fpga_choice = 1;
	  }
	else if(strcmp(inputchar,"2")==0)
	  {
	    fpga_choice = 2;
	  }
	else
	  {
	    goto REPEAT;
	  }
	
      }

    vmeSetQuietFlag(1);
    status = vmeOpenDefaultWindows();
    if(status<0)
      {
	printf(" Unable to initialize VME driver\n");
	exit(-1);
      }

    int iFlag = (1<<18); /* Do not perform firmware check */
    stat = faInit(fadc_address,0x0,1,iFlag);
    if(stat<0)
      {
	printf(" Unable to initialize FADC.\n");
	goto CLOSE;
      }

    unsigned int cfw = faGetFirmwareVersions(faSlot(0),0);
    printf("%2d: Control Firmware Version: 0x%04x   Proc Firmware Version: 0x%04x\n",
	   faSlot(0),cfw&0xFFFF,(cfw>>16)&0xFFFF);

    printf(" Will update firmware for ");
    if(fpga_choice==1)
      {
	firmware_choice = FADC_FIRMWARE_FX70T;
	printf("FX70T (Control FPGA) ");
      }
    else if((fpga_choice==2)||(fpga_choice==0))
      {
	firmware_choice = FADC_FIRMWARE_LX110;
	printf("LX110 (Processing FPGA) ");
      }

    printf(" with file: \n   %s",mcs_filename);
    if(fadcFirmwareRevFromFpgaID(0))
      {
	printf(" (rev = 0x%x)\n",fadcFirmwareRevFromFpgaID(0));
      }
    else
      {
	printf("\n");
      }
    printf(" for FADC250 V2 with VME address = 0x%08x\n",fadc_address);

 REPEAT2:
    printf(" Press y and <ENTER> to continue... n or q and <ENTER> to quit without update\n");

    scanf("%s",(char *)inputchar);

    if((strcmp(inputchar,"q")==0) || (strcmp(inputchar,"Q")==0) ||
       (strcmp(inputchar,"n")==0) || (strcmp(inputchar,"N")==0) )
      {
	printf(" Exiting without update\n");
	goto CLOSE;
      }
    else if((strcmp(inputchar,"y")==0) || (strcmp(inputchar,"Y")==0))
      {}
    else
      goto REPEAT2;

    fadcFirmwareLoad(0, firmware_choice,1);

    goto CLOSE;

 CLOSE:


    status = vmeCloseDefaultWindows();
    if (status != GEF_SUCCESS)
    {
      printf("vmeCloseDefaultWindows failed: code 0x%08x\n",status);
      return -1;
    }

    exit(0);
}


void
Usage()
{
  printf("\n");
  printf("%s <firmware MCS file> <FADC VME ADDRESS>\n",progName);
  printf("\n");

}