Files
sx/examples/1300-ffi-objc-roundtrip.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

29 lines
1.0 KiB
Plaintext

// Obj-C runtime FFI smoke test: round-trip a string through NSString.
//
// Demonstrates the typed-fn-pointer cast idiom for `objc_msgSend`. Each
// shape we invoke gets its own variable typed with the exact ABI:
//
// msg_3 : (*void, *void, [*]u8) -> *void = xx objc_msgSend;
// msg_2 : (*void, *void) -> [*]u8 = xx objc_msgSend;
//
// On ARM64 Apple, objc_msgSend doesn't take a varargs path — invoking it
// through a typed fn-pointer is the only correct way to land args in the
// right registers.
#import "modules/std.sx";
#import "modules/std/objc.sx";
main :: () -> s32 {
ns_class := objc_getClass("NSString".ptr);
sel_with_utf8 := sel_registerName("stringWithUTF8String:".ptr);
sel_utf8 := sel_registerName("UTF8String".ptr);
msg_3 : (*void, *void, [*]u8) -> *void callconv(.c) = xx objc_msgSend;
ns_str := msg_3(ns_class, sel_with_utf8, "hi".ptr);
msg_2 : (*void, *void) -> [*]u8 callconv(.c) = xx objc_msgSend;
back := msg_2(ns_str, sel_utf8);
return xx (back[0] + back[1]); // 'h' + 'i' = 104 + 105 = 209
}