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.
71 lines
2.4 KiB
Plaintext
71 lines
2.4 KiB
Plaintext
// Phase 0 baseline (PLAN-FFI.md step 0.8): `#foreign` C call sites
|
|
// embedded inside the major sx surface constructs. None of these
|
|
// touch a new ABI shape — they only verify lowering routes the call
|
|
// through identically regardless of the enclosing context:
|
|
//
|
|
// 1. struct method body (Counter.next)
|
|
// 2. protocol impl method body (impl Doubler for Counter)
|
|
// 3. closure value body (closure { ... })
|
|
// 4. comptime-gated branch (inline if OS == ...)
|
|
|
|
#import "modules/std.sx";
|
|
#import "modules/compiler.sx";
|
|
|
|
#import c {
|
|
#include "1216-ffi-08-foreign-in-method.h";
|
|
#source "1216-ffi-08-foreign-in-method.c";
|
|
};
|
|
|
|
// ── 1. Struct method calling a #foreign fn ───────────────────────────
|
|
Counter :: struct {
|
|
seed: s32 = 0;
|
|
next :: (self: *Counter) -> s32 {
|
|
v := ffi_method_helper(self.seed);
|
|
self.seed += 1;
|
|
v;
|
|
}
|
|
}
|
|
|
|
// ── 2. Protocol impl method calling a #foreign fn ────────────────────
|
|
Doubler :: protocol {
|
|
doubled :: (self: *Self) -> s32;
|
|
}
|
|
|
|
impl Doubler for Counter {
|
|
doubled :: (self: *Counter) -> s32 {
|
|
ffi_method_helper(self.seed) * 2;
|
|
}
|
|
}
|
|
|
|
// ── 3. Closure body calling a #foreign fn ────────────────────────────
|
|
make_adder :: (bias: s32) -> Closure(s32) -> s32 {
|
|
closure((x: s32) -> s32 => ffi_method_helper(x) + bias);
|
|
}
|
|
|
|
main :: () -> s32 {
|
|
c : Counter = .{ seed = 1 };
|
|
|
|
// 1. struct method
|
|
print("method next 1 = {}\n", c.next());
|
|
print("method next 2 = {}\n", c.next());
|
|
|
|
// 2. protocol method (still operating on the now-bumped Counter)
|
|
print("protocol = {}\n", c.doubled());
|
|
|
|
// 3. closure
|
|
adder := make_adder(100);
|
|
print("closure(5) = {}\n", adder(5));
|
|
|
|
// 4. inline if OS branch — only one arm survives codegen on a
|
|
// given target. `inline if X == { case ... }` reads cleaner
|
|
// than chained `inline if X == .a; inline if X == .b; ...`.
|
|
inline if OS == {
|
|
case .macos: { print("inline if macos = {}\n", ffi_method_helper(7)); }
|
|
case .ios: { print("inline if ios = {}\n", ffi_method_helper(7)); }
|
|
case .linux: { print("inline if linux = {}\n", ffi_method_helper(7)); }
|
|
else: { print("inline if other = {}\n", ffi_method_helper(7)); }
|
|
}
|
|
|
|
0;
|
|
}
|