linked-assoc
Factor handbook » The language » Collections » Linked assocs

Next:

<linked-hash> ( -- assoc )

Vocabulary
linked-assocs

Class description
The class of linked assocs. Linked assoc are implemented by combining an assoc with a dlist. The assoc is used for lookup and retrieval of single values, while the dlist is used for getting lists of keys/values, which will be in insertion order.

Definition

USING: dlists ;

IN: linked-assocs

TUPLE: linked-assoc
    { assoc read-only } { dlist dlist read-only initial: DL{ } }
    ;

Methods

USING: accessors assocs dlists linked-assocs ;

M: linked-assoc >alist dlist>> dlist>sequence ;


USING: accessors assocs classes kernel linked-assocs ;

M: linked-assoc assoc-like
    over linked-assoc?
    [ 2dup [ assoc>> ] bi@ class-of instance? ] [ f ] if
    [ drop ] [ assoc>> <linked-assoc> swap assoc-union! ] if ;


USING: accessors assocs linked-assocs ;

M: linked-assoc assoc-size assoc>> assoc-size ;


USING: accessors assocs kernel linked-assocs sequences.private ;

M: linked-assoc at*
    assoc>> at* [ [ obj>> second-unsafe ] when ] keep ;


USING: accessors assocs deques kernel linked-assocs ;

M: linked-assoc clear-assoc
    [ assoc>> clear-assoc ] [ dlist>> clear-deque ] bi ;


USING: accessors kernel linked-assocs ;

M: linked-assoc clone
    [ assoc>> clone ] [ dlist>> clone ] bi linked-assoc boa ;


USING: accessors assocs kernel linked-assocs
linked-assocs.private ;

M: linked-assoc delete-at
    [ assoc>> ] [ dlist>> ] bi (delete-at) ;


USING: combinators.extras kernel linked-assocs yaml.conversion
yaml.private ;

M: linked-assoc emit-value
    [ drop YAML_OMAP_TAG f emit-sequence-start ]
    [ nip emit-linked-assoc-body ] [ 2drop emit-sequence-end ]
    4tri ;


USING: accessors kernel linked-assocs ;

M: linked-assoc equal?
    over linked-assoc? [ [ dlist>> ] bi@ = ] [ 2drop f ] if ;


USING: accessors assocs dlists kernel linked-assocs ;

M: linked-assoc new-assoc
    assoc>> new-assoc <dlist> linked-assoc boa ;


USING: accessors assocs kernel linked-assocs
linked-assocs.private ;

M: linked-assoc set-at
    [ assoc>> ] [ dlist>> ] bi
    [ 2over key? [ 3dup (delete-at) ] when nip add-to-dlist ]
    curry [ set-at ] 2bi ;