Gauche-_gpgme

Gauche-_gpgme is a GPGME biding for Gauche.

Download: Gauche-_gpgme-1.1.4.tgz (2018-12-21)

History

• 2017-7-16 version 1.0 First release
• 2017-9-12 version 1.0.1 Add manual
• 2018-3-8 version 1.1.0 Partially support for GnuPG 2.1 or later
• 2018-3-13 version 1.1.1 Add English manual
• 2018-7-21 version 1.1.2 Fix iteration problem
• 2018-9-1 version 1.1.3 Fix binary output problem
• 2018-12-21 version 1.1.4 Can compile on Gauche 0.9.7

Example

(use crypt.gpgme)
(use gauche.collection)

(init-gpgme)

(define (passphrase-cb opaque uid-hint passphrase-info last-was-bad oport)
  (format oport "foobar\n")
  0)

(call-with-gpgme-context
 (^(ctx)
   (with-gpgme-armor
    ctx
    (guard
        (exc
         [(gpgme-error? exc)
          (format #t "~a~a\n"
                  (gpgme-error-debug-info exc)
                  (gpgme-error-reason exc))])
      (let ([encrypt-string "Encrypt string.\n"]
            [out (open-output-string)])

        ;;; Using key
        (gpgme-encrypt-string ctx encrypt-string '("foo@hoge.com")
                              GPGME-ENCRYPT-ALWAYS-TRUST
                              :passphrase-cb passphrase-cb
                              :oport out)
        (format #t "Encrypt string [~a]\n" (get-output-string out))
        (format #t "\nDecrypt\n")
        (gpgme-decrypt-string ctx (get-output-string out)
                              :passphrase-cb passphrase-cb))))))