/* TEBOX ROUTINES  by David W. Douglass  12/24/87 */
/* Written and compiled with Megamax C */

#include <osbind.h>

#define UP_ARROW 0x4800
#define DN_ARROW 0x5000
#define LF_ARROW 0x4B00
#define RT_ARROW 0x4D00
#define INSERT   0x5200
#define DELETE   0x537F
#define BACKSP   0x0E08
#define S_INSERT 0x5230
#define C_DELETE 0x531F
#define HOME     0x4700
#define S_HOME   0x4737
#define ESC      0x011B
#define RETURN   0x1C0D


#define TEMAXM 1000		/* max memory reserved for boxes */
#define TEMAXB 4		/* max number of boxes plus one */

static char TEmem[TEMAXM];	/* memory space for box text */
static int TEfree;			/* index to start of free memory */

static int TEinfo[TEMAXB][7];	/* text box information */
#define TEstart  TEinfo[TEhandle][0] /* index to start of text */
#define TEwidth  TEinfo[TEhandle][1] /* dimensions of box (in chars) */
#define TEheight TEinfo[TEhandle][2]
#define TExpos   TEinfo[TEhandle][3] /* box top left pixel coords */
#define TEypos   TEinfo[TEhandle][4]
#define TEcsrx   TEinfo[TEhandle][5] /* local cursor location coords */
#define TEcsry   TEinfo[TEhandle][6]

static char TEbuff[81];		/* temp buffer for string output */

/* offsets into text based on corresponding cursor coordinate */
#define TEoffx TEinfo[TEhandle][0]+TEinfo[TEhandle][5]
#define TEoffy TEinfo[TEhandle][0]+TEinfo[TEhandle][1]*TEinfo[TEhandle][6]

static int TEgh;			/* VDI graphics handle */
static int TEblink = -1;		/* handle of box to blink cursor in */
static int TEv = 8;			/* Rez dependent character cell height */

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


TEbox_init (handle) int handle;
{	int i,temp;

	for (i=0; i<TEMAXM; ++i) TEmem[i] = -1;
	for (i=0; i<TEMAXB; ++i) TEinfo[i][0] = -1;
	TEfree = 0;
	TEgh = handle;
	if (Getrez() == 2) TEv *= 2;
}


TEbox_create (TEw,TEh) int TEw,TEh;
{	int i,TEhandle;

	if (TEw*TEh > TEMAXM-TEfree+1) return(-1);
	TEhandle = -1;
	for (i=TEMAXB-1; i>-1; --i) if (TEinfo[i][0] == -1) TEhandle = i;
	if (TEhandle < 0) return(-1);
	TEstart = TEfree;
	TEfree += (TEw * TEh) + 1;
	for (i=TEstart; i<TEfree; ++i) TEmem[i] = ' '; TEmem[i] = 0;
	TEwidth = TEw; TEheight = TEh;
	TEcsrx = TEcsry = 0;
	return(TEhandle);
}


TEbox_open (TEhandle,x,y) int TEhandle,x,y;
{	int i,j;

	TExpos = x; TEypos = y-1;
	TEbox_draw(TEhandle);
	return (0);
}


TEbox_draw (TEhandle) int TEhandle;
{	int i,j;

	for (j=0; j<TEheight; ++j)
	{	for (i=0; i<TEwidth; ++i)
			TEbuff[i] = TEmem[TEstart + j*TEwidth + i];
		TEbuff[i] = 0;
		v_gtext(TEgh,TExpos,TEypos+(j*TEv)+TEv-1,&TEbuff);
	}
}	


