suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

jc

Browse Source 
svn: r14408
This commit is contained in:
Jay McCarthy 2009-04-02 21:01:55 +00:00
parent 0d7285a925
commit 57ebe66905
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/web-server/stuffers/hmac-sha1.ss
View File

@ -15,11 +15,11 @@
(ffi-lib libcrypto-so '("" "0.9.8b" "0.9.8" "0.9.7")))
(define EVP_SHA1
(get-ffi-obj 'EVP_sha1 libcrypto-so
(get-ffi-obj 'EVP_sha1 libcrypto
(_fun f-> _fpointer)))
(define HMAC-SHA1/raw
(get-ffi-obj 'HMAC libcrypto-so
(get-ffi-obj 'HMAC libcrypto
(_fun [EVP_MD : _fpointer = (EVP_SHA1)]
[key : _bytes]
[key_len : _int = (bytes-length key)]