Files
sx/examples/0537-packs-pack-xx-to-slice.sx
agra 4e942b5373 test: migrate examples to XXXX-category-name layout + split expected streams
Rename all example tests/companions to the XXXX-category-test-name scheme
(per-category 100-blocks: basic 0010, types 0100, ... errors 1000,
diagnostics 1100, ffi 1200, ffi-objc 1300, ffi-jni 1400, vectors 1500,
platform 1600). Companions and dir/C fixtures move in lockstep with their
parent test; #import/#source/#include paths rewritten to match.

Expected output now lives in examples/expected/ (a sibling dir of the
tests) split into three streams per the new convention:
  <name>.exit / <name>.stdout / <name>.stderr  (+ optional <name>.ir)

run_examples.sh rewritten: scans examples/ and issues/ for an
expected/<name>.exit marker, captures stdout and stderr separately (no
more 2>&1), compares each stream + exit + optional IR snapshot.

Behavior validated unchanged: every renamed test reproduces its prior
merged output + exit (diffs limited to file paths/basenames embedded in
diagnostics + traces, which correctly reflect the new names). Suite:
292 passed, 0 failed. 50-smoke.sx split + issue relocation + docs follow
in subsequent commits.
2026-06-01 19:05:15 +03:00

33 lines
1.1 KiB
Plaintext

// `xx <pack>` materializes a comptime pack into a runtime slice (issue 0053):
// the explicit pack→slice bridge. With a `[]Any` target each element is boxed
// to `Any`; with a `[]P` target each is `xx`-erased to the protocol `P`. This is
// how you forward a pack to a runtime (`[]Any` / `[]P`) helper.
#import "modules/std.sx";
Show :: protocol { show :: () -> string; }
A :: struct {}
B :: struct { s: string; }
impl Show for A { show :: (self: *A) -> string => "A"; }
impl Show for B { show :: (self: *B) -> string => "B"; }
count_any :: (items: []Any) -> s64 { return items.len; }
show_all :: (items: []Show) -> s64 {
i := 0;
while i < items.len { print("{}\n", items[i].show()); i = i + 1; }
return items.len;
}
// `..$args` pack → []Any via `xx`.
fwd_any :: (..$args) -> s64 { return count_any(xx args); }
// `..xs: Show` pack → []Show via `xx`.
fwd_show :: (..xs: Show) -> s64 { return show_all(xx xs); }
main :: () -> s32 {
print("any={}\n", fwd_any(1, "hi", 2.5)); // 3
print("show={}\n", fwd_show(A.{}, B.{ s = "x" }, A.{})); // A B A, 3
0;
}