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

more effective use of byte-arrays

db4
Doug Coleman 2009-06-10 15:50:35 -04:00
parent 38ac04d317
commit 71f0ce5688
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
basis/compression/inflate/inflate.factor
View File

@ -195,16 +195,16 @@ CONSTANT: dist-table
PRIVATE> PRIVATE>
! for debug -- shows residual values ! for debug -- shows residual values
: reverse-png-filter' ( lines -- filtered ) : reverse-png-filter' ( lines -- byte-array )
[ first ] [ 1 tail ] [ map ] bi-curry@ bi nip [ first ] [ 1 tail ] [ map ] bi-curry@ bi nip
concat [ 128 + 256 wrap ] map ; concat [ 128 + ] B{ } map-as ;
: reverse-png-filter ( lines -- filtered ) : reverse-png-filter ( lines -- byte-array )
dup first [ 0 ] replicate prefix dup first [ 0 ] replicate prefix
[ { 0 0 } prepend ] map [ { 0 0 } prepend ] map
2 clump [ 2 clump [
first2 dup [ third ] [ 0 2 rot set-nth ] bi png-unfilter-line first2 dup [ third ] [ 0 2 rot set-nth ] bi png-unfilter-line
] map concat ; ] map B{ } concat-as ;
: zlib-inflate ( bytes -- bytes ) : zlib-inflate ( bytes -- bytes )
bs:<lsb0-bit-reader> bs:<lsb0-bit-reader>