linear-cursor

Vocabulary

cursors

Definition

IN: cursors

TUPLE: linear-cursor < numeric-cursor { delta read-only } ;

Methods

USING: accessors cursors kernel math ;

M: linear-cursor cursor+
    [ [ value>> ] [ delta>> ] bi ] dip [ * + ] keep
    <linear-cursor> ; inline


USING: accessors cursors kernel math ;

M: linear-cursor cursor-
    [ [ value>> ] [ delta>> ] bi ] dip [ * - ] keep
    <linear-cursor> ; inline


USING: cursors kernel ;

M: linear-cursor cursor-compatible? [ linear-cursor? ] both?
    ; inline


USING: accessors cursors kernel math ;

M: linear-cursor cursor-distance
    [ [ value>> ] bi@ - ] [ nip delta>> ] 2bi up/i ; inline


USING: accessors cursors kernel math ;

M: linear-cursor dec-cursor
    [ value>> ] [ delta>> ] bi [ - ] keep <linear-cursor> ;
    inline


USING: accessors cursors kernel math ;

M: linear-cursor inc-cursor
    [ value>> ] [ delta>> ] bi [ + ] keep <linear-cursor> ;
    inline