1 ! Copyright (C) 2009 Joe Groff.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors arrays bit-arrays classes
4 classes.tuple.private fry kernel locals math parser
5 sequences sequences.private vectors words ;
12 : <pool> ( size class -- pool )
14 [ '[ _ new ] V{ } replicate-as ] 2bi
17 : pool-size ( pool -- size )
22 :: copy-tuple ( from to -- to )
23 from tuple-size :> size
24 size [| n | n from array-nth n to set-array-nth ] each-integer
27 : (pool-new) ( pool -- object )
28 objects>> [ f ] [ pop ] if-empty ;
30 : (pool-init) ( pool object -- object )
31 [ prototype>> ] dip copy-tuple ; inline
35 : pool-new ( pool -- object )
36 dup (pool-new) [ (pool-init) ] [ drop f ] if* ; inline
38 : pool-free ( object pool -- )
41 : class-pool ( class -- pool )
44 : set-class-pool ( class pool -- )
45 "pool" set-word-prop ;
47 : new-from-pool ( class -- object )
50 : free-to-pool ( object -- )
51 dup class-of class-pool pool-free ;
54 scan-word scan-word '[ _ swap <pool> ] [ swap set-class-pool ] bi ;