import util
type Keymap is
byte K_ESCAPE
byte K_BACKSPACE
byte K_F1
byte K_F2
function() Keymap::init -> Keymap does
Keymap k=malloc(@sizeof(Keymap)@)|Keymap
k.K_ESCAPE=27|byte
k.K_F1=17|byte
k.K_F2=18|byte
return k
function(Keymap map, int keycode, bool shifted) Keymap:translate_keycode -> byte does
int v="?":ord()
if keycode==1 do
v=27
elif (keycode>1)&(keycode<14) do
if shifted do
v="!@#$%^&*()_+":idxi(keycode-2)
else do
v="1234567890-=":idxi(keycode-2)
done
elif keycode==15 do
v=9
elif (keycode>15)&(keycode<29) do
if shifted do
v="QWERTYUIOP{}|\n":idxi(keycode-16)
else do
v="qwertyuiop[]\n":idxi(keycode-16)
done
elif (keycode>29)&(keycode<42) do
if shifted do
v="ASDFGHJKL:\x22~":idxi(keycode-30)
else do
v="asdfghjkl;'`":idxi(keycode-30)
done
elif (keycode>42)&(keycode<54) do
if shifted do
v="|ZXCVBNM<>?":idxi(keycode-43)
else do
v="\\zxcvbnm,./":idxi(keycode-43)
done
elif keycode==55 do
v="*":ord()
elif keycode==57 do
v=" ":ord()
elif keycode==59 do
v=map.K_F1|int
elif keycode==60 do
v=map.K_F2|int
done
return v|byte
function(Keymap m, KeyboardState s) Keymap:is_shifted -> bool does
return (s.button_state_map[42]+s.button_state_map[54])!=0|byte
endtype
Keymap keymap
function() init_keymap -> void does
keymap=Keymap::init()
return
function(int keycode, bool shifted) translate_keycode -> byte does
return keymap:translate_keycode(keycode, shifted)