|
| 1 | +#!/usr/bin/env bash |
| 2 | +# Ecosystem verification for mcpp 2026.9.5.3 and the heterogeneous-build round |
| 3 | +# (design: 2026-09-05-heterogeneous-build-ecosystem-design-v2.md, section 6.3, |
| 4 | +# rows V1 and V2). Run inside a fresh xlings subos: |
| 5 | +# |
| 6 | +# xlings subos verify-953 --sandbox --cmd "MCPP_VERIFY_VERSION=2026.9.5.3 bash <this file>" |
| 7 | +# |
| 8 | +# and once more on the host with a GPU (MCPP_VERIFY_HOST=1), where the host |
| 9 | +# ICD path and the CUDA lane are exercised as well. |
| 10 | +# |
| 11 | +# Every assertion carries its own `|| fail`; the closing line is a count. |
| 12 | +set -uo pipefail |
| 13 | + |
| 14 | +VER="${MCPP_VERIFY_VERSION:?set MCPP_VERIFY_VERSION}" |
| 15 | +STORE="${MCPP_VERIFY_BIN:-$HOME/.xlings/data/xpkgs/xim-x-mcpp/$VER/bin/mcpp}" |
| 16 | +SRC="${MCPP_VERIFY_SRC:-}" # a checkout of mcpp at v$VER (examples) |
| 17 | +PLUGINS="${MCPP_VERIFY_PLUGINS:-}" # a checkout of mcpp-plugins at v0.1.0 (fixtures) |
| 18 | +XL="${XLINGS_BIN:-$(command -v xlings)}" |
| 19 | + |
| 20 | +fails=0 |
| 21 | +fail() { printf 'ASSERT-FAIL: %s\n' "$1"; fails=$((fails + 1)); } |
| 22 | +ok() { printf 'ok: %s\n' "$1"; } |
| 23 | +section() { printf '\n== %s ==\n' "$1"; } |
| 24 | + |
| 25 | +# -- A. identity and mirrors ------------------------------------------------- |
| 26 | +section "A. identity" |
| 27 | +[ -x "$STORE" ] || fail "no released binary at $STORE" |
| 28 | +got=$("$STORE" --version 2>&1 | head -1) |
| 29 | +[ "$got" = "mcpp $VER" ] && ok "$got from the store path" || fail "version is '$got'" |
| 30 | +"$STORE" self config --mirror "${MCPP_VERIFY_MIRROR:-CN}" >/dev/null 2>&1 || fail "mcpp self config --mirror" |
| 31 | +"$XL" config --mirror "${MCPP_VERIFY_MIRROR:-CN}" >/dev/null 2>&1 || fail "xlings config --mirror" |
| 32 | +ok "mirror ${MCPP_VERIFY_MIRROR:-CN} configured for mcpp and xlings" |
| 33 | + |
| 34 | +# -- B. the plugin collection resolves from the index ------------------------- |
| 35 | +# |
| 36 | +# A consumer that names mcpp:plugins with one feature and imports the member |
| 37 | +# under its declared name. The SPIR-V header's first word is the proof that the |
| 38 | +# rule ran through the engine path (constrained glob, device source list, a |
| 39 | +# `role = "source"` action ordered before compilation). |
| 40 | +section "B. mcpp:plugins, feature rules-spirv" |
| 41 | +work=$(mktemp -d) |
| 42 | +mkdir -p "$work/spv/shaders" "$work/spv/src" |
| 43 | +cat > "$work/spv/mcpp.toml" <<'EOT' |
| 44 | +[package] |
| 45 | +name = "spv-probe" |
| 46 | +version = "0.1.0" |
| 47 | +[language] |
| 48 | +standard = "c++23" |
| 49 | +modules = true |
| 50 | +import_std = true |
| 51 | +[dependencies.mcpp] |
| 52 | +plugins = { version = "0.1.0", features = ["rules-spirv"], host-module = true } |
| 53 | +[xlings.workspace] |
| 54 | +"xim:glslang" = "15.1.0" |
| 55 | +[build] |
| 56 | +accel = "vulkan1.2" |
| 57 | +sources = ["src/*.cpp", { glob = "shaders/*.comp", accel = "vulkan1.2" }] |
| 58 | +[targets.spv-probe] |
| 59 | +kind = "bin" |
| 60 | +main = "src/main.cpp" |
| 61 | +EOT |
| 62 | +cat > "$work/spv/shaders/scale.comp" <<'EOT' |
| 63 | +#version 450 |
| 64 | +layout(local_size_x = 64) in; |
| 65 | +layout(std430, binding = 0) buffer Data { float v[]; }; |
| 66 | +void main() { v[gl_GlobalInvocationID.x] *= 2.0; } |
| 67 | +EOT |
| 68 | +cat > "$work/spv/build.mcpp" <<'EOT' |
| 69 | +import std; |
| 70 | +import mcpp; |
| 71 | +import mcpp.rules.spirv; |
| 72 | +int main() { |
| 73 | + mcpp::rerun_if_changed_glob("shaders/**/*.comp"); |
| 74 | + mcpp::rules::spirv::options opt; |
| 75 | + opt.includes = { "shaders" }; |
| 76 | + return mcpp::rules::spirv::compile(opt) ? 0 : 1; |
| 77 | +} |
| 78 | +EOT |
| 79 | +cat > "$work/spv/src/main.cpp" <<'EOT' |
| 80 | +#include <cstdint> |
| 81 | +#include <cstdio> |
| 82 | +#include "scale_comp.h" |
| 83 | +int main() { std::printf("magic=%08x\n", scale_comp_spv[0]); return scale_comp_spv[0] == 0x07230203u ? 0 : 1; } |
| 84 | +EOT |
| 85 | +out=$(cd "$work/spv" && "$STORE" build 2>&1 && "$STORE" run 2>&1) |
| 86 | +printf '%s\n' "$out" | grep -q '^magic=07230203' && ok "mcpp.rules.spirv from mcpp:plugins produced a SPIR-V header" \ |
| 87 | + || fail "spirv consumer: $(printf '%s' "$out" | tail -4 | tr '\n' ' ')" |
| 88 | + |
| 89 | +# -- C. example 10 on the CPU driver payload ------------------------------------ |
| 90 | +section "C. examples/10-vulkan-compute on xim:mesa-lavapipe" |
| 91 | +if [ -n "$SRC" ] && [ -d "$SRC/examples/10-vulkan-compute/app" ]; then |
| 92 | + ex10="$work/ex10"; cp -r "$SRC/examples/10-vulkan-compute/app" "$ex10" |
| 93 | + out=$(cd "$ex10" && "$STORE" build 2>&1); rc=$? |
| 94 | + [ $rc -eq 0 ] && ok "example 10 built" || fail "example 10 build: $(printf '%s' "$out" | tail -4 | tr '\n' ' ')" |
| 95 | + icd=$(ls "$ex10"/.mcpp/.xlings/data/xpkgs/xim-x-mesa-lavapipe/*/share/vulkan/icd.d/*.json 2>/dev/null | head -1) |
| 96 | + [ -n "$icd" ] || icd=$(ls "$HOME"/.xlings/data/xpkgs/xim-x-mesa-lavapipe/*/share/vulkan/icd.d/*.json 2>/dev/null | head -1) |
| 97 | + [ -n "$icd" ] && ok "lavapipe manifest at $icd" || fail "no lavapipe ICD manifest in any store" |
| 98 | + out=$(cd "$ex10" && VK_DRIVER_FILES="$icd" "$STORE" run 2>&1) |
| 99 | + printf '%s\n' "$out" | grep -q '12 24 36 48' && ok "example 10 answered 12 24 36 48 on the payload driver" \ |
| 100 | + || fail "example 10 run on lavapipe: $(printf '%s' "$out" | tail -4 | tr '\n' ' ')" |
| 101 | + printf '%s\n' "$out" | grep -qi 'llvmpipe' && ok "the device was llvmpipe" || printf 'note: device name not printed (%s)\n' "$(printf '%s' "$out" | head -2 | tr '\n' ' ')" |
| 102 | + out=$(cd "$ex10" && "$STORE" build --no-accel 2>&1 && "$STORE" run --no-accel 2>&1) |
| 103 | + printf '%s\n' "$out" | grep -q '12 24 36 48' && ok "example 10 --no-accel answered 12 24 36 48" \ |
| 104 | + || fail "example 10 --no-accel: $(printf '%s' "$out" | tail -3 | tr '\n' ' ')" |
| 105 | + hs=$(ls "$ex10"/.mcpp/.xlings/data/xpkgs/compat-x-vulkan-runtime/*/mcpp_generated/vulkan_runtime/HOST-SURFACE.txt 2>/dev/null | head -1) |
| 106 | + if [ -n "$hs" ]; then |
| 107 | + printf -- '--- %s\n' "$hs"; sed -n '/^## farmed/,$p' "$hs" | head -60 |
| 108 | + hostlines=$(grep -c -- '-- host;' "$hs" || true) |
| 109 | + if [ -n "${MCPP_VERIFY_HOST:-}" ]; then ok "host surface recorded ($hostlines host entries, see above)"; else |
| 110 | + [ "$hostlines" -eq 0 ] && ok "no host library is on the runtime path in the sandbox" || fail "$hostlines host entries in a sandbox"; fi |
| 111 | + else fail "no HOST-SURFACE.txt written by compat.vulkan-runtime"; fi |
| 112 | +else |
| 113 | + printf 'skip: MCPP_VERIFY_SRC not set or has no examples/10-vulkan-compute\n' |
| 114 | +fi |
| 115 | + |
| 116 | +# -- D. example 09, the CPU variant everywhere and the device on a host with one -- |
| 117 | +section "D. examples/09-cuda-kernel" |
| 118 | +if [ -n "$SRC" ] && [ -d "$SRC/examples/09-cuda-kernel/app" ] && [ -n "${MCPP_VERIFY_CUDA:-}" ]; then |
| 119 | + ex09="$work/ex09"; cp -r "$SRC/examples/09-cuda-kernel/app" "$ex09" |
| 120 | + out=$(cd "$ex09" && "$STORE" build --no-accel 2>&1 && "$STORE" run --no-accel 2>&1) |
| 121 | + printf '%s\n' "$out" | grep -q '12 24 36 48' && ok "example 09 --no-accel answered 12 24 36 48" \ |
| 122 | + || fail "example 09 --no-accel: $(printf '%s' "$out" | tail -3 | tr '\n' ' ')" |
| 123 | + out=$(cd "$ex09" && "$STORE" build 2>&1); rc=$? |
| 124 | + [ $rc -eq 0 ] && ok "example 09 device variant compiled through mcpp.rules.cuda" || fail "example 09 build: $(printf '%s' "$out" | tail -4 | tr '\n' ' ')" |
| 125 | + if [ -n "${MCPP_VERIFY_HOST:-}" ]; then |
| 126 | + out=$(cd "$ex09" && "$STORE" run 2>&1) |
| 127 | + printf '%s\n' "$out" | grep -q '12 24 36 48' && ok "example 09 answered 12 24 36 48 on the device" || fail "example 09 device run: $(printf '%s' "$out" | tail -3 | tr '\n' ' ')" |
| 128 | + fi |
| 129 | +else |
| 130 | + printf 'skip: set MCPP_VERIFY_CUDA=1 (and MCPP_VERIFY_SRC) to exercise the CUDA lane\n' |
| 131 | +fi |
| 132 | + |
| 133 | +# -- E. OpenCL: the loader, the adapter, and the CPU implementation --------------- |
| 134 | +section "E. OpenCL" |
| 135 | +mkdir -p "$work/ocl/tests" |
| 136 | +cat > "$work/ocl/mcpp.toml" <<'EOT' |
| 137 | +[package] |
| 138 | +name = "ocl-probe" |
| 139 | +version = "0.1.0" |
| 140 | +[dependencies.compat] |
| 141 | +opencl = "2026.05.29" |
| 142 | +EOT |
| 143 | +cat > "$work/ocl/tests/platforms.cpp" <<'EOT' |
| 144 | +#define CL_TARGET_OPENCL_VERSION 300 |
| 145 | +#include <CL/cl.h> |
| 146 | +#include <CL/cl_ext.h> |
| 147 | +#include <cstdio> |
| 148 | +int main() { |
| 149 | + cl_uint n = 0; const cl_int rc = clGetPlatformIDs(0, nullptr, &n); |
| 150 | + if (rc == CL_PLATFORM_NOT_FOUND_KHR || (rc == CL_SUCCESS && n == 0)) { std::printf("platforms=0\n"); return 0; } |
| 151 | + if (rc != CL_SUCCESS) { std::printf("clGetPlatformIDs=%d\n", (int)rc); return 1; } |
| 152 | + cl_platform_id ids[8]; clGetPlatformIDs(n < 8 ? n : 8, ids, nullptr); |
| 153 | + std::printf("platforms=%u\n", n); |
| 154 | + for (cl_uint i = 0; i < n && i < 8; ++i) { char name[128] = {}; clGetPlatformInfo(ids[i], CL_PLATFORM_NAME, sizeof name, name, nullptr); std::printf("platform: %s\n", name); } |
| 155 | + return 0; |
| 156 | +} |
| 157 | +EOT |
| 158 | +out=$(cd "$work/ocl" && "$STORE" test 2>&1) |
| 159 | +printf '%s\n' "$out" | grep -q '^platforms=' && ok "the loader linked and enumerated: $(printf '%s' "$out" | grep '^platform' | tr '\n' ' ')" \ |
| 160 | + || fail "opencl probe: $(printf '%s' "$out" | tail -4 | tr '\n' ' ')" |
| 161 | +if "$XL" install pocl -y >/dev/null 2>&1; then |
| 162 | + ok "xim:pocl installed" |
| 163 | + out=$(cd "$work/ocl" && "$XL" subos current --cmd "cd '$work/ocl' && '$STORE' test" 2>&1 || true) |
| 164 | + lib=$(ls "$HOME"/.xlings/data/xpkgs/xim-x-pocl/*/lib/libpocl.so 2>/dev/null | head -1) |
| 165 | + out2=$(cd "$work/ocl" && OCL_ICD_FILENAMES="$lib" "$STORE" test 2>&1) |
| 166 | + printf '%s\n' "$out2" | grep -q 'Portable Computing Language' && ok "the pocl platform is enumerated through OCL_ICD_FILENAMES" \ |
| 167 | + || fail "pocl not enumerated: $(printf '%s' "$out2" | grep '^platform' | tr '\n' ' ')" |
| 168 | +else |
| 169 | + printf 'note: xim:pocl not installable here (not published yet, or this arch)\n' |
| 170 | +fi |
| 171 | + |
| 172 | +printf '\n== result: %d assertion(s) failed ==\n' "$fails" |
| 173 | +[ "$fails" -eq 0 ] |
0 commit comments