/*
 *  XScrabble - X version of the popular board game, for 1 to 4 players.
 *
 * This software comes with NO warranty whatsoever. I therefore take no
 * responsibility for any damages, losses or problems caused through use
 * or misuse of this program.
 *
 * I hereby grant permission for this program to be freely copied and
 * distributed by any means, provided no charge is made for it.
 *
 * Matthew Chapman, csuoq@csv.warwick.ac.uk
 *    Oct 1994.
 */

/* setup.c - gets setup details from user */

#include "scrab.h"
#include "globals.h"
#include "slate_green.xpm"

#define TIME_INTS 7
#define HILIGHT "yellow"
#define NORMAL "green"

static char * helpstring =
"Copyright 1992, \n\
Dan R. Greening, Didier Tallot, Phill Everson, and Martyn Shortley.\n\
\n";

void ShowHelp();
void Mode();
void Start();
void Quit();
void Tog_vis();
void Cycle();

char app_def_file[256]="XScrabble";

XtAppContext app_context;

Widget topLevel,setup,num_ply,levels,curr_entry,
       lang_sel,bell_vol,help,help_frame,start,quit,sload,
       title,timetitle,nametitle,disptitle,typetitle,
       langtitle,belltitle,help_text,
       name[MAXPLAYERS],tog[MAXPLAYERS],disp[MAXPLAYERS],wtype[MAXPLAYERS],
       timet[TIME_INTS],help_item[8];

Pixmap bgxpm;
XtTranslations storedt;

int  timevalue[TIME_INTS];
char cycle_text[NUM_TYPES+1][25];
char help_line[20][80];

static String curr_trans = "#override\n\
	<Key>Tab: Move(t)\n\
	<Key>Return: Move(r)\n\
	Ctrl<Key>R: no-op()\n\
	Ctrl<Key>S:	no-op()\n\
	Meta<Key>I:	no-op()";
static String other_trans = "#override\n\
		<Key>: KeyRedirect()";

char lang_str[80] = "";

void Quit()
{
    XtDestroyApplicationContext(app_context);
    exit(0);
}

/* application data structure */
struct sAppData {
        int version;
} sapp_data;

/* option types and default values */
static XtResource resources[] =
{
	{"version","Version",XtRInt,sizeof(int),XtOffsetOf(struct sAppData,version),
		XtRImmediate,(XtPointer) 0},
};

int Tog2Int()
{
	/* get selected toggle, and convert to int */
	char sw[5];

	strcpy(sw,XawToggleGetCurrent(tog[0]));
	return (sw[3] - '0'+1);
}

void MakeNotCurrent()
{
	XtVaSetValues(curr_entry,XtNtranslations,
		XtParseTranslationTable(other_trans),SETBG(NORMAL),NULL);
	XawTextDisplayCaret(curr_entry,False);
}

void MakeCurrent()
{
	XtVaSetValues(curr_entry,XtNtranslations,storedt,SETBG(HILIGHT),NULL);
	XawTextDisplayCaret(curr_entry,True);
}

void KeyRedirect(Widget w, XEvent *event,String *params,Cardinal num_params)
{
 	if (w!=curr_entry)
 	{
	    event->xany.window = XtWindow(curr_entry);
	    XtDispatchEvent(event);
	}
}

void Move(Widget w, XEvent *event,String *params,Cardinal num_params)
{
	int wnum=0,i,isname=True;
	Boolean istab = (params[0][0] == 't');	

	for (i=0; i<MAXPLAYERS; i++)
		if (w==name[i])
			wnum=i;
	for (i=0; i<MAXPLAYERS; i++)
		if (w==disp[i])
		{
			wnum=i;
			isname=False;
		}
	MakeNotCurrent();
	if (istab)
		if (isname)
			curr_entry = disp[wnum];
		else
			curr_entry = name[(wnum+1) % Tog2Int()];
	else
		if (isname)
			if ((wnum+1)==Tog2Int())
				curr_entry = disp[0];
			else
				curr_entry = name[wnum+1];
		else
			if ((wnum+1)==Tog2Int())
				curr_entry = name[0];
			else
				curr_entry = disp[wnum+1];		
	MakeCurrent();
}

void HandleMouse(Widget w,XtPointer unused,register XEvent *event,Boolean *cont)
{
	if (w!=curr_entry)
	{
		MakeNotCurrent();
		curr_entry=w;
		MakeCurrent();
	}
}

