factor/library/cocoa/callback.factor

IN: objc-FactorCallback
DEFER: FactorCallback

IN: cocoa
USING: hashtables kernel namespaces objc objc-NSObject ;

SYMBOL: callbacks

: reset-callbacks ( -- )
    H{ } clone callbacks set-global ;

reset-callbacks

"NSObject" "FactorCallback" {
    { "perform:" "void" { "id" "SEL" "id" }
        [ 2drop callbacks get hash call ]
    }
    
    { "dealloc" "void" { "id" "SEL" }
        [
            drop
            dup callbacks get remove-hash
            SUPER-> [dealloc]
        ]
    }
} { } define-objc-class

: <FactorCallback> ( quot -- id | quot: id -- )
    FactorCallback [alloc] [init]
    [ callbacks get set-hash ] keep ;