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

checksums.openssl: refactor checksum-stream and checksum-bytes

char-rename
Alexander Iljin 2016-06-28 09:11:56 +03:00 committed by John Benediktsson
parent 54b80a4223
commit 14f6f920ea
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
basis/checksums/openssl/openssl.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008, 2010, 2016 Slava Pestov, Alexander Ilin ! Copyright (C) 2008, 2010, 2016 Slava Pestov, Alexander Ilin
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors alien.c-types alien.data checksums USING: accessors alien.c-types alien.data checksums
checksums.stream destructors io kernel openssl openssl.libcrypto checksums.stream destructors fry io kernel openssl openssl.libcrypto
sequences ; sequences ;
IN: checksums.openssl IN: checksums.openssl
@ -35,6 +35,9 @@ M: evp-md-context dispose*
: set-digest ( name ctx -- ) : set-digest ( name ctx -- )
handle>> swap digest-named f EVP_DigestInit_ex ssl-error ; handle>> swap digest-named f EVP_DigestInit_ex ssl-error ;
: checksum-method ( data checksum method: ( ctx data -- ctx' ) -- value )
[ initialize-checksum-state ] dip '[ swap @ get-checksum ] with-disposal ; inline
PRIVATE> PRIVATE>
M: openssl-checksum initialize-checksum-state ( checksum -- evp-md-context ) M: openssl-checksum initialize-checksum-state ( checksum -- evp-md-context )
@ -50,7 +53,7 @@ M: evp-md-context get-checksum ( ctx -- value )
memory>byte-array ; memory>byte-array ;
M: openssl-checksum checksum-bytes ( bytes checksum -- value ) M: openssl-checksum checksum-bytes ( bytes checksum -- value )
initialize-checksum-state [ swap add-checksum-bytes get-checksum ] with-disposal ; [ add-checksum-bytes ] checksum-method ;
M: openssl-checksum checksum-stream ( stream checksum -- value ) M: openssl-checksum checksum-stream ( stream checksum -- value )
initialize-checksum-state [ swap add-checksum-stream get-checksum ] with-disposal ; [ add-checksum-stream ] checksum-method ;