X-Git-Url: http://git.shiar.net/descalc.git/blobdiff_plain/4e1d9535fda6685e53ce570ca4e4cd6c260f55d3..090ac304afe801cb3e72ced0941ff2a874a98cc9:/12_bindings.pm

diff --git a/12_bindings.pm b/12_bindings.pm
deleted file mode 100644
index 0488176..0000000
--- a/12_bindings.pm
+++ /dev/null
@@ -1,68 +0,0 @@
-# key bindings for DCT, by Shiar
-
-# 1.09.3 200410142200 - enter sent as chr 10 on non-curses terminals
-# 1.09.2 200410120145 - alt+backspace and ^W for (hard) drop
-# 1.09.1 200410112145 - function keys moved to menu.pm
-# 1.08.2 200409270049 - single key alias to chs: \ (often close to _)
-# 1.08.1 200409270040 - moved from 1.8 main
-
-use strict;
-use warnings;
-
-%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 10             => "enter",   # enter (terminal)
-	chr 13             => "enter",   # enter (curses)
-	' '                => "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",
-	    "o"            => "cos", # or u?
-	"\033o"            => "acos",
-	    "t"            => "tan",
-	"\033t"            => "atan",
-	    "l"            => "log",
-	"\033l"            => "alog",
-	    "n"            => "ln",
-	"\033n"            => "exp",
-	    "q"            => "sq",
-	"\033q"            => "sqrt",
-	    "x"            => "^",
-	"\033x"            => "xroot",
-	"\033^"            => "xroot",   # for consistency
-	    "v"            => "inv",
-); # %alias
-
-return {
-	author  => "Shiar",
-	title   => "default key bindings",
-	version => "1.9.3",
-};
-