basis/alien/destructors/destructors.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors destructors effects functors generalizations
   4 kernel parser sequences ;
   5 IN: alien.destructors
   6
   7 TUPLE: alien-destructor alien ;
   8
   9 <FUNCTOR: define-destructor ( F -- )
  10
  11 F-destructor DEFINES-CLASS ${F}-destructor
  12 <F-destructor> DEFINES <${F}-destructor>
  13 &F DEFINES &${F}
  14 |F DEFINES |${F}
  15 N [ F stack-effect out>> length ]
  16
  17 WHERE
  18
  19 TUPLE: F-destructor < alien-destructor ;
  20
  21 : <F-destructor> ( alien -- destructor )
  22     F-destructor boa ; inline
  23
  24 M: F-destructor dispose alien>> F N ndrop ;
  25
  26 : &F ( alien -- alien ) dup <F-destructor> &dispose drop ; inline
  27
  28 : |F ( alien -- alien ) dup <F-destructor> |dispose drop ; inline
  29
  30 ;FUNCTOR>
  31
  32 SYNTAX: DESTRUCTOR: scan-word define-destructor ;