/*
	menu.c

	cl /AL tscreen.c getfile3

where:  tscreen.dat =

MENU = main
TITLE = 'U.S. GEOLOGIC SURVEY'
NUMBER_OF_ENTRIES = 4
TYPE = I
 1 -- Run browse for .txt files
Working_PATH = 
PROGRAM = browse.exe NULL
TYPE = I
 2 -- Run browse for .c files
Working_PATH = \c
PROGRAM = browse.exe *.c NULL
TYPE = S 1
 3 -- Image Processing
TYPE = I
 4 -- Run browse for .bat files
Working_PATH = \c
PROGRAM = browse.exe *.bat NULL

MENU = sub1
TITLE = '   OEMG Image Processor   '
NUMBER_OF_ENTRIES = 2
TYPE = I
 a -- imvis
Working_Path = D:\GLORIA
PROGRAM = \c\imvis.exe NULL
TYPE = I
 b -- 5-D images
Working_Path = \c
PROGRAM = make5d.exe NULL

END


*/
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include <memory.h>
#include <dos.h>
#include <process.h>
#include <direct.h>
#include <stdlib.h>
#include "nomouse.h"

#define SCREEN_WIDTH 160
#define EQLIST 0x410
#define MEMSIZ 0x413
#define NAME_SIZE 100
#define S_SIZE 40
#define F_SIZE 20
#define T_SIZE 15
#define MROW 7
#define ROW 16
#define COL 80

#define BLACK 0
#define BLUE 1
#define GREEN 2
#define CYAN 3
#define RED 4
#define MAGENTA 5
#define YELLOW 6
#define WHITE 7

extern int LastN;
extern int GF_Title,GF_Frame,GF_Back,GF_Bar;
extern int GF_Info,GF_Shade,GF_Text;

char Cwd[100];
struct file_id
{
	char name[S_SIZE];
	long size;
	unsigned date,time;
};
extern struct file_id GF_File[];
extern char GF_String[][S_SIZE];
extern FILE *Fpout;

/***********************************************************************
**		bit map of colors
*
**		F B B B R T T T
**
**		F = flash  0 = OFF  1 = ON
**		B = Background Color
**		R = Brightness 0 = Dark  1 = Bright
**		T = Text Color
**
**		0 = black
**		1 = blue
**		2 = green
**		3 = cyan
**		4 = red
**		5 = magenta
**		6 = yellow
**		7 = white
**
************************************************************************/

int A_Int=0x3f;
int A_Reverse=0x78,A_Black=0x07;
int A_Brite=0x13,A_Norm=0x70;
int A_Flash=0xcf;
int X1=0,X2=79,Y1=1,Y2=22;
extern unsigned char far *Video_Buffer[4];
int Monitor;

int Char1=0;
union REGS regs;
struct equipment
{
	int printers; 		/* number present */
	int sprinter;		/* serial printer installed?  0=no  1=yes */
	int game;			/* game adapter installed? */
	int sports;			/* number of serial ports */
	int dma;				/* DMA chip installed? */
	int drives;			/* number of disk drives */
	int video;			/* video mode 1=40 color 2=80 color 3=80 B/W */
	int disk;			/* any disk drives? */
	int memory;			/* memory size in Kbytes */
}Eq;


long *Line_Offset;
int *StrLen;
char *TV_Buffer[24];
long Max_Line;

int Monitor;
int Page=0xc;
int Overlay=0;

struct menu
{
	int num_entry,sub_num[10];
	char name[40],title[40],text[10][40],id[10],type[10],path[10][40];
	char command[10][10][25];
}Mn[5];
char *CmdName,**Argv;

void SetCursor(int,int);
void ClearScreen(int);
void ClearBox();
void WriteStringAtxy();
void ScrollUp();
void ScrollDown();
void DoubleBox();
int load_File();
int check_equip();
int scroll_list(int,int,int,int,char [][S_SIZE],int,char *);
int search(char *word,int *cx,int *cy,int y1,int y2,int x1, int x2,
		FILE *fp,int *n1,int *n2,int numline,int maxline,int start,int iop,
		char *message);
int look_at_image(char *word,int x1,int x2,int y1,int y2,FILE *fp,
		int l1,int l2,int cy);
int make_bpt(FILE *fp,FILE *fpbpt,char *name,char *message,char *filename,
			int x1,int x2,int y1,int y2,int n1,int n2,int cy,int xs,int ys);
