ffi M4.A: stdlib NSObject + autoreleasepool helper + extends rooting
Declare `NSObject` in std/objc.sx as `#foreign #objc_class("NSObject")`
with the canonical instance + class-method surface every Obj-C class
inherits: `retain`/`release`/`autorelease`/`new`/`alloc`/`init`/
`description`/`hash`/`isEqual_`/`isKindOfClass_`/`respondsToSelector_`/
`class`. Root the foreign-class hierarchy in uikit.sx at NSObject by
adding `#extends NSObject;` to every previously-unrooted declaration
(NSValue, NSNumber, NSDictionary, NSSet, NSNotification, NSBundle,
NSNotificationCenter, NSRunLoop, CADisplayLink, CALayer, EAGLContext,
UIScreen, UIResponder) plus deeper chain fixes (NSMutableDictionary
extends NSDictionary; UIWindow extends UIView; UIViewController
extends UIResponder). After this, M2.3's extends-chain walk finds
`retain`/`release` on any UIKit-typed value:
view := UIView.alloc().init();
defer view.release(); // canonical sx idiom — no language magic
Plus `autoreleasepool(body: Closure())` stdlib helper that wraps
`body` in `objc_autoreleasePoolPush` / `defer objc_autoreleasePoolPop`.
Required for Foundation factory returns; closure-call frame is real
cost so hot loops should inline the push/defer-pop pattern manually.
Smoke test `ffi-objc-arc-01-autoreleasepool.sx` exercises both
patterns; refresh of two IR snapshots picks up the new stdlib decls
appearing in test outputs that include `modules/std/objc.sx`.
185/185 example tests pass; chess on iOS-sim green.
This commit is contained in:
@@ -59,11 +59,13 @@ CGRect :: struct {
|
||||
// (split on `_`; each piece becomes a keyword with `:`).
|
||||
|
||||
NSValue :: #foreign #objc_class("NSValue") {
|
||||
#extends NSObject;
|
||||
// CGRect unboxing — returns by value via the sret/HFA path.
|
||||
CGRectValue :: (self: *Self) -> CGRect;
|
||||
}
|
||||
|
||||
NSNumber :: #foreign #objc_class("NSNumber") {
|
||||
#extends NSObject;
|
||||
// Class method (no `self: *Self` first param → static dispatch).
|
||||
numberWithBool :: (b: s8) -> *NSNumber;
|
||||
// Instance value extractors.
|
||||
@@ -72,30 +74,36 @@ NSNumber :: #foreign #objc_class("NSNumber") {
|
||||
}
|
||||
|
||||
NSDictionary :: #foreign #objc_class("NSDictionary") {
|
||||
#extends NSObject;
|
||||
objectForKey :: (self: *Self, key: *void) -> *void;
|
||||
}
|
||||
|
||||
NSMutableDictionary :: #foreign #objc_class("NSMutableDictionary") {
|
||||
#extends NSDictionary;
|
||||
dictionary :: () -> *NSMutableDictionary;
|
||||
setObject_forKey :: (self: *Self, obj: *void, key: *void);
|
||||
}
|
||||
|
||||
NSSet :: #foreign #objc_class("NSSet") {
|
||||
#extends NSObject;
|
||||
anyObject :: (self: *Self) -> *void;
|
||||
}
|
||||
|
||||
// ── Notifications + Bundle (Phase 3.2 C2) ──────────────────────────────
|
||||
|
||||
NSNotification :: #foreign #objc_class("NSNotification") {
|
||||
#extends NSObject;
|
||||
userInfo :: (self: *Self) -> *NSDictionary;
|
||||
}
|
||||
|
||||
NSBundle :: #foreign #objc_class("NSBundle") {
|
||||
#extends NSObject;
|
||||
mainBundle :: () -> *NSBundle;
|
||||
resourcePath :: (self: *Self) -> *void;
|
||||
}
|
||||
|
||||
NSNotificationCenter :: #foreign #objc_class("NSNotificationCenter") {
|
||||
#extends NSObject;
|
||||
defaultCenter :: () -> *NSNotificationCenter;
|
||||
addObserver_selector_name_object :: (self: *Self, observer: *void, sel: *void, name: *void, obj: *void);
|
||||
}
|
||||
@@ -103,10 +111,12 @@ NSNotificationCenter :: #foreign #objc_class("NSNotificationCenter") {
|
||||
// ── RunLoop + display timing (Phase 3.2 C3) ────────────────────────────
|
||||
|
||||
NSRunLoop :: #foreign #objc_class("NSRunLoop") {
|
||||
#extends NSObject;
|
||||
currentRunLoop :: () -> *NSRunLoop;
|
||||
}
|
||||
|
||||
CADisplayLink :: #foreign #objc_class("CADisplayLink") {
|
||||
#extends NSObject;
|
||||
displayLinkWithTarget_selector :: (target: *void, sel: *void) -> *CADisplayLink;
|
||||
addToRunLoop_forMode :: (self: *Self, runloop: *NSRunLoop, mode: *void);
|
||||
targetTimestamp :: (self: *Self) -> f64;
|
||||
@@ -117,6 +127,7 @@ CADisplayLink :: #foreign #objc_class("CADisplayLink") {
|
||||
// (Declared before UIView so `layer :: (...) -> *CALayer` can reference it.)
|
||||
|
||||
CALayer :: #foreign #objc_class("CALayer") {
|
||||
#extends NSObject;
|
||||
setOpaque :: (self: *Self, opaque: s8);
|
||||
}
|
||||
|
||||
@@ -132,6 +143,7 @@ CAMetalLayer :: #foreign #objc_class("CAMetalLayer") {
|
||||
}
|
||||
|
||||
EAGLContext :: #foreign #objc_class("EAGLContext") {
|
||||
#extends NSObject;
|
||||
alloc :: () -> *EAGLContext;
|
||||
initWithAPI :: (self: *Self, api: s32) -> *EAGLContext;
|
||||
setCurrentContext :: (ctx: *EAGLContext);
|
||||
@@ -142,6 +154,7 @@ EAGLContext :: #foreign #objc_class("EAGLContext") {
|
||||
// ── UIKit chrome (Phase 3.2 C4) ────────────────────────────────────────
|
||||
|
||||
UIScreen :: #foreign #objc_class("UIScreen") {
|
||||
#extends NSObject;
|
||||
mainScreen :: () -> *UIScreen;
|
||||
nativeScale :: (self: *Self) -> f64;
|
||||
bounds :: (self: *Self) -> CGRect;
|
||||
@@ -152,6 +165,7 @@ UIScreen :: #foreign #objc_class("UIScreen") {
|
||||
// participate in lifecycle callbacks (delegates, scene delegates)
|
||||
// extend it so the runtime picks up the responder-chain behavior.
|
||||
UIResponder :: #foreign #objc_class("UIResponder") {
|
||||
#extends NSObject;
|
||||
becomeFirstResponder :: (self: *Self) -> s8;
|
||||
resignFirstResponder :: (self: *Self) -> s8;
|
||||
}
|
||||
@@ -165,6 +179,7 @@ UIView :: #foreign #objc_class("UIView") {
|
||||
}
|
||||
|
||||
UIWindow :: #foreign #objc_class("UIWindow") {
|
||||
#extends UIView;
|
||||
alloc :: () -> *UIWindow;
|
||||
initWithWindowScene :: (self: *Self, scene: *void) -> *UIWindow;
|
||||
setRootViewController :: (self: *Self, vc: *void);
|
||||
@@ -173,6 +188,7 @@ UIWindow :: #foreign #objc_class("UIWindow") {
|
||||
}
|
||||
|
||||
UIViewController :: #foreign #objc_class("UIViewController") {
|
||||
#extends UIResponder;
|
||||
alloc :: () -> *UIViewController;
|
||||
init :: (self: *Self) -> *UIViewController;
|
||||
setView :: (self: *Self, view: *void);
|
||||
|
||||
@@ -93,3 +93,50 @@ c_string :: (ns: *void) -> [*]u8 {
|
||||
fn_ptr : (*void, *void) -> [*]u8 callconv(.c) = xx objc_msgSend;
|
||||
return fn_ptr(ns, sel);
|
||||
}
|
||||
|
||||
// ─── NSObject (Phase 4 / M4.A) ───────────────────────────────────────────
|
||||
// Root of every Obj-C class hierarchy. Apple's runtime supplies the IMPs;
|
||||
// sx declares the method surface so user code can write
|
||||
// `defer view.release();` and `view.retain()` directly instead of going
|
||||
// through `objc_msgSend` casts. M2.3's `#extends`-aware dispatch finds
|
||||
// these methods automatically once a class roots its `#extends` chain at
|
||||
// NSObject (foreign classes in uikit.sx etc. add `#extends NSObject;` to
|
||||
// inherit the surface).
|
||||
//
|
||||
// `release` is NOT a reserved keyword in sx — modern clang ARC bans
|
||||
// user-source calls to it (the ARC compiler emits them automatically), but
|
||||
// sx isn't under clang ARC. Calling `view.release()` here is equivalent to
|
||||
// pre-ARC Obj-C source code: dispatches through the runtime, decrements the
|
||||
// refcount, fires `-dealloc` at zero.
|
||||
NSObject :: #foreign #objc_class("NSObject") {
|
||||
alloc :: () -> *NSObject;
|
||||
init :: (self: *Self) -> *NSObject;
|
||||
new :: () -> *NSObject; // shorthand for [[Cls alloc] init]
|
||||
retain :: (self: *Self) -> *Self;
|
||||
release :: (self: *Self);
|
||||
autorelease :: (self: *Self) -> *Self;
|
||||
class :: () -> *void; // metaclass query — `Cls.class()`
|
||||
description :: (self: *Self) -> *void; // returns *NSString
|
||||
hash :: (self: *Self) -> u64;
|
||||
isEqual_ :: (self: *Self, other: *void) -> BOOL;
|
||||
isKindOfClass_ :: (self: *Self, cls: *void) -> BOOL;
|
||||
respondsToSelector_ :: (self: *Self, sel: *void) -> BOOL;
|
||||
}
|
||||
|
||||
// ─── Autoreleasepool (M4.A) ──────────────────────────────────────────────
|
||||
// Foundation factory methods (`NSString.stringWithUTF8String:`,
|
||||
// `[NSArray array]`, ...) return autoreleased objects — valid until the
|
||||
// current pool drains. Wrap such code in `autoreleasepool(() => { ... })`
|
||||
// so the pool drains deterministically at block end.
|
||||
//
|
||||
// Stdlib helper, not a language keyword. The closure call adds a frame —
|
||||
// for hot loops, inline the push/defer-pop pattern manually.
|
||||
|
||||
objc_autoreleasePoolPush :: () -> *void #foreign objc;
|
||||
objc_autoreleasePoolPop :: (pool: *void) #foreign objc;
|
||||
|
||||
autoreleasepool :: (body: Closure()) {
|
||||
pool := objc_autoreleasePoolPush();
|
||||
defer objc_autoreleasePoolPop(pool);
|
||||
body();
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user