/*
 * Microwindows touch screen driver for UCB1200 & UCB1300's
 * used with ARM boards, including Compaq iPAQ and Intel Assabet.
 *
 * Copyright (c) 2000 Century Software Embedded Technologies
 *
 * iPAQ/Assabet: Requires /dev/h3600_ts kernel driver (char 11,0).
 * L7200: Requires /dev/touchscreen/ucb1x00-ts
 */
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <errno.h>
#include <fcntl.h>
#include <math.h>
#include <sys/ioctl.h>
#include "device.h"

#ifdef __ECOS
#define TOUCHDEVICE	"/dev/ts"			/* iPAQ*/
#else
#define TOUCHDEVICE	"/dev/h3600_ts"			/* iPAQ*/
#endif
/*define TOUCHDEVICE	"/dev/touchscreen/ucb1x00" */	/* L7200*/

/* file descriptor for touch panel */
static int pd_fd = -1;

/* Hack extern to used when hiding the mouse cursor
 * There needs to be a better way to do this
*/
extern SCREENDEVICE scrdev;

static int PD_Open(MOUSEDEVICE *pmd)
{
 	/*
	 * open up the touch-panel device.
	 * Return the fd if successful, or negative if unsuccessful.
	 */

	pd_fd = open(TOUCHDEVICE, O_RDONLY | O_NONBLOCK);
	if (pd_fd < 0) {
		EPRINTF("Error %d opening touch panel\n", errno);
		return -1;
	}
	GdHideCursor(&scrdev);
	return pd_fd;
}

static void PD_Close(void)
{
 	/* Close the touch panel device. */
	if (pd_fd >= 0)
		close(pd_fd);
	pd_fd = -1;
}

static int PD_GetButtonInfo(void)
{
 	/* get "mouse" buttons supported */
	return MWBUTTON_L;
}

static void PD_GetDefaultAccel(int *pscale,int *pthresh)
{
	/*
	 * Get default mouse acceleration settings
	 * This doesn't make sense for a touch panel.
	 * Just return something inconspicuous for now.
	 */
	*pscale = 3;
	*pthresh = 5;
}

static int PD_Read(MWCOORD *px, MWCOORD *py, MWCOORD *pz, int *pb)
{
	/* read a data point */
	short data[4];
	int bytes_read;

	bytes_read = read(pd_fd, data, sizeof(data));

	if (bytes_read != sizeof(data)) {
		if (errno == EINTR || errno == EAGAIN)
			return 0;
		/*
		 * kernel driver bug: select returns read available,
		 * but read returns -1
		 * we return 0 here to avoid GsError above
		 */
		/*return -1;*/
		return 0;
	}

	*px = (MWCOORD)data[1];
	*py = (MWCOORD)data[2];

	*pb = (data[0] ? MWBUTTON_L : 0);

	*pz = 0;

	if(! *pb )
	  return 3;			/* only have button data */
	else 
	  return 2;			/* have full set of data */
}

MOUSEDEVICE mousedev = {
	PD_Open,
	PD_Close,
	PD_GetButtonInfo,
	PD_GetDefaultAccel,
	PD_Read,
	NULL
};

#ifdef TEST
int main(int argc, char ** v)
{
	MWCOORD x, y, z;
	int	b;
	int result;
	int mouse = -1;
	DPRINTF("Opening touch panel...\n");

	if((result=PD_Open(0)) < 0)
		DPRINTF("Error %d, result %d opening touch-panel\n", errno, result);

	/* This stuff below can be used to set some of the parameters of the
	 * driver from the command line before going in to the test loop.
	 * Could this have been done better? Yup.
	 */

	if(argc > 1) {
		ioctl(result,1,atoi(v[1]));
		DPRINTF("Setting pressure to %d\n",atoi(v[1]));
	} 
	if(argc > 2) {
		ioctl(result,2,atoi(v[2]));
		DPRINTF("Setting updelay to %d\n",atoi(v[2]));
	}
	if(argc > 3) {
		ioctl(result,3,atoi(v[3]));
		DPRINTF("Setting raw x to %d\n",atoi(v[3]));
	}
	if(argc > 4) {
		ioctl(result,4,atoi(v[4]));
		DPRINTF("Setting raw y to %d\n",atoi(v[4]));
	} 
	if(argc > 5) {
		ioctl(result,5,atoi(v[5]));
		DPRINTF("Setting res x to %d\n",atoi(v[5]));
	}
	if(argc > 6) {
		ioctl(result,6,atoi(v[6]));
		DPRINTF("Setting res y to %d\n",atoi(v[6]));
	}
	if(argc > 7) {
		ioctl(result,7,atoi(v[7]));
		DPRINTF("Setting fudge x to %d\n",atoi(v[7]));
	}
	if(argc > 8) {
		ioctl(result,8,atoi(v[8]));
		DPRINTF("Setting fudge y to %d\n",atoi(v[8]));
	}
	if(argc > 9) {
		ioctl(result,9,atoi(v[9]));
		DPRINTF("Setting average sample to %d\n",atoi(v[9]));
	} 
	if(argc > 10) {
		ioctl(result,10,atoi(v[10]));
		DPRINTF("Setting raw min x to %d\n",atoi(v[10]));
	}
	if(argc > 11) {
		ioctl(result,11,atoi(v[11]));
		DPRINTF("Setting raw min y to %d\n",atoi(v[11]));
	} 

	DPRINTF("Reading touch panel...\n");

	while(1) {
		result = PD_Read(&x, &y, &z, &b);
		if( result > 0) {
			if(mouse != b) {
				mouse = b;
				if(mouse) 
					DPRINTF("Pen Down\n");
				else
					DPRINTF("Pen Up\n");
			}

			DPRINTF("%d,%d,%d,%d,%d\n", result, x, y, z, b);

		}
	}
}
#endif
