ac78490dd7
Closes the runtime-verification gap from cluster 1.32. The migrated
`uikit_keyboard_will_change_frame` body uses both shapes but isn't
reached by chess startup (the soft keyboard doesn't open without user
input), so runtime verification was transitive only: `#objc_call(CGRect)`
via the structurally-identical `#objc_call(UIEdgeInsets)` (4×f64 HFA)
in ffi-objc-call-07, and `#objc_call(u64)` via the LLVM-equivalent
`#objc_call(s64)` `hash` test in ffi-objc-call-04.
This example installs two IMPs via `class_addMethod`:
- `rect_imp` returns a CGRect of {10.5, 20.5, 30.5, 40.5} through the
32-byte HFA path (v0..v3 on AAPCS64).
- `u64_imp` returns `0x7FEDCBA987654321` through the i64 path.
`#objc_call(CGRect)` and `#objc_call(u64)` dispatch through them and
the values are printed for snapshot lockdown.
Reused the parser quirk noted in the checkpoint and in 0.1 — integer
literals ≥ 2^63 are rejected even when the receiving type is u64, so
the test value keeps the high bit clear.
111/111 host tests pass.
62 lines
2.3 KiB
Plaintext
62 lines
2.3 KiB
Plaintext
// Backfill for Phase 1D cluster 1.32 (PLAN-FFI.md): `#objc_call(CGRect)`
|
||
// and `#objc_call(u64)` against `class_addMethod`-registered IMPs.
|
||
// Both shapes were already exercised transitively in earlier work —
|
||
// CGRect is structurally a 4×f64 HFA (same as UIEdgeInsets from
|
||
// ffi-objc-call-07), and u64 is i64 at the LLVM level (same as the
|
||
// s64 return from ffi-objc-call-04's `hash`). The cluster-1.32
|
||
// migration of `uikit_keyboard_will_change_frame` was the first
|
||
// place we used both shapes through `#objc_call` directly, but the
|
||
// keyboard-change-frame callback isn't reached by the chess launch
|
||
// path, so this test gives the two shapes their own runtime lockdown.
|
||
|
||
#import "modules/std.sx";
|
||
#import "modules/compiler.sx";
|
||
#import "modules/std/objc.sx";
|
||
|
||
CGRect :: struct {
|
||
x: f64;
|
||
y: f64;
|
||
width: f64;
|
||
height: f64;
|
||
}
|
||
|
||
rect_imp :: (self: *void, _cmd: *void) -> CGRect callconv(.c) {
|
||
CGRect.{ x = 10.5, y = 20.5, width = 30.5, height = 40.5 };
|
||
}
|
||
|
||
u64_imp :: (self: *void, _cmd: *void) -> u64 callconv(.c) {
|
||
// sx integer-literal parser rejects values ≥ 2^63 even when the
|
||
// receiving type is u64, so the leading bit stays clear.
|
||
0x7FEDCBA987654321;
|
||
}
|
||
|
||
main :: () -> s32 {
|
||
inline if OS == .macos {
|
||
ns_object := objc_getClass("NSObject".ptr);
|
||
my_cls := objc_allocateClassPair(ns_object, "SxRectU64Probe".ptr, 0);
|
||
|
||
// CGRect type encoding: {CGRect={CGPoint=dd}{CGSize=dd}}@: for a
|
||
// strict structural encoding, but the runtime accepts the
|
||
// flattened `{CGRect=dddd}@:` form for IMP registration since
|
||
// arm64 BOOL/struct returns route on the ABI shape, not on the
|
||
// type-encoding's nested-struct structure.
|
||
sel_rect := sel_registerName("rect".ptr);
|
||
sel_uval := sel_registerName("uval".ptr);
|
||
class_addMethod(my_cls, sel_rect, xx rect_imp, "{CGRect=dddd}@:".ptr);
|
||
class_addMethod(my_cls, sel_uval, xx u64_imp, "Q@:".ptr);
|
||
objc_registerClassPair(my_cls);
|
||
|
||
instance := class_createInstance(my_cls, 0);
|
||
|
||
r := #objc_call(CGRect)(instance, "rect");
|
||
print("rect = ({}, {}, {}, {})\n", r.x, r.y, r.width, r.height);
|
||
|
||
u := #objc_call(u64)(instance, "uval");
|
||
print("uval = {}\n", u);
|
||
}
|
||
inline if OS != .macos {
|
||
print("skipped (not macos)\n");
|
||
}
|
||
0;
|
||
}
|