/*  *	HT Editor *	syskeyb.cc - keyboard access functions for Win32 * *	Copyright (C) 1999-2003 Sebastian Biallas (sb@biallas.net) * *	This program is free software; you can redistribute it and/or modify *	it under the terms of the GNU General Public License version 2 as *	published by the Free Software Foundation. * *	This program 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 General Public License for more details. * *	You should have received a copy of the GNU General Public License *	along with this program; if not, write to the Free Software *	Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */#include "io/keyb.h"#define WIN32_LEAN_AND_MEAN#include <windows.h>#include <ctype.h>#include <stdio.h>#include <stdlib.h>HANDLE gInputHandle;static INPUT_RECORD key_event_record;static bool key_pending=false;static bool k_shift_state=false;static bool k_ctrl_state=false;static bool k_alt_state=false;//#define KEY_DEBUG#ifdef KEY_DEBUGstatic FILE *kd;#endifstruct ht_key_keycode {	ht_key key;	int keycode;};#define HT_VK                  0x300#define HT_VK_ALT              (0x1000)#define HT_VK_SHIFT            (0x2000)#define HT_VK_CTRL             (0x3000)static ht_key_keycode ht_win32_key_defs[] = {	{K_Control_A,			(0x001+HT_VK_CTRL)},	{K_Control_B,			(0x002+HT_VK_CTRL)},	{K_Control_C,			(0x003+HT_VK_CTRL)},	{K_Control_D,			(0x004+HT_VK_CTRL)},	{K_Control_E,			(0x005+HT_VK_CTRL)},	{K_Control_F,			(0x006+HT_VK_CTRL)},	{K_Control_G,			(0x007+HT_VK_CTRL)},	{K_Backspace,			(VK_BACK+HT_VK)},	{K_Control_H,			(0x008+HT_VK_CTRL)},	{K_Tab,				(VK_TAB+HT_VK)},	{K_Control_I,			(0x009+HT_VK_CTRL)},	{K_Control_J,			(0x00a+HT_VK_CTRL)},	{K_Control_K,			(0x00b+HT_VK_CTRL)},	{K_Control_L,			(0x00c+HT_VK_CTRL)},	{K_Return,			(VK_RETURN+HT_VK)},	{K_Control_M,			(0x00d+HT_VK_CTRL)},	{K_Control_N,			(0x00e + HT_VK_CTRL)},	// preprocessor problem :-)	{K_Control_O,			(0x00f+HT_VK_CTRL)},	{K_Control_P,			(0x010+HT_VK_CTRL)},	{K_Control_Q,			(0x011+HT_VK_CTRL)},	{K_Control_R,			(0x012+HT_VK_CTRL)},	{K_Control_S,			(0x013+HT_VK_CTRL)},	{K_Control_T,			(0x014+HT_VK_CTRL)},	{K_Control_U,			(0x015+HT_VK_CTRL)},	{K_Control_V,			(0x016+HT_VK_CTRL)},	{K_Control_W,			(0x017+HT_VK_CTRL)},	{K_Control_X,			(0x018+HT_VK_CTRL)},	{K_Control_Y,			(0x019+HT_VK_CTRL)},	{K_Control_Z,			(0x01a+HT_VK_CTRL)},	{K_Escape,			(VK_ESCAPE+HT_VK)},//	{K_Control_LBracket,		0x01b},//	{K_Control_BackSlash,		0x01c},//	{K_Control_RBracket,		0x01d},//	{K_Control_Caret,		0x01e},//	{K_Control_Underscore,		0x01f},//	{K_Control_Backspace,		(VK_BACK+HT_VK+HT_VK_CTRL)},	{K_Meta_Escape,			(VK_ESCAPE+HT_VK+HT_VK_ALT)},//	{K_Control_At,			0x103},	{K_Meta_Backspace,		(VK_BACK+HT_VK+HT_VK_ALT)},	{K_Shift_Tab,			(VK_TAB+HT_VK+HT_VK_SHIFT)},	{K_Control_Tab,			(VK_TAB+HT_VK+HT_VK_CTRL)},	{K_Meta_Q,			('q'+HT_VK_ALT)},	{K_Meta_W,			('w'+HT_VK_ALT)},	{K_Meta_E,			('e'+HT_VK_ALT)},	{K_Meta_R,			('r'+HT_VK_ALT)},	{K_Meta_T,			('t'+HT_VK_ALT)},	{K_Meta_Y,			('y'+HT_VK_ALT)},	{K_Meta_U,			('u'+HT_VK_ALT)},	{K_Meta_I,			('i'+HT_VK_ALT)},	{K_Meta_O,			('o'+HT_VK_ALT)},	{K_Meta_P,			('p'+HT_VK_ALT)},//	{K_Meta_LBracket,		0x11a},//	{K_Meta_RBracket,		0x11b},//	{K_Meta_Return,			0x11c},	{K_Meta_A,			('a'+HT_VK_ALT)},	{K_Meta_S,			('s'+HT_VK_ALT)},	{K_Meta_D,			('d'+HT_VK_ALT)},	{K_Meta_F,			('f'+HT_VK_ALT)},	{K_Meta_G,			('g'+HT_VK_ALT)},	{K_Meta_H,			('h'+HT_VK_ALT)},	{K_Meta_J,			('j'+HT_VK_ALT)},	{K_Meta_K,			('k'+HT_VK_ALT)},	{K_Meta_L,			('l'+HT_VK_ALT)},//	{K_Meta_Semicolon,		0x127},//	{K_Meta_Quote,			0x128},//	{K_Meta_Backquote,		0x129},//	{K_Meta_Backslash,		0x12b},	{K_Meta_Z,			('z'+HT_VK_ALT)},	{K_Meta_X,			('x'+HT_VK_ALT)},	{K_Meta_C,			('c'+HT_VK_ALT)},	{K_Meta_V,			('v'+HT_VK_ALT)},	{K_Meta_B,			('b'+HT_VK_ALT)},	{K_Meta_N,			('n'+HT_VK_ALT)},	{K_Meta_M,			('m'+HT_VK_ALT)},//	{K_Meta_Comma,			0x133},//	{K_Meta_Period,			0x134},//	{K_Meta_Slash,			0x135},//	{K_Meta_KPStar,			0x137},	{K_F1,				(VK_F1+HT_VK)},	{K_F2,				(VK_F2+HT_VK)},	{K_F3,				(VK_F3+HT_VK)},	{K_F4,				(VK_F4+HT_VK)},	{K_F5,				(VK_F5+HT_VK)},	{K_F6,				(VK_F6+HT_VK)},	{K_F7,				(VK_F7+HT_VK)},	{K_F8,				(VK_F8+HT_VK)},	{K_F9,				(VK_F9+HT_VK)},	{K_F10,				(VK_F10+HT_VK)},	{K_Home,			(VK_HOME+HT_VK)},	{K_Up,				(VK_UP+HT_VK)},	{K_PageUp,			(VK_PRIOR+HT_VK)},//	{K_Meta_KPMinus,			0x14a},	{K_Left,			(VK_LEFT+HT_VK)},//	{K_Center,			0x14c},	{K_Right,			(VK_RIGHT+HT_VK)},//	{K_Meta_KPPlus,			0x14e},	{K_End,				(VK_END+HT_VK)},	{K_Down,			(VK_DOWN+HT_VK)},	{K_PageDown,			(VK_NEXT+HT_VK)},	{K_Insert,			(VK_INSERT+HT_VK)},	{K_Delete,			(VK_DELETE+HT_VK)},	{K_Shift_F1,			(VK_F1+HT_VK+HT_VK_SHIFT)},	{K_Shift_F2,			(VK_F2+HT_VK+HT_VK_SHIFT)},	{K_Shift_F3,			(VK_F3+HT_VK+HT_VK_SHIFT)},	{K_Shift_F4,			(VK_F4+HT_VK+HT_VK_SHIFT)},	{K_Shift_F5,			(VK_F5+HT_VK+HT_VK_SHIFT)},	{K_Shift_F6,			(VK_F6+HT_VK+HT_VK_SHIFT)},	{K_Shift_F7,			(VK_F7+HT_VK+HT_VK_SHIFT)},	{K_Shift_F8,			(VK_F8+HT_VK+HT_VK_SHIFT)},	{K_Shift_F9,			(VK_F9+HT_VK+HT_VK_SHIFT)},	{K_Shift_F10,			(VK_F10+HT_VK+HT_VK_SHIFT)},	{K_Control_F1,			(VK_F1+HT_VK+HT_VK_CTRL)},	{K_Control_F2,			(VK_F2+HT_VK+HT_VK_CTRL)},	{K_Control_F3,			(VK_F3+HT_VK+HT_VK_CTRL)},	{K_Control_F4,			(VK_F4+HT_VK+HT_VK_CTRL)},	{K_Control_F5,			(VK_F5+HT_VK+HT_VK_CTRL)},	{K_Control_F6,			(VK_F6+HT_VK+HT_VK_CTRL)},	{K_Control_F7,			(VK_F7+HT_VK+HT_VK_CTRL)},	{K_Control_F8,			(VK_F8+HT_VK+HT_VK_CTRL)},	{K_Control_F9,			(VK_F9+HT_VK+HT_VK_CTRL)},	{K_Control_F10,			(VK_F10+HT_VK+HT_VK_CTRL)},	{K_Meta_F1,			(VK_F1+HT_VK+HT_VK_ALT)},	{K_Meta_F2,			(VK_F2+HT_VK+HT_VK_ALT)},	{K_Meta_F3,			(VK_F3+HT_VK+HT_VK_ALT)},	{K_Meta_F4,			(VK_F4+HT_VK+HT_VK_ALT)},	{K_Meta_F5,			(VK_F5+HT_VK+HT_VK_ALT)},	{K_Meta_F6,			(VK_F6+HT_VK+HT_VK_ALT)},	{K_Meta_F7,			(VK_F7+HT_VK+HT_VK_ALT)},	{K_Meta_F8,			(VK_F8+HT_VK+HT_VK_ALT)},	{K_Meta_F9,			(VK_F9+HT_VK+HT_VK_ALT)},	{K_Meta_F10,			(VK_F10+HT_VK+HT_VK_ALT)},//	{K_Control_Print		0x172},	{K_Control_Left,		(VK_LEFT+HT_VK_CTRL+HT_VK)},	{K_Control_Right,		(VK_RIGHT+HT_VK_CTRL+HT_VK)},	{K_Control_End,			(VK_END+HT_VK_CTRL+HT_VK)},	{K_Control_PageDown,		(VK_NEXT+HT_VK_CTRL+HT_VK)},	{K_Control_Home,		(VK_HOME+HT_VK_CTRL+HT_VK)},	{K_Meta_1,			('1'+HT_VK_ALT)},	{K_Meta_2,			('2'+HT_VK_ALT)},	{K_Meta_3,			('3'+HT_VK_ALT)},	{K_Meta_4,			('4'+HT_VK_ALT)},	{K_Meta_5,			('5'+HT_VK_ALT)},	{K_Meta_6,			('6'+HT_VK_ALT)},	{K_Meta_7,			('7'+HT_VK_ALT)},	{K_Meta_8,			('8'+HT_VK_ALT)},	{K_Meta_9,			('9'+HT_VK_ALT)},	{K_Meta_0,			('0'+HT_VK_ALT)},//	{K_Meta_Dash,			0x182},//	{K_Meta_Equals,			0x183},	{K_Control_PageUp,		(VK_PRIOR+HT_VK_CTRL+HT_VK)},	{K_F11,				(VK_F11+HT_VK+HT_VK)},	{K_F12,				(VK_F12+HT_VK+HT_VK)},	{K_Shift_F11,			(VK_F11+HT_VK+HT_VK_SHIFT)},	{K_Shift_F12,			(VK_F12+HT_VK+HT_VK_SHIFT)},	{K_Control_F11,			(VK_F11+HT_VK+HT_VK_CTRL)},	{K_Control_F12,			(VK_F12+HT_VK+HT_VK_CTRL)},	{K_Meta_F11,			(VK_F11+HT_VK+HT_VK_ALT)},	{K_Meta_F12,			(VK_F12+HT_VK+HT_VK_ALT)},	{K_Control_Up,			(VK_UP+HT_VK_CTRL+HT_VK)},//	{K_Control_KPDash,		0x18e},//	{K_Control_Center,		0x18f},//	{K_Control_KPPlus,		0x190},	{K_Control_Down,		(VK_DOWN+HT_VK_CTRL+HT_VK)},	{K_Control_Insert,		(VK_INSERT+HT_VK_CTRL+HT_VK)},	{K_Control_Delete,		(VK_DELETE+HT_VK_CTRL+HT_VK)},//	{K_Control_KPSlash,		0x195},//	{K_Control_KPStar,		0x196},	{K_Meta_Tab,			(VK_TAB+HT_VK_ALT+HT_VK)},	{K_Meta_Enter,			(VK_RETURN+HT_VK+HT_VK_ALT)},	{K_Shift_Up,			(HT_VK_SHIFT+VK_UP+HT_VK)},	{K_Shift_Down,			(HT_VK_SHIFT+VK_DOWN+HT_VK)},	{K_Shift_Left,			(HT_VK_SHIFT+VK_LEFT+HT_VK)},	{K_Shift_Right,			(HT_VK_SHIFT+VK_RIGHT+HT_VK)},	{K_Shift_PageUp,		(HT_VK_SHIFT+VK_PRIOR+HT_VK)},	{K_Shift_PageDown,		(HT_VK_SHIFT+VK_NEXT+HT_VK)},	{K_Shift_Home,			(HT_VK_SHIFT+VK_HOME+HT_VK)},	{K_Shift_End,			(HT_VK_SHIFT+VK_END+HT_VK)},	{K_Shift_Delete,		(HT_VK_SHIFT+VK_DELETE+HT_VK)},	{K_Shift_Insert,		(HT_VK_SHIFT+VK_INSERT+HT_VK)},	{K_INVALID,			-1}};static bool gWinChFlag;bool sys_get_winch_flag(){	return gWinChFlag;}void sys_set_winch_flag(bool f){	gWinChFlag = f;}bool keyb_keypressed(){	DWORD read;	if (key_pending) return true;	while (1) {		PeekConsoleInputA(gInputHandle, &key_event_record, 1, &read);		if (!read) return false;		ReadConsoleInputA(gInputHandle, &key_event_record, 1, &read);		if (key_event_record.EventType & KEY_EVENT) {			switch (key_event_record.Event.KeyEvent.wVirtualKeyCode) {			case VK_CONTROL:				k_ctrl_state = key_event_record.Event.KeyEvent.bKeyDown;				break;			case VK_MENU:				k_alt_state = key_event_record.Event.KeyEvent.bKeyDown;				break;			}			if (key_event_record.Event.KeyEvent.bKeyDown) {				key_pending = true;				return true;			}		} else if (key_event_record.EventType & WINDOW_BUFFER_SIZE_EVENT) {			gWinChFlag = true;		}	}}int ht_key_meta(bool shift, bool control, bool alt){    return (((key_event_record.Event.KeyEvent.dwControlKeyState & SHIFT_PRESSED) && shift) ? HT_VK_SHIFT : 0)	+(((key_event_record.Event.KeyEvent.dwControlKeyState & (LEFT_CTRL_PRESSED|RIGHT_CTRL_PRESSED)) && control) ? HT_VK_CTRL : 0)	+(((key_event_record.Event.KeyEvent.dwControlKeyState & (LEFT_ALT_PRESSED|RIGHT_ALT_PRESSED)) && alt) ? HT_VK_ALT : 0);}int keyb_getrawkey(){	if (!keyb_keypressed()) return -1;	key_pending = false;#ifdef KEY_DEBUG	if (key_event_record.Event.KeyEvent.uChar.AsciiChar && !(key_event_record.Event.KeyEvent.dwControlKeyState & 256)) {		fprintf(kd, "ASC: %4d  [%c], control = 0x%lx {VK: %d  shift: %d, alt: %d, ctrl: %d}\n", key_event_record.Event.KeyEvent.uChar.AsciiChar, ((unsigned)key_event_record.Event.KeyEvent.uChar.AsciiChar >= 32) ? key_event_record.Event.KeyEvent.uChar.AsciiChar: ' ', key_event_record.Event.KeyEvent.dwControlKeyState, key_event_record.Event.KeyEvent.wVirtualKeyCode, k_shift_state, k_alt_state, k_ctrl_state);	} else {		fprintf(kd, " VK: %4d  shift: %d, alt: %d, ctrl: %d\n", key_event_record.Event.KeyEvent.wVirtualKeyCode, k_shift_state, k_alt_state, k_ctrl_state);	}#endif	if (key_event_record.Event.KeyEvent.uChar.AsciiChar && !(key_event_record.Event.KeyEvent.dwControlKeyState & 256)) {	        /*	         *	Filter keys which also have a ascii representation.	         */	        switch (key_event_record.Event.KeyEvent.wVirtualKeyCode) {	        	case VK_BACK:	        	case VK_TAB:	        	case VK_RETURN:	        	case VK_ESCAPE:	        	case VK_CLEAR:				return key_event_record.Event.KeyEvent.wVirtualKeyCode + HT_VK + ht_key_meta(true, true, true);	        }		/*		 *	Local keys, which can only be access via AltGr		 *	[in german e.g. '\'=(altgr+'-') and '@'=(altgr+'q')]		 *	are handled separately		 */		switch (key_event_record.Event.KeyEvent.uChar.AsciiChar) {			case '\\':			case '@':			case '|':			case '