inc-cursor ( cursor -- cursor' )

Vocabulary

cursors

Inputs

cursor

an object

Outputs

cursor'

an object

Definition

IN: cursors

GENERIC: inc-cursor ( cursor -- cursor' )

Methods

USING: cursors ;

M: end-of-stream inc-cursor ; inline


USING: cursors kernel ;

M: finite-stream-cursor inc-cursor
    dup cursor-stream-ended? [ drop end-of-stream ] when ;
    inline


USING: accessors cursors cursors.private kernel math ;

M: hash-set-cursor inc-cursor
    [ hash-set>> dup array>> ] [ n>> 1 + ] bi
    (inc-hash-set-cursor) <hash-set-cursor> ; inline


USING: accessors cursors cursors.private kernel math ;

M: hashtable-cursor inc-cursor
    [ hashtable>> dup array>> ] [ n>> 2 + ] bi
    (inc-hashtable-cursor) <hashtable-cursor> ; inline


USING: cursors ;

M: infinite-stream-cursor inc-cursor ; inline


USING: accessors cursors kernel math ;

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


USING: accessors cursors kernel ;

M: map-cursor inc-cursor
    [ from>> inc-cursor ] [ to>> inc-cursor ] bi <map-cursor> ;
    inline


USING: accessors cursors kernel math ;

M: quadratic-cursor inc-cursor
    [ value>> ] [ delta>> [ + ] keep ] [ delta2>> [ + ] keep ]
    tri <quadratic-cursor> ; inline


USING: cursors ;

M: random-access-cursor inc-cursor 1 cursor+ ; inline


USING: accessors cursors kernel math ;

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


USING: accessors cursors kernel ;

M: zip-cursor inc-cursor
    [ keys>> inc-cursor ] [ values>> inc-cursor ] bi
    <zip-cursor> ; inline