/*

    SDL - Simple DirectMedia Layer

    Copyright (C) 1997-2006 Sam Lantinga

    This library is free software; you can redistribute it and/or

    modify it under the terms of the GNU Lesser General Public

    License as published by the Free Software Foundation; either

    version 2.1 of the License, or (at your option) any later version.

    This library is distributed in the hope that it will be useful,

    but WITHOUT ANY WARRANTY; without even the implied warranty of

    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public

    License along with this library; if not, write to the Free Software

    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    Sam Lantinga

    slouken@libsdl.org

*/

#include "SDL_config.h"

/* Handle the event stream, converting console events into SDL events */

#include <sys/types.h>

#include <sys/time.h>

#include <sys/ioctl.h>

#include <unistd.h>

#include <fcntl.h>

#include <errno.h>

#include <limits.h>

/* For parsing /proc */

#include <dirent.h>

#include <ctype.h>

#include <linux/vt.h>

#include <linux/kd.h>

#include <linux/keyboard.h>

#include "SDL_mutex.h"

#include "../SDL_sysvideo.h"

#include "../../events/SDL_sysevents.h"

#include "../../events/SDL_events_c.h"

#include "SDL_gsvideo.h"

#include "SDL_gsevents_c.h"

#include "SDL_gskeys.h"

#ifndef GPM_NODE_FIFO

#define GPM_NODE_FIFO	"/dev/gpmdata"

#endif

/* The translation tables from a console scancode to a SDL keysym */

#define NUM_VGAKEYMAPS	(1<<KG_CAPSSHIFT)

static Uint16 vga_keymap[NUM_VGAKEYMAPS][NR_KEYS];

static SDLKey keymap[128];

static Uint16 keymap_temp[128]; /* only used at startup */

static SDL_keysym *TranslateKey(int scancode, SDL_keysym *keysym);

/* Ugh, we have to duplicate the kernel's keysym mapping code...

   Oh, it's not so bad. :-)

   FIXME: Add keyboard LED handling code

 */

static void GS_vgainitkeymaps(int fd)

{

	struct kbentry entry;

	int map, i;

	/* Don't do anything if we are passed a closed keyboard */

	if ( fd < 0 ) {

		return;

	}

	/* Load all the keysym mappings */

	for ( map=0; map<NUM_VGAKEYMAPS; ++map ) {

		SDL_memset(vga_keymap[map], 0, NR_KEYS*sizeof(Uint16));

		for ( i=0; i<NR_KEYS; ++i ) {

			entry.kb_table = map;

			entry.kb_index = i;

			if ( ioctl(fd, KDGKBENT, &entry) == 0 ) {

				/* fill keytemp. This replaces SDL_fbkeys.h */

				if ( (map == 0) && (i<128) ) {

					keymap_temp[i] = entry.kb_value;

				}

				/* The "Enter" key is a special case */

				if ( entry.kb_value == K_ENTER ) {

					entry.kb_value = K(KT_ASCII,13);

				}

				/* Handle numpad specially as well */

				if ( KTYP(entry.kb_value) == KT_PAD ) {

					switch ( entry.kb_value ) {

					case K_P0:

					case K_P1:

					case K_P2:

					case K_P3:

					case K_P4:

					case K_P5:

					case K_P6:

					case K_P7:

					case K_P8:

					case K_P9:

						vga_keymap[map][i]=entry.kb_value;

						vga_keymap[map][i]+= '0';

						break;

										case K_PPLUS:

						vga_keymap[map][i]=K(KT_ASCII,'+');

						break;

										case K_PMINUS:

						vga_keymap[map][i]=K(KT_ASCII,'-');

						break;

										case K_PSTAR:

						vga_keymap[map][i]=K(KT_ASCII,'*');

						break;

										case K_PSLASH:

						vga_keymap[map][i]=K(KT_ASCII,'/');

						break;

										case K_PENTER:

						vga_keymap[map][i]=K(KT_ASCII,'\r');

						break;

										case K_PCOMMA:

						vga_keymap[map][i]=K(KT_ASCII,',');

						break;

										case K_PDOT:

						vga_keymap[map][i]=K(KT_ASCII,'.');

						break;

					default:

						break;

					}

				}

				/* Do the normal key translation */

				if ( (KTYP(entry.kb_value) == KT_LATIN) ||

					 (KTYP(entry.kb_value) == KT_ASCII) ||

					 (KTYP(entry.kb_value) == KT_LETTER) ) {

					vga_keymap[map][i] = entry.kb_value;

				}

			}

		}

	}

}

