Files
sx/examples/1342-ffi-objc-dsl-02-one-arg.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

36 lines
1.1 KiB
Plaintext

// Phase 3 step 3.0: one-arg selector mangling. `addObject(o)` derives
// `addObject:` — the sx method name becomes the keyword, a single
// trailing `:` for the single arg. Selector arity (count of `:`) must
// equal sx-side arity excluding self.
//
// Pre-3.0: bails at lower.zig with the Phase 3/4 diagnostic.
#import "modules/std.sx";
#import "modules/compiler.sx";
#import "modules/std/objc.sx";
SxProbeOneArg :: #foreign #objc_class("SxProbeOneArg") {
addObject :: (self: *Self, val: s32) -> s32;
}
addObject_imp :: (self: *void, _cmd: *void, val: s32) -> s32 callconv(.c) {
val * 2;
}
main :: () -> s32 {
inline if OS == .macos {
ns_object := objc_getClass("NSObject".ptr);
cls := objc_allocateClassPair(ns_object, "SxProbeOneArg".ptr, 0);
sel := sel_registerName("addObject:".ptr);
class_addMethod(cls, sel, xx addObject_imp, "i@:i".ptr);
objc_registerClassPair(cls);
inst : *SxProbeOneArg = xx class_createInstance(cls, 0);
n := inst.addObject(21);
print("addObject(21) = {}\n", n);
}
inline if OS != .macos {
print("skipped (not macos)\n");
}
0;
}