/*
 * GLIB - a Generic LIBrarian and editor for synths
 *
 * Machine dependent stuff.
 */

#include "glib.h"
#include <ctype.h>

int Rows, Cols;

#define EscSeq(x) Cconout('\033');Cconout(x);
struct iorecinfo {
	char *ibuf;
	int ibufsiz;
	int ibufhd;
	int ibuftl;
	int ibuflow;
	int ibufhigh;
};
#define MIDIBUFSIZE 5000
char *Origbuf;
int Origsize;
struct iorecinfo *Ioptr;
int work_in[12], work_out[60];  /* GEM & VDI stuff */
int intin[128], ptsin[128];
int intout[128], ptsout[128];
int contrl[12];
int Handle, Vhandle;

/* These contain the raw voice data */
hello()
{
	int dummy, n;

	appl_init();

	/* Get the Midi Iorec and put in a bigger buffer */
	flushmidi();
	Ioptr = (struct iorecinfo *)(Iorec(2));
	Origbuf = Ioptr->ibuf;
	Origsize = Ioptr->ibufsiz;
	Ioptr->ibuf = alloc(MIDIBUFSIZ);
	Ioptr->ibufsiz = MIDIBUFSIZ;
	Ioptr->ibuftl = Ioptr->ibufhd = 0;
	Cursconf(2,0);		/* set non-blinking block cursor */
	mouseon();
}

bye()
{
	/* Restore the original Midi Iorec buffer */
	flushmidi();
	Ioptr->ibuf = Origbuf;
	Ioptr->ibufsiz = Origsize;
	Ioptr->ibuftl = Ioptr->ibufhd = 0;
	mouseoff();
	appl_exit();

	/* are these ever called? SAF */
	windgoto(23,0);
	windrefresh();
	windexit(0);
}

/* getmouse - get currect row and column of mouse */
getmouse(amr,amc)
int *amr;
int *amc;
{
#ifdef USEMOUSE
	int button, ret, keycode, tmp1, tmp2;
	char msgbuf[8];

	graf_mkstate(amc,amr,&tmp1,&tmp2);
	/* evnt_multi(MU_TIMER,
		0,0,0,
		0,0,0,0,0,
		0,0,0,0,0,
		msgbuf, 0, 0,
		amc, amr, &button, &ret, &keycode, &ret); */
	/* convert bitmap x,y coordinates to row,colum */
	*amr = (*amr)/16;
	*amc = (*amc)/8;
#else
	*amr = -1;
	*amc = -1;
#endif
}

/* statmouse - return mouse button state (0=nothing pressed,1=left,2=right) */
statmouse()
{
#ifdef USEMOUSE
	int tmp1, tmp2, tmp3, buttons;
	char msgbuf[8];

	graf_mkstate(&tmp1,&tmp2,&buttons,&tmp3);
	/* evnt_multi(MU_TIMER,
		0,0,0,
		0,0,0,0,0,
		0,0,0,0,0,
		msgbuf, 0, 0,
		&tmp1, &tmp1, &buttons, &tmp1, &tmp1, &tmp1); */
	return(buttons);
#else
	return(-1);
#endif
}

int Mouseshown = 0;
mouseon()
{
#ifdef USEMOUSE
	if ( Mouseshown == 0 ) {
		Vsync();	/* wait until next VBI to ensure updating */
		Cursconf(1,0);		/* show block cursor */
		Vsync();	/* wait until next VBI to ensure updating */
		graf_mouse(257,NULL);	/* display mouse cursor */
		Mouseshown = 1;
		Vsync();
	}
#endif
}
mouseoff()
{
#ifdef USEMOUSE
	if ( Mouseshown == 1 ) {
		Vsync();	/* wait until next VBI to ensure updating */
		graf_mouse(256,NULL);	/* hide mouse cursor */
		Vsync();	/* wait until next VBI to ensure updating */
		Cursconf(0,0);		/* hide block cursor */
		Mouseshown = 0;
		Vsync();
	}
#endif
}

