4e942b5373
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.
31 lines
1013 B
Plaintext
31 lines
1013 B
Plaintext
// Variadic heterogeneous type packs — step 3: `$args[$i]` in
|
|
// fn-pointer type literals.
|
|
//
|
|
// `(*void, $args[0]) -> $args[1]` is the shape step 5's generic
|
|
// `Into(Block) for Closure(..$args) -> $R` body needs for its
|
|
// trampoline:
|
|
// typed_fn : (*void, $args[0], $args[1], ...) -> $R =
|
|
// xx block_self.sx_fn;
|
|
// — the trampoline's invoke slot is typed against the pack
|
|
// positions to bridge the Block ABI to the sx closure.
|
|
//
|
|
// This test exercises the same plumbing on a smaller scale: a
|
|
// local var with a fn-pointer type whose param + return types
|
|
// both interpolate through `$args[$i]`.
|
|
|
|
#import "modules/std.sx";
|
|
|
|
// Two concrete handlers that match the per-mono fn-pointer shape.
|
|
double_s64 :: (env: *void, x: s64) -> s64 => x * 2;
|
|
|
|
via_fnptr :: (..$args) -> $args[1] {
|
|
fp : (*void, $args[0]) -> $args[1] = double_s64;
|
|
return fp(null, args[0]);
|
|
}
|
|
|
|
main :: () -> s32 {
|
|
n := via_fnptr(7, 0); // (s64, s64) → fp : (*void, s64) -> s64
|
|
print("{}\n", n);
|
|
return 0;
|
|
}
|