TEbox_edit (TEhandle,keycode) int TEhandle,keycode;
{	int i,j;

	v_hide_c(TEgh);
	TEbox_cursor(TEhandle,0);
	switch (keycode)
	{	case UP_ARROW:  --TEcsry; break;
		case DN_ARROW:  ++TEcsry; break;
		case LF_ARROW:  --TEcsrx; break;
		case RT_ARROW:  ++TEcsrx; break;
		case RETURN:  TEcsrx = 0; ++TEcsry; break;
		case HOME:  TEcsrx = TEcsry = 0; break;
		case INSERT:	for (i=TEwidth-2; i>=TEcsrx; --i)
							TEbuff[i-TEcsrx+1] = TEmem[TEoffy+i+1] = TEmem[TEoffy+i];
						TEbuff[0] = TEmem[TEoffy+i+1] = ' ';
						TEbuff[TEwidth-TEcsrx] = 0;
						v_gtext(TEgh,TExpos+8*TEcsrx,TEypos+(TEv*TEcsry)+TEv-1,&TEbuff);
						break;
		case DELETE:	for (i=TEcsrx+1; i<=TEwidth-1; ++i)
							TEbuff[i-TEcsrx-1] = TEmem[TEoffy+i-1] = TEmem[TEoffy+i];
						TEbuff[i-TEcsrx-1] = TEmem[TEoffy+TEwidth-1] = ' ';
						TEbuff[i-TEcsrx] = 0;
						v_gtext(TEgh,TExpos+8*TEcsrx,TEypos+(TEv*TEcsry)+TEv-1,&TEbuff);
						break;
		case BACKSP:	--TEcsrx;
						if (TEcsrx < 0) TEcsrx = TEwidth - 1;
						TEmem[TEoffy+TEcsrx] = ' ';
						TEbuff[0] = ' '; TEbuff[1] = 0;
						v_gtext(TEgh,TExpos+8*TEcsrx,TEypos+(TEv*TEcsry)+TEv-1,&TEbuff);
						break;
		case S_INSERT:	for (j=TEheight-2; j>=TEcsry; --j)
							for (i=0; i<TEwidth; ++i)
								TEmem[TEstart+TEwidth*(j+1)+i]=TEmem[TEstart+TEwidth*j+i];
						for (i=0; i<TEwidth; ++i)
							TEmem[TEoffy+i] = ' ';
						for (j=TEcsry; j<TEheight; ++j)
						{	for (i=0; i<TEwidth; ++i)
								TEbuff[i] = TEmem[TEstart+TEwidth*j+i];
							TEbuff[TEwidth] = 0;
							v_gtext(TEgh,TExpos,TEypos+(TEv*j)+TEv-1,&TEbuff);
						}
						TEcsrx = 0;
						break;
		case C_DELETE:	for (j=TEcsry; j<=TEheight-2; ++j)
						{	for (i=0; i<TEwidth; ++i)
								TEbuff[i] = TEmem[TEstart+TEwidth*j+i] = TEmem[TEstart+TEwidth*(j+1)+i];
							TEbuff[TEwidth] = 0;
							v_gtext(TEgh,TExpos,TEypos+(TEv*j)+TEv-1,&TEbuff);
						}
						for (i=0; i<TEwidth; ++i)
							TEbuff[i] = TEmem[TEstart+TEwidth*(TEheight-1)+i] = ' ';
						v_gtext(TEgh,TExpos,TEypos+(TEv*(TEheight-1))+TEv-1,&TEbuff);
						TEcsrx = 0;
						break;
		case S_HOME:
		case ESC:	for (i=0; i<TEwidth; ++i)
						TEbuff[i] = ' ';
					TEbuff[TEwidth] = 0;
					for (j=0; j<TEheight; ++j)
					{	for (i=0; i<TEwidth; ++i)
							TEmem[TEstart+(TEwidth*j)+i] = ' ';
						v_gtext(TEgh,TExpos,TEypos+(TEv*j)+TEv-1,&TEbuff);
					}
					TEcsrx = TEcsry = 0;
					break;
		default:	keycode &= 127;
					if (keycode>=' ' && keycode <= '~')
					{	TEbuff[0] = TEmem[TEoffy+TEcsrx] = keycode;
						TEbuff[1] = 0;
						v_gtext(TEgh,TExpos+8*TEcsrx,TEypos+(TEv*TEcsry)+TEv-1,&TEbuff);
						++TEcsrx;
						if (TEcsrx > TEwidth - 1) ++TEcsry;
					}
					break;
	} /* end of switch */
	if (TEcsrx < 0) TEcsrx = TEwidth - 1;
	if (TEcsrx > TEwidth - 1) TEcsrx = 0;
	if (TEcsry < 0) TEcsry = TEheight - 1;
	if (TEcsry > TEheight - 1) TEcsry = 0;
	TEbox_cursor(TEhandle,1);
	v_show_c(TEgh,1);
}


