#include "trigConf.h"


// global variable declarations
Tcl_Interp* interp;
int flags[N_FLAGS];
int trig_enable[13];
int trig_prescale[13];
int sync_enable, sync_period ,busytimer, busytimerenable,busyfrontendenable;
int scaler_assignments[19]; // only 13-18 are used
int roc_lock[6];
int mlu_in[13];
int mlu_out[32];
char *filename;
char *initialization_filename="";
unsigned long TS_MLU[4096];

extern char trigConf_mlu_tcl_proc[];
extern char trigConf_roc_tcl_proc[];
extern char trigConf_tcl_proc[];

// function declarations
void Initialize_Tcl_Tk(void);
void ParseCommandLineArgs(int narg,char *argv[]);


int main(int narg,char* argv[])
{
	int i;

   //-------------- Print version info etc -------
   printf("\n----------- GlueX BCAL Test Trigger Configurator ----------- \n");
   printf("Version 2.1.0 (Sep. 2004): \ncompiled: ");
   ansi_red();
		printf("%s %s on ",__DATE__,__TIME__);
	ansi_normal();
   ansi_blue();
		printf("%s\n",COMPILE_HOST);
	ansi_normal();
   printf("Tcl/Tk versions %s/%s\n",TCL_VERSION,TK_VERSION);
   for(i=1;i<narg;i++)if(!strcmp(argv[i],"-v"))return 0;
   printf("\n------------------------------------------------- \n\n");
   
   //---------- Parse Command line args ---------
   ParseCommandLineArgs(narg,argv);

   //--------------- Initialize Tcl/Tk ----------------- 
	Initialize_Tcl_Tk();
   
   //----------------- main loop -----------------
   printf("starting main loop...\n");
   Tk_MainLoop();
   
   
   //----------- completion and clean-up ---------
   printf("finished.\n\n");
   return 0;
}

