106 lines
1.7 KiB
Go
106 lines
1.7 KiB
Go
package apple2sdl
|
|
|
|
import (
|
|
"unicode/utf8"
|
|
|
|
"github.com/veandco/go-sdl2/sdl"
|
|
)
|
|
|
|
type sdlKeyboard struct {
|
|
keyChannel chan uint8
|
|
}
|
|
|
|
func newSDLKeyBoard() sdlKeyboard {
|
|
var k sdlKeyboard
|
|
k.keyChannel = make(chan uint8, 100)
|
|
return k
|
|
}
|
|
|
|
func (k *sdlKeyboard) putText(textEvent *sdl.TextInputEvent) {
|
|
text := textEvent.GetText()
|
|
|
|
for _, ch := range text {
|
|
// We will use computed text only for printable ASCII chars
|
|
if ch < ' ' || ch > '~' {
|
|
continue
|
|
}
|
|
|
|
buf := make([]uint8, 1)
|
|
utf8.EncodeRune(buf, ch)
|
|
|
|
k.putChar(buf[0])
|
|
}
|
|
}
|
|
|
|
func (k *sdlKeyboard) putKey(keyEvent *sdl.KeyboardEvent) {
|
|
/* To get keys as understood by the Apple2 hardware run:
|
|
10 A=PEEK(49152)
|
|
20 B = A - 128
|
|
30 PRINT A, B
|
|
40 GOTO 10
|
|
*/
|
|
if keyEvent.Type != sdl.KEYDOWN {
|
|
// Process only key pushes
|
|
return
|
|
}
|
|
|
|
key := keyEvent.Keysym
|
|
ctrl := key.Mod&sdl.KMOD_CTRL != 0
|
|
|
|
if ctrl {
|
|
if key.Sym >= 'a' && key.Sym <= 'z' {
|
|
k.putChar(uint8(key.Sym) - 97 + 1)
|
|
return
|
|
}
|
|
}
|
|
|
|
result := uint8(0)
|
|
|
|
switch key.Sym {
|
|
case sdl.K_ESCAPE:
|
|
result = 27
|
|
case sdl.K_BACKSPACE:
|
|
result = 24
|
|
case sdl.K_RETURN:
|
|
result = 13
|
|
case sdl.K_RETURN2:
|
|
result = 13
|
|
case sdl.K_LEFT:
|
|
if ctrl {
|
|
result = 31 // Base64A
|
|
}
|
|
result = 8
|
|
case sdl.K_RIGHT:
|
|
result = 21
|
|
|
|
// Base64A clone particularities
|
|
case sdl.K_F2:
|
|
result = 127
|
|
case sdl.K_UP:
|
|
result = 31
|
|
case sdl.K_DOWN:
|
|
result = 10
|
|
}
|
|
|
|
// Missing values 91 to 95. Usually control for [\]^_
|
|
// On the Base64A it's control for \]./
|
|
|
|
if result != 0 {
|
|
k.putChar(result)
|
|
}
|
|
}
|
|
|
|
func (k *sdlKeyboard) putChar(ch uint8) {
|
|
k.keyChannel <- ch
|
|
}
|
|
|
|
func (k *sdlKeyboard) GetKey() (key uint8, ok bool) {
|
|
select {
|
|
case key = <-k.keyChannel:
|
|
ok = true
|
|
default:
|
|
ok = false
|
|
}
|
|
return
|
|
}
|