! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators io kernel math math.order
-namespaces sequences vectors ;
+USING: accessors combinators kernel math math.order
+sequences vectors ;
QUALIFIED-WITH: bitstreams bs
IN: compression.lzw
TUPLE: gif-lzw < lzw ;
: initial-uncompress-table ( size -- seq )
- iota [ 1vector ] V{ } map-as ;
+ <iota> [ 1vector ] V{ } map-as ;
: reset-lzw-uncompress ( lzw -- lzw )
dup end-of-information-code>> 1 + initial-uncompress-table >>table
: <lzw-uncompress> ( input code-size class -- obj )
new
- swap [ throw-code-size-zero ] when-zero >>code-size
+ swap [ code-size-zero ] when-zero >>code-size
dup code-size>> >>initial-code-size
dup code-size>> 1 - 2^ >>clear-code
dup clear-code>> 1 + >>end-of-information-code