/
githubmirror
/
gpgme
Обзор
Документация
Войти
/
githubmirror
/
gpgme
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
lang/cl/README
57 строк
1 KB
Guillaume LE VAILLANT
cl: Several fixes
12 окт 2018, 10:02
Не верифицирован
12 окт 2018, 10:02
85d7af8
Код
Авторство
О чём код?
Common Lisp Support for GPGME ----------------------------- Requirements: ASDF Packaging Support CFFI Foreign Function Interface trivial-garbage Finalizers gpg-error GPG Error Codes Use with: > (asdf:load-system "gpgme") Examples -------- (with-open-file (out "/tmp/myout" :direction :output :if-exists :supersede :element-type '(unsigned-byte 8)) (with-context (ctx) (setf (armorp ctx) t) (op-export ctx "DEADBEEF" out))) (with-context (ctx) (with-output-to-string (out) (setf (armorp ctx) t) (op-export ctx "McTester" out))) (gpgme:with-context (ctx :armor t) (with-output-to-string (out) (gpgme:op-export ctx "McTester" out))) (gpgme:with-context (ctx :armor t) (let ((recipient1 (gpgme:get-key ctx "DEADBEEF")) (recipient2 (gpgme:get-key ctx "Alice")) (message "Hello, world!")) (with-output-to-string (out) (with-input-from-string (in message) (gpgme:op-encrypt ctx (vector recipient1 recipient2) in out))))) (gpgme:with-context (ctx :armor t) (let ((message "Hello, world!")) (with-output-to-string (out) (with-input-from-string (in message) (gpgme:op-sign ctx in out))))) TODO ---- * When GPGME defines macros for include cert values -2, -1, 0 and 1, define lisp macros for them as well. *