basis/hashtables/sequences/sequences.factor

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