Asking Claude to wrap a library for B4i (KSCrash)

' Class module: KSCrash2
' B4i wrapper for KSCrash 2.x (latest, https://github.com/kstenerud/KSCrash)
'
' PREREQUISITES
' -------------
' 1. Build KSCrash 2.x as xcframeworks from source (see README below).
'    Needed xcframeworks in Libs\Extra\KSCrash\:
'      KSCrashRecording.xcframework
'      KSCrashInstallations.xcframework
'      KSCrashFilters.xcframework
'      KSCrashSinks.xcframework
'
' 2. In your MAIN module (not here), add:
'      #AdditionalLib: KSCrash/KSCrashRecording.xcframework.3.cpp
'      #AdditionalLib: KSCrash/KSCrashInstallations.xcframework.3.cpp
'      #AdditionalLib: KSCrash/KSCrashFilters.xcframework.3.cpp
'      #AdditionalLib: KSCrash/KSCrashSinks.xcframework.3.cpp
'      #AdditionalLib: libc++.dylib
'      #AdditionalLib: libz.dylib
'      #AdditionalLib: SystemConfiguration.framework
'      #IgnoreWarnings: 32
'
' 3. KSCrash must only run in RELEASE mode on a real device.
'    Wrap all calls with:  #if RELEASE ... #End If  and  If App.IsSimulator = False Then
'
' USAGE EXAMPLE (in main module Application_Start)
' -------------------------------------------------
'   Dim Crash As KSCrash2
'   #if RELEASE
'   If App.IsSimulator = False Then
'       Crash.Initialize("Crash")
'       Crash.SetUserInfo("appVersion", "1.2.3")
'       Crash.SendReportsIfNeeded
'   End If
'   #End If
'
' EVENTS
' ------
'   ReportsSent(ReportCount As Int, Success As Boolean)

Sub Class_Globals
    Private mCallbackTarget As Object   ' module that calls Initialize (for events)
    Private mEventName As String        ' prefix used to raise events
    Private mReporter As NativeObject   ' KSCrash installation object
    Private xui As XUI
End Sub

' Initialize the crash reporter.
'   CallbackTarget : the module that will receive the ReportsSent event (pass Me or a module reference)
'   EventName      : event sub prefix in that module, e.g. "Crash" -> Sub Crash_ReportsSent(...)
Public Sub Initialize(CallbackTarget As Object, EventName As String)
    mCallbackTarget = CallbackTarget
    mEventName = EventName
    InstallStandard("")
End Sub

' Install with a Standard (HTTP POST) reporter.
'   ReportUrl: full URL string. Pass "" to skip URL config (set it later with SetReportUrl).
Public Sub InitializeWithUrl(CallbackTarget As Object, EventName As String, ReportUrl As String)
    mCallbackTarget = CallbackTarget
    mEventName = EventName
    InstallStandard(ReportUrl)
End Sub

' Change the report URL at any time after Initialize.
Public Sub SetReportUrl(ReportUrl As String)
    Dim url As NativeObject
    url = url.Initialize("NSURL").RunMethod("URLWithString:", Array(ReportUrl))
    mReporter.SetField("url", url)
End Sub

' Attach custom key/value metadata to every crash report.
Public Sub SetUserInfo(Key As String, Value As String)
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    ' Build or extend the userInfo dict via a helper we define in #if OBJC
    Dim nme As NativeObject = Me
    nme.RunMethod("setUserInfoKey:value:", Array(Key, Value))
End Sub

' Returns True if there are pending crash reports.
Public Sub HasPendingReports As Boolean
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    Return ks.GetField("reportCount").AsNumber > 0
End Sub

' Returns the number of pending crash reports.
Public Sub PendingReportCount As Int
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    Return ks.GetField("reportCount").AsNumber
End Sub

' Returns True if the app crashed on the previous launch.
Public Sub DidCrashLastLaunch As Boolean
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    Return ks.GetField("crashedLastLaunch").AsBoolean
End Sub

' Show a prompt and send reports if the app crashed last time.
' Raises ReportsSent(ReportCount, Success) when done.
' Wrap the call in #if RELEASE ... #End If
Public Sub SendReportsIfNeeded As ResumableSub
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    Dim count As Int = ks.GetField("reportCount").AsNumber
    If count > 0 Then
        Sleep(0)
        Dim sf As Object = xui.Msgbox2Async( _
            "The app crashed last time it was launched. Help us improve by sending a crash report?", _
            "", "Send", "No thanks", "", Null)
        Wait For (sf) Msgbox_Result (Result As Int)
        If Result = xui.DialogResponse_Positive Then
            SendAllReports
        Else
            DeleteAllReports
        End If
    End If
    Return True
