32 lines
791 B
Factor
32 lines
791 B
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
|
|
|
|
TUPLE: alien-destructor 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 < alien-destructor ;
|
|
|
|
: <F-destructor> ( alien -- destructor )
|
|
F-destructor boa ; 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 ; |