backwards-reader - Factor Documentation

IN: tools.image.analyzer.utils

TUPLE: backwards-reader stream ;

USING: accessors destructors tools.image.analyzer.utils ;

M: backwards-reader dispose stream>> dispose ;

USING: accessors io tools.image.analyzer.utils ;

M: backwards-reader stream-element-type
stream>> stream-element-type ;

USING: accessors io tools.image.analyzer.utils ;

M: backwards-reader stream-length stream>> stream-length ;

USING: accessors io math namespaces tools.image.analyzer.utils ;

M:: backwards-reader stream-read-unsafe
( n buf stream -- count )
stream stream>> [
tell-input n + :> pos-after pos-after neg backwards-seek
n buf input-stream get stream-read-unsafe
pos-after backwards-seek
] with-input-stream* ;