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.
37 lines
1.4 KiB
Plaintext
37 lines
1.4 KiB
Plaintext
// Phase 6 — the canonical heterogeneous `map`, end to end. A pack-fn whose
|
|
// return type `$R` is inferred from the mapper's closure return:
|
|
// - `mapper: Closure(..sources.T) -> $R` types the lambda's params from the
|
|
// projected pack element types, and its body (`a + b`) drives `$R`.
|
|
// - `$R` is inferred at the call site from the lowered mapper's closure ret,
|
|
// bound into the mono (`-> VL($R)` ⇒ `VL(s64)`, `Combined($R, ..)` ⇒
|
|
// `Combined(s64, ..)`), and folded into the mangle.
|
|
// - `(..sources)` materializes the pack into the `(..VL(Ts))` field (per-element
|
|
// erase) and `mapper(..sources.get)` projects+spreads; `xx c` erases the
|
|
// generic-struct instance to `VL(s64)` via the generic impl's monomorphized
|
|
// thunk.
|
|
|
|
#import "modules/std.sx";
|
|
|
|
VL :: protocol(T: Type) { get :: () -> T; }
|
|
IntCell :: struct { v: s64; }
|
|
impl VL(s64) for IntCell { get :: (self: *IntCell) -> s64 => self.v; }
|
|
|
|
Combined :: struct($R: Type, ..$Ts: []Type) {
|
|
sources: (..VL(Ts));
|
|
value: $R;
|
|
}
|
|
impl VL($R) for Combined($R, ..$Ts) { get :: (self: *Combined) -> $R => self.value; }
|
|
|
|
map :: (mapper: Closure(..sources.T) -> $R, ..sources: VL) -> VL($R) {
|
|
c : Combined($R, ..sources.T) = ---;
|
|
c.sources = (..sources);
|
|
c.value = mapper(..sources.get);
|
|
return xx c;
|
|
}
|
|
|
|
main :: () -> s32 {
|
|
r := map((a, b) => a + b, IntCell.{ v = 40 }, IntCell.{ v = 2 });
|
|
print("{}\n", r.get()); // 42
|
|
0;
|
|
}
|