int make_color(int text,int back,int shade,int flash);


main(argc,argv)

int argc;
char *argv[];

{
	int i,j,k;
	char string[100];
	int color,val,num;

	for(i=2;i<argc;i++)
		if(strcmpi(argv[i],"overlay")==0)
		{
			Overlay=1;
			argc-=1;
		}
	getcwd(Cwd,100);
	Monitor=check_equip(&Eq);
	if(Monitor==2)
		A_Brite=0x1b;
	if(argc>1)
		strcpy(string,argv[1]);	
	else
		strcpy(string,"menu.dat");
	ClearScreen(make_color(BLACK,WHITE,0,0));
	if((num=load_menu(string))>0)
	{
		while((val=menu_find(0))>=0)
		{
			do_program(0,val);
		}
	}
	ClearScreen(make_color(WHITE,BLACK,0,0));
	SetCursor(0,0);
}

/********************************************************************
**
**
**
********************************************************************* */

int load_menu(char *filename)

{
	int i,j,k;
	char string[200],word[10][50],str1[40],str2[40],blank[10];
	FILE *fpmn;
	int firstc[20],nc,len,q1,q2;
	int num_menu=-1,item=0;
	int x,y,txt,bck,brt,fls,lines,color;
	
	strcpy(blank,"     ");
	fpmn=fopen(filename,"rt");
	if(!fpmn)
		return(-1);
	fgets(string,200,fpmn);
	sscanf(string,"%s%s%d%d%d%d",str1,str2,&txt,&bck,&brt,&fls);
	if(strcmpi(str1,"SCREEN_COLOR")==0)
	{
		while(strcmpi(str1,"SCREEN_COLOR")==0)
		{
			ClearScreen(make_color(txt,bck,brt,fls));
			SetCursor(0,25);
			fgets(string,200,fpmn);
			sscanf(string,"%s%s%d",str1,str2,&lines);
			if(strcmpi(str1,"SCREEN_LINES")!=0)
			{
				printf("No screen lines.\n\n");
				ClearScreen(make_color(WHITE,BLACK,0,0));
				exit(0);
			}
			for(i=0;i<lines;i++)
			{
				fgets(string,200,fpmn);
				len=strlen(string);
				if(len>80)
					len=80;
				for(j=0;j<len;j++)
				{
					if(string[j]!=' '&&string[j]!=0xa&&string[j]!=0xd)
					{
						color=make_color(WHITE,string[j]-'0',0,0);
						WriteStringAtxy(j,i,1,color,blank);
					}
				}
			}
			fgets(string,200,fpmn);
			sscanf(string,"%s%s%d",str1,str2,&lines);
			if(strcmpi(str1,"TEXT_LINES")==0)	/* read text lines */
			{
				for(i=0;i<lines;i++)
				{
					fgets(string,200,fpmn);
					sscanf(string,"%d%d%d%d%d%d",&x,&y,&txt,&bck,&brt,&fls);
					len=strlen(string);
					q1=q2=-1;
					for(k=0;k<len;k++)
					{
						if(string[k]==39&&q1==-1)	/* 1st single quote */
							q1=k;
						if(string[k]==39)	/* last single quote */
							q2=k;
					}
					if(q1<0||q2<0)
					{
						printf(
	"\n\nBad text line in data file --  no 'single quotes'\n\n");
						printf("%s\n",string);
						getch();
						return(-1);
					}
					for(k=0;k<q2-q1-1;k++)
						string[k]=string[k+q1+1];
					string[q2-q1-1]='\0';
					color=make_color(txt,bck,brt,fls);
					WriteStringAtxy(x,y,0,color,string);
				}
			}
			fgets(string,200,fpmn);
			sscanf(string,"%s%s%d%d%d%d",str1,str2,&txt,&bck,&brt,&fls);
			if(strcmpi(str1,"SCREEN_COLOR")==0)
				if(getch()==27)
				{
					ClearScreen(make_color(WHITE,BLACK,0,0));
					exit(0);
				}
		}
	}
	else
		rewind(fpmn);
	getch();
	ClearScreen(make_color(BLACK,WHITE,0,0));
	while(fgets(string,200,fpmn))
	{
		nc=0;
		len=strlen(string);
		sscanf(string,"%s%s%s",word[0],word[1],word[2]);
		if(strcmpi(word[0],"END")==0)	
			return(num_menu+1);
		if(strcmpi(word[0],"MENU")==0)	/* new menu */
		{
			num_menu+=1;
			Mn[num_menu].num_entry=item=-1;
			strcpy(Mn[num_menu].name,word[2]);
		}
		else
		{
			printf("\n\n\n%s",string);
			printf("\n\nExpected to find MENU = xxxx\n");
			getch();
			return(-1);
		}
		fgets(string,200,fpmn);
		sscanf(string,"%s%s%s",word[0],word[1],word[2]);
		if(strcmpi(word[0],"TITLE")==0)	/* new menu */
		{
			len=strlen(string);
			q1=q2=-1;
			for(k=0;k<len;k++)
			{
				if(string[k]==39&&q1==-1)	/* 1st single quote */
					q1=k;
				if(string[k]==39)	/* last single quote */
					q2=k;
			}
			if(q1<0||q2<0)
			{
				printf("\n\nBad line in data file --  no 'single quotes'\n\n");
				printf("%s\n",string);
				getch();
				return(-1);
			}
			for(k=0;k<q2-q1-1;k++)
				Mn[num_menu].title[k]=string[k+q1+1];
			Mn[num_menu].title[q2-q1-1]='\0';
		}
		else
		{
			printf("\n\n%s",string);
			printf("Expected to find TITLE = 'xxxx'\n");
			getch();
			return(-1);
		}
		fgets(string,200,fpmn);
		sscanf(string,"%s%s%s",word[0],word[1],word[2]);
		if(strcmpi(word[0],"NUMBER_OF_ENTRIES")==0)	/* # of menu items */
		{
			sscanf(word[2],"%d",&Mn[num_menu].num_entry);
			if(Mn[num_menu].num_entry<1||Mn[num_menu].num_entry>10)
			{
printf("\n\nInvalid number of entries -- must be between 1 & 10\n\n");
				getch();
				return(-2);
			}
		}
		else
		{
			printf("\n\n%s",string);
			printf("Expected to find NUMBER_OF_ENTRIES = #\n");
			getch();
			return(-1);
		}
		for(i=0;i<Mn[num_menu].num_entry;i++)
		{
			fgets(string,200,fpmn);	/* read type */
			len=strlen(string);
			sscanf(string,"%s%s%s%s",word[0],word[1],word[2],word[3]);
			if(strcmpi(word[0],"TYPE")==0)	/* type of menu item (I or S) */
			{
				Mn[num_menu].type[i]=word[2][0];
				if(Mn[num_menu].type[i]=='S')
				{
					if(sscanf(word[3],"%d",&Mn[num_menu].sub_num[i])<1)
					{
						printf("\n\nNo number given for sub menu.\n\n");
						printf("%s",string);
						getch();
						return(-1);
					}
				}	
			}
			else
			{
				printf("\n\nBad type\n%s\n",string);
				getch();
				return(-1);
			}
			fgets(string,200,fpmn);	/* read menu text */
			len=strlen(string);
			for(k=0;k<len;k++)
				if(string[k]==0xa||string[k]==0xd)
					string[k]='\0';
			len=strlen(string);
			for(k=0;k<len;k++)
				if(string[k]!=' ')
				{
					Mn[num_menu].id[i]=string[k];
					break;
				}
			if(Mn[num_menu].type[i]=='I')
			{
				strcpy(Mn[num_menu].text[i]," ");
				strcat(Mn[num_menu].text[i],string);
			}
			else if(Mn[num_menu].type[i]=='S')
			{
				strcpy(Mn[num_menu].text[i],"*");
				strcat(Mn[num_menu].text[i],string);
			}
			if(Mn[num_menu].type[i]=='I')
			{
				fgets(string,200,fpmn);	/* read path */
				len=sscanf(string,"%s%s%s",word[0],word[1],word[2]);
				if(len>2)
				{
					strcpy(Mn[num_menu].path[i],word[2]);
				}
				fgets(string,200,fpmn);	/* read path */
				len=sscanf(string,"%s%s%s%s%s%s%s%s%s%s",
					word[0],word[1],word[2],word[3],word[4],
					word[5],word[6],word[7],word[8],word[9]);
				len-=2;
				for(j=0;j<len;j++)
				{
					strcpy(Mn[num_menu].command[i][j],word[j+2]);
				}
			}
		}
		fgets(string,200,fpmn);
	}
	return(num_menu+1);
}