int main(int argc,char **argv)
{
        Dimension width;
	int ply,tn,ind,i,j; 
	char wname[12];
        char entry[8];
        String time_str,level_str,help_str;

	static XtActionsRec actions[] = {
		{"KeyRedirect", (XtActionProc) KeyRedirect},
		{"Move", (XtActionProc) Move},
	};
	/* to set radio toggles to "exactly one of many" mode */
	static String togtrans = "#override\n\
		<EnterWindow>:	highlight(Always)\n\
		<LeaveWindow>:	unhighlight()\n\
		<Btn1Down>,<Btn1Up>:	set() notify()";

        for(i=0;i<argc-1;i++) 
        {
            if(strncmp(argv[i],"-language",5)==0) 
               {
               strcat(app_def_file,"_");
               strcat(app_def_file,argv[i+1]);
               strcpy(lang_str,argv[i+1]);
	       }
	}

	topLevel = XtVaAppInitialize(&app_context,app_def_file,NULL,0,
		&argc,argv,NULL,NULL);

	XtVaGetApplicationResources(topLevel,&sapp_data,resources,
		XtNumber(resources),NULL);

	if (sapp_data.version == 0)
	{
		fprintf(stderr,"Couldn't find resource file %s.\n",app_def_file);
		exit(1);
	} else 
	if (sapp_data.version != VERSION)
	{
		fprintf(stderr,
 "Incompatible app-defaults %s file: v%1.2f versus v%1.2f program!\n", 
         app_def_file, (float)sapp_data.version/100, (float)VERSION/100);
		exit(1);
	}

	setup = XtVaCreateManagedWidget("setup", formWidgetClass,topLevel, 
			XtNtranslations,XtParseTranslationTable(other_trans),
			NULL);

	title = XtVaCreateManagedWidget("title", labelWidgetClass, setup,
			NULL);
	num_ply = XtVaCreateManagedWidget("num_ply", labelWidgetClass, setup,
			NULL);

	for (tn=0; tn<MAXPLAYERS; tn++)
	{
		sprintf(wname,"tog%d",tn);
		tog[tn]= XtVaCreateManagedWidget(wname, toggleWidgetClass, setup,
			XtNtranslations,XtParseTranslationTable(togtrans),NULL);
	}

	timetitle = XtVaCreateManagedWidget("timetitle", labelWidgetClass, setup,
			NULL);

	for (tn=0; tn<TIME_INTS; tn++)
	{
		sprintf(wname,"timet%d",tn);
		timet[tn]= XtVaCreateManagedWidget(wname, toggleWidgetClass, setup,
			XtNtranslations,XtParseTranslationTable(togtrans),NULL);
                XtVaGetValues(timet[tn],XtNlabel,&time_str,NULL);
                if(tn==0) timevalue[tn]=0; else timevalue[tn] = atoi(time_str);
	}

	nametitle = XtVaCreateManagedWidget("nametitle", labelWidgetClass, setup,
			NULL);
	disptitle = XtVaCreateManagedWidget("disptitle", labelWidgetClass, setup,
			NULL);
	typetitle = XtVaCreateManagedWidget("typetitle", labelWidgetClass, setup,
			NULL);

        levels = XtVaCreateManagedWidget("levels", labelWidgetClass, setup, NULL);
        XtVaSetValues(levels,XtNmappedWhenManaged,False,NULL);
        XtVaSetValues(levels,XtNwidth,1,NULL);
        XtVaGetValues(levels,XtNlabel,&level_str,NULL);

        i=0; j=0;
        for (ind=0;ind<strlen(level_str);ind++)
	{
	    if(level_str[ind]!='\n') 
	    {
                    cycle_text[i][j]=level_str[ind];
                    j++;
	    } else
	    {
                    cycle_text[i][j]='\0';
                    if(i<NUM_TYPES) i++;
                    j=0;
	    }
	}
        
        strcpy(level_str,cycle_text[1]);

        for(i=1;i<NUM_TYPES;i++)
          sprintf(cycle_text[i],"%s(%d) %s", level_str, i, cycle_text[i+1]);

	for (ply=0; ply<MAXPLAYERS; ply++)
	{
		sprintf(wname,"name%d",ply);
		name[ply] = XtVaCreateManagedWidget(wname, 
                        asciiTextWidgetClass, setup,XtNtranslations,
			XtParseTranslationTable((ply==0) ? curr_trans : other_trans),NULL);
		if (ply==0)
			XtVaSetValues(name[ply],SETBG(HILIGHT),NULL);
		else
			XawTextDisplayCaret(name[ply],False);
		sprintf(wname,"disp%d",ply);
		disp[ply] = XtVaCreateManagedWidget(wname, asciiTextWidgetClass, setup,
			XtNtranslations,XtParseTranslationTable(other_trans),
			XtNfromHoriz,name[ply],XtNstring,":0.0",NULL);
		XawTextDisplayCaret(disp[ply],False);
		sprintf(wname,"type%d",ply);
		wtype[ply] = XtVaCreateManagedWidget(wname, commandWidgetClass, setup,
			XtNfromHoriz,disp[ply],XtNlabel,cycle_text[0],NULL);
		XtAddEventHandler(name[ply],ButtonPressMask,False,HandleMouse,NULL);
		XtAddEventHandler(disp[ply],ButtonPressMask,False,HandleMouse,NULL);
	}
	curr_entry=name[0];

	langtitle = XtVaCreateManagedWidget("langtitle", labelWidgetClass, setup, NULL);
	belltitle = XtVaCreateManagedWidget("belltitle", labelWidgetClass, setup, NULL);

	help = XtVaCreateManagedWidget("help", menuButtonWidgetClass, setup, NULL);

	help_frame = XtVaCreatePopupShell("menu", simpleMenuWidgetClass,
                                     help, NULL );

        XtVaGetValues(help,XtNlabel,&help_str,XtNwidth,&width,NULL);

        i=0; j=0;

        for (ind=0; ind<strlen(help_str); ind++)
	{
	    if (help_str[ind]=='\n') 
	    {
                    help_line[i][j]='\0';
                    i++;
                    j=0;
	    } else
	    {
                    help_line[i][j]=help_str[ind];
                    j++;
	    }
	}

        XtVaSetValues(help,XtNlabel,help_line[0],XtNwidth,width,NULL);

        for(j=0; j<i; j++)
	{
		sprintf(entry,"entry%d",j);
		help_item[j] = XtVaCreateManagedWidget(entry,smeBSBObjectClass,help_frame,NULL);
                XtVaSetValues(help_item[j],XtNlabel,help_line[j+1],NULL);
	} 

	lang_sel = XtVaCreateManagedWidget("lang_sel", asciiTextWidgetClass, setup, NULL);
        XtVaSetValues(lang_sel,XtNstring,lang_str,NULL);

	XtAddEventHandler(lang_sel,ButtonPressMask,False,HandleMouse,NULL);

	bell_vol = XtVaCreateManagedWidget("bell", asciiTextWidgetClass, setup, NULL);
	XtVaSetValues(bell_vol,XtNstring,"50",NULL);

	XtAddEventHandler(bell_vol,ButtonPressMask,False,HandleMouse,NULL);

	start = XtVaCreateManagedWidget("start", commandWidgetClass, setup, NULL);
	sload = XtVaCreateManagedWidget("load", commandWidgetClass, setup, NULL);
	quit = XtVaCreateManagedWidget("quit", commandWidgetClass, setup, NULL);
	XtAddCallback(help,XtNcallback,ShowHelp,topLevel);
	XtAddCallback(start,XtNcallback,Start,topLevel);
	XtAddCallback(sload,XtNcallback,Start,topLevel);
	XtAddCallback(quit,XtNcallback,Quit,topLevel);

	for (ply=0; ply<MAXPLAYERS; ply++)
	{
		XtAddCallback(tog[ply],XtNcallback,Tog_vis,setup);
		XtAddCallback(wtype[ply],XtNcallback,Cycle,setup);
	}

	load_data_pixmap(slate_green_xpm,&bgxpm,topLevel);
	bg_pixmap(setup);
	bg_pixmap(title);
	bg_pixmap(nametitle);
	bg_pixmap(disptitle);
	bg_pixmap(typetitle);
	bg_pixmap(num_ply);
	bg_pixmap(timetitle);
        bg_pixmap(langtitle);
        bg_pixmap(belltitle);

	XtAppAddActions(app_context,actions,XtNumber(actions));
	XtRealizeWidget(topLevel);

	XtVaGetValues(name[0],XtNtranslations,&storedt,NULL);

	XtAppMainLoop(app_context);
        return 0;
}

