text: /*
      SDL - Simple DirectMedia Layer
      Copyright (C) 1997-2012 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");
  #endif
  				}
  			}
  		}
  		/* Next try to use a PPC ADB port mouse */
  		if ( mouse_fd < 0 ) {
  			mouse_fd = open("/dev/adbmouse", O_RDONLY, 0);
  			if ( mouse_fd >= 0 ) {
  #ifdef DEBUG_MOUSE
  fprintf(stderr, "Using ADB mouse\n");
  #endif
  				mouse_drv = MOUSE_BM;
  			}
  		}
  	}
  	/* Default to a serial Microsoft mouse */
  	if ( mouse_fd < 0 ) {
  		if ( mousedev == NULL ) {
  			mousedev = "/dev/mouse";
  		}
  		mouse_fd = open(mousedev, O_RDONLY, 0);
  		if ( mouse_fd >= 0 ) {
  			struct termios mouse_termios;
  
  			/* Set the sampling speed to 1200 baud */
  			tcgetattr(mouse_fd, &mouse_termios);
  			mouse_termios.c_iflag = IGNBRK | IGNPAR;
  			mouse_termios.c_oflag = 0;
  			mouse_termios.c_lflag = 0;
  			mouse_termios.c_line = 0;
  			mouse_termios.c_cc[VTIME] = 0;
  			mouse_termios.c_cc[VMIN] = 1;
  			mouse_termios.c_cflag = CREAD | CLOCAL | HUPCL;
  			mouse_termios.c_cflag |= CS8;
  			mouse_termios.c_cflag |= B1200;
  			tcsetattr(mouse_fd, TCSAFLUSH, &mouse_termios);
  #ifdef DEBUG_MOUSE
  fprintf(stderr, "Using Microsoft mouse on %s\n", mousedev);
  #endif
  			mouse_drv = MOUSE_MS;
  		}
  	}
  	if ( mouse_fd < 0 ) {
  		mouse_drv = MOUSE_NONE;
  	}
  	return(mouse_fd);
  }
  
  static int posted = 0;
  
  void GS_vgamousecallback(int button, int dx, int dy)
  {
  	int button_1, button_3;
  	int button_state;
  	int state_changed;
  	int i;
  	Uint8 state;
  
  	if ( dx || dy ) {
  		posted += SDL_PrivateMouseMotion(0, 1, dx, dy);
  	}
  
  	/* Swap button 1 and 3 */
  	button_1 = (button & 0x04) >> 2;
  	button_3 = (button & 0x01) << 2;
  	button &= ~0x05;
  	button |= (button_1|button_3);
  
  	/* See what changed */
  	button_state = SDL_GetMouseState(NULL, NULL);
  	state_changed = button_state ^ button;
  	for ( i=0; i<8; ++i ) {
  		if ( state_changed & (1<<i) ) {
  			if ( button & (1<<i) ) {
  				state = SDL_PRESSED;
  			} else {
  				state = SDL_RELEASED;
  			}
  			posted += SDL_PrivateMouseButton(state, i+1, 0, 0);
  		}
  	}
  }
  
  /* For now, use GPM, PS/2, and MS protocols
     Driver adapted from the SVGAlib mouse driver code (taken from gpm, etc.)
   */
  static void handle_mouse(_THIS)
  {
  	static int start = 0;
  	static unsigned char mousebuf[BUFSIZ];
  	int i, nread;
  	int button = 0;
  	int dx = 0, dy = 0;
  	int packetsize = 0;
  
  	/* Figure out the mouse packet size */
  	switch (mouse_drv) {
  		case MOUSE_NONE:
  			/* Ack! */
  			read(mouse_fd, mousebuf, BUFSIZ);
  			return;
  		case MOUSE_GPM:
  			packetsize = 5;
  			break;
  		case MOUSE_IMPS2:
  			packetsize = 4;
  			break;
  		case MOUSE_PS2:
  		case MOUSE_MS:
  		case MOUSE_BM:
  			packetsize = 3;
  			break;
  		case NUM_MOUSE_DRVS:
  			/* Uh oh.. */
  			packetsize = 0;
  			break;
  	}
  
  	/* Read as many packets as possible */
  	nread = read(mouse_fd, &mousebuf[start], BUFSIZ-start);
  	if ( nread < 0 ) {
  		return;
  	}
  	nread += start;
  #ifdef DEBUG_MOUSE
  	fprintf(stderr, "Read %d bytes from mouse, start = %d\n", nread, start);
  #endif
  	for ( i=0; i<(nread-(packetsize-1)); i += packetsize ) {
  		switch (mouse_drv) {
  			case MOUSE_NONE:
  				break;
  			case MOUSE_GPM:
  				/* GPM protocol has 0x80 in high byte */
  				if ( (mousebuf[i] & 0xF8) != 0x80 ) {
  					/* Go to next byte */
  					i -= (packetsize-1);
  					continue;
  				}
  				/* Get current mouse state */
  				button = (~mousebuf[i]) & 0x07;
  				dx =   (signed char)(mousebuf[i+1]) +
  				       (signed char)(mousebuf[i+3]);
  				dy = -((signed char)(mousebuf[i+2]) +
  				       (signed char)(mousebuf[i+4]));
  				break;
  			case MOUSE_PS2:
  				/* PS/2 protocol has nothing in high byte */
  				if ( (mousebuf[i] & 0xC0) != 0 ) {
  					/* Go to next byte */
  					i -= (packetsize-1);
  					continue;
  				}
  				/* Get current mouse state */
  				button = (mousebuf[i] & 0x04) >> 1 | /*Middle*/
  		  			 (mousebuf[i] & 0x02) >> 1 | /*Right*/
  		  			 (mousebuf[i] & 0x01) << 2;  /*Left*/
  		  		dx = (mousebuf[i] & 0x10) ?
  		  		      mousebuf[i+1] - 256 : mousebuf[i+1];
  		  		dy = (mousebuf[i] & 0x20) ?
  		  		      -(mousebuf[i+2] - 256) : -mousebuf[i+2];
  				break;
  			case MOUSE_IMPS2:
  				/* Get current mouse state */
  				button = (mousebuf[i] & 0x04) >> 1 | /*Middle*/
  		  			 (mousebuf[i] & 0x02) >> 1 | /*Right*/
  		  			 (mousebuf[i] & 0x01) << 2 | /*Left*/
  		  			 (mousebuf[i] & 0x40) >> 3 | /* 4 */
  		  			 (mousebuf[i] & 0x80) >> 3;  /* 5 */
  		  		dx = (mousebuf[i] & 0x10) ?
  		  		      mousebuf[i+1] - 256 : mousebuf[i+1];
  		  		dy = (mousebuf[i] & 0x20) ?
  		  		      -(mousebuf[i+2] - 256) : -mousebuf[i+2];
  				switch (mousebuf[i+3]&0x0F) {
  				    case 0x0E: /* DX = +1 */
  				    case 0x02: /* DX = -1 */
  					break;
  				    case 0x0F: /* DY = +1 (map button 4) */
                                         FB_vgamousecallback(button | (1<<3),
                                                             1, 0, 0);
  					break;
  				    case 0x01: /* DY = -1 (map button 5) */
                                         FB_vgamousecallback(button | (1<<4),
                                                             1, 0, 0);
  					break;
  				}
  				break;
  			case MOUSE_MS:
  				/* Microsoft protocol has 0x40 in high byte */
  				if ( (mousebuf[i] & 0x40) != 0x40 ) {
  					/* Go to next byte */
  					i -= (packetsize-1);
  					continue;
  				}
  				/* Get current mouse state */
  				button = ((mousebuf[i] & 0x20) >> 3) |
  				         ((mousebuf[i] & 0x10) >> 4);
  				dx = (signed char)(((mousebuf[i] & 0x03) << 6) |
  				                   (mousebuf[i + 1] & 0x3F));
  				dy = (signed char)(((mousebuf[i] & 0x0C) << 4) |
  				                    (mousebuf[i + 2] & 0x3F));
  				break;
  			case MOUSE_BM:
  				/* BusMouse protocol has 0xF8 in high byte */
  				if ( (mousebuf[i] & 0xF8) != 0x80 ) {
  					/* Go to next byte */
  					i -= (packetsize-1);
  					continue;
  				}
  				/* Get current mouse state */
  				button = (~mousebuf[i]) & 0x07;
  				dx =  (signed char)mousebuf[i+1];
  				dy = -(signed char)mousebuf[i+2];
  				break;
  			case NUM_MOUSE_DRVS:
  				/* Uh oh.. */
  				dx = 0;
  				dy = 0;
  				break;
  		}
  		GS_vgamousecallback(button, dx, dy);
  	}
  	if ( i < nread ) {
  		SDL_memcpy(mousebuf, &mousebuf[i], (nread-i));
  		start = (nread-i);
  	} else {
  		start = 0;
  	}
  	return;
  }
  
  static void handle_keyboard(_THIS)
  {
  	unsigned char keybuf[BUFSIZ];
  	int i, nread;
  	int pressed;
  	int scancode;
  	SDL_keysym keysym;
  
  	nread = read(keyboard_fd, keybuf, BUFSIZ);
  	for ( i=0; i<nread; ++i ) {
  		scancode = keybuf[i] & 0x7F;
  		if ( keybuf[i] & 0x80 ) {
  			pressed = SDL_RELEASED;
  		} else {
  			pressed = SDL_PRESSED;
  		}
  		TranslateKey(scancode, &keysym);
  		posted += SDL_PrivateKeyboard(pressed, &keysym);
  	}
  }
  
  void GS_PumpEvents(_THIS)
  {
  	fd_set fdset;
  	int max_fd;
  	static struct timeval zero;
  
  	do {
  		posted = 0;
  
  		FD_ZERO(&fdset);
  		max_fd = 0;
  		if ( keyboard_fd >= 0 ) {
  			FD_SET(keyboard_fd, &fdset);
  			if ( max_fd < keyboard_fd ) {
  				max_fd = keyboard_fd;
  			}
  		}
  		if ( mouse_fd >= 0 ) {
  			FD_SET(mouse_fd, &fdset);
  			if ( max_fd < mouse_fd ) {
  				max_fd = mouse_fd;
  			}
  		}
  		if ( select(max_fd+1, &fdset, NULL, NULL, &zero) > 0 ) {
  			if ( keyboard_fd >= 0 ) {
  				if ( FD_ISSET(keyboard_fd, &fdset) ) {
  					handle_keyboard(this);
  				}
  			}
  			if ( mouse_fd >= 0 ) {
  				if ( FD_ISSET(mouse_fd, &fdset) ) {
  					handle_mouse(this);
  				}
  			}
  		}
  	} while ( posted );
  }
  
  void GS_InitOSKeymap(_THIS)
  {
  	int i;
  
  	/* Initialize the Linux key translation table */
  
  	/* First get the ascii keys and others not well handled */
  	for (i=0; i<SDL_arraysize(keymap); ++i) {
  	  switch(i) {
  	  /* These aren't handled by the x86 kernel keymapping (?) */
  	  case SCANCODE_PRINTSCREEN:
  	    keymap[i] = SDLK_PRINT;
  	    break;
  	  case SCANCODE_BREAK:
  	    keymap[i] = SDLK_BREAK;
  	    break;
  	  case SCANCODE_BREAK_ALTERNATIVE:
  	    keymap[i] = SDLK_PAUSE;
  	    break;
  	  case SCANCODE_LEFTSHIFT:
  	    keymap[i] = SDLK_LSHIFT;
  	    break;
  	  case SCANCODE_RIGHTSHIFT:
  	    keymap[i] = SDLK_RSHIFT;
  	    break;
  	  case SCANCODE_LEFTCONTROL:
  	    keymap[i] = SDLK_LCTRL;
  	    break;
  	  case SCANCODE_RIGHTCONTROL:
  	    keymap[i] = SDLK_RCTRL;
  	    break;
  	  case SCANCODE_RIGHTWIN:
  	    keymap[i] = SDLK_RSUPER;
  	    break;
  	  case SCANCODE_LEFTWIN:
  	    keymap[i] = SDLK_LSUPER;
  	    break;
  	  case 127:
  	    keymap[i] = SDLK_MENU;
  	    break;
  	  /* this should take care of all standard ascii keys */
  	  default:
  	    keymap[i] = KVAL(vga_keymap[0][i]);
  	    break;
            }
  	}
  	for (i=0; i<SDL_arraysize(keymap); ++i) {
  	  switch(keymap_temp[i]) {
  	    case K_F1:  keymap[i] = SDLK_F1;  break;
  	    case K_F2:  keymap[i] = SDLK_F2;  break;
  	    case K_F3:  keymap[i] = SDLK_F3;  break;
  	    case K_F4:  keymap[i] = SDLK_F4;  break;
  	    case K_F5:  keymap[i] = SDLK_F5;  break;
  	    case K_F6:  keymap[i] = SDLK_F6;  break;
  	    case K_F7:  keymap[i] = SDLK_F7;  break;
  	    case K_F8:  keymap[i] = SDLK_F8;  break;
  	    case K_F9:  keymap[i] = SDLK_F9;  break;
  	    case K_F10: keymap[i] = SDLK_F10; break;
  	    case K_F11: keymap[i] = SDLK_F11; break;
  	    case K_F12: keymap[i] = SDLK_F12; break;
  
  	    case K_DOWN:  keymap[i] = SDLK_DOWN;  break;
  	    case K_LEFT:  keymap[i] = SDLK_LEFT;  break;
  	    case K_RIGHT: keymap[i] = SDLK_RIGHT; break;
  	    case K_UP:    keymap[i] = SDLK_UP;    break;
  
  	    case K_P0:     keymap[i] = SDLK_KP0; break;
  	    case K_P1:     keymap[i] = SDLK_KP1; break;
  	    case K_P2:     keymap[i] = SDLK_KP2; break;
  	    case K_P3:     keymap[i] = SDLK_KP3; break;
  	    case K_P4:     keymap[i] = SDLK_KP4; break;
  	    case K_P5:     keymap[i] = SDLK_KP5; break;
  	    case K_P6:     keymap[i] = SDLK_KP6; break;
  	    case K_P7:     keymap[i] = SDLK_KP7; break;
  	    case K_P8:     keymap[i] = SDLK_KP8; break;
  	    case K_P9:     keymap[i] = SDLK_KP9; break;
  	    case K_PPLUS:  keymap[i] = SDLK_KP_PLUS; break;
  	    case K_PMINUS: keymap[i] = SDLK_KP_MINUS; break;
  	    case K_PSTAR:  keymap[i] = SDLK_KP_MULTIPLY; break;
  	    case K_PSLASH: keymap[i] = SDLK_KP_DIVIDE; break;
  	    case K_PENTER: keymap[i] = SDLK_KP_ENTER; break;
  	    case K_PDOT:   keymap[i] = SDLK_KP_PERIOD; break;
  
  	    case K_SHIFT:  if ( keymap[i] != SDLK_RSHIFT )
  	                     keymap[i] = SDLK_LSHIFT;
  	                   break;
  	    case K_SHIFTL: keymap[i] = SDLK_LSHIFT; break;
  	    case K_SHIFTR: keymap[i] = SDLK_RSHIFT; break;
  	    case K_CTRL:  if ( keymap[i] != SDLK_RCTRL )
  	                     keymap[i] = SDLK_LCTRL;
  	                   break;
  	    case K_CTRLL:  keymap[i] = SDLK_LCTRL;  break;
  	    case K_CTRLR:  keymap[i] = SDLK_RCTRL;  break;
  	    case K_ALT:    keymap[i] = SDLK_LALT;   break;
  	    case K_ALTGR:  keymap[i] = SDLK_RALT;   break;
  
  	    case K_INSERT: keymap[i] = SDLK_INSERT;   break;
  	    case K_REMOVE: keymap[i] = SDLK_DELETE;   break;
  	    case K_PGUP:   keymap[i] = SDLK_PAGEUP;   break;
  	    case K_PGDN:   keymap[i] = SDLK_PAGEDOWN; break;
  	    case K_FIND:   keymap[i] = SDLK_HOME;     break;
  	    case K_SELECT: keymap[i] = SDLK_END;      break;
  
  	    case K_NUM:  keymap[i] = SDLK_NUMLOCK;   break;
  	    case K_CAPS: keymap[i] = SDLK_CAPSLOCK;  break;
  
  	    case K_F13:   keymap[i] = SDLK_PRINT;     break;
  	    case K_HOLD:  keymap[i] = SDLK_SCROLLOCK; break;
  	    case K_PAUSE: keymap[i] = SDLK_PAUSE;     break;
  
  	    case 127: keymap[i] = SDLK_BACKSPACE; break;
  	     
  	    default: break;
  	  }
  	}
  }
  
  static SDL_keysym *TranslateKey(int scancode, SDL_keysym *keysym)
  {
  	/* Set the keysym information */
  	keysym->scancode = scancode;
  	keysym->sym = keymap[scancode];
  	keysym->mod = KMOD_NONE;
  
  	/* If UNICODE is on, get the UNICODE value for the key */
  	keysym->unicode = 0;
  	if ( SDL_TranslateUNICODE ) {
  		int map;
  		SDLMod modstate;
  
  		modstate = SDL_GetModState();
  		map = 0;
  		if ( modstate & KMOD_SHIFT ) {
  			map |= (1<<KG_SHIFT);
  		}
  		if ( modstate & KMOD_CTRL ) {
  			map |= (1<<KG_CTRL);
  		}
  		if ( modstate & KMOD_ALT ) {
  			map |= (1<<KG_ALT);
  		}
  		if ( modstate & KMOD_MODE ) {
  			map |= (1<<KG_ALTGR);
  		}
  		if ( KTYP(vga_keymap[map][scancode]) == KT_LETTER ) {
  			if ( modstate & KMOD_CAPS ) {
  				map ^= (1<<KG_SHIFT);
  			}
  		}
  		if ( KTYP(vga_keymap[map][scancode]) == KT_PAD ) {
  			if ( modstate & KMOD_NUM ) {
  				keysym->unicode=KVAL(vga_keymap[map][scancode]);
  			}
  		} else {
  			keysym->unicode = KVAL(vga_keymap[map][scancode]);
  		}
  	}
  	return(keysym);
  }
  