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

checksums: simplify add-checksum-bytes.

db4
John Benediktsson 2014-02-17 18:25:51 -08:00
parent d732a5f208
commit 59677102b6
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
core/checksums/checksums.factor
View File

@ -7,7 +7,9 @@ IN: checksums
MIXIN: checksum
TUPLE: checksum-state
{ bytes-read integer } { block-size integer } { bytes byte-vector } ;
{ bytes-read integer }
{ block-size integer }
{ bytes byte-vector } ;
: new-checksum-state ( class -- checksum-state )
new
@ -17,7 +19,7 @@ M: checksum-state clone
call-next-method
[ clone ] change-bytes ;
GENERIC: initialize-checksum-state ( class -- checksum-state )
GENERIC: initialize-checksum-state ( checksum -- checksum-state )
GENERIC: checksum-block ( bytes checksum -- )
@ -27,9 +29,9 @@ GENERIC: get-checksum ( checksum -- value )
over bytes>> [ push-all ] keep
[ dup length pick block-size>> >= ]
[
over block-size>> cut-slice [ >byte-array ] dip [
over [ checksum-block ]
[ [ ] [ block-size>> ] bi [ + ] curry change-bytes-read drop ] bi
over block-size>> cut-slice [
>byte-array over checksum-block
[ block-size>> ] keep [ + ] change-bytes-read
] dip
] while
>byte-vector