steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

compression.lzw: additional refactoring

db4
Keith Lazuka 2009-09-26 22:09:58 -04:00
parent f5c4fbb10c
commit 47c2864de3
1 changed files with 3 additions and 4 deletions
basis/compression/lzw

7
basis/compression/lzw/lzw.factor
View File

@ -55,11 +55,10 @@ ERROR: not-in-table value ;
GENERIC: code-space-full? ( lzw -- ? ) GENERIC: code-space-full? ( lzw -- ? )
M: tiff-lzw code-space-full? : size-and-limit ( lzw -- m n ) [ table>> length ] [ code-size>> 2^ ] bi ;
[ table>> length ] [ code-size>> 2^ 1 - ] bi = ;
M: gif-lzw code-space-full? M: tiff-lzw code-space-full? size-and-limit 1 - = ;
[ table>> length ] [ code-size>> 2^ ] bi = ; M: gif-lzw code-space-full? size-and-limit = ;
: maybe-increment-code-size ( lzw -- lzw ) : maybe-increment-code-size ( lzw -- lzw )
dup code-space-full? [ [ 1 + ] change-code-size ] when ; dup code-space-full? [ [ 1 + ] change-code-size ] when ;