int GS_InGraphicsMode(_THIS)

{

	return((keyboard_fd >= 0) && (saved_kbd_mode >= 0));

}

int GS_EnterGraphicsMode(_THIS)

{

	struct termios keyboard_termios;

	/* Set medium-raw keyboard mode */

	if ( (keyboard_fd >= 0) && !GS_InGraphicsMode(this) ) {

		/* Switch to the correct virtual terminal */

		if ( current_vt > 0 ) {

			struct vt_stat vtstate;

			if ( ioctl(keyboard_fd, VT_GETSTATE, &vtstate) == 0 ) {

				saved_vt = vtstate.v_active;

			}

			if ( ioctl(keyboard_fd, VT_ACTIVATE, current_vt) == 0 ) {

				ioctl(keyboard_fd, VT_WAITACTIVE, current_vt);

			}

		}

		/* Set the terminal input mode */

		if ( tcgetattr(keyboard_fd, &saved_kbd_termios) < 0 ) {

			SDL_SetError("Unable to get terminal attributes");

			if ( keyboard_fd > 0 ) {

				close(keyboard_fd);

			}

			keyboard_fd = -1;

			return(-1);

		}

		if ( ioctl(keyboard_fd, KDGKBMODE, &saved_kbd_mode) < 0 ) {

			SDL_SetError("Unable to get current keyboard mode");

			if ( keyboard_fd > 0 ) {

				close(keyboard_fd);

			}

			keyboard_fd = -1;

			return(-1);

		}

		keyboard_termios = saved_kbd_termios;

		keyboard_termios.c_lflag &= ~(ICANON | ECHO | ISIG);

		keyboard_termios.c_iflag &= ~(ISTRIP | IGNCR | ICRNL | INLCR | IXOFF | IXON);

		keyboard_termios.c_cc[VMIN] = 0;

		keyboard_termios.c_cc[VTIME] = 0;

		if (tcsetattr(keyboard_fd, TCSAFLUSH, &keyboard_termios) < 0) {

			GS_CloseKeyboard(this);

			SDL_SetError("Unable to set terminal attributes");

			return(-1);

		}

		/* This will fail if we aren't root or this isn't our tty */

		if ( ioctl(keyboard_fd, KDSKBMODE, K_MEDIUMRAW) < 0 ) {

			GS_CloseKeyboard(this);

			SDL_SetError("Unable to set keyboard in raw mode");

			return(-1);

		}

		if ( ioctl(keyboard_fd, KDSETMODE, KD_GRAPHICS) < 0 ) {

			GS_CloseKeyboard(this);

			SDL_SetError("Unable to set keyboard in graphics mode");

			return(-1);

		}

	}

	return(keyboard_fd);

}

void GS_LeaveGraphicsMode(_THIS)

{

	if ( GS_InGraphicsMode(this) ) {

		ioctl(keyboard_fd, KDSETMODE, KD_TEXT);

		ioctl(keyboard_fd, KDSKBMODE, saved_kbd_mode);

		tcsetattr(keyboard_fd, TCSAFLUSH, &saved_kbd_termios);

		saved_kbd_mode = -1;

		/* Head back over to the original virtual terminal */

		if ( saved_vt > 0 ) {

			ioctl(keyboard_fd, VT_ACTIVATE, saved_vt);

		}

	}

}

void GS_CloseKeyboard(_THIS)

{

	if ( keyboard_fd >= 0 ) {

		GS_LeaveGraphicsMode(this);

		if ( keyboard_fd > 0 ) {

			close(keyboard_fd);

		}

	}

	keyboard_fd = -1;

}

int GS_OpenKeyboard(_THIS)