void Cycle(Widget w, XtPointer client_data, XtPointer csetup_data)
{
	String ctext;
	int i,curr=0;
	
	XtVaGetValues(w,XtNlabel,&ctext,NULL);
	for (i=0; i<NUM_TYPES; i++)
	    if (!strcmp(cycle_text[i],ctext))
		curr=i+1;

	XtVaSetValues(w,XtNlabel,cycle_text[(curr<NUM_TYPES) ? curr : 0],NULL);
}

void Tog_vis(Widget w, XtPointer client_data, XtPointer csetup_data)
{
	int i,num;
	Boolean st;

	/* if toggle is now selected */
	XtVaGetValues(w,XtNstate,&st,NULL);
	if (st==True)
	{
		num = Tog2Int();
		for (i=0; i<num; i++)
		{
			XtVaSetValues(name[i],XtNmappedWhenManaged,True,NULL);
			XtVaSetValues(disp[i],XtNmappedWhenManaged,True,NULL);
			XtVaSetValues(wtype[i],XtNmappedWhenManaged,True,NULL);
		}
		for (i=num; i<MAXPLAYERS; i++)
		{
			XtVaSetValues(name[i],XtNmappedWhenManaged,False,NULL);
			XtVaSetValues(disp[i],XtNmappedWhenManaged,False,NULL);
			XtVaSetValues(wtype[i],XtNmappedWhenManaged,False,NULL);

			/* check if selected entry box has been unmanaged */
			if ((name[i]==curr_entry) || (disp[i]==curr_entry))
			{
				/* make first entry the current one */
				MakeNotCurrent();
				curr_entry = name[0];
				MakeCurrent();
			}
		}
	}
}

