source: project/release/4/modular-crypt/trunk/implementations/blowfish/crypt.scm @ 22216

Last change on this file since 22216 was 22216, checked in by sjamaan, 9 years ago

Add initial code for crypt egg

File size: 416 bytes
Line 
1(foreign-declare "#include \"implementations/blowfish/crypt_blowfish.c\"")
2
3(define (crypt-blowfish password setting)
4  (let ((output (make-string 60)))
5   (if ((foreign-lambda c-pointer "_crypt_blowfish_rn"
6                        c-string c-string scheme-pointer int)
7        password setting output 60)
8       output
9       ;; TODO: implement proper error handling
10       (error "Error running blowfish crypt"))))
Note: See TracBrowser for help on using the repository browser.