Paste: please review

Author: sohail
Mode: factor
Date: Sun, 11 Oct 2009 15:15:35
Plain Text | 
: FactorSmokeBound>smoke-binding ( alien -- object )
    [ moduleName>> ] keep
    [ NullModuleIndex>> ] keep
    [ [ classes>> ] keep numClasses>> <direct-Class-array> ] keep
    [ [ methodMaps>> ] keep numMethodMaps>> <direct-MethodMap-array> ] keep
    [ [ methodNames>> ] keep numMethodNames>> <direct-char*-array> ] keep
    [ [ types>> ] keep numTypes>> <direct-Type-array> ] keep
    [ castFn>> ] keep
    [ binding>> ] keep
    smoke>>
    <smoke-binding>
      swap >>smoke
      swap >>binding
      swap >>alien-cast-fn
      swap >>types
      swap >>method-names
      swap >>method-maps
      swap >>classes
      swap >>null-module-index
      swap >>module-name
  ;

Annotation: Using cleave

Author: Sam
Mode: factor
Date: Sun, 11 Oct 2009 17:43:00
Plain Text | 
: FactorSmokeBound>smoke-binding ( alien -- object )
   {
    [ moduleName>> ] 
    [ NullModuleIndex>> ] 
    [ [ classes>> ] keep numClasses>> <direct-Class-array> ] 
    [ [ methodMaps>> ] keep numMethodMaps>> <direct-MethodMap-array> ] 
    [ [ methodNames>> ] keep numMethodNames>> <direct-char*-array> ] 
    [ [ types>> ] keep numTypes>> <direct-Type-array> ] 
    [ castFn>> ] 
    [ binding>> ]
    [ smoke>>
      <smoke-binding>
      swap >>smoke
      swap >>binding
      swap >>alien-cast-fn
      swap >>types
      swap >>method-names
      swap >>method-maps
      swap >>classes
      swap >>null-module-index
      swap >>module-name
    ]
   } cleave ;

Annotation: using 2cleave

Author: blei
Mode: factor
Date: Sun, 11 Oct 2009 17:47:41
Plain Text | 
: FactorSmokeBound>smoke-binding ( alien -- object )
   [ <smoke-binding> ] dip
   {
     [ moduleName>> >>module-name ] 
     [ NullModuleIndex>>  >>null-module-index drop ] 
     [ [ classes>> ] keep numClasses>> <direct-Class-array>  >>classes drop ] 
     [ [ methodMaps>> ] keep numMethodMaps>> <direct-MethodMap-array>  >>method-maps drop ] 
     [ [ methodNames>> ] keep numMethodNames>> <direct-char*-array>  >>method-names drop ] 
     [ [ types>> ] keep numTypes>> <direct-Type-array>  >>types drop ] 
     [ castFn>> >>alien-cast-fn drop ] 
     [ binding>> >>binding drop ]
     [ smoke>> >>smoke ]
    } 2cleave ;

New Annotation

Summary:
Author:
Mode:
Body: