1 ! (c)2010 Joe Groff bsd license
2 USING: alien alien.destructors assocs kernel math math.bitwise
8 SYMBOLS: alien-handle-counter alien-handles ;
10 alien-handle-counter [ 0 ] initialize
11 alien-handles [ H{ } clone ] initialize
13 : biggest-handle ( -- n )
16 : (next-handle) ( -- n )
17 alien-handle-counter [ 1 + biggest-handle bitand dup ] change-global ; inline
19 : next-handle ( -- n )
20 [ (next-handle) dup alien-handles get-global key? ] [ drop ] while ;
24 : <alien-handle> ( object -- int )
25 next-handle [ alien-handles get-global set-at ] keep ; inline
26 : alien-handle> ( int -- object )
27 alien-handles get-global at ; inline
29 : alien-handle? ( int -- ? )
30 alien-handles get-global key? >boolean ; inline
32 : release-alien-handle ( int -- )
33 alien-handles get-global delete-at ; inline
35 DESTRUCTOR: release-alien-handle
37 : <alien-handle-ptr> ( object -- void* )
38 <alien-handle> <alien> ; inline
39 : alien-handle-ptr> ( void* -- object )
40 alien-address alien-handle> ; inline
42 : alien-handle-ptr? ( alien -- ? )
43 alien-address alien-handle? ; inline
45 : release-alien-handle-ptr ( alien -- )
46 alien-address release-alien-handle ; inline
48 DESTRUCTOR: release-alien-handle-ptr