/*
   =============================================================================
	vtyper.c -- virtual typewriter support functions
	Version 8 -- 1989-11-14 -- D.N. Lynx Crowe
   =============================================================================
*/

#include "stddefs.h"
#include "fields.h"
#include "hwdefs.h"
#include "vsdd.h"
#include "graphdef.h"

#include "midas.h"

extern	unsigned exp_c();

extern	short	cxrate;		/* data entry cursor x (col) update increment */
extern	short	cyrate;		/* data entry cursor y (row) update increment */
extern	short	stccol;		/* data entry text cursor column */
extern	short	stcrow;		/* data entry text cursor row */
extern	short	vtccol;		/* vtyper cursor column */
extern	short	vtcrow;		/* vtyper cursor row */
extern	short	vtdecol;	/* vtyper data entry column */
extern	short	vtxval;		/* vtyper cursor x value */
extern 	short	vtyval;		/* vtyper cursor y value */

extern	char	*vtdeptr;	/* vtyper data entry pointer */

extern	char	vtdechr;	/* vtyper data entry character */

extern	char	bfs[];		/* display string buffer */

extern	short	vtwrow;		/* vtyper window top row */
extern	short	vtwcol;		/* vtyper window left column */

extern	short	(*vt_adv)();	/* vtyper data cursor advance function */
extern	short	(*vt_bsp)();	/* vtyper data cursor backspace function */
extern	short	(*vt_cdn)();	/* vtyper data cursor down function */
extern	short	(*vt_cup)();	/* vtyper data cursor up function */
extern	short	(*vt_stop)();	/* vtyper exit function */
extern	short	(*vt_dsp)();	/* vtyper display function */

extern	unsigned *vtobj;	/* vtyper display object pointer */
extern	unsigned vtfgval;	/* vtyper data foreground color */
extern	unsigned vtbgval;	/* vtyper data background color */

/* virtual typewriter display line constants */

/*			"123456789012345678901234567890"  */
char	vtlin1[] =	"ABCDEFGHIJKLMNOPQRSTUVWXYZ  | ";	/* top */
char	vtlin2[] =	"abcdefghijklmnopqrstuvwxyz -*-";	/* center */
char	vtlin3[] =	" 0123456789+-/#().,:;!?&<>  | ";	/* bottom */

/* 
*/

/*
   =============================================================================
	vtsetup() -- setup the virtual typewriter for data entry

	This sets up the parameters for the virtual typewriter:

		obj	VSDD display object pointer
		dsp	character display function
		col	data entry area -- leftmost column on the screen
		ptr	data string base pointer
		tr	typewriter window topmost row
		tc	typewriter window leftmost column
		adv	data entry cursor advance function
		bsp	data entry cursor backspace function
		cup	data entry cursor up function
		cdn	data entry cursor down function
		stop	virtual typewriter end function
		fg	data entry text foreground color
		bg	data entry text background color
   =============================================================================
*/

vtsetup(obj, dsp, col, ptr, tr, tc, adv, bsp, cup, cdn, stop, fg, bg)
unsigned *obj;
short (*dsp)();
short col;
char *ptr;
short tr, tc;
short (*adv)(), (*bsp)(), (*cup)(), (*cdn)(), (*stop)();
unsigned fg, bg;
{
	vtobj   = obj;		/* setup object pointer */
	vt_adv  = adv;		/* setup cursor advance function pointer */
	vt_bsp  = bsp;		/* setup cursor backspace function pointer */
	vt_cup  = cup;		/* setup cursor up function pointer */
	vt_cdn  = cdn;		/* setup cursor down function pointer */
	vt_dsp  = dsp;		/* setup display function pointer */
	vt_stop = stop;		/* setup exit typewriter function pointer */
	vtwrow  = tr;		/* setup typewriter window row */
	vtwcol  = tc;		/* setup typewriter window column */
	vtdecol = col;		/* setup data entry base column */
	vtdeptr = ptr;		/* setup data entry area base address */
	vtfgval = exp_c(fg);	/* setup foreground color value */
	vtbgval = exp_c(bg);	/* setup background color value */
	SetPri(TTCURS, TTCPRI);	/* turn on the typewriter cursor */
	vtxval = CTOX(tc);	/* setup vt x value */
	vtyval = YTOR(tr);	/* setup vt y value */
	ttcpos(tr, tc);		/* position the typewriter cusor */
}

