# key bindings for DCT, by Shiar

# 1.08.1 2004-09-27 00:40 - moved from 1.8 main
# 1.08.2 2004-09-27 00:49 - single key alias to chs: \ (often close to _)
# 1.09.1 2004-10-11 21:45 - function keys moved to menu.pm
# 1.09.2      10-12 01:45 - alt+backspace and ^W for (hard) drop

use strict;
use warnings;
use utf8;

%alias = (
	chr 4              => "quit",    # ^D
	chr 9              => "more",    # tab
	"\014"             => "refresh", # ^L
#	"\033\133\110"     => "refresh", # home
	'_'                => "chs",     # easy to remember, difficult to type
	'\\'               => "chs",     # single key
#	'y'                => "chs",     # redundant hp48 compatibility
#	'z'                => "eex",     # redundant hp48 compatibility
	"\033\133\062\176" => "eex",     # ins
	"\033\133\063\176" => "clear",   # del
	    "\177"         => "back",    # backspace
	    "\010"         => "back",    # backspace
	"\033\010"         => "drop",    # alt+backspace
	"\033\177"         => "drop",    # alt+backspace
	    "\027"         => "drop",    # ^W
	chr 13             => "enter",   # enter
	' '                => "enter",   # space
	'='                => "sto",     #

	"\033\133\101"     => "stack",   # up    - 48: k (stack)
	"\033\133\104"     => "undo",    # left  - 48: p (picture)
#	"\033\133\102"     => '',        # down  - 48: q (view)
	"\033\133\103"     => "swap",    # right - 48: r (swap)

	'&'                => "and",
	'|'                => "or",
	'#'                => "xor",
	'~'                => "not",
	'('                => "sl",
	')'                => "sr",

	    "s"            => "sin",
	"\033s"            => "asin",
	    "c"            => "cos", #todo: u? o?
	"\033c"            => "acos",
	    "t"            => "tan",
	"\033t"            => "atan",
	    "l"            => "log",
	"\033l"            => "alog",
	    "n"            => "ln",
	"\033n"            => "exp",
	    "q"            => "sq",
	"\033q"            => "sqrt",
	    "x"            => "^",
	"\033x"            => "xroot",
	"\033^"            => "xroot",
	    "v"            => "inv",
); # %alias

1;

