| … | |
… | |
| 586 | |
586 | |
| 587 | ############################################################################# |
587 | ############################################################################# |
| 588 | |
588 | |
| 589 | # 0x080 shift, 0x100 ctrl |
589 | # 0x080 shift, 0x100 ctrl |
| 590 | my %KEYMAP = ( |
590 | my %KEYMAP = ( |
|
|
591 | # these get overwritten by generic control codes, but both work, so i have no priority |
|
|
592 | # tid fix these. |
| 591 | "\t" => 0x3a, |
593 | "\t" => 0x3a, |
| 592 | "\r" => 0x64, |
594 | "\r" => 0x64, |
| 593 | "\n" => 0x44, |
595 | "\n" => 0x44, |
| 594 | |
596 | |
| 595 | "\x00" => 0x77 | 0x100, # CTRL-SPACE |
597 | "\x00" => 0x77 | 0x100, # CTRL-SPACE |
| 596 | "\x1c" => 0x45 | 0x100, # CTRL-\ |
598 | "\x1c" => 0x45 | 0x100, # CTRL-\ |
| 597 | "\x1d" => 0x14 | 0x100, # CTRL-] |
599 | "\x1d" => 0x14 | 0x100, # CTRL-] |
| 598 | "\x1e" => 0x24 | 0x100, # CTRL-~ |
600 | "\x1e" => 0x24 | 0x100, # CTRL-~ |
| 599 | "\x1f" => 0x75 | 0x100, # CTRL-? |
601 | "\x1f" => 0x75 | 0x100, # CTRL-? |
| 600 | |
602 | |
| 601 | # hardcoded rxvt keys |
603 | # hardcoded rxvt keys |
| 602 | "\e" => 0x2a, # ESC |
604 | "\e" => 0x2a, # ESC |
| 603 | "\e[3~" => 0x03, # DC |
605 | "\e[3~" => 0x03, # DC |
| 604 | "\e[5~" => 0x7e, # CAPS LOCK (prior) |
606 | "\e[5~" => 0x7e, # CAPS LOCK (prior) |
| 605 | "\e[6~" => 0x6a, # NO SCROLL (next) |
607 | "\e[6~" => 0x6a, # NO SCROLL (next) |
| 606 | "\e[A" => 0x30, # UP |
608 | "\e[A" => 0x30, # UP |
| 607 | "\e[B" => 0x22, # DOWN |
609 | "\e[B" => 0x22, # DOWN |
| 608 | "\e[C" => 0x10, # RIGHT |
610 | "\e[C" => 0x10, # RIGHT |
| 609 | "\e[D" => 0x20, # LEFT |
611 | "\e[D" => 0x20, # LEFT |
| 610 | "\e[a" => 0x30 | 0x080, # UP |
612 | "\e[a" => 0x30 | 0x080, # UP |
| 611 | "\e[b" => 0x22 | 0x080, # DOWN |
613 | "\e[b" => 0x22 | 0x080, # DOWN |
| 612 | "\e[c" => 0x10 | 0x080, # RIGHT |
614 | "\e[c" => 0x10 | 0x080, # RIGHT |
| 613 | "\e[d" => 0x20 | 0x080, # LEFT |
615 | "\e[d" => 0x20 | 0x080, # LEFT |
| 614 | "\e[7~" => 0x7b, # SETUP (home) |
616 | "\e[7~" => 0x7b, # SETUP (home) |
| 615 | "\e[8~" => 0x23, # BREAK (end) |
617 | "\e[8~" => 0x23, # BREAK (end) |
| 616 | "\e[8\$" => 0x23 | 0x080, # SHIFT BREAK / DISCONNECT (shift-end) |
618 | "\e[8\$" => 0x23 | 0x080, # SHIFT BREAK / DISCONNECT (shift-end) |
| 617 | "\x7f" => 0x33, # BACKSPACE |
619 | "\x7f" => 0x33, # BACKSPACE |
| 618 | |
620 | |
| 619 | "\e[11~" => 0x32, # F1 |
621 | "\e[11~" => 0x32, # F1 |
| 620 | "\e[11~" => 0x42, # F2 |
622 | "\e[11~" => 0x42, # F2 |
| 621 | "\e[11~" => 0x31, # F3 |
623 | "\e[11~" => 0x31, # F3 |
| 622 | "\e[11~" => 0x41, # F4 |
624 | "\e[11~" => 0x41, # F4 |
| 623 | ); |
625 | ); |
| 624 | |
626 | |
| 625 | @KEYMAP{map chr, 0x20..0x40} = unpack "C*", pack "H*", |
627 | @KEYMAP{map chr, 0x20..0x40} = unpack "C*", pack "H*", |
| 626 | "779ad5a9a8b8a755a6b5b6b466256575" . "351a3929283837273626d656e634e5f5" . "b9"; |
628 | "779ad5a9a8b8a755a6b5b6b466256575" . "351a3929283837273626d656e634e5f5" . "b9"; |
| 627 | |
629 | |
