kit

run-kitchen.sh (4642B)

---

 #!/usr/bin/env bash
 set -u
 
 usage() {
   printf 'usage: %s all|pp|c|parse|toy|wasm\n' "$0" >&2
 }
 
 if [ "$#" -gt 1 ]; then
   usage
   exit 2
 fi
 
 suite="${1:-all}"
 script_dir=$(cd "$(dirname "$0")" && pwd)
 root=$(cd "$script_dir/../../.." && pwd)
 fixture_root="$root/test/tier1/kitchen/frontend"
 log_root="${KIT_TIER1_LOG_DIR:-$root/build/test/tier1/frontend}"
 KIT="${KIT:-$root/build/kit}"
 
 expected_rc() {
   tr -d '[:space:]' < "$1"
 }
 
 check_rc() {
   local label="$1"
   local got="$2"
   local want="$3"
   want=$((want & 255))
   if [ "$got" -ne "$want" ]; then
     printf '%s: expected rc %d, got %d\n' "$label" "$want" "$got" >&2
     return 1
   fi
 }
 
 run_expect_rc() {
   local label="$1"
   local want="$2"
   shift 2
   "$@" >/dev/null 2>&1
   local got=$?
   check_rc "$label" "$got" "$want"
 }
 
 normalize_tokens() {
   tr '\n' ' ' < "$1" | tr -s '[:space:]' ' ' | sed -e 's/^ //' -e 's/ $//'
 }
 
 run_pp() {
   local src="$fixture_root/pp_kitchen.c"
   local expected="$fixture_root/pp_kitchen.expected"
   local actual="$1/pp_kitchen.actual"
   local exp_norm="$1/pp_kitchen.expected.norm"
   local act_norm="$1/pp_kitchen.actual.norm"
 
   [ -x "$KIT" ] || { printf 'missing kit binary: %s\n' "$KIT" >&2; return 2; }
   "$KIT" cc -E -I "$fixture_root" "$src" -o "$actual"
   normalize_tokens "$expected" > "$exp_norm"
   normalize_tokens "$actual" > "$act_norm"
   diff -u "$exp_norm" "$act_norm"
 }
 
 run_c() {
   local src="$fixture_root/c_kitchen.c"
   local expected
   local obj="$1/c_kitchen.o" dump="$1/c_kitchen.dump"
   local exe="$1/c_kitchen.exe"
   local emit_c="$1/c_kitchen.emit.c" emit_exe="$1/c_kitchen.emit.exe"
   local asm="$1/c_kitchen.s" asm_obj="$1/c_kitchen.s.o" asm_exe="$1/c_kitchen.s.exe"
   expected=$(expected_rc "$fixture_root/c_kitchen.expected")
 
   [ -x "$KIT" ] || { printf 'missing kit binary: %s\n' "$KIT" >&2; return 2; }
   "$KIT" cc -O0 -c "$src" -o "$obj"
   "$KIT" objdump -h -t "$obj" > "$dump"
   grep -Eq '(^|[[:space:]])main($|[[:space:]])' "$dump"
 
   "$KIT" cc -O0 "$src" -lc -o "$exe"
   run_expect_rc "c/kitchen-link-exec" "$expected" "$exe"
 
   "$KIT" cc --emit=c -O0 "$src" -o "$emit_c"
   "${CC:-cc}" "$emit_c" -o "$emit_exe"
   run_expect_rc "c/kitchen-emit-c-exec" "$expected" "$emit_exe"
 
   "$KIT" cc -S -O0 "$src" -o "$asm"
   "$KIT" as "$asm" -o "$asm_obj"
   "$KIT" cc "$asm_obj" -lc -o "$asm_exe"
   run_expect_rc "c/kitchen-emit-s-exec" "$expected" "$asm_exe"
 
   run_expect_rc "c/kitchen-jit" "$expected" "$KIT" run "$src"
 }
 
 run_toy() {
   local src="$fixture_root/toy_kitchen.toy"
   local expected
   local exe="$1/toy_kitchen.exe"
   local emit_c="$1/toy_kitchen.emit.c" emit_exe="$1/toy_kitchen.emit.exe"
   local asm="$1/toy_kitchen.s" asm_obj="$1/toy_kitchen.s.o" asm_exe="$1/toy_kitchen.s.exe"
   expected=$(expected_rc "$fixture_root/toy_kitchen.expected")
 
   [ -x "$KIT" ] || { printf 'missing kit binary: %s\n' "$KIT" >&2; return 2; }
 
   "$KIT" cc -O0 "$src" -lc -o "$exe"
   run_expect_rc "toy/kitchen-link-exec" "$expected" "$exe"
 
   "$KIT" cc --emit=c -O0 "$src" -o "$emit_c"
   "${CC:-cc}" "$emit_c" -o "$emit_exe"
   run_expect_rc "toy/kitchen-emit-c-exec" "$expected" "$emit_exe"
 
   "$KIT" cc -S -O0 "$src" -o "$asm"
   "$KIT" as "$asm" -o "$asm_obj"
   "$KIT" cc "$asm_obj" -lc -o "$asm_exe"
   run_expect_rc "toy/kitchen-emit-s-exec" "$expected" "$asm_exe"
 
   run_expect_rc "toy/kitchen-jit" "$expected" "$KIT" run "$src"
   run_expect_rc "toy/kitchen-interp" "$expected" "$KIT" run --no-jit "$src"
 }
 
 run_wasm() {
   local src="$fixture_root/wasm_kitchen.wat"
   local wasm="$1/wasm_emit.wasm"
   local expected
   local run_rc
   expected=$(expected_rc "$fixture_root/wasm_kitchen.expected")
 
   [ -x "$KIT" ] || { printf 'missing kit binary: %s\n' "$KIT" >&2; return 2; }
   "$KIT" run -e test_main "$src"
   run_rc=$?
   check_rc "wasm/kitchen-jit" "$run_rc" "$expected"
 
   "$KIT" build-exe -target wasm32-none \
     "$fixture_root/wasm_emit_main.c" "$fixture_root/wasm_emit_helper.c" \
     -e test_main -o "$wasm"
   "$KIT" run -e test_main "$wasm"
   run_rc=$?
   check_rc "wasm/compiled-wasm-jit" "$run_rc" 0
 }
 
 run_suite() {
   local name="$1"
   local log_dir="$log_root/$name"
   local log="$log_dir/kitchen.log"
   local suite_rc
   mkdir -p "$log_dir"
 
   if "run_$name" "$log_dir" > "$log" 2>&1; then
     printf 'PASS tier1-frontend/%s  %s\n' "$name" "$log"
     return 0
   else
     suite_rc=$?
   fi
 
   printf 'FAIL tier1-frontend/%s  %s\n' "$name" "$log" >&2
   tail -n 80 "$log" >&2 || true
   return "$suite_rc"
 }
 
 case "$suite" in
   all) suites="pp c toy wasm" ;;
   pp|c|toy|wasm) suites="$suite" ;;
   parse) suites="c" ;;
   *) usage; exit 2 ;;
 esac
 
 rc=0
 for s in $suites; do
   run_suite "$s" || rc=1
 done
 
 exit "$rc"