|
|
@ -247,10 +247,12 @@ |
|
|
|
(return name)) |
|
|
|
|
|
|
|
;; TODO Cakelisp CHelpers support flags |
|
|
|
(var-global keybind-modifier-flags-none (unsigned char) 0) |
|
|
|
(var-global keybind-modifier-flags-ctrl (unsigned char) (bit-shift-<< 1 0)) |
|
|
|
(var-global keybind-modifier-flags-shift (unsigned char) (bit-shift-<< 1 1)) |
|
|
|
(var-global keybind-modifier-flags-alt (unsigned char) (bit-shift-<< 1 2)) |
|
|
|
(export-and-evaluate |
|
|
|
;; These are defines for C compilation support (avoids initializer not constant) |
|
|
|
(c-preprocessor-define-constant keybind-modifier-flags-none 0) |
|
|
|
(c-preprocessor-define-constant keybind-modifier-flags-ctrl (bit-shift-<< 1 0)) |
|
|
|
(c-preprocessor-define-constant keybind-modifier-flags-shift (bit-shift-<< 1 1)) |
|
|
|
(c-preprocessor-define-constant keybind-modifier-flags-alt (bit-shift-<< 1 2))) |
|
|
|
|
|
|
|
(defstruct keybind-key |
|
|
|
key (unsigned int) |
|
|
|