guile foreign function crypt example

guile-crypt.scm

(use-modules (system foreign))

(define crypt
  (let ((f (pointer->procedure '* (dynamic-func "crypt" (dynamic-link))
                               (list '* '*))))
    (lambda (key salt)
      (let ((r (f (string->pointer key) (string->pointer salt))))
        (pointer->string r)))))

(simple-format #t "Test: ~s" (crypt "key" "salt"))
(newline)