b52d424369
git-mv the 10 foreign-named example families to extern/runtime-class names + update every #import/#include/#source ref, stale comment ref, and the 1172 stderr snapshot (path + 'extern symbol' message). Renames: 0729…-foreign→…-extern, 1172-diagnostics- foreign-symbol-conflict→…-extern-symbol-conflict, 1205/1207 ffi-foreign-global→ ffi-extern-global, 1216/1217 ffi-…-foreign-(in-method|result-chain)→…-extern-…, 1219-ffi-foreign→1219-ffi-extern, 1306 objc-foreign-class-chained→objc-runtime-class- chained, 1318 objc-property-foreign→objc-property-extern-class. DEDUP: deleted 1218-ffi-foreign-cvariadic (identical to 1229-ffi-extern-cvariadic; updated 1229's twin ref) + the orphaned 1620 dir. Also purged editors/vscode tmLanguage (#foreign dropped from the directive highlighter) + 1220.h/issues-0030.sx comment refs. Suite green (644 corpus / 443 unit, 0 failed).
71 lines
2.4 KiB
Plaintext
71 lines
2.4 KiB
Plaintext
// Phase 0 baseline (PLAN-FFI.md step 0.8): `extern` 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/build.sx";
|
|
|
|
#import c {
|
|
#include "1216-ffi-08-extern-in-method.h";
|
|
#source "1216-ffi-08-extern-in-method.c";
|
|
};
|
|
|
|
// ── 1. Struct method calling a #extern fn ───────────────────────────
|
|
Counter :: struct {
|
|
seed: i32 = 0;
|
|
next :: (self: *Counter) -> i32 {
|
|
v := ffi_method_helper(self.seed);
|
|
self.seed += 1;
|
|
v
|
|
}
|
|
}
|
|
|
|
// ── 2. Protocol impl method calling a #extern fn ────────────────────
|
|
Doubler :: protocol {
|
|
doubled :: (self: *Self) -> i32;
|
|
}
|
|
|
|
impl Doubler for Counter {
|
|
doubled :: (self: *Counter) -> i32 {
|
|
ffi_method_helper(self.seed) * 2
|
|
}
|
|
}
|
|
|
|
// ── 3. Closure body calling a #extern fn ────────────────────────────
|
|
make_adder :: (bias: i32) -> Closure(i32) -> i32 {
|
|
closure((x: i32) -> i32 => ffi_method_helper(x) + bias)
|
|
}
|
|
|
|
main :: () -> i32 {
|
|
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
|
|
}
|