wrapped-hashtable

Vocabulary

hashtables.wrapped

Class description

A hashtable that uses wrapped keys to provide a different hashcode implementation.

Definition

USING: hashtables ;

IN: hashtables.wrapped

TUPLE: wrapped-hashtable
    { underlying hashtable read-only initial: H{ } } ;

Methods

USING: accessors assocs hashtables.wrapped kernel sequences ;

M: wrapped-hashtable >alist
    underlying>> >alist
    [ [ 0 swap [ underlying>> ] change-nth ] each ] keep ;


USING: assocs hashtables.wrapped prettyprint.custom ;

M: wrapped-hashtable >pprint-sequence >alist ;


USING: accessors assocs hashtables.wrapped ;

M: wrapped-hashtable assoc-size underlying>> assoc-size ; inline


USING: assocs hashtables.wrapped hashtables.wrapped.private ;

M: wrapped-hashtable at* wrapper@ at* ; inline


USING: accessors assocs hashtables.wrapped ;

M: wrapped-hashtable clear-assoc underlying>> clear-assoc ;
    inline


USING: assocs hashtables.wrapped hashtables.wrapped.private ;

M: wrapped-hashtable delete-at wrapper@ delete-at ; inline


USING: accessors hashtables.wrapped kernel ;

M: wrapped-hashtable equal?
    over wrapped-hashtable?
    [ [ underlying>> ] same? ] [ 2drop f ] if ;


USING: accessors assocs hashtables.wrapped sequences ;

M: wrapped-hashtable keys
    underlying>> keys [ underlying>> ] map! ;


USING: continuations hashtables.wrapped namespaces
prettyprint.config prettyprint.custom ;

M: wrapped-hashtable pprint*
    nesting-limit inc
    [ pprint-object ] [ nesting-limit dec ] finally ;


USING: assocs hashtables.wrapped hashtables.wrapped.private ;

M: wrapped-hashtable set-at wrapper@ set-at ; inline


USING: accessors assocs hashtables.wrapped ;

M: wrapped-hashtable values underlying>> values ;