2008-11-08 Moritz <moritz@gnu.org>
authorMoritz Schulte <mo@g10code.com>
Sun, 23 Nov 2008 18:09:57 +0000 (18:09 +0000)
committerMoritz Schulte <mo@g10code.com>
Sun, 23 Nov 2008 18:09:57 +0000 (18:09 +0000)
* gpgme.lisp (size-t): Wrong call to defctype: function accepts
optional, not keyword argument.
(ssize-t): Likewise.
(off-t): Likewise.
(gpgme-data-t, gpgme-ctx-t): Likewise.
(gpgme-error-t): Likewise.
(gpgme-error-no-signal-t): Likewise.
(gpgme-err-code-t): Likewise.
(gpgme-err-source-t): Likewise.
(gpgme-sig-notation-t, gpgme-engine-info-t): Likewise.
(gpgme-subkey-t): Likewise.
(gpgme-key-sig-t): Likewise.
(gpgme-user-id-t): Likewise.
(gpgme-key-t): Likewise.
(gpgme-data-cbs-t): Likewise.
(gpgme-invalid-key-t): Likewise.
(gpgme-op-encrypt-result-t): Likewise.
(gpgme-recipient-t): Likewise.
(gpgme-op-decrypt-result-t): Likewise.
(gpgme-new-signature-t): Likewise.
(gpgme-op-sign-result-t): Likewise.
(gpgme-signature-t): Likewise.
(gpgme-op-verify-result-t): Likewise.
(gpgme-import-status-t): Likewise.
(gpgme-op-import-result-t): Likewise.
(gpgme-op-genkey-result-t): Likewise.
(gpgme-op-keylist-result-t): Likewise.

lang/cl/ChangeLog
lang/cl/gpgme.lisp

index 6862273..5aadfeb 100644 (file)
@@ -1,3 +1,33 @@
+2008-11-08  Moritz  <moritz@gnu.org>
+
+       * gpgme.lisp (size-t): Wrong call to defctype: function accepts
+       optional, not keyword argument.
+       (ssize-t): Likewise.
+       (off-t): Likewise.
+       (gpgme-data-t, gpgme-ctx-t): Likewise.
+       (gpgme-error-t): Likewise.
+       (gpgme-error-no-signal-t): Likewise.
+       (gpgme-err-code-t): Likewise.
+       (gpgme-err-source-t): Likewise.
+       (gpgme-sig-notation-t, gpgme-engine-info-t): Likewise.
+       (gpgme-subkey-t): Likewise.
+       (gpgme-key-sig-t): Likewise.
+       (gpgme-user-id-t): Likewise.
+       (gpgme-key-t): Likewise.
+       (gpgme-data-cbs-t): Likewise.
+       (gpgme-invalid-key-t): Likewise.
+       (gpgme-op-encrypt-result-t): Likewise.
+       (gpgme-recipient-t): Likewise.
+       (gpgme-op-decrypt-result-t): Likewise.
+       (gpgme-new-signature-t): Likewise.
+       (gpgme-op-sign-result-t): Likewise.
+       (gpgme-signature-t): Likewise.
+       (gpgme-op-verify-result-t): Likewise.
+       (gpgme-import-status-t): Likewise.
+       (gpgme-op-import-result-t): Likewise.
+       (gpgme-op-genkey-result-t): Likewise.
+       (gpgme-op-keylist-result-t): Likewise.
+
 2006-07-06  Marcus Brinkmann  <marcus@g10code.de>
 
        * Initial release.
index cb536fa..74cb9ed 100644 (file)
 
 ; FIXME: Use cffi-grovel?  cffi-unix?
 
-(defctype size-t :unsigned-int
-  :documentation "The system size_t type.")
+(defctype size-t :unsigned-int "The system size_t type.")
 
-(defctype ssize-t :int
-  :documentation "The system ssize_t type.")
+(defctype ssize-t :int "The system ssize_t type.")
 
 ; FIXME: Ouch.  Grovel?  Helper function?
 (defconstant +seek-set+ 0)
 (defconstant +seek-cur+ 1)
 (defconstant +seek-end+ 2)
-(defctype off-t :long-long
-  :documentation "The system off_t type.")
+(defctype off-t :long-long "The system off_t type.")
 
 (defcfun ("strerror" c-strerror) :string
   (err :int))
 
 ;;; Some opaque data types used by GPGME.
 
-(defctype gpgme-ctx-t :pointer
-  :documentation "The GPGME context type.")
+(defctype gpgme-ctx-t :pointer "The GPGME context type.")
 
-(defctype gpgme-data-t :pointer
-  :documentation "The GPGME data object type.")
+(defctype gpgme-data-t :pointer "The GPGME data object type.")
 
 ;;; Wrappers for the libgpg-error library.
 
