1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors bitstreams io io.streams.string kernel tools.test
4 grouping compression.lzw multiline byte-arrays io.encodings.binary
5 io.streams.byte-array ;
9 [ B{ 254 } <string-reader> <bitstream-reader> read-bit ] unit-test
12 [ B{ 254 } <string-reader> <bitstream-reader> 8 swap read-bits ] unit-test
15 [ B{ 255 255 } <string-reader> <bitstream-reader> 12 swap read-bits ] unit-test
19 <string-writer> <bitstream-writer> 254 8 rot
20 [ write-bits ] keep stream>> >byte-array
24 [ B{ 255 } binary <byte-reader> <bitstream-reader> 8 swap read-bits ] unit-test
27 [ B{ 255 } binary <byte-reader> <bitstream-reader> 9 swap read-bits ] unit-test