/* 
*/

/*
   =============================================================================
	vtcxupd() -- update virtual typewriter cursor x value

	Standard cursor x update for use when the typewriter is displayed.

	Reference this in the cursor x update for the particular display
	when the virtual typewriter is displayed.
   =============================================================================
*/

vtcxupd()
{
	vtccol = XTOC(vtxval += cxrate);

	if (vtccol > (vtwcol + 29))
		vtxval = CTOX(vtccol = vtwcol + 29);
	else if (vtccol < vtwcol)
		vtxval = CTOX(vtccol = vtwcol);
}

/*
   =============================================================================
	vtcyupd() -- update virtual typewriter cursor y value

	Standard cursor y update for use when the typewriter is displayed.

	Reference this in the cursor y update for the particular display
	when the virtual typewriter is displayed.
   =============================================================================
*/

vtcyupd()
{
	vtcrow = YTOR(vtyval += cyrate);

	if (vtcrow > (vtwrow + 2))
		vtyval = RTOY(vtcrow = vtwrow + 2);
	else if (vtcrow < vtwrow)
		vtyval = RTOY(vtcrow = vtwrow);
}

/* 
*/

/*
   =============================================================================
	vtdisp() -- virtual typewriter data entry display   (4 bit graphics)

	Standard function for virtual typewriter output to a graphic screen.
	Assumes that the graphic object is a 4 bit per pixel object in bank 0.
   =============================================================================
*/

vtdisp(obj, fg, bg, row, col, buf)
unsigned *obj;
unsigned fg, bg;
short row, col;
char *buf;
{

	if (v_regs[5] & 0x0180)
		vbank(0);

	vcputsv(obj, 64, fg, bg, row, col, buf, 14);
}

/* 
*/

/*
   =============================================================================
	vtyper() -- do data entry with the virtual typewriter

	Called when enter is hit to do data entry from the select function
	for the display.  Returns TRUE if data entry occurred, FALSE otherwise.
   =============================================================================
*/

vtyper()
{
	/* check for data entry */

	if (vtccol < (vtwcol + 26)) {			/* enter data */

		/* convert (vtcrow, vtccol) to data entry character */

		if (vtcrow EQ vtwrow)
			vtdechr = vtlin1[vtccol - vtwcol];
		else if (vtcrow EQ (vtwrow + 1))
			vtdechr = vtlin2[vtccol - vtwcol];
		else if (vtcrow EQ (vtwrow + 2))
			vtdechr = vtlin3[vtccol - vtwcol];
		else {

			vtdechr = '*';			/* error -- bad row */
			return(FALSE);
		}

		vtdeptr[stccol - vtdecol] = vtdechr;	/* update data area */

		/* update the screen */

		bfs[0] = vtdechr;
		bfs[1] = '\0';

		(*vt_dsp)(vtobj, vtfgval, vtbgval, stcrow, stccol, bfs);

		(*vt_adv)();				/* advance cursor */
		return(TRUE);
/* 
*/
	/* check for exit or cursor controls */

	} else if ((vtcrow EQ (vtwrow + 1))
		AND (vtccol EQ (vtwcol + 28))) {	/* exit */

		objclr(TTCPRI);		/* turn off typewriter cursor */
		(*vt_stop)();		/* refresh typewriter window */
		return(FALSE);

	} else if ((vtcrow EQ vtwrow)
		AND (vtccol EQ (vtwcol + 28))) {	/* cursor up */

		(*vt_cup)();		/* move cursor up a row */
		return(FALSE);

	} else if ((vtcrow EQ (vtwrow + 2))
		AND (vtccol EQ (vtwcol + 28))) {	/* cursor down */

		(*vt_cdn)();		/* move cursor down a row */
		return(FALSE);

	} else if ((vtcrow EQ (vtwrow + 1))
		AND (vtccol EQ (vtwcol + 27))) {	/* cursor lft */

		(*vt_bsp)();		/* move cursor left a column */
		return(FALSE);

	} else if ((vtcrow EQ (vtwrow + 1))
		AND (vtccol EQ (vtwcol + 29))) {	/* cursor rgt */

		(*vt_adv)();		/* move cursor right a column */
		return(FALSE);
	} 
}