… | |
… | |
641 | } |
641 | } |
642 | #endif |
642 | #endif |
643 | |
643 | |
644 | if (keysym >= 0xFF00 && keysym <= 0xFFFF) |
644 | if (keysym >= 0xFF00 && keysym <= 0xFFFF) |
645 | { |
645 | { |
646 | bool kp = priv_modes & PrivMode_aplKP ? !shft : shft; |
646 | bool kp = priv_modes & PrivMode_aplKP ? !shft : shft; |
647 | unsigned int newlen = 1; |
647 | unsigned int newlen = 1; |
648 | |
648 | |
649 | switch (translate_keypad (keysym, kp)) |
649 | switch (translate_keypad (keysym, kp)) |
|
|
650 | { |
|
|
651 | #ifndef NO_BACKSPACE_KEY |
|
|
652 | case XK_BackSpace: |
|
|
653 | if (priv_modes & PrivMode_HaveBackSpace) |
|
|
654 | { |
|
|
655 | kbuf[0] = (!! (priv_modes & PrivMode_BackSpace) |
|
|
656 | ^ !!ctrl) ? '\b' : '\177'; |
|
|
657 | kbuf[1] = '\0'; |
|
|
658 | } |
|
|
659 | else |
|
|
660 | strcpy (kbuf, rs[Rs_backspace_key]); |
|
|
661 | break; |
|
|
662 | #endif |
|
|
663 | #ifndef NO_DELETE_KEY |
|
|
664 | case XK_Delete: |
|
|
665 | strcpy (kbuf, rs[Rs_delete_key]); |
|
|
666 | break; |
|
|
667 | #endif |
|
|
668 | case XK_Tab: |
|
|
669 | if (shft) |
|
|
670 | strcpy (kbuf, "\033[Z"); |
|
|
671 | else |
|
|
672 | { |
|
|
673 | #ifdef CTRL_TAB_MAKES_META |
|
|
674 | if (ctrl) |
|
|
675 | meta = 1; |
|
|
676 | #endif |
|
|
677 | #ifdef MOD4_TAB_MAKES_META |
|
|
678 | if (ev.state & Mod4Mask) |
|
|
679 | meta = 1; |
|
|
680 | #endif |
|
|
681 | newlen = 0; |
|
|
682 | } |
|
|
683 | break; |
|
|
684 | |
|
|
685 | case XK_Up: /* "\033[A" */ |
|
|
686 | case XK_Down: /* "\033[B" */ |
|
|
687 | case XK_Right: /* "\033[C" */ |
|
|
688 | case XK_Left: /* "\033[D" */ |
|
|
689 | strcpy (kbuf, "\033[Z"); |
|
|
690 | kbuf[2] = "DACB"[keysym - XK_Left]; |
|
|
691 | /* do Shift first */ |
|
|
692 | if (shft) |
|
|
693 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
694 | else if (ctrl) |
|
|
695 | { |
|
|
696 | kbuf[1] = 'O'; |
|
|
697 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
698 | } |
|
|
699 | else if (priv_modes & PrivMode_aplCUR) |
|
|
700 | kbuf[1] = 'O'; |
|
|
701 | break; |
|
|
702 | |
|
|
703 | case XK_KP_Enter: |
|
|
704 | /* allow shift to override */ |
|
|
705 | if (kp) |
|
|
706 | { |
|
|
707 | strcpy (kbuf, "\033OM"); |
|
|
708 | break; |
|
|
709 | } |
|
|
710 | |
|
|
711 | /* FALLTHROUGH */ |
|
|
712 | |
|
|
713 | case XK_Return: |
|
|
714 | if (priv_modes & PrivMode_LFNL) |
|
|
715 | { |
|
|
716 | kbuf[0] = '\015'; |
|
|
717 | kbuf[1] = '\012'; |
|
|
718 | kbuf[2] = '\0'; |
|
|
719 | } |
|
|
720 | else |
|
|
721 | { |
|
|
722 | kbuf[0] = '\015'; |
|
|
723 | kbuf[1] = '\0'; |
|
|
724 | } |
|
|
725 | break; |
|
|
726 | |
|
|
727 | case XK_KP_F1: /* "\033OP" */ |
|
|
728 | case XK_KP_F2: /* "\033OQ" */ |
|
|
729 | case XK_KP_F3: /* "\033OR" */ |
|
|
730 | case XK_KP_F4: /* "\033OS" */ |
|
|
731 | strcpy (kbuf, "\033OP"); |
|
|
732 | kbuf[2] += (keysym - XK_KP_F1); |
|
|
733 | break; |
|
|
734 | |
|
|
735 | case XK_KP_Multiply: /* "\033Oj" : "*" */ |
|
|
736 | case XK_KP_Add: /* "\033Ok" : "+" */ |
|
|
737 | case XK_KP_Separator: /* "\033Ol" : "," */ |
|
|
738 | case XK_KP_Subtract: /* "\033Om" : "-" */ |
|
|
739 | case XK_KP_Decimal: /* "\033On" : "." */ |
|
|
740 | case XK_KP_Divide: /* "\033Oo" : "/" */ |
|
|
741 | case XK_KP_0: /* "\033Op" : "0" */ |
|
|
742 | case XK_KP_1: /* "\033Oq" : "1" */ |
|
|
743 | case XK_KP_2: /* "\033Or" : "2" */ |
|
|
744 | case XK_KP_3: /* "\033Os" : "3" */ |
|
|
745 | case XK_KP_4: /* "\033Ot" : "4" */ |
|
|
746 | case XK_KP_5: /* "\033Ou" : "5" */ |
|
|
747 | case XK_KP_6: /* "\033Ov" : "6" */ |
|
|
748 | case XK_KP_7: /* "\033Ow" : "7" */ |
|
|
749 | case XK_KP_8: /* "\033Ox" : "8" */ |
|
|
750 | case XK_KP_9: /* "\033Oy" : "9" */ |
|
|
751 | /* allow shift to override */ |
|
|
752 | if (kp) |
|
|
753 | { |
|
|
754 | strcpy (kbuf, "\033Oj"); |
|
|
755 | kbuf[2] += (keysym - XK_KP_Multiply); |
|
|
756 | } |
|
|
757 | else |
|
|
758 | { |
|
|
759 | kbuf[0] = ('*' + (keysym - XK_KP_Multiply)); |
|
|
760 | kbuf[1] = '\0'; |
|
|
761 | } |
|
|
762 | break; |
|
|
763 | |
|
|
764 | default: |
650 | { |
765 | { |
651 | #ifndef NO_BACKSPACE_KEY |
|
|
652 | case XK_BackSpace: |
|
|
653 | if (priv_modes & PrivMode_HaveBackSpace) |
|
|
654 | { |
|
|
655 | kbuf[0] = (!! (priv_modes & PrivMode_BackSpace) |
|
|
656 | ^ !!ctrl) ? '\b' : '\177'; |
|
|
657 | kbuf[1] = '\0'; |
|
|
658 | } |
|
|
659 | else |
|
|
660 | strcpy (kbuf, rs[Rs_backspace_key]); |
|
|
661 | break; |
|
|
662 | #endif |
|
|
663 | #ifndef NO_DELETE_KEY |
|
|
664 | case XK_Delete: |
|
|
665 | strcpy (kbuf, rs[Rs_delete_key]); |
|
|
666 | break; |
|
|
667 | #endif |
|
|
668 | case XK_Tab: |
|
|
669 | if (shft) |
|
|
670 | strcpy (kbuf, "\033[Z"); |
|
|
671 | else |
|
|
672 | { |
|
|
673 | #ifdef CTRL_TAB_MAKES_META |
|
|
674 | if (ctrl) |
|
|
675 | meta = 1; |
|
|
676 | #endif |
|
|
677 | #ifdef MOD4_TAB_MAKES_META |
|
|
678 | if (ev.state & Mod4Mask) |
|
|
679 | meta = 1; |
|
|
680 | #endif |
|
|
681 | newlen = 0; |
|
|
682 | } |
|
|
683 | break; |
|
|
684 | |
|
|
685 | case XK_Up: /* "\033[A" */ |
|
|
686 | case XK_Down: /* "\033[B" */ |
|
|
687 | case XK_Right: /* "\033[C" */ |
|
|
688 | case XK_Left: /* "\033[D" */ |
|
|
689 | strcpy (kbuf, "\033[Z"); |
|
|
690 | kbuf[2] = "DACB"[keysym - XK_Left]; |
|
|
691 | /* do Shift first */ |
|
|
692 | if (shft) |
|
|
693 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
694 | else if (ctrl) |
|
|
695 | { |
|
|
696 | kbuf[1] = 'O'; |
|
|
697 | kbuf[2] = "dacb"[keysym - XK_Left]; |
|
|
698 | } |
|
|
699 | else if (priv_modes & PrivMode_aplCUR) |
|
|
700 | kbuf[1] = 'O'; |
|
|
701 | break; |
|
|
702 | |
|
|
703 | case XK_KP_Enter: |
|
|
704 | /* allow shift to override */ |
|
|
705 | if (kp) |
|
|
706 | { |
|
|
707 | strcpy (kbuf, "\033OM"); |
|
|
708 | break; |
|
|
709 | } |
|
|
710 | |
|
|
711 | /* FALLTHROUGH */ |
|
|
712 | |
|
|
713 | case XK_Return: |
|
|
714 | if (priv_modes & PrivMode_LFNL) |
|
|
715 | { |
|
|
716 | kbuf[0] = '\015'; |
|
|
717 | kbuf[1] = '\012'; |
|
|
718 | kbuf[2] = '\0'; |
|
|
719 | } |
|
|
720 | else |
|
|
721 | { |
|
|
722 | kbuf[0] = '\015'; |
|
|
723 | kbuf[1] = '\0'; |
|
|
724 | } |
|
|
725 | break; |
|
|
726 | |
|
|
727 | case XK_KP_F1: /* "\033OP" */ |
|
|
728 | case XK_KP_F2: /* "\033OQ" */ |
|
|
729 | case XK_KP_F3: /* "\033OR" */ |
|
|
730 | case XK_KP_F4: /* "\033OS" */ |
|
|
731 | strcpy (kbuf, "\033OP"); |
|
|
732 | kbuf[2] += (keysym - XK_KP_F1); |
|
|
733 | break; |
|
|
734 | |
|
|
735 | case XK_KP_Multiply: /* "\033Oj" : "*" */ |
|
|
736 | case XK_KP_Add: /* "\033Ok" : "+" */ |
|
|
737 | case XK_KP_Separator: /* "\033Ol" : "," */ |
|
|
738 | case XK_KP_Subtract: /* "\033Om" : "-" */ |
|
|
739 | case XK_KP_Decimal: /* "\033On" : "." */ |
|
|
740 | case XK_KP_Divide: /* "\033Oo" : "/" */ |
|
|
741 | case XK_KP_0: /* "\033Op" : "0" */ |
|
|
742 | case XK_KP_1: /* "\033Oq" : "1" */ |
|
|
743 | case XK_KP_2: /* "\033Or" : "2" */ |
|
|
744 | case XK_KP_3: /* "\033Os" : "3" */ |
|
|
745 | case XK_KP_4: /* "\033Ot" : "4" */ |
|
|
746 | case XK_KP_5: /* "\033Ou" : "5" */ |
|
|
747 | case XK_KP_6: /* "\033Ov" : "6" */ |
|
|
748 | case XK_KP_7: /* "\033Ow" : "7" */ |
|
|
749 | case XK_KP_8: /* "\033Ox" : "8" */ |
|
|
750 | case XK_KP_9: /* "\033Oy" : "9" */ |
|
|
751 | /* allow shift to override */ |
|
|
752 | if (kp) |
|
|
753 | { |
|
|
754 | strcpy (kbuf, "\033Oj"); |
|
|
755 | kbuf[2] += (keysym - XK_KP_Multiply); |
|
|
756 | } |
|
|
757 | else |
|
|
758 | { |
|
|
759 | kbuf[0] = ('*' + (keysym - XK_KP_Multiply)); |
|
|
760 | kbuf[1] = '\0'; |
|
|
761 | } |
|
|
762 | break; |
|
|
763 | |
|
|
764 | default: |
|
|
765 | { |
|
|
766 | int param = map_function_key (keysym); |
766 | int param = map_function_key (keysym); |
767 | if (param > 0) |
767 | if (param > 0) |
768 | sprintf (kbuf,"\033[%d~", param); |
768 | sprintf (kbuf,"\033[%d~", param); |
769 | else |
769 | else |
770 | newlen = 0; |
770 | newlen = 0; |
771 | } |
|
|
772 | break; |
|
|
773 | } |
771 | } |
|
|
772 | break; |
|
|
773 | } |
774 | |
774 | |
775 | if (newlen) |
775 | if (newlen) |
776 | len = strlen (kbuf); |
776 | len = strlen (kbuf); |
777 | |
777 | |
778 | /* |
778 | /* |
779 | * Pass meta for all function keys, if 'meta' option set |
779 | * Pass meta for all function keys, if 'meta' option set |
780 | */ |
780 | */ |
781 | #ifdef META8_OPTION |
781 | #ifdef META8_OPTION |