void ShowHelp(Widget w, XtPointer client_data, XtPointer csetup_data)
{

        help_text = XtVaCreateManagedWidget( "helptext", asciiTextWidgetClass, help_frame,
                                       XtNstring, (XtArgVal)helpstring,
                                       XtNlength, (XtArgVal)(strlen(helpstring\
)+1),
                                       NULL );

}

void Start(Widget w, XtPointer client_data, XtPointer csetup_data)
{
	char sw[12],com[512];
	String ply_name,disp_name,type_name,lang_name,bell_answer;
	int i,j,num_players,time_val,time_lim,curr=0;
        long int bell_level;
        char **ptr;
        Boolean st;

	strcpy(com,"xscrab");
	num_players=Tog2Int();
	sprintf(&com[strlen(com)]," -players %d",num_players);

	strcpy(sw,XawToggleGetCurrent(timet[0]));
	time_val=sw[5] - '0';
	time_lim=timevalue[time_val];
	sprintf(&com[strlen(com)]," -time %d",time_lim);

	/* get names and displays */
	for (i=0; i<num_players; i++)
	{
		XtVaGetValues(name[i],XtNstring,&ply_name,NULL); 
		XtVaGetValues(disp[i],XtNstring,&disp_name,NULL);
		XtVaGetValues(wtype[i],XtNlabel,&type_name,NULL);

		if (strlen(ply_name)>0)
			sprintf(&com[strlen(com)]," -n%d \"%.14s\"",i+1,ply_name);
		if (strlen(disp_name)>0)
			sprintf(&com[strlen(com)]," -d%d %s",i+1,disp_name);
		for (j=0; j<NUM_TYPES; j++)
			if (!strcmp(cycle_text[j],type_name))
				curr=j;
		sprintf(&com[strlen(com)]," -t%d %d",i+1,curr);		
	}

	XtVaGetValues(lang_sel,XtNstring,&lang_name,NULL);
	XtVaGetValues(bell_vol,XtNstring,&bell_answer,NULL);

        if (strlen(lang_name)>0) {
          sprintf(&com[strlen(com)]," -language %s",lang_name);
	}

        if (strlen(bell_answer)>0) {
          ptr=malloc(16);
          bell_level=strtol(bell_answer,ptr,10);
          if (**ptr==0)
	  	{	
                if (bell_level<0) bell_level=0;
                if (bell_level>100) bell_level=100;
          	sprintf(&com[strlen(com)]," -bell %d",bell_level);
	  	}
	}
        
	if (w==sload)
		strcat(com," -load");

	strcat(com," &");
	printf("%s\n",com);
	system(com);
	/* XtDestroyWidget(topLevel);
	exit(0); */
}

void load_pixmap(char *fname, Pixmap *xpm,Widget top)
{
	int status;
	XpmAttributes attr;
	Pixmap mask;

	attr.valuemask = XpmReturnPixels | XpmCloseness;
	status = XpmReadFileToPixmap(XtDisplay(top),
             DefaultRootWindow(XtDisplay(top)),fname,xpm,&mask,&attr);
	if (status != XpmSuccess)
	{
			fprintf(stderr,"Pixmap error: %s\n",XpmGetErrorString(status));
			exit(0);
 	}
}

void bg_pixmap(Widget w)
{
	XtVaSetValues(w,XtNbackgroundPixmap, (XtArgVal)bgxpm, NULL);
}