izapple2/apple2sdl/sdlKeyboard.go

157 lines
2.9 KiB
Go

package main
import (
"fmt"
"unicode/utf8"
"github.com/ivanizag/apple2"
"github.com/veandco/go-sdl2/sdl"
)
type sdlKeyboard struct {
keyChannel chan uint8
a *apple2.Apple2
showPages bool
}
func newSDLKeyBoard(a *apple2.Apple2) *sdlKeyboard {
var k sdlKeyboard
k.keyChannel = make(chan uint8, 100)
k.a = a
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) {
/*
See "Apple II reference manual", page 5
To get keys as understood by the Apple2 hardware run:
10 A=PEEK(49152)
20 PRINT A, A - 128
30 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 = 8
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
// Apple //e
case sdl.K_UP:
result = 11 // 31 in the Base64A
case sdl.K_DOWN:
result = 10
case sdl.K_TAB:
result = 9
case sdl.K_DELETE:
result = 127 // 24 in the Base64A
// Base64A clone particularities
case sdl.K_F2:
result = 127 // Base64A
// Control of the emulator
case sdl.K_F1:
if ctrl {
k.a.SendCommand(apple2.CommandReset)
}
case sdl.K_F5:
if ctrl {
k.a.SendCommand(apple2.CommandShowSpeed)
} else {
k.a.SendCommand(apple2.CommandToggleSpeed)
}
case sdl.K_F6:
if ctrl {
k.showPages = !k.showPages
} else {
k.a.SendCommand(apple2.CommandToggleColor)
}
case sdl.K_F7:
k.a.SendCommand(apple2.CommandSaveState)
case sdl.K_F8:
k.a.SendCommand(apple2.CommandLoadState)
case sdl.K_F9:
k.a.SendCommand(apple2.CommandDumpDebugInfo)
case sdl.K_F10:
k.a.SendCommand(apple2.CommandNextCharGenPage)
case sdl.K_F11:
k.a.SendCommand(apple2.CommandToggleCPUTrace)
case sdl.K_F12:
err := apple2.SaveSnapshot(k.a, "snapshot.png")
if err != nil {
fmt.Printf("Error saving snapshoot: %v.\n.", err)
} else {
fmt.Println("Saving snapshot")
}
case sdl.K_PAUSE:
k.a.SendCommand(apple2.CommandPauseUnpauseEmulator)
}
// 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(_ bool) (key uint8, ok bool) {
select {
case key = <-k.keyChannel:
ok = true
default:
ok = false
}
return
}