/*******************************************************************************
 * Copyright (c) 2000, 2004 IBM Corporation and others.
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors:
 *     IBM Corporation - initial API and implementation
 * Port to the D programming language:
 *     Bill Baxter <bill@billbaxter.com>
 *******************************************************************************/
module org.eclipse.swt.snippets.Snippet25;
 
/*
 * Control example snippet: print key state, code and character
 *
 * For a list of all SWT example snippets see
 * http://www.eclipse.org/swt/snippets/
 * 
 * @since 3.0
 */
import org.eclipse.swt.SWT;
import org.eclipse.swt.widgets.Display;
import org.eclipse.swt.widgets.Shell;
import org.eclipse.swt.widgets.Listener;
import org.eclipse.swt.widgets.Event;
import java.lang.all;

version(Tango){
    import tango.io.Stdout;
    import tango.text.convert.Format;
    import tango.util.Convert;
} else { // Phobos
    import std.stdio;
    import std.string;
    import std.conv;
}

static String stateMask (int stateMask) {
	String string = "";
	if ((stateMask & SWT.CTRL) != 0) string ~= " CTRL";
	if ((stateMask & SWT.ALT) != 0) string ~= " ALT";
	if ((stateMask & SWT.SHIFT) != 0) string ~= " SHIFT";
	if ((stateMask & SWT.COMMAND) != 0) string ~= " COMMAND";
	return string;
}

static String character (wchar character) {
	switch (character) {
    case 0: 		return "'\\0'";
    case SWT.BS:	return "'\\b'";
    case SWT.CR:	return "'\\r'";
    case SWT.DEL:	return "DEL";
    case SWT.ESC:	return "ESC";
    case SWT.LF:	return "'\\n'";
    case SWT.TAB:	return "'\\t'";
    default:
		return to!(String)("'"w ~ character ~"'"w);
	}
}

static String keyCode (int keyCode) {
	switch (keyCode) {
		
		/* Keyboard and Mouse Masks */
    case SWT.ALT: 		return "ALT";
    case SWT.SHIFT: 	return "SHIFT";
    case SWT.CONTROL:	return "CONTROL";
    case SWT.COMMAND:	return "COMMAND";
			
		/* Non-Numeric Keypad Keys */
    case SWT.ARROW_UP:		return "ARROW_UP";
    case SWT.ARROW_DOWN:	return "ARROW_DOWN";
    case SWT.ARROW_LEFT:	return "ARROW_LEFT";
    case SWT.ARROW_RIGHT:	return "ARROW_RIGHT";
    case SWT.PAGE_UP:		return "PAGE_UP";
    case SWT.PAGE_DOWN:		return "PAGE_DOWN";
    case SWT.HOME:			return "HOME";
    case SWT.END:			return "END";
    case SWT.INSERT:		return "INSERT";

		/* Virtual and Ascii Keys */
    case SWT.BS:	return "BS";
    case SWT.CR:	return "CR";		
    case SWT.DEL:	return "DEL";
    case SWT.ESC:	return "ESC";
    case SWT.LF:	return "LF";
    case SWT.TAB:	return "TAB";
	
		/* Functions Keys */
    case SWT.F1:	return "F1";
    case SWT.F2:	return "F2";
    case SWT.F3:	return "F3";
    case SWT.F4:	return "F4";
    case SWT.F5:	return "F5";
    case SWT.F6:	return "F6";
    case SWT.F7:	return "F7";
    case SWT.F8:	return "F8";
    case SWT.F9:	return "F9";
    case SWT.F10:	return "F10";
    case SWT.F11:	return "F11";
    case SWT.F12:	return "F12";
    case SWT.F13:	return "F13";
    case SWT.F14:	return "F14";
    case SWT.F15:	return "F15";
		
		/* Numeric Keypad Keys */
    case SWT.KEYPAD_ADD:		return "KEYPAD_ADD";
    case SWT.KEYPAD_SUBTRACT:	return "KEYPAD_SUBTRACT";
    case SWT.KEYPAD_MULTIPLY:	return "KEYPAD_MULTIPLY";
    case SWT.KEYPAD_DIVIDE:		return "KEYPAD_DIVIDE";
    case SWT.KEYPAD_DECIMAL:	return "KEYPAD_DECIMAL";
    case SWT.KEYPAD_CR:			return "KEYPAD_CR";
    case SWT.KEYPAD_0:			return "KEYPAD_0";
    case SWT.KEYPAD_1:			return "KEYPAD_1";
    case SWT.KEYPAD_2:			return "KEYPAD_2";
    case SWT.KEYPAD_3:			return "KEYPAD_3";
    case SWT.KEYPAD_4:			return "KEYPAD_4";
    case SWT.KEYPAD_5:			return "KEYPAD_5";
    case SWT.KEYPAD_6:			return "KEYPAD_6";
    case SWT.KEYPAD_7:			return "KEYPAD_7";
    case SWT.KEYPAD_8:			return "KEYPAD_8";
    case SWT.KEYPAD_9:			return "KEYPAD_9";
    case SWT.KEYPAD_EQUAL:		return "KEYPAD_EQUAL";

		/* Other keys */
    case SWT.CAPS_LOCK:		return "CAPS_LOCK";
    case SWT.NUM_LOCK:		return "NUM_LOCK";
    case SWT.SCROLL_LOCK:	return "SCROLL_LOCK";
    case SWT.PAUSE:			return "PAUSE";
    case SWT.BREAK:			return "BREAK";
    case SWT.PRINT_SCREEN:	return "PRINT_SCREEN";
    case SWT.HELP:			return "HELP";

    default:
        return character (cast(char) keyCode);
	}

}

void main () {
	Display display = new Display ();
	Shell shell = new Shell (display);
	Listener listener = new class Listener {
		public void handleEvent (Event e) {
			String string = e.type == SWT.KeyDown ? "DOWN:" : "UP  :";
			version(Tango){
				string ~= Format("stateMask=0x{:x}{},", e.stateMask, stateMask (e.stateMask));
				string ~= Format(" keyCode=0x{:x} {},", e.keyCode, keyCode (e.keyCode));
				string ~= Format(" character=0x{:x} {}", e.character, character (e.character));
				Stdout.formatln (string);
			} else { // Phobos
				string ~= format("stateMask=0x%x%s,", e.stateMask, stateMask (e.stateMask));
				string ~= format(" keyCode=0x%x %s,", e.keyCode, keyCode (e.keyCode));
				string ~= format(" character=0x%x %s", e.character, character (e.character));
				writefln (string);
			}
		}
	};
	shell.addListener (SWT.KeyDown, listener);
	shell.addListener (SWT.KeyUp, listener);
	shell.setSize (200, 200);
	shell.open ();
	while (!shell.isDisposed ()) {
		if (!display.readAndDispatch ()) display.sleep ();
	}
	display.dispose ();
}