| … | |
… | |
| 69 | |
69 | |
| 70 | #define MAP_EXTEND_X 32 |
70 | #define MAP_EXTEND_X 32 |
| 71 | #define MAP_EXTEND_Y 512 |
71 | #define MAP_EXTEND_Y 512 |
| 72 | |
72 | |
| 73 | #define MIN_FONT_HEIGHT 10 |
73 | #define MIN_FONT_HEIGHT 10 |
|
|
74 | |
|
|
75 | /* mask out modifiers we are not interested in */ |
|
|
76 | #define MOD_MASK (KMOD_CTRL | KMOD_SHIFT | KMOD_ALT | KMOD_META) |
| 74 | |
77 | |
| 75 | #if 0 |
78 | #if 0 |
| 76 | # define PARACHUTE SDL_INIT_NOPARACHUTE |
79 | # define PARACHUTE SDL_INIT_NOPARACHUTE |
| 77 | #else |
80 | #else |
| 78 | # define PARACHUTE 0 |
81 | # define PARACHUTE 0 |
| … | |
… | |
| 781 | { |
784 | { |
| 782 | case SDL_KEYDOWN: |
785 | case SDL_KEYDOWN: |
| 783 | case SDL_KEYUP: |
786 | case SDL_KEYUP: |
| 784 | hv_store (hv, "state", 5, newSViv (ev.key.state), 0); |
787 | hv_store (hv, "state", 5, newSViv (ev.key.state), 0); |
| 785 | hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); |
788 | hv_store (hv, "sym", 3, newSViv (ev.key.keysym.sym), 0); |
| 786 | hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod), 0); |
789 | hv_store (hv, "mod", 3, newSViv (ev.key.keysym.mod & MOD_MASK), 0); |
| 787 | hv_store (hv, "cmod", 4, newSViv (SDL_GetModState ()), 0); /* current mode */ |
790 | hv_store (hv, "cmod", 4, newSViv (SDL_GetModState () & MOD_MASK), 0); /* current mode */ |
| 788 | hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); |
791 | hv_store (hv, "unicode", 7, newSViv (ev.key.keysym.unicode), 0); |
| 789 | break; |
792 | break; |
| 790 | |
793 | |
| 791 | case SDL_ACTIVEEVENT: |
794 | case SDL_ACTIVEEVENT: |
| 792 | hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); |
795 | hv_store (hv, "gain", 4, newSViv (ev.active.gain), 0); |
| … | |
… | |
| 810 | x = ev.motion.x; |
813 | x = ev.motion.x; |
| 811 | y = ev.motion.y; |
814 | y = ev.motion.y; |
| 812 | SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)); |
815 | SDL_PeepEvents (&ev, 1, SDL_GETEVENT, SDL_EVENTMASK (SDL_MOUSEMOTION)); |
| 813 | } |
816 | } |
| 814 | |
817 | |
| 815 | hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); |
818 | hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0); |
| 816 | hv_store (hv, "state", 5, newSViv (state), 0); |
819 | hv_store (hv, "state", 5, newSViv (state), 0); |
| 817 | hv_store (hv, "x", 1, newSViv (x), 0); |
820 | hv_store (hv, "x", 1, newSViv (x), 0); |
| 818 | hv_store (hv, "y", 1, newSViv (y), 0); |
821 | hv_store (hv, "y", 1, newSViv (y), 0); |
| 819 | hv_store (hv, "xrel", 4, newSViv (xrel), 0); |
822 | hv_store (hv, "xrel", 4, newSViv (xrel), 0); |
| 820 | hv_store (hv, "yrel", 4, newSViv (yrel), 0); |
823 | hv_store (hv, "yrel", 4, newSViv (yrel), 0); |
| 821 | } |
824 | } |
| 822 | break; |
825 | break; |
| 823 | |
826 | |
| 824 | case SDL_MOUSEBUTTONDOWN: |
827 | case SDL_MOUSEBUTTONDOWN: |
| 825 | case SDL_MOUSEBUTTONUP: |
828 | case SDL_MOUSEBUTTONUP: |
| 826 | hv_store (hv, "mod", 3, newSViv (SDL_GetModState ()), 0); |
829 | hv_store (hv, "mod", 3, newSViv (SDL_GetModState () & MOD_MASK), 0); |
| 827 | |
830 | |
| 828 | hv_store (hv, "button", 6, newSViv (ev.button.button), 0); |
831 | hv_store (hv, "button", 6, newSViv (ev.button.button), 0); |
| 829 | hv_store (hv, "state", 5, newSViv (ev.button.state), 0); |
832 | hv_store (hv, "state", 5, newSViv (ev.button.state), 0); |
| 830 | hv_store (hv, "x", 1, newSViv (ev.button.x), 0); |
833 | hv_store (hv, "x", 1, newSViv (ev.button.x), 0); |
| 831 | hv_store (hv, "y", 1, newSViv (ev.button.y), 0); |
834 | hv_store (hv, "y", 1, newSViv (ev.button.y), 0); |
