1 ! Copyright (C) 2011 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: accessors assocs hashtables hashtables.wrapped kernel
5 math parser sequences vocabs.loader ;
7 IN: hashtables.sequences
11 TUPLE: sequence-wrapper
12 { underlying sequence read-only } ;
14 C: <sequence-wrapper> sequence-wrapper
16 M: sequence-wrapper equal?
17 over sequence-wrapper?
18 [ [ underlying>> ] bi@ sequence= ]
19 [ 2drop f ] if ; inline
21 M: sequence-wrapper hashcode*
22 underlying>> [ sequence-hashcode ] recursive-hashcode ; inline
26 TUPLE: sequence-hashtable < wrapped-hashtable ;
28 : <sequence-hashtable> ( n -- shashtable )
29 <hashtable> sequence-hashtable boa ; inline
31 M: sequence-hashtable wrap-key drop <sequence-wrapper> ;
33 M: sequence-hashtable clone
34 underlying>> clone sequence-hashtable boa ; inline
36 : >sequence-hashtable ( assoc -- shashtable )
37 [ assoc-size <sequence-hashtable> ] keep assoc-union! ;
39 M: sequence-hashtable new-assoc drop <sequence-hashtable> ;
41 SYNTAX: SH{ \ } [ >sequence-hashtable ] parse-literal ;
43 { "hashtables.sequences" "prettyprint" } "hashtables.sequences.prettyprint" require-when