-(defctype gpgme-error-t gpg-error::gpg-error-t
-  :documentation "The GPGME error type.")
+(defctype gpgme-error-t gpg-error::gpg-error-t "The GPGME error type.")
 
 (defctype gpgme-error-no-signal-t gpg-error::gpg-error-t
-  :documentation "The GPGME error type (this version does not
-  signal conditions in translation.")
+  "The GPGME error type (this version does not signal conditions in translation.")
 
 (defctype gpgme-err-code-t gpg-error::gpg-err-code-t
-  :documentation "The GPGME error code type.")
+  "The GPGME error code type.")
 
 (defctype gpgme-err-source-t gpg-error::gpg-err-source-t
-  :documentation "The GPGME error source type.")
+  "The GPGME error source type.")
 
 (defun gpgme-err-make (source code)
   "Construct an error value from an error code and source."
   (:critical 2))
 
 (defctype gpgme-sig-notation-t :pointer
-  :documentation "Signature notation pointer type.")
+  "Signature notation pointer type.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-sig-notation-bitfield :unsigned-int)
 ;;;
 
 (defctype gpgme-engine-info-t :pointer
-  :documentation "The engine information structure pointer type.")
+  "The engine information structure pointer type.")
 
 (defcstruct gpgme-engine-info
   "Engine information."
 
 ;;;
 
-(defctype gpgme-subkey-t :pointer
-  :documentation "A subkey from a key.")
+(defctype gpgme-subkey-t :pointer "A subkey from a key.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-subkey-bitfield :unsigned-int)
 
 
 (defctype gpgme-key-sig-t :pointer
-  :documentation "A signature on a user ID.")
+  "A signature on a user ID.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-key-sig-bitfield :unsigned-int)
 
 
 (defctype gpgme-user-id-t :pointer
-  :documentation "A user ID from a key.")
+  "A user ID from a key.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-user-id-bitfield :unsigned-int)
 
 
 (defctype gpgme-key-t :pointer
-  :documentation "A key from the keyring.")
+  "A key from the keyring.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-key-bitfield :unsigned-int)
   (release gpgme-data-release-cb-t))
 
 (defctype gpgme-data-cbs-t :pointer
-  :documentation "Data callbacks pointer.")
+  "Data callbacks pointer.")
 
 (defcfun ("gpgme_data_read" c-gpgme-data-read) ssize-t
   (dh gpgme-data-t)
 ;;;
 
 (defctype gpgme-invalid-key-t :pointer
-  :documentation "An invalid key structure.")
+  "An invalid key structure.")
 
 (defcstruct gpgme-invalid-key
   "An invalid key structure."
   (invalid-recipients gpgme-invalid-key-t))
 
 (defctype gpgme-op-encrypt-result-t :pointer
-  :documentation "An encryption result structure.")
+  "An encryption result structure.")
 
 (defcfun ("gpgme_op_encrypt_result" c-gpgme-op-encrypt-result)
     gpgme-op-encrypt-result-t
 ;;; Decryption.
 
 (defctype gpgme-recipient-t :pointer
-  :documentation "A recipient structure.")
+  "A recipient structure.")
 
 (defcstruct gpgme-recipient
   "Recipient structure."
   (file-name :string))
 
 (defctype gpgme-op-decrypt-result-t :pointer
-  :documentation "A decryption result structure.")
+  "A decryption result structure.")
 
 (defcfun ("gpgme_op_decrypt_result" c-gpgme-op-decrypt-result)
     gpgme-op-decrypt-result-t
 ;;; Signing.
 
 (defctype gpgme-new-signature-t :pointer
-  :documentation "A new signature structure.")
+  "A new signature structure.")
 
 (defcstruct gpgme-new-signature
   "New signature structure."
   (signatures gpgme-new-signature-t))
 
 (defctype gpgme-op-sign-result-t :pointer
-  :documentation "A signing result structure.")
+  "A signing result structure.")
 
 (defcfun ("gpgme_op_sign_result" c-gpgme-op-sign-result)
     gpgme-op-sign-result-t
   (:sys-error #x0800))
 
 (defctype gpgme-signature-t :pointer
-  :documentation "A signature structure.")
+  "A signature structure.")
 
 ;; FIXME: Doesn't this depend on endianess?
 (defbitfield (gpgme-signature-bitfield :unsigned-int)
   (file-name :string))
 
 (defctype gpgme-op-verify-result-t :pointer
-  :documentation "A verify result structure.")
+  "A verify result structure.")
 
 (defcfun ("gpgme_op_verify_result" c-gpgme-op-verify-result)
     gpgme-op-verify-result-t
   (:secret #x0010))
 
 (defctype gpgme-import-status-t :pointer
-  :documentation "An import status structure.")
+  "An import status structure.")
 
 (defcstruct gpgme-import-status
   "New import status structure."
   (imports gpgme-import-status-t))
 
 (defctype gpgme-op-import-result-t :pointer
-  :documentation "An import status result structure.")
+  "An import status result structure.")
 
 (defcfun ("gpgme_op_import_result" c-gpgme-op-import-result)
     gpgme-op-import-result-t
   (fpr :string))
 
 (defctype gpgme-op-genkey-result-t :pointer
-  :documentation "A key generation result structure.")
+  "A key generation result structure.")
 
 (defcfun ("gpgme_op_genkey_result" c-gpgme-op-genkey-result)
     gpgme-op-genkey-result-t
   (bitfield gpgme-keylist-flags-t))
 
 (defctype gpgme-op-keylist-result-t :pointer
-  :documentation "A key listing result structure.")
+  "A key listing result structure.")
 
 (defcfun ("gpgme_op_keylist_result" c-gpgme-op-keylist-result)
     gpgme-op-keylist-result-t