End Sub

' Send all pending reports immediately without prompting the user.
' Raises ReportsSent(ReportCount, Success) when done.
Public Sub SendAllReports
    Dim nme As NativeObject = Me
    nme.RunMethod("sendReports:", Array(mReporter))
End Sub

' Delete all pending reports without sending them.
Public Sub DeleteAllReports
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    ks.RunMethod("deleteAllReports", Null)
End Sub

' Enable or disable memory introspection (objects on stack/registers captured at crash time).
Public Sub SetIntrospectMemory(Enabled As Boolean)
    Dim ks As NativeObject
    ks = ks.Initialize("KSCrash").RunMethod("sharedInstance", Null)
    ks.SetField("introspectMemory", Enabled)
End Sub

' -----------------------------------------------------------------------
' Private helpers
' -----------------------------------------------------------------------

Private Sub InstallStandard(ReportUrl As String)
    ' Get the shared Standard installation (HTTP POST)
    mReporter = mReporter.Initialize("CrashInstallationStandard").RunMethod("sharedInstance", Null)

    If ReportUrl.Length > 0 Then
        Dim url As NativeObject
        url = url.Initialize("NSURL").RunMethod("URLWithString:", Array(ReportUrl))
        mReporter.SetField("url", url)
    End If

    ' Install using KSCrash 2.x API: installWithConfiguration:error:
    ' We call the config+install through an inline OBJC helper so we can
    ' pass a KSCrashConfiguration* without needing NativeObject field access.
    Dim nme As NativeObject = Me
    nme.RunMethod("installKSCrash:", Array(mReporter))
End Sub

' Raise the ReportsSent event back to the calling module.
' Called from the inline OBJC completion block via performSelectorOnMainThread.
Private Sub RaiseReportsSentEvent(ReportCount As Int, Success As Boolean)
    Dim nme As NativeObject = mCallbackTarget
    nme.RunMethod(mEventName.ToLowerCase & "_reportssent:success:", Array(ReportCount, Success))
End Sub

#If OBJC
#import <KSCrashRecording/KSCrash.h>
#import <KSCrashRecording/KSCrashConfiguration.h>
#import <KSCrashRecording/KSCrashMonitorType.h>
#import <KSCrashInstallations/CrashInstallationStandard.h>

// Install KSCrash with default monitors (Mach + Signal).
// Called from InstallStandard via NativeObject.RunMethod.
- (void)installKSCrash:(CrashInstallationStandard*)installation {
    KSCrashConfiguration *cfg = [KSCrashConfiguration new];
    cfg.monitors = KSCrashMonitorTypeMachException | KSCrashMonitorTypeSignal;
    NSError *error = nil;
    [installation installWithConfiguration:cfg error:&error];
    if (error) {
        NSLog(@"[KSCrash2] Install error: %@", error.localizedDescription);
    }
}

// Send all pending reports; call back into B4i when done.
- (void)sendReports:(CrashInstallationStandard*)installation {
    [installation sendAllReportsWithCompletion:^(NSArray *reports, BOOL completed, NSError *error) {
        int count = (int)(reports ? reports.count : 0);
        BOOL success = completed && (error == nil);
        if (error) {
            NSLog(@"[KSCrash2] Send error: %@", error.localizedDescription);
        }
        // Raise the B4i event on the main thread
        dispatch_async(dispatch_get_main_queue(), ^{
            [self b4i_raiseReportsSentEventWithCount:count success:success];
        });
    }];
}

// Bridge back to B4i's RaiseReportsSentEvent sub
- (void)b4i_raiseReportsSentEventWithCount:(int)count success:(BOOL)success {
    // Call the B4i Private sub by its generated ObjC selector
    [self raiseReportsSentEvent:count success:success];
}

// Set a single key in KSCrash.sharedInstance.userInfo (merges with existing dict)
- (void)setUserInfoKey:(NSString*)key value:(NSString*)value {
    KSCrash *ks = [KSCrash sharedInstance];
    NSMutableDictionary *info = ks.userInfo
        ? [NSMutableDictionary dictionaryWithDictionary:ks.userInfo]
        : [NSMutableDictionary dictionary];
    info[key] = value;
    ks.userInfo = [info copy];
}
#End If