{

	/* Open only if not already opened */

 	if ( keyboard_fd < 0 ) {

		char *tty0[] = { "/dev/tty0", "/dev/vc/0", NULL };

		char *vcs[] = { "/dev/vc/%d", "/dev/tty%d", NULL };

		int i, tty0_fd;

		/* Try to query for a free virtual terminal */

		tty0_fd = -1;

		for ( i=0; tty0[i] && (tty0_fd < 0); ++i ) {

			tty0_fd = open(tty0[i], O_WRONLY, 0);

		}

		if ( tty0_fd < 0 ) {

			tty0_fd = dup(0); /* Maybe stdin is a VT? */

		}

		ioctl(tty0_fd, VT_OPENQRY, &current_vt);

		close(tty0_fd);

		if ( (geteuid() == 0) && (current_vt > 0) ) {

			for ( i=0; vcs[i] && (keyboard_fd < 0); ++i ) {

				char vtpath[12];

				SDL_snprintf(vtpath, SDL_arraysize(vtpath), vcs[i], current_vt);

				keyboard_fd = open(vtpath, O_RDWR, 0);

#ifdef DEBUG_KEYBOARD

				fprintf(stderr, "vtpath = %s, fd = %d\n",

					vtpath, keyboard_fd);

#endif /* DEBUG_KEYBOARD */

				/* This needs to be our controlling tty

				   so that the kernel ioctl() calls work

				*/

				if ( keyboard_fd >= 0 ) {

					tty0_fd = open("/dev/tty", O_RDWR, 0);

					if ( tty0_fd >= 0 ) {

						ioctl(tty0_fd, TIOCNOTTY, 0);

						close(tty0_fd);

					}

				}

			}

		}

 		if ( keyboard_fd < 0 ) {

			/* Last resort, maybe our tty is a usable VT */

			current_vt = 0;

			keyboard_fd = open("/dev/tty", O_RDWR);

 		}

#ifdef DEBUG_KEYBOARD

		fprintf(stderr, "Current VT: %d\n", current_vt);

#endif

 		saved_kbd_mode = -1;

		/* Make sure that our input is a console terminal */

		{ int dummy;

		  if ( ioctl(keyboard_fd, KDGKBMODE, &dummy) < 0 ) {

			close(keyboard_fd);

			keyboard_fd = -1;

			SDL_SetError("Unable to open a console terminal");

		  }

		}

		/* Set up keymap */

		GS_vgainitkeymaps(keyboard_fd);

 	}

 	return(keyboard_fd);

}

static enum {

	MOUSE_NONE = -1,

	MOUSE_GPM,	/* Note: GPM uses the MSC protocol */

	MOUSE_PS2,

	MOUSE_IMPS2,

	MOUSE_MS,

	MOUSE_BM,

	NUM_MOUSE_DRVS

} mouse_drv = MOUSE_NONE;

void GS_CloseMouse(_THIS)

{

	if ( mouse_fd > 0 ) {

		close(mouse_fd);

	}

	mouse_fd = -1;

}

/* Returns processes listed in /proc with the desired name */

static int find_pid(DIR *proc, const char *wanted_name)

{

	struct dirent *entry;

	int pid;

	/* First scan proc for the gpm process */

	pid = 0;

	while ( (pid == 0) && ((entry=readdir(proc)) != NULL) ) {

		if ( isdigit(entry->d_name[0]) ) {

			FILE *status;

			char path[PATH_MAX];

			char name[PATH_MAX];

			SDL_snprintf(path, SDL_arraysize(path), "/proc/%s/status", entry->d_name);

			status=fopen(path, "r");

			if ( status ) {

				name[0] = '\0';

				fscanf(status, "Name: %s", name);

				if ( SDL_strcmp(name, wanted_name) == 0 ) {

					pid = atoi(entry->d_name);

				}

				fclose(status);

			}

		}

	}

	return pid;

}

/* Returns true if /dev/gpmdata is being written to by gpm */

static int gpm_available(void)

{

	int available;

	DIR *proc;

	int pid;

	int cmdline, len, arglen;

	char path[PATH_MAX];

	char args[PATH_MAX], *arg;

	/* Don't bother looking if the fifo isn't there */

	if ( access(GPM_NODE_FIFO, F_OK) < 0 ) {

		return(0);

	}

	available = 0;

	proc = opendir("/proc");

	if ( proc ) {

		while ( (pid=find_pid(proc, "gpm")) > 0 ) {

			SDL_snprintf(path, SDL_arraysize(path), "/proc/%d/cmdline", pid);

			cmdline = open(path, O_RDONLY, 0);

			if ( cmdline >= 0 ) {

				len = read(cmdline, args, sizeof(args));

				arg = args;

				while ( len > 0 ) {

					if ( SDL_strcmp(arg, "-R") == 0 ) {

						available = 1;

					}

					arglen = SDL_strlen(arg)+1;

					len -= arglen;

					arg += arglen;

				}

				close(cmdline);

			}

		}

		closedir(proc);

	}

	return available;

}

/* rcg06112001 Set up IMPS/2 mode, if possible. This gives

 *  us access to the mousewheel, etc. Returns zero if

 *  writes to device failed, but you still need to query the

 *  device to see which mode it's actually in.

 */

static int set_imps2_mode(int fd)

