#include <stdlib.h>
#include <string.h>
#include <proto/keyboard.h>
#include <kogata/printf.h>
#include <kogata/syscall.h>
#include <kogata/keyboard.h>
// ---- Control keys that are not KBD_CHAR-able
int ctrlkeys[] = {
/* 0x00 */ 0, KBD_CODE_ESC, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, KBD_CODE_BKSP, KBD_CODE_TAB,
/* 0x10 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, KBD_CODE_RETURN, KBD_CODE_LCTRL, 0, 0,
/* 0x20 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, KBD_CODE_LSHIFT, 0, 0, 0, 0, 0,
/* 0x30 */ 0, 0, 0, 0, 0, 0, KBD_CODE_RSHIFT, 0, KBD_CODE_LALT, 0,
KBD_CODE_CAPSLOCK, KBD_CODE_F1, KBD_CODE_F2, KBD_CODE_F3, KBD_CODE_F4, KBD_CODE_F5,
/* 0x40 */ KBD_CODE_F6, KBD_CODE_F7, KBD_CODE_F8, KBD_CODE_F9, KBD_CODE_F10, KBD_CODE_NUMLOCK,
KBD_CODE_SCRLLOCK, KBD_CODE_KPHOME, KBD_CODE_KPUP, KBD_CODE_KPPGUP, 0, KBD_CODE_KPLEFT,
KBD_CODE_KP5, KBD_CODE_KPRIGHT, 0, KBD_CODE_KPEND,
/* 0x50 */ KBD_CODE_KPDOWN, KBD_CODE_KPPGDOWN, KBD_CODE_KPINS, KBD_CODE_KPDEL,
KBD_CODE_SYSREQ, 0, 0, KBD_CODE_F11, KBD_CODE_F12, 0, 0, 0, 0, 0, 0, 0,
/* 0x60 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
/* 0x70 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
/* 0x80 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
/* 0x90 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, KBD_CODE_RETURN, KBD_CODE_RCTRL, 0, 0,
/* 0xA0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
/* 0xB0 */ 0, 0, 0, 0, 0, 0, 0, KBD_CODE_PRTSCN, KBD_CODE_RALT, 0, 0, 0, 0, 0, 0, 0,
/* 0xC0 */ 0, 0, 0, 0, 0, 0, 0, KBD_CODE_HOME, KBD_CODE_UP, KBD_CODE_PGUP, 0,
KBD_CODE_LEFT, 0, KBD_CODE_RIGHT, 0, KBD_CODE_END,
/* 0xD0 */ KBD_CODE_DOWN, KBD_CODE_PGDOWN, KBD_CODE_INS, KBD_CODE_DEL, 0, 0, 0, 0, 0,
0, 0, KBD_CODE_LSUPER, KBD_CODE_RSUPER, KBD_CODE_MENU, 0, 0,
/* 0xE0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
/* 0xF0 */ 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
};
// ---- The code
keyboard_t *init_keyboard() {
keyboard_t *kb = (keyboard_t*)malloc(sizeof(keyboard_t));
if (kb == 0) return 0;
if (!load_keymap(kb, "default")) {
free(kb);
return 0;
}
return kb;
}
void free_keyboard(keyboard_t *t) {
free(t);
}
bool load_keymap(keyboard_t *kb, const char* kmname) {
char buf[128];
snprintf(buf, 128, "sys:/keymaps/%s.km", kmname);
fd_t f = sc_open(buf, FM_READ);
if (f == 0) {
dbg_printf("Failed to open keymap %s\n", buf);
return false;
}
keymap_t km;
size_t rd = sc_read(f, 0, sizeof(keymap_t), (char*)&km);
bool ok = (rd == sizeof(keymap_t));
if (ok) {
memcpy(&kb->km, &km, sizeof(keymap_t));
kb->status = 0;
}
sc_close(f);
return ok;
}
int key_chr(keyboard_t *kb, int k) {
if (kb->status & KBD_MOD) {
if ((kb->status & KBD_SHIFT) | (kb->status & KBD_CAPS)) {
return kb->km.shiftmod[k];
} else {
return kb->km.mod[k];
}
} else if ((kb->status & KBD_CAPS) && (kb->status & KBD_SHIFT)) {
return kb->km.shiftcaps[k];
} else if (kb->status & KBD_SHIFT) {
return kb->km.shift[k];
} else if (kb->status & KBD_CAPS) {
return kb->km.caps[k];
} else {
return kb->km.normal[k];
}
}
key_t make_key(keyboard_t *kb, int k, bool down) {
key_t x;
x.flags = kb->status;
x.key = 0;
if (k >= 128) return x;
x.key = ctrlkeys[k];
if (x.key != 0) return x;
x.flags |= KBD_CHAR;
if (down) {
x.chr = key_chr(kb, k);
kb->key_char[k] = x.chr;
} else {
x.chr = kb->key_char[k];
}
return x;
}
key_t keyboard_press(keyboard_t *kb, int k) {
if (k == KBD_CODE_LSHIFT || k == KBD_CODE_RSHIFT) {
kb->status |= KBD_SHIFT;
} else if (k == KBD_CODE_LCTRL || k == KBD_CODE_RCTRL) {
kb->status |= KBD_CTRL;
} else if (k == KBD_CODE_LSUPER || k == KBD_CODE_RSUPER) {
kb->status |= KBD_SUPER;
} else if (k == KBD_CODE_LALT || (!kb->km.ralt_is_mod && k == KBD_CODE_RALT)) {
kb->status |= KBD_ALT;
} else if (kb->km.ralt_is_mod && k == KBD_CODE_RALT) {
kb->status |= KBD_MOD;
} else if (kb->km.ralt_is_mod && k == KBD_CODE_CAPSLOCK) {
kb->status ^= KBD_CAPS;
}
return make_key(kb, k, true);
}
key_t keyboard_release(keyboard_t *kb, int k) {
if (k == KBD_CODE_LSHIFT || k == KBD_CODE_RSHIFT) {
kb->status &= ~KBD_SHIFT;
} else if (k == KBD_CODE_LCTRL || k == KBD_CODE_RCTRL) {
kb->status &= ~KBD_CTRL;
} else if (k == KBD_CODE_LSUPER || k == KBD_CODE_RSUPER) {
kb->status &= ~KBD_SUPER;
} else if (k == KBD_CODE_LALT || (!kb->km.ralt_is_mod && k == KBD_CODE_RALT)) {
kb->status &= ~KBD_ALT;
} else if (kb->km.ralt_is_mod && k == KBD_CODE_RALT) {
kb->status &= ~KBD_MOD;
}
return make_key(kb, k, false);
}
/* vim: set ts=4 sw=4 tw=0 noet :*/
