sequence-cursor

Vocabulary

cursors

Definition

USING: math ;

IN: cursors

TUPLE: sequence-cursor
    { seq read-only } { n fixnum read-only initial: 0 } ;

Methods

USING: accessors cursors kernel math ;

M: sequence-cursor cursor+
    [ [ seq>> ] [ n>> ] bi ] dip + <sequence-cursor> ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor-
    [ [ seq>> ] [ n>> ] bi ] dip - <sequence-cursor> ; inline


USING: accessors combinators.short-circuit cursors kernel ;

M: sequence-cursor cursor-compatible?
    { [ [ sequence-cursor? ] both? ] [ [ seq>> ] bi@ eq? ] } 2&&
    ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor-distance [ n>> ] bi@ - ; inline


USING: accessors cursors kernel sequences ;

M: sequence-cursor cursor-key-value
    [ n>> dup ] [ seq>> ] bi nth ; inline


USING: accessors cursors cursors.private kernel
sequences.private ;

M: sequence-cursor cursor-key-value-unsafe
    [ n>> dup ] [ seq>> ] bi nth-unsafe ; inline


USING: accessors cursors kernel sequences ;

M: sequence-cursor cursor-valid?
    [ n>> ] [ seq>> ] bi bounds-check? ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor< [ n>> ] bi@ < ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor<= [ n>> ] bi@ <= ; inline


USING: accessors cursors kernel ;

M: sequence-cursor cursor= [ n>> ] bi@ = ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor> [ n>> ] bi@ > ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor cursor>= [ n>> ] bi@ >= ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor dec-cursor
    [ seq>> ] [ n>> ] bi 1 - <sequence-cursor> ; inline


USING: accessors cursors kernel math ;

M: sequence-cursor inc-cursor
    [ seq>> ] [ n>> ] bi 1 + <sequence-cursor> ; inline


USING: accessors cursors kernel sequences ;

M: sequence-cursor set-cursor-value
    [ n>> ] [ seq>> ] bi set-nth ; inline


USING: accessors cursors cursors.private kernel
sequences.private ;

M: sequence-cursor set-cursor-value-unsafe
    [ n>> ] [ seq>> ] bi set-nth-unsafe ; inline