match-length ( i previous bytes -- n )


Vocabulary
compression.deflate.private

Inputs
ian object
previousan object
bytesan object


Outputs
nan object


Definition
USING: kernel math math.order sequences ;

IN: compression.deflate.private

:: match-length ( i previous bytes -- n )
0 :> n! bytes length i - 258 min :> limit [
n limit <
[ i n + bytes nth previous n + bytes nth = ] [ f ] if
] [ n 1 + n! ] while n ;