(foreign-declare "#include \"implementations/DES/crypt_des.c\"")

(define (crypt-des-extended password setting)
  (let ((output (make-string 20)))
    (if ((foreign-lambda c-pointer "des_crypt"
                         c-string c-string scheme-pointer int)
         password setting output 20)
        output
        ;; TODO: implement proper error handling
        (error "Error running extended DES crypt"))))