factor/basis/alien/destructors/destructors.factor

! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: functors destructors accessors kernel parser words
effects generalizations sequences ;
IN: alien.destructors

SLOT: alien

FUNCTOR: define-destructor ( F -- )

F-destructor DEFINES-CLASS ${F}-destructor
<F-destructor> DEFINES <${F}-destructor>
&F DEFINES &${F}
|F DEFINES |${F}
N [ F stack-effect out>> length ]

WHERE

TUPLE: F-destructor < disposable alien ;

: <F-destructor> ( alien -- destructor )
    F-destructor new-disposable swap >>alien ; inline

M: F-destructor dispose* alien>> F N ndrop ;

: &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline

: |F ( alien -- alien ) dup <F-destructor> |dispose drop ; inline

;FUNCTOR

SYNTAX: DESTRUCTOR: scan-word define-destructor ;