1 ! Copyright (C) 2008, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel assocs accessors summary hashtables ;
6 TUPLE: biassoc from to ;
8 : <biassoc> ( exemplar -- biassoc )
9 [ clone ] [ clone ] bi biassoc boa ;
11 : <bihash> ( -- biassoc )
14 M: biassoc assoc-size from>> assoc-size ;
16 M: biassoc at* from>> at* ; inline
18 M: biassoc value-at* to>> at* ; inline
20 : set-at-once ( value key assoc -- )
21 2dup key? [ 3drop ] [ set-at ] if ;
24 [ from>> set-at ] [ swapd to>> set-at-once ] 3bi ;
26 ERROR: no-biassoc-deletion ;
28 M: no-biassoc-deletion summary
29 drop "biassocs do not support deletion" ;
34 M: biassoc >alist from>> >alist ;
36 M: biassoc keys from>> keys ;
38 M: biassoc values from>> values ;
40 M: biassoc clear-assoc
41 [ from>> clear-assoc ] [ to>> clear-assoc ] bi ;
44 drop [ <hashtable> ] [ <hashtable> ] bi biassoc boa ;
46 INSTANCE: biassoc assoc
48 : >biassoc ( assoc -- biassoc )
49 T{ biassoc } assoc-clone-like ;
52 [ from>> ] [ to>> ] bi [ clone ] bi@ biassoc boa ;