/********************************************************************
**
**
**
********************************************************************* */

int do_program(int num,int item)

{
	int i,j,k;
	char *args[10];
	char program[50];
	int len,val=0;

	ClearScreen(make_color(BLACK,7-num,0,0));
	if(Mn[num].type[item]=='S')
	{
		ClearScreen(make_color(BLACK,7-Mn[num].sub_num[item],0,0));
		while((val=menu_find(Mn[num].sub_num[item]))>=0)
		{
			do_program(Mn[num].sub_num[item],val);
		}
		ClearScreen(make_color(BLACK,7-num,0,0));
		return(0);
	}
	strcpy(program,Mn[num].command[item][0]);
	len=strlen(program);
	for(i=0;i<len;i++)
		if(program[i]=='.')
			program[i]='\0';
	args[0]=program;
	for(i=1;i<10;i++)
	{
		if(strcmpi(Mn[num].command[item][i],"NULL")==0)
		{
			args[i]=NULL;
			break;
		}
		args[i]=Mn[num].command[item][i];
	}
	ClearScreen(0x7);
	if(strlen(Mn[num].path[item])>0&&strcmpi(Mn[num].path[item],"NULL")!=0)
	{
printf("directory = '%s'\n",Mn[num].path[item]);
		if(chdir(Mn[num].path[item])!=0)
		{
			printf(
			"\n\n\nCould not chage directories to '%s'\n\n",Mn[num].path[item]);
			getch();
		}
	}
	printf("loading '%s'\n",Mn[num].command[item][0]);
	if(Overlay==0)
		spawnvp(P_WAIT,Mn[num].command[item][0],args);
	else
		spawnvp(P_OVERLAY,Mn[num].command[item][0],args);
	if(chdir(Cwd)!=0)
	{
		printf(
			"\n\n\nCould not chage back to '%s'\n\n",Mn[num].path[item]);
		getch();
	}
	ClearScreen(make_color(BLACK,7-num,0,0));
}


