mirror of
https://github.com/TomHarte/CLK.git
synced 2024-11-03 08:05:40 +00:00
81 lines
3.4 KiB
C++
81 lines
3.4 KiB
C++
|
#include "Oric.hpp"
|
||
|
|
|
||
|
|
uint16_t *Oric::Machine::sequence_for_character(Utility::Typer *typer, char character)
|
||
|
|
{
|
||
|
|
#define KEYS(...) {__VA_ARGS__, TerminateSequence}
|
||
|
|
#define SHIFT(...) {KeyLeftShift, __VA_ARGS__, TerminateSequence}
|
||
|
|
#define X {NotMapped}
|
||
|
|
static Key key_sequences[][3] = {
|
||
|
|
/* NUL */ X, /* SOH */ X,
|
||
|
|
/* STX */ X, /* ETX */ X,
|
||
|
|
/* EOT */ X, /* ENQ */ X,
|
||
|
|
/* ACK */ X, /* BEL */ X,
|
||
|
|
/* BS */ KEYS(KeyDelete), /* HT */ X,
|
||
|
|
/* LF */ KEYS(KeyReturn), /* VT */ X,
|
||
|
|
/* FF */ X, /* CR */ X,
|
||
|
|
/* SO */ X, /* SI */ X,
|
||
|
|
/* DLE */ X, /* DC1 */ X,
|
||
|
|
/* DC2 */ X, /* DC3 */ X,
|
||
|
|
/* DC4 */ X, /* NAK */ X,
|
||
|
|
/* SYN */ X, /* ETB */ X,
|
||
|
|
/* CAN */ X, /* EM */ X,
|
||
|
|
/* SUB */ X, /* ESC */ X,
|
||
|
|
/* FS */ X, /* GS */ X,
|
||
|
|
/* RS */ X, /* US */ X,
|
||
|
|
/* space */ KEYS(KeySpace), /* ! */ SHIFT(Key1),
|
||
|
|
/* " */ SHIFT(KeyQuote), /* # */ SHIFT(Key3),
|
||
|
|
/* $ */ SHIFT(Key4), /* % */ SHIFT(Key5),
|
||
|
|
/* & */ SHIFT(Key7), /* ' */ KEYS(KeyQuote),
|
||
|
|
/* ( */ SHIFT(Key9), /* ) */ SHIFT(Key0),
|
||
|
|
/* * */ SHIFT(Key8), /* + */ SHIFT(KeyEquals),
|
||
|
|
/* , */ KEYS(KeyComma), /* - */ KEYS(KeyMinus),
|
||
|
|
/* . */ KEYS(KeyFullStop), /* / */ KEYS(KeyForwardSlash),
|
||
|
|
/* 0 */ KEYS(Key0), /* 1 */ KEYS(Key1),
|
||
|
|
/* 2 */ KEYS(Key2), /* 3 */ KEYS(Key3),
|
||
|
|
/* 4 */ KEYS(Key4), /* 5 */ KEYS(Key5),
|
||
|
|
/* 6 */ KEYS(Key6), /* 7 */ KEYS(Key7),
|
||
|
|
/* 8 */ KEYS(Key8), /* 9 */ KEYS(Key9),
|
||
|
|
/* : */ SHIFT(KeySemiColon), /* ; */ KEYS(KeySemiColon),
|
||
|
|
/* < */ SHIFT(KeyComma), /* = */ KEYS(KeyEquals),
|
||
|
|
/* > */ SHIFT(KeyFullStop), /* ? */ SHIFT(KeyForwardSlash),
|
||
|
|
/* @ */ SHIFT(Key2), /* A */ SHIFT(KeyA),
|
||
|
|
/* B */ SHIFT(KeyB), /* C */ SHIFT(KeyC),
|
||
|
|
/* D */ SHIFT(KeyD), /* E */ SHIFT(KeyE),
|
||
|
|
/* F */ SHIFT(KeyF), /* G */ SHIFT(KeyG),
|
||
|
|
/* H */ SHIFT(KeyH), /* I */ SHIFT(KeyI),
|
||
|
|
/* J */ SHIFT(KeyJ), /* K */ SHIFT(KeyK),
|
||
|
|
/* L */ SHIFT(KeyL), /* M */ SHIFT(KeyM),
|
||
|
|
/* N */ SHIFT(KeyN), /* O */ SHIFT(KeyO),
|
||
|
|
/* P */ SHIFT(KeyP), /* Q */ SHIFT(KeyQ),
|
||
|
|
/* R */ SHIFT(KeyR), /* S */ SHIFT(KeyS),
|
||
|
|
/* T */ SHIFT(KeyT), /* U */ SHIFT(KeyU),
|
||
|
|
/* V */ SHIFT(KeyV), /* W */ SHIFT(KeyW),
|
||
|
|
/* X */ SHIFT(KeyX), /* Y */ SHIFT(KeyY),
|
||
|
|
/* Z */ SHIFT(KeyZ), /* [ */ KEYS(KeyOpenSquare),
|
||
|
|
/* \ */ KEYS(KeyBackSlash), /* ] */ KEYS(KeyCloseSquare),
|
||
|
|
/* ^ */ SHIFT(Key6), /* _ */ X,
|
||
|
|
/* ` */ X, /* a */ KEYS(KeyA),
|
||
|
|
/* b */ KEYS(KeyB), /* c */ KEYS(KeyC),
|
||
|
|
/* d */ KEYS(KeyD), /* e */ KEYS(KeyE),
|
||
|
|
/* f */ KEYS(KeyF), /* g */ KEYS(KeyG),
|
||
|
|
/* h */ KEYS(KeyH), /* i */ KEYS(KeyI),
|
||
|
|
/* j */ KEYS(KeyJ), /* k */ KEYS(KeyK),
|
||
|
|
/* l */ KEYS(KeyL), /* m */ KEYS(KeyM),
|
||
|
|
/* n */ KEYS(KeyN), /* o */ KEYS(KeyO),
|
||
|
|
/* p */ KEYS(KeyP), /* q */ KEYS(KeyQ),
|
||
|
|
/* r */ KEYS(KeyR), /* s */ KEYS(KeyS),
|
||
|
|
/* t */ KEYS(KeyT), /* u */ KEYS(KeyU),
|
||
|
|
/* v */ KEYS(KeyV), /* w */ KEYS(KeyW),
|
||
|
|
/* x */ KEYS(KeyX), /* y */ KEYS(KeyY),
|
||
|
|
/* z */ KEYS(KeyZ), /* { */ SHIFT(KeyOpenSquare),
|
||
|
|
/* | */ SHIFT(KeyBackSlash), /* } */ SHIFT(KeyCloseSquare),
|
||
|
|
};
|
||
|
|
#undef KEYS
|
||
|
|
#undef SHIFT
|
||
|
|
#undef X
|
||
|
|
|
||
|
|
if(character > sizeof(key_sequences) / sizeof(*key_sequences)) return nullptr;
|
||
|
|
if(key_sequences[character][0] == NotMapped) return nullptr;
|
||
|
|
return (uint16_t *)key_sequences[character];
|
||
|
|
}
|