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

checksums: speedup add-checksum-bytes by using the slice.

db4
John Benediktsson 2015-12-30 09:40:58 -08:00
parent 7ddc074294
commit 90ac4ab9f6
1 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
core/checksums/checksums.factor
View File

@ -21,16 +21,16 @@ M: checksum-state clone
GENERIC: initialize-checksum-state ( checksum -- checksum-state ) GENERIC: initialize-checksum-state ( checksum -- checksum-state )
GENERIC: checksum-block ( bytes checksum -- ) GENERIC: checksum-block ( bytes checksum-state -- )
GENERIC: get-checksum ( checksum -- value ) GENERIC: get-checksum ( checksum-state -- value )
: add-checksum-bytes ( checksum-state data -- checksum-state ) : add-checksum-bytes ( checksum-state data -- checksum-state )
over bytes>> [ push-all ] keep over bytes>> [ push-all ] keep
[ dup length pick block-size>> >= ] [ dup length pick block-size>> >= ]
[ [
over block-size>> cut-slice [ over block-size>> cut-slice [
>byte-array over checksum-block over checksum-block
[ block-size>> ] keep [ + ] change-bytes-read [ block-size>> ] keep [ + ] change-bytes-read
] dip ] dip
] while ] while
@ -38,9 +38,7 @@ GENERIC: get-checksum ( checksum -- value )
[ >>bytes ] [ length [ + ] curry change-bytes-read ] bi ; [ >>bytes ] [ length [ + ] curry change-bytes-read ] bi ;
: add-checksum-stream ( checksum-state stream -- checksum-state ) : add-checksum-stream ( checksum-state stream -- checksum-state )
[ [ [ add-checksum-bytes ] each-block ] with-input-stream ;
[ [ swap add-checksum-bytes drop ] curry each-block ] keep
] with-input-stream ;
: add-checksum-file ( checksum-state path -- checksum-state ) : add-checksum-file ( checksum-state path -- checksum-state )
normalize-path (file-reader) add-checksum-stream ; normalize-path (file-reader) add-checksum-stream ;