fifo-cache

Vocabulary

lru-cache

Definition

USING: linked-assocs ;

IN: lru-cache

TUPLE: fifo-cache < linked-assoc max-size ;

Methods

USING: accessors kernel lru-cache ;

M: fifo-cache clone
    [ assoc>> clone ] [ dlist>> clone ] [ max-size>> ] tri
    fifo-cache boa ;


USING: accessors assocs deques generic kernel
linked-assocs.private lru-cache math sequences.private ;

M: fifo-cache set-at
    [ M\ fifo-cache set-at (call-next-method) ] keep
    dup max-size>> [
        over assoc>> assoc-size < [
            [ dlist>> pop-front first-unsafe ] [ assoc>> ]
            [ dlist>> ] tri (delete-at)
        ] [ drop ] if
    ] [ drop ] if* ;