//===========================================================================
// Initialize Tcl/Tk. After the interpreter is created, define all C-Tcl
// command and variable links.
//===========================================================================
void Initialize_Tcl_Tk(void)
{
	int i, err;

	// First, replace the environment variable TCL_LIBRARY to point to
	// the place used to link this executable. If this is not done,
	// then the program will crash when it tries to get the old tcl7.4
	// tclIndex file pointed to by the default TCL_LIBRARY value.
	//sprintf(str,"TCL_LIBRARY=%s",TCL_LIBRARY);
	//putenv(strdup(str));

	// Initialize interpreter
   interp=Tcl_CreateInterp();
   if(!interp){printf("Unable to create Tcl/Tk interpreter!\n");exit(-1);}
   Tcl_Init(interp);
   Tk_Init(interp);

	// Create Tcl routines linked to C routines
   Tcl_CreateCommand(interp,"SaveToFile",&SaveToFile,0,NULL);
   Tcl_CreateCommand(interp,"ReadFromFile",&ReadFromFile,0,NULL);
   Tcl_CreateCommand(interp,"SetMLUValue",&SetMLUValue,0,NULL);
   Tcl_CreateCommand(interp,"GetMLUValue",&GetMLUValue,0,NULL);
   Tcl_CreateCommand(interp,"ConfigProduction",&ConfigProduction,0,NULL);
   //Tcl_CreateCommand(interp,"ConfigPS",&ConfigPS,0,NULL);
   //Tcl_CreateCommand(interp,"ConfigTAC",&ConfigTAC,0,NULL);

   // Link Tcl variables to C variables
   for(i=1;i<=12;i++){
		char var[32];
   	sprintf(var,"t%d_enable",i);		err=Tcl_LinkVar(interp,var,(char*)&trig_enable[i]	,TCL_LINK_INT);
   	sprintf(var,"t%d_prescale",i);	err=Tcl_LinkVar(interp,var,(char*)&trig_prescale[i],TCL_LINK_INT);
   }

   err=Tcl_LinkVar(interp,"sync_enable",(char*)&sync_enable,TCL_LINK_INT);
   err=Tcl_LinkVar(interp,"sync_period",(char*)&sync_period,TCL_LINK_INT);
   err=Tcl_LinkVar(interp,"busytimer",(char*)&busytimer,TCL_LINK_INT);
   err=Tcl_LinkVar(interp,"busytimerenable",(char*)&busytimerenable,TCL_LINK_INT);
   err=Tcl_LinkVar(interp,"busyfrontendenable",(char*)&busyfrontendenable,TCL_LINK_INT);

   for(i=13;i<=18;i++){
		char var[32];
   	sprintf(var,"scaler%d",i);		err=Tcl_LinkVar(interp,var,(char*)&scaler_assignments[i]	,TCL_LINK_INT);
   }

   for(i=1;i<=5;i++){
		char var[32];
   	sprintf(var,"roc_lock%d",i);	
		err=Tcl_LinkVar(interp,var,(char*)&roc_lock[i]	,TCL_LINK_INT);
   }

   for(i=1;i<=12;i++){
		char var[32];
   	sprintf(var,"mlu_in%d",i);		err=Tcl_LinkVar(interp,var,(char*)&mlu_in[i]	,TCL_LINK_INT);
   }
   for(i=1;i<=32;i++){
		char var[32];
		mlu_out[i] = 0;
   	sprintf(var,"mlu_out%d",i);	err=Tcl_LinkVar(interp,var,(char*)&mlu_out[i]	,TCL_LINK_INT);
   }

	filename=Tcl_Alloc(256); strcpy(filename,"<none>");
	Tcl_LinkVar(interp,"filename",(char*)&filename,TCL_LINK_STRING);

	// Execute Tcl code (compiled as static strings in C code)
	Tcl_Eval(interp, trigConf_mlu_tcl_proc);
	Tcl_Eval(interp, trigConf_roc_tcl_proc);
	Tcl_Eval(interp, trigConf_tcl_proc);

	// Check if the file /usr/local/halld/config/coda/coda_config.txt
	// exists. If so, use it to determine which file to open.
	char fname[1024]="/usr/local/halld/config/DEFAULT.trig";
	FILE *f = fopen("/usr/local/halld/config/coda/coda_config.txt","r");
	if(f){
		bzero(fname,1024);
		sprintf(fname,"/usr/local/halld/config/");
		fread(&fname[strlen(fname)], 1, 512, f);
		fclose(f);
		strcat(fname,".trig");
	}
	// If a filename was passed on the command line, open it
	if(strlen(initialization_filename))strcpy(fname,initialization_filename);
	char cmd[1024];
	sprintf(cmd,"after idle ReadFromFile %s",fname);
	Tcl_Evaluate(cmd);
}

//=====================================
// Parse any command line arguments
//=====================================
void ParseCommandLineArgs(int narg,char *argv[])
{
   int i;
   char *argptr;
	char cmd[256];
   
   for(i=1;i<narg;i++){
		argptr = argv[i];
		if(*argptr=='-'){
			argptr++;
			switch(*(argptr++)){
				case 'D':
					sprintf(cmd,"DISPLAY=%s",argptr);
					putenv(cmd);
					break;
				case 'h':
				default:
					;			
			}
		}else{
			initialization_filename = argptr;
		}
   }
}

//==============================================
// Evaluate a tcl command and check for errors
//==============================================
void Tcl_Evaluate(char* cmd)
{

	if(Tcl_GlobalEval(interp,cmd)==TCL_ERROR){
		cerr<<"Error in Tcl command:\n";
		cerr<<interp->result<<"\n";
		cerr<<"\nCommand is:\n\n"<<cmd<<"\n";
		cerr<<"\nError (repeated):\n";
		cerr<<interp->result<<"\n";
		exit(-1);
	}
	return;

}

//==============================================
// Evaluate a tcl file and check for errors
//==============================================
void Tcl_EvaluateFile(char* file)
{

	if(Tcl_EvalFile(interp,file)==TCL_ERROR){
		cerr<<"Error in Tcl file:\n";
		cerr<<interp->result<<"\n";
		cerr<<"\nFile is:\n"<<file<<"\n";
		exit(-1);
	}
	return;

}