/********************************************************************
**
**
**
********************************************************************* */

int menu_find(int num)

{
	int i,j,k;
	int val;
	char file_name[50];

	for(i=0;i<Mn[num].num_entry;i++)
		strcpy(GF_String[i],Mn[num].text[i]);
	ClearBox(19,58,2,4,0x7);
	DoubleBox(20,59,1,3,0x70);
	ClearBox(21,58,2,2,0x4f);
	WriteStringAtxy(21,2,38,0x4f,Mn[num].title);	
	val=menu_keyboard_scroll_list(20,5,40,10,
			GF_String,Mn[num].num_entry,num);
	return(val);
}

/********************************************************************
**
**
**
********************************************************************* */

int menu_keyboard_scroll_list(xc,yc,xs,ys,string,num,menu)

int xc,yc,xs,ys,num,menu;
char string[NAME_SIZE][S_SIZE];

{
	int i,j,k;
	int x1=xc,x2=xc+xs-1,y1=yc,y2=yc+ys-1;
	int n=LastN,n1,n2,nlines=ys-2,no;
	char instring[NAME_SIZE];
	char ans,ansc;

	if(num<ys-2)
	{
		ys=num+2;
		y2=yc+ys-1;
		nlines=ys-2;
	}
	n1=n-nlines/2;
	if(n1<0)n1=0;
	n2=n1+nlines-1;
	if(n2>num-1)
	{
		n2=num-1;
		n1=n2-(nlines-1);
	}
	ClearBox(x1-1,x2-1,y1+1,y2+3,GF_Shade);
	ClearBox(x1,x2,y1+1,y2+2,GF_Back);
	DoubleBox(xc,xc+xs-1,yc,yc+ys-1,GF_Frame);
	WriteStringAtxy(x1+1,y2+2,xs-2,GF_Info,
     "  'Esc'=Quit  'Enter'=Choose file             ");

	for(i=0;i<nlines;i++)
	{
		WriteStringAtxy(xc+1,yc+i+1,xs-2,GF_Back,GF_String[i+n1]);
	}
	WriteStringAtxy(xc+1,yc+1+(n-n1),xs-2,GF_Bar,GF_String[n]);

	ClearBox(5,74,y2+6,y2+9,GF_Shade);
	WriteStringAtxy(6,y2+5,70,GF_Info,
"       Use the cursor to highlight your selection and press enter     ");
	WriteStringAtxy(6,y2+6,70,GF_Info,
"                    or type the corresponding number                  ");
	WriteStringAtxy(6,y2+7,70,GF_Info,
"                                                                      ");
	WriteStringAtxy(6,y2+8,70,GF_Info,
"                          Press ESC to exit                           ");

	i=0;
	do
	{
		ans=getch();
		if((ans>='a'&&ans<='z')||(ans>='A'&&ans<='Z')||
			(ans>='0'&&ans<='9')||ans=='_'||ans=='-')
		{
			for(j=0;j<num;j++)
				if(Mn[menu].id[j]==ans)
					return(j);
		}
		if(ans==0)
		{
			ans=getch();
			WriteStringAtxy(xc+1,yc+1+(n-n1),xs-2,GF_Back,GF_String[n]);
			if(ans==80&&n<num-1)		/* 2 */
				n+=1; 
			if(ans==72&&n>0)			/* 8 */
				n-=1;
			if(n>n2)
			{
				n2=n;
				n1=n2-(nlines-1);
				ScrollUp(1,x1+1,x2-1,y1+1,y2-1,GF_Back);
			}
			if(n<n1)
			{
				n1=n;
				n2=n1+nlines-1;
				ScrollDown(1,x1+1,x2-1,y1+1,y2-1,GF_Back);
			}
			if(ans==73)
			{
				if(n1>0&&n==n1)
				{
					n1-=nlines;
					if(n1<0)n1=0;
					n2=n1+nlines-1;
					n=n1;
					ClearBox(x1+1,x2-1,y1+1,y2-1,GF_Back);
					for(i=0;i<nlines;i++)
						WriteStringAtxy(xc+1,yc+i+1,xs-2,GF_Back,GF_String[i+n1]);
				}
				else if(n>n1)
					n=n1;
			}
			if(ans==71)
			{
				if(n1>0)
				{
					n1=0;
					n2=n1+nlines-1;
					n=0;
					ClearBox(x1+1,x2-1,y1+1,y2-1,GF_Back);
					for(i=0;i<nlines;i++)
						WriteStringAtxy(xc+1,yc+i+1,xs-2,GF_Back,GF_String[i+n1]);
				}
				else if(n>0)
					n=0;
			}
			if(ans==81)
			{
				if(n2<num-1&&n==n2)
				{
					n2+=nlines;
					if(n2>num-1)n2=num-1;
					n1=n2-(nlines-1);
					n=n2;
					ClearBox(x1+1,x2-1,y1+1,y2-1,GF_Back);
					for(i=0;i<nlines;i++)
						WriteStringAtxy(xc+1,yc+i+1,xs-2,GF_Back,GF_String[i+n1]);
				}
				else if(n<n2)
					n=n2;
			}
			if(ans==79)
			{
				if(n2<num-1)
				{
					n2=num-1;
					n1=n2-(nlines-1);
					n=n2;
					ClearBox(x1+1,x2-1,y1+1,y2-1,GF_Back);
					for(i=0;i<nlines;i++)
						WriteStringAtxy(xc+1,yc+i+1,xs-2,GF_Back,GF_String[i+n1]);
				}
				else if(n<n2)
					n=num-1;
			}
			WriteStringAtxy(xc+1,yc+1+(n-n1),xs-2,GF_Bar,GF_String[n]);
		}
	}while(ans!=83&&ans!=27&&ans!=82&&ans!=13);
	ClearBox(xc,xc+xs-1,yc-1,yc+ys+1,GF_Back);

	if(ans==83||ans==82||ans==13)		/* 'Del or 'Ins' or 'Enter' */
	{
		return(n);
	}
	else				/* 'Esc' */
	{
		return(-1);
	}
}



/***********************************************************************
**
**		text = text color
**    back = background color
**   shade = text brightness -- 0 for dark and 1 for bright
**   flash = 0 for steady and 1 for flash
**
************************************************************************/

int make_color(int text,int back,int shade,int flash)

{
	int color=flash;

	color<<=3;
	color|=back;
	color<<=1;
	color|=shade;
	color<<=3;
	color|=text;
	return(color);
}