             [ output>> push-all ] [ add-to-table ] 2bi
         ] [ code>old-code ] bi
     ] if ;
-    
+
 : lzw-uncompress-char ( lzw -- )
     [ >>code handle-uncompress-code lzw-uncompress-char ]
     lzw-process-next-code ;

! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors combinators io kernel math namespaces
sequences vectors ;
QUALIFIED-WITH: bitstreams bs
IN: compression.lzw


M: tiff-lzw code-space-full? size-and-limit 1 - = ;
M: gif-lzw code-space-full? size-and-limit = ;

GENERIC: increment-code-size ( lzw -- lzw )

M: lzw increment-code-size [ 1 + ] change-code-size ;
M: gif-lzw increment-code-size [ 1 + 12 min ] change-code-size ;

: maybe-increment-code-size ( lzw -- lzw )
    dup code-space-full? [ increment-code-size ] when ;

: add-to-table ( seq lzw -- )
    [ table>> push ]
