release 1.09.6

[descalc.git] / bindings.pm

diff --git a/bindings.pm b/bindings.pm
new file mode 100644 (file)
index 0000000..374a57d
--- /dev/null
+++ b/bindings.pm
@@ -0,0 +1,63 @@
+# 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;
+