/* Return when either a console key or mouse button is pressed. */
mouseorkey()
{
#ifdef USEMOUSE
	int evnt, ret, keycode, button, mx, my, tmp1, tmp2, tmp3;
	char msgbuf[8];

	mouseon();
	for ( ;; ) {
		graf_mkstate(&tmp1,&tmp2,&button,&tmp3);
		/* evnt = evnt_multi(MU_TIMER,
			0,0,0,
			0,0,0,0,0,
			0,0,0,0,0,
			msgbuf, 0, 0,
			&mx, &my, &button, &ret, &keycode, &ret); */
		if ( button != 0 ) {
			return(MOUSE);
		}
		if ( statmouse() > 0 )
			return(MOUSE);
		if ( statconsole() )
			return(getconsole());
	}
#else
	return(getconsole());
#endif
}

flushconsole()
{
	while ( statconsole() )
		getconsole();
}

statconsole()
{
	/* return(Bconstat(CONSOLE)); */
	return(Cconis());
}

getconsole()
{
	/* return(Bconin(CONSOLE)); */
	return(Crawcin());
}

getmidi()
{
	return(Bconin(MIDI));
}

/*ARGSUSED*/
sendmidi(c)
{
	Bconout(MIDI,c);
}

flushmidi()
{
	while ( STATMIDI )
		getmidi();
}

long milliclock()
{
	register long save_ssp=Super(0L);
	register long uhz200= *(long *)0x4ba;
	Super(save_ssp);
	return(uhz200 * 5);
}

millisleep(n)
{
	long first = milliclock();
	while ( milliclock() < (first+n) )
		;
}

char *
alloc(n)
{
	char *p;

	if ( (p=malloc((unsigned)n)) == (char *)NULL ) {
		printf("*** Whoops *** alloc has failed?!?  No more memory!\n");
		fflush(stdout);
		bye();
	}
	return(p);
}

windinit()
{
	Cols=80;
	Rows=25;
	Cursconf(1,NULL);
}

windgoto(r,c)
int r,c;
{
	mouseoff();
	EscSeq('Y');
	Cconout(r+040);
	Cconout(c+040);
}

windeeol()
{
	mouseoff();
	EscSeq('K');
}

winderaserow(r)
{
	windgoto(r,0);
	windeeol();
}

windexit(r)
int r;
{
	exit(r);
}

windclear()
{
	mouseoff();
	EscSeq('H');
	EscSeq('J');
}

/* windgets - get a line of input from the console, handling backspaces */
windgets(s)
char *s;
{
	char *origs = s;
	int c;

	while ( (c=getconsole()) != '\n' && c!='\r' && c!= EOF ) {
		if ( c == '\b' ) {
			if ( s > origs ) {
				windstr("\b \b");
				s--;
			}
		}
		else {
			windputc(c);
			*s++ = c;
		}
		windrefresh();
	}
	*s = '\0';
}

windstr(s)
char *s;
{
	int c;

	while ( (c=(*s++)) != '\0' )
		windputc(c);
}

windputc(c)
int c;
{
	mouseoff();
	Cconout(c);
}

windrefresh()
{
}

beep()
{
	Cconout('\007');
}

windhigh()
{
}

windnorm()
{
}

/****************
 * openls(), nextls(), and closels() are used to scan the current directory.
 ***************/

char Dtabuff[44];
long Origdta;
int Atarifirst = 0;

char *
openls()
{
	int n, c;

	Origdta = Fgetdta();
	Fsetdta(Dtabuff);
	Atarifirst = 1;
}
char *
nextls()
{
	static char fname[17];
	int n, c;

	if ( Atarifirst ) {
		if ( Fsfirst("*.*",0x10) < 0 )
			return(NULL);
	}
	else {
		if ( Fsnext() < 0 )
			return(NULL);
	}
	Atarifirst = 0;
	for ( n=0; n<14; n++ ) {
		c = fname[n] = Dtabuff[30+n];
		/* ALL phrase names are lower case */
		if ( c >= 'A' && c <= 'Z' )
			fname[n] = c - 'A' + 'a';
	}
	fname[14] = '\0';
	return(fname);
}
closels()
{
	Fsetdta((char *)Origdta);
}