import-objc-class ( name quot -- )

Vocabulary

cocoa.messages

Inputs

name	a string
quot	a quotation with stack effect ( -- )

Outputs

None

Word description

If a class named name is already known to the Objective C interface, does nothing. Otherwise, first calls the quotation. The quotation should make the class available to the Objective C runtime if necessary, either by loading a framework or defining it directly. After the quotation returns, this word makes the class available to Factor programs by importing methods and creating a class word the class object in the cocoa.classes vocabulary.

Definition

USING: cocoa.runtime combinators kernel ;

IN: cocoa.messages

: import-objc-class ( name quot -- )
    2dup swap define-objc-class-word over class-exists?
    [ drop ] [ ( -- ) call-effect ] if dup class-exists? [
        [ objc_getClass register-objc-methods ]
        [ objc_getMetaClass register-objc-methods ] bi
    ] [ drop ] if ;