86 lines
3.7 KiB
Bash
Executable file
86 lines
3.7 KiB
Bash
Executable file
#!/usr/bin/env bash
|
|
# Part of JoeyLib, Copyright (c) 2026 Scott Duensing, under the MIT License.
|
|
# See LICENSE.md for license information.
|
|
# SPDX-License-Identifier: MIT
|
|
#
|
|
# verify-win16-input.sh - Typed-character acceptance gate for the Win16
|
|
# port. Runs KEYS.EXE on Windows 3.11 under DOSBox
|
|
# (scripts/lib/win16Gate.sh) at one window pixel per stage pixel
|
|
# (JOEYLIB_SCALE=1, JOEYLIB_ASPECT=square), types the RetroNet
|
|
# definition-of-done string with xdotool (X key events DOSBox turns into
|
|
# the PC keyboard's, which Windows turns into WM_KEYDOWN/WM_CHAR), takes
|
|
# DOSBox's own screenshot of the 800x600 screen, and decodes the example's
|
|
# verification scanline (row 198) with tests/gate/keysRow.c, wherever
|
|
# Windows put the window. Then the named keys a second key gives
|
|
# (scripts/lib/keysGate.sh): the keypad's arrows and Enter, and the right
|
|
# Ctrl and Alt (the key messages' extended bit). A mapper file binds just
|
|
# these keys and puts the screenshot on F11 (scripts/lib/dosboxKeys.sh):
|
|
# DOSBox's Ctrl+F5 would hand Windows a Ctrl press.
|
|
#
|
|
# Usage: scripts/verify-win16-input.sh
|
|
# Requires: Windows on DOSBox (install.sh install emulator:win16), Xvfb,
|
|
# xdotool; build/win16/bin/KEYS.EXE (make win16).
|
|
|
|
set -euo pipefail
|
|
|
|
repo=$(cd "$(dirname "${BASH_SOURCE[0]}")/.." && pwd)
|
|
source "$repo/scripts/lib/joeyEnv.sh"
|
|
source "$repo/scripts/lib/win16Gate.sh"
|
|
source "$repo/scripts/lib/dosboxKeys.sh"
|
|
source "$repo/scripts/lib/keysGate.sh"
|
|
|
|
label=verify-win16-input
|
|
win16Need
|
|
target="192.168.1.10:6510"
|
|
program=$(joeyExampleProgram keys win16)
|
|
[ -f "$program" ] || { echo "$label: build KEYS.EXE first (make win16)" >&2; exit 2; }
|
|
# Windows' boot and KEYS reaching its poll loop.
|
|
bootSeconds=10
|
|
|
|
work=$(mktemp -d -t joeylib-win16-input.XXXXXX)
|
|
cleanup() {
|
|
win16Stop
|
|
rm -rf "$work"
|
|
}
|
|
trap cleanup EXIT
|
|
|
|
mkdir -p "$work/program" "$work/shots"
|
|
cp "$program" "$work/program/KEYS.EXE"
|
|
win16Stage "$work" "$work/program" KEYS.EXE
|
|
dosboxKeysMapper "$work/mapper.txt" "${DOSBOX_KEYS_TYPING[@]}" "${DOSBOX_KEYS_NAMED[@]}"
|
|
WIN16_DOSBOX_ARGS=(--set "capture_dir=$work/shots" --set "mapperfile=$work/mapper.txt")
|
|
win16Start "$work" JOEYLIB_SCALE=1 JOEYLIB_ASPECT=square
|
|
sleep "$bootSeconds"
|
|
win=$(win16Window) || { echo "$label: FAIL - DOSBox window not found" >&2; exit 1; }
|
|
DISPLAY="$WIN16_DISPLAY" xdotool windowactivate --sync "$win" 2> /dev/null || true
|
|
DISPLAY="$WIN16_DISPLAY" xdotool type --window "$win" --delay 150 -- "$target"
|
|
sleep 2
|
|
png="$work/typed.png"
|
|
dosboxShot "$WIN16_DISPLAY" "$win" "$work/shots" "$png" || { echo "$label: FAIL - DOSBox took no screenshot" >&2; exit 1; }
|
|
found=$("$(joeyTool keysRow)" "$png" "$target" --scale 1) || { echo "$found"; echo "$label: FAIL" >&2; exit 1; }
|
|
echo "$found"
|
|
[[ "$found" =~ row\ at\ \(([0-9]+),([0-9]+)\) ]]
|
|
stageAt="${BASH_REMATCH[1]},$((BASH_REMATCH[2] - 198))"
|
|
|
|
# X's names for the keys (scripts/lib/keysGate.sh's).
|
|
declare -A xKey=([up]=Up [kp8]=KP_Up [kp2]=KP_Down [kp4]=KP_Left [kp6]=KP_Right [kpenter]=KP_Enter [rctrl]=Control_R [ralt]=Alt_R)
|
|
KEYS_LABEL=$label
|
|
keysPress() {
|
|
DISPLAY="$WIN16_DISPLAY" xdotool keydown --window "$win" "${xKey[$1]}"
|
|
}
|
|
keysRelease() {
|
|
DISPLAY="$WIN16_DISPLAY" xdotool keyup --window "$win" "${xKey[$1]}"
|
|
}
|
|
keysRead() {
|
|
if dosboxShot "$WIN16_DISPLAY" "$win" "$work/shots" "$work/cells.png"; then
|
|
"$(joeyTool keysCells)" "$work/cells.png" --at "$stageAt"
|
|
else
|
|
echo "no screenshot"
|
|
fi
|
|
}
|
|
keysRunSteps kp8 kp2 kp4 kp6 kpenter rctrl ralt
|
|
if [ -n "$KEYS_FAILS" ]; then
|
|
echo "$label: FAIL - $KEYS_FAILS" >&2
|
|
exit 1
|
|
fi
|
|
echo "$label: PASS (typed \"$target\", all ${#target} chars arrived via jlInputGetChar; $KEYS_STEPS named-key steps: the keypad's arrows and Enter, right Ctrl and Alt, Up held with its second key)"
|