factor/basis/circular/circular.factor

! Copyright (C) 2005, 2006 Alex Chapman, Daniel Ehrenberg
! See http;//factorcode.org/license.txt for BSD license
USING: kernel sequences math sequences.private strings
accessors ;
IN: circular

! a circular sequence wraps another sequence, but begins at an
! arbitrary element in the underlying sequence.
TUPLE: circular seq start ;

: <circular> ( seq -- circular )
    0 circular boa ;

<PRIVATE
: circular-wrap ( n circular -- n circular )
    [ start>> + ] keep
    [ seq>> length rem ] keep ; inline
PRIVATE>

M: circular length seq>> length ;

M: circular virtual@ circular-wrap seq>> ;

M: circular virtual-seq seq>> ;

: change-circular-start ( n circular -- )
    #! change start to (start + n) mod length
    circular-wrap (>>start) ;

: push-circular ( elt circular -- )
    [ set-first ] [ 1 swap change-circular-start ] bi ;

: <circular-string> ( n -- circular )
    0 <string> <circular> ;

INSTANCE: circular virtual-sequence

TUPLE: growing-circular < circular length ;

M: growing-circular length length>> ;

<PRIVATE
: full? ( circular -- ? )
    [ length ] [ seq>> length ] bi = ;

: set-peek ( elt seq -- )
    [ length 1- ] keep set-nth ;
PRIVATE>

: push-growing-circular ( elt circular -- )
    dup full? [ push-circular ]
    [ [ 1+ ] change-length set-peek ] if ;

: <growing-circular> ( capacity -- growing-circular )
    { } new-sequence 0 0 growing-circular boa ;