izapple2/apple2Tester.go

package izapple2

import (
	"strings"

	"github.com/ivanizag/izapple2/screen"
)

type terminateConditionFunc func(a *Apple2) bool

type apple2Tester struct {
	a                  *Apple2
	terminateCondition terminateConditionFunc
}

func makeApple2Tester(model string, overrides *configuration) (*apple2Tester, error) {
	models, _, err := loadConfigurationModelsAndDefault()
	if err != nil {
		return nil, err
	}

	config, err := models.getWithOverrides(model, overrides)
	if err != nil {
		return nil, err
	}
	config.set(confSpeed, "full")
	a, err := configure(config)
	if err != nil {
		return nil, err
	}

	var at apple2Tester
	a.addTracer(&at)
	return &at, nil
}

func (at *apple2Tester) connect(a *Apple2) {
	at.a = a
}

func (at *apple2Tester) inspect() {
	if at.terminateCondition(at.a) {
		at.a.SendCommand(CommandKill)
	}
}

func (at *apple2Tester) run() {
	at.a.Run()
}

type testTextModeFunc func(a *Apple2) string

var testTextMode40 testTextModeFunc = func(a *Apple2) string {
	return screen.RenderTextModeString(a.video, false, false, false, a.hasLowerCase, false)
}

var testTextMode80 testTextModeFunc = func(a *Apple2) string {
	return screen.RenderTextModeString(a.video, true, false, false, a.hasLowerCase, false)
}

var testTextMode80AltOrder testTextModeFunc = func(a *Apple2) string {
	return screen.RenderTextModeString(a.video, true, false, false, a.hasLowerCase, true)
}

func (at *apple2Tester) getText(textMode testTextModeFunc) string {
	return textMode(at.a)
}

func (at *apple2Tester) getTextBest() string {
	videxMaybe := at.a.cards[3]
	if videxMaybe != nil {
		if videx, ok := videxMaybe.(*CardVidex); ok {
			return videx.getText()
		}
	}

	videoMode := at.a.video.GetCurrentVideoMode()
	if videoMode&screen.VideoBaseMask == screen.VideoText80 {
		return at.getText(testTextMode80)
	}
	return at.getText(testTextMode40)
}

/*
	func buildTerminateConditionCycles(cycles uint64) terminateConditionFunc {
		return func(a *Apple2) bool {
			return a.cycles() > cycles
		}
	}
*/

const textCheckInterval = uint64(100_000)

func buildTerminateConditionText(needle string, textMode testTextModeFunc, timeoutCycles uint64) terminateConditionFunc {
	needles := []string{needle}
	return buildTerminateConditionTexts(needles, textMode, timeoutCycles)
}

func buildTerminateConditionTexts(needles []string, textMode testTextModeFunc, timeoutCycles uint64) terminateConditionFunc {
	lastCheck := uint64(0)
	found := false
	return func(a *Apple2) bool {
		cycles := a.GetCycles()
		if cycles > timeoutCycles {
			return true
		}
		if cycles-lastCheck > textCheckInterval {
			lastCheck = cycles
			text := textMode(a)
			for _, needle := range needles {
				if !strings.Contains(text, needle) {
					return false
				}
			}
			found = true
		}
		return found
	}
}