izapple2/apple2sdl/sdlKeyboard.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
}

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

		Missing Reset button
	*/
	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_F5:
		if ctrl {
			k.a.SendCommand(apple2.CommandShowSpeed)
		} else {
			k.a.SendCommand(apple2.CommandToggleSpeed)
		}
	case sdl.K_F6:
		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")
		}
	}

	// 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
}