;; (require "PARSE-FFI")
;; (ccl::parse-standard-ffi-files :gpg)
(use-interface-dir :gpg)
(open-shared-library "home:gnupg-1.4.19/g10/gpg")

(with-cstrs ((name "gpgv"))
  (#_log_set_name name))
(#_init_signals)
(#_tty_no_terminal 1)
(#_tty_batchmode 1)

(setf #$g10_opt_homedir (#_default_homedir))

(setf (pref #$opt #>G10_OPT.command_fd) -1
      (pref #$opt #>G10_OPT.pgp2_workarounds) 1
      (pref #$opt #>G10_OPT.keyserver_options.options)
      #$KEYSERVER_AUTO_KEY_RETRIEVE
      (pref #$opt #>G10_OPT.trust_model) #$TM_ALWAYS
      (pref #$opt #>G10_OPT.batch) 1
      (pref #$opt #>G10_OPT.homedir) (#_default_homedir))

(with-cstrs ((kdb "pubring.gpg"))
  (#_keydb_add_resource kdb 8 0))

(with-cstrs ((filename "home:foo.txt.gpg"))
  (rlet ((ptr (:* (:* char))))
    (setf (%get-ptr ptr) filename)
    (#_verify_signatures 1 ptr)))