6

我正在使用 Racket Objective-C FFI 在应用程序中嵌入 WebKit WebView。

为了接收页面加载通知，我在 Racket 中创建了一个新的 ObjC 类，该类被设置为 web 视图的帧加载委托。

该类看起来像：

(define-objc-class MyWebFrameLoadDelegate NSObject
  []
  (- _void (webView: [_id wv] didFinishLoadForFrame: [_id wf])
    (send frame set-status-text "Page Loaded")))

在 DrRacket 中运行代码时，它第一次运行良好。进一步的迭代会导致进程终止：

Exception Type:  EXC_BAD_ACCESS (SIGSEGV)
Exception Codes: KERN_INVALID_ADDRESS at 0x0000000000000020
...
Thread 0 Crashed:: Dispatch queue: com.apple.main-thread
0   libobjc.A.dylib                 0x00007fff8511e299 objc_registerClassPair + 63
1   Racket                          0x00000001002d329c ffi_call_unix64 + 76
2   Racket                          0x00000001002d3eb4 ffi_call + 644
3   Racket                          0x00000001002c612f ffi_do_call + 1599
4   ???                             0x00000001004b50cc 0 + 4299903180
...

...这似乎表明原因是重新定义了 ObjC 类。

是否有使用 FFI 或更通用的 Racket 功能的干净方法来避免重新定义已经存在的类？

我尝试用条件包装define-objc-class，但它必须是顶级形式。

我可以下拉到原始的 ObjC 运行时函数并动态定义委托类 - 但最好避免这种情况。

解决方案 - 将define-objc-classa包装起来以在let条件内的嵌套范围内定义类：

(define MyWebFrameLoadDelegate
  (or (objc_lookUpClass "MyWebFrameLoadDelegate")
      (let ()
        (define-objc-class  MyWebFrameLoadDelegate NSObject
          []
          (- _void (webView: [_id wv] didFinishLoadForFrame: [_id wf])
             (send frame set-status-text "Page Loaded")))
        MyWebFrameLoadDelegate)))
4

2 回答 2

4

我不认为define-obj-class必须在顶级使用。但是，它是一种定义形式，因此您不能将其用作表达式。您应该能够执行以下操作：

(define MyClass
  (or ___ ;; find the class, if it already exists
      (let ()
        (define-objc-class MyClass ___)
        MyClass)))

顺便说一句，看起来对崩溃行为的修复是在 3 月 7 日提交的。

于 2013-03-11T20:28:14.640 回答
1

以防万一你错过了：

https://github.com/shekari/racket-webkit/blob/master/webkit.rkt

享受，

于 2013-03-11T21:46:55.820 回答