{

	/* If you wanted to control the mouse mode (and we do :)  ) ...

		Set IMPS/2 protocol:

			{0xf3,200,0xf3,100,0xf3,80}

		Reset mouse device:

			{0xFF}

	*/

	Uint8 set_imps2[] = {0xf3, 200, 0xf3, 100, 0xf3, 80};

	Uint8 reset = 0xff;

	fd_set fdset;

	struct timeval tv;

	int retval = 0;

	if ( write(fd, &set_imps2, sizeof(set_imps2)) == sizeof(set_imps2) ) {

		if (write(fd, &reset, sizeof (reset)) == sizeof (reset) ) {

			retval = 1;

		}

	}

	/* Get rid of any chatter from the above */

	FD_ZERO(&fdset);

	FD_SET(fd, &fdset);

	tv.tv_sec = 0;

	tv.tv_usec = 0;

	while ( select(fd+1, &fdset, 0, 0, &tv) > 0 ) {

		char temp[32];

		read(fd, temp, sizeof(temp));

	}

	return retval;

}

/* Returns true if the mouse uses the IMPS/2 protocol */

static int detect_imps2(int fd)

{

	int imps2;

	imps2 = 0;

	if ( SDL_getenv("SDL_MOUSEDEV_IMPS2") ) {

		imps2 = 1;

	}

	if ( ! imps2 ) {

		Uint8 query_ps2 = 0xF2;

		fd_set fdset;

		struct timeval tv;

		/* Get rid of any mouse motion noise */

		FD_ZERO(&fdset);

		FD_SET(fd, &fdset);

		tv.tv_sec = 0;

		tv.tv_usec = 0;

		while ( select(fd+1, &fdset, 0, 0, &tv) > 0 ) {

			char temp[32];

			read(fd, temp, sizeof(temp));

		}

   		/* Query for the type of mouse protocol */

   		if ( write(fd, &query_ps2, sizeof (query_ps2)) == sizeof (query_ps2)) {

   			Uint8 ch = 0;

			/* Get the mouse protocol response */

			do {

				FD_ZERO(&fdset);

				FD_SET(fd, &fdset);

				tv.tv_sec = 1;

				tv.tv_usec = 0;

				if ( select(fd+1, &fdset, 0, 0, &tv) < 1 ) {

					break;

				}

			} while ( (read(fd, &ch, sizeof (ch)) == sizeof (ch)) &&

			          ((ch == 0xFA) || (ch == 0xAA)) );

			/* Experimental values (Logitech wheelmouse) */

#ifdef DEBUG_MOUSE

fprintf(stderr, "Last mouse mode: 0x%x\n", ch);

#endif

			if ( ch == 3 ) {

				imps2 = 1;

			}

		}

	}

	return imps2;

}

int GS_OpenMouse(_THIS)

{

	int i;

	const char *mousedev;

	const char *mousedrv;

	mousedrv = SDL_getenv("SDL_MOUSEDRV");

	mousedev = SDL_getenv("SDL_MOUSEDEV");

	mouse_fd = -1;

	/* STD MICE */

	if ( mousedev == NULL ) {

		/* FIXME someday... allow multiple mice in this driver */

		char *ps2mice[] = {

		    "/dev/input/mice", "/dev/usbmouse", "/dev/psaux", NULL

		};

		/* First try to use GPM in repeater mode */

		if ( mouse_fd < 0 ) {

			if ( gpm_available() ) {

				mouse_fd = open(GPM_NODE_FIFO, O_RDONLY, 0);

				if ( mouse_fd >= 0 ) {

#ifdef DEBUG_MOUSE

fprintf(stderr, "Using GPM mouse\n");

#endif

					mouse_drv = MOUSE_GPM;

				}

			}

		}

		/* Now try to use a modern PS/2 mouse */

		for ( i=0; (mouse_fd < 0) && ps2mice[i]; ++i ) {

			mouse_fd = open(ps2mice[i], O_RDWR, 0);

			if (mouse_fd < 0) {

				mouse_fd = open(ps2mice[i], O_RDONLY, 0);

			}

			if (mouse_fd >= 0) {

				/* rcg06112001 Attempt to set IMPS/2 mode */

				if ( i == 0 ) {

					set_imps2_mode(mouse_fd);

				}

				if (detect_imps2(mouse_fd)) {

#ifdef DEBUG_MOUSE

fprintf(stderr, "Using IMPS2 mouse\n");

#endif

					mouse_drv = MOUSE_IMPS2;

				} else {

					mouse_drv = MOUSE_PS2;

#ifdef DEBUG_MOUSE

fprintf(stderr, "Using PS2 mouse\n");