TEbox_cursor (TEhandle,state) int TEhandle,state;
{	int rect[4];
	int x,y,mouseX,mouseY,temp,test,testX,testY;

	x = TExpos+8*TEcsrx;
	y = TEypos+TEv*TEcsry;
	TEbuff[0] = TEmem[TEstart+TEcsry*TEwidth+TEcsrx];
	TEbuff[1] = 0;
	vq_mouse(TEgh,&temp,&mouseX,&mouseY);
	testX = x-mouseX; testX = testX<0 ? -testX : testX;
	testY = y-mouseY; testY = testY<0 ? -testY : testY;
	if ((testX<=16) && (testY<=16)) test = 1;
	if (test) v_hide_c(TEgh);
	if (state == 0)
	{	v_gtext(TEgh,x,y+TEv-1,&TEbuff);
		TEblink = -1;
	}
	if (state == 2)
	{	v_gtext(TEgh,x,y+TEv-1,&TEbuff);
		testX = (mouseX>TExpos)&&(mouseX<TExpos+TEwidth*8);
		testY = (mouseY>TEypos)&&(mouseY<TEypos+TEheight*TEv);
		TEcsrx = ((mouseX-TExpos)/8)*testX;
		TEcsry = ((mouseY-TEypos)/TEv)*testY;
		x = TExpos+8*TEcsrx;
		y = TEypos+TEv*TEcsry;
		TEbuff[0] = TEmem[TEstart+TEcsry*TEwidth+TEcsrx];
	}
	if ((state == 1) || (state == 2))
	{	vsf_interior(TEgh,1);
		vsf_color(TEgh,1);
		rect[0]=x; rect[1]=y+TEv/8; rect[2]=x+7; rect[3]=y+TEv+TEv/16;
		vr_recfl(TEgh,&rect);
		vswr_mode(TEgh,3);
		v_gtext(TEgh,x,y+TEv-1,&TEbuff);
		vswr_mode(TEgh,1);
		TEblink = TEhandle;
	}
	if (test) v_show_c(TEgh,1);
}


TEbox_blink ()
{	static int state = 0;
	int rect[4];
	int x,y,mouseX,mouseY,temp,TEhandle,test,testX,testY;

	if (TEblink == -1) return (0);
	TEhandle = TEblink;
	state = 1 - state;
	vq_mouse(TEgh,&temp,&mouseX,&mouseY);
	x = TExpos+8*TEcsrx;
	y = TEypos+TEv*TEcsry;
	TEbuff[0] = TEmem[TEstart+TEcsry*TEwidth+TEcsrx];
	TEbuff[1] = 0;
	testX = x-mouseX; testX = testX<0 ? -testX : testX;
	testY = y-mouseY; testY = testY<0 ? -testY : testY;
	if ((testX<=16) && (testY<=16)) test = 1;
	if (test) v_hide_c(TEgh);
	if (state)
	{	vsf_interior(TEgh,1);
		vsf_color(TEgh,1);
		rect[0]=x; rect[1]=y+TEv/8; rect[2]=x+7; rect[3]=y+TEv+TEv/16;
		vr_recfl(TEgh,&rect);
		vswr_mode(TEgh,3);
		v_gtext(TEgh,x,y+TEv-1,&TEbuff);
		vswr_mode(TEgh,1);

	}
	else
		v_gtext(TEgh,x,y+TEv-1,&TEbuff);
	if (test) v_show_c(TEgh,1);
}


TEbox_inq (x,y) int x,y;
{	int TEhandle;

	for (TEhandle=0; TEhandle<=TEMAXB; ++TEhandle)
		if ((x>=TExpos) && (x<TExpos+8*TEwidth)
			&& (y>=TEypos) && (y<TEypos+TEv*TEheight)) return (TEhandle);
	return (-1);
}


char *TEbox_get (TEhandle) int TEhandle;
{
	return(&TEmem[TEstart]);
}