diff --git a/LICENSE b/LICENSE new file mode 100644 --- /dev/null +++ b/LICENSE @@ -0,0 +1,29 @@ +Copyright (c) <2009>, +All rights reserved. + +Redistribution and use in source and binary forms, with or without +modification, are permitted provided that the following conditions are +met: + + * Redistributions of source code must retain the above copyright + notice, this list of conditions and the following disclaimer. + + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + * Neither the name of the author nor the names of contributors + may be used to endorse or promote products derived from this + software without specific prior written permission. + +THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS +"AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT +LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR +A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT +OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, +SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED +TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR +PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF +LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING +NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS +SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. diff --git a/Setup.hs b/Setup.hs new file mode 100644 --- /dev/null +++ b/Setup.hs @@ -0,0 +1,2 @@ +import Distribution.Simple +main = defaultMain diff --git a/bindings-gpgme.cabal b/bindings-gpgme.cabal new file mode 100644 --- /dev/null +++ b/bindings-gpgme.cabal @@ -0,0 +1,48 @@ +cabal-version: >= 1.10 +name: bindings-gpgme +homepage: https://github.com/rethab/bindings-dsl +synopsis: + Project bindings-* raw interface to gpgme +description: + Low level bindings to gpgme, part + of the @bindings-*@ project. See: + . + + . + + . + For a higher-level library, see: + +version: 0.1.8 +license: BSD3 +license-file: LICENSE +maintainer: Reto +author: Maurício C. Antunes +build-type: Simple +category: FFI +bug-reports: https://github.com/rethab/bindings-dsl/issues +library + hs-source-dirs: src + default-language: + Haskell2010 + default-extensions: + ForeignFunctionInterface + build-depends: + base >= 3 && < 5, + bindings-DSL >= 1.0.16 && < 1.1 + exposed-modules: + Bindings.Gpgme + c-sources: + src/inlines.c + includes: + gpgme.h + gpg-error.h + extra-libraries: + gpgme + cc-options: -D_FILE_OFFSET_BITS=64 + +source-repository head + type: git + location: git://github.com/rethab/bindings-dsl + branch: master + subdir: bindings-gpgme diff --git a/src/Bindings/Gpgme.hsc b/src/Bindings/Gpgme.hsc new file mode 100644 --- /dev/null +++ b/src/Bindings/Gpgme.hsc @@ -0,0 +1,670 @@ +#include +#include + +-- | + +module Bindings.Gpgme where +#strict_import + +-- * Basic types +#integral_t off_t +#integral_t ssize_t + +#integral_t gpgme_ctx_t +#integral_t gpgme_data_t + +-- * Errors +#integral_t gpg_error_t +#integral_t gpgme_error_t +#integral_t gpg_err_code_t +#integral_t gpgme_err_code_t +#integral_t gpg_err_source_t +#integral_t gpgme_err_source_t + +#cinline gpgme_err_make , -> -> IO +#cinline gpgme_error , -> IO +#cinline gpgme_err_code , -> IO +#cinline gpgme_err_source , -> IO + +#ccall gpgme_strerror , -> IO CString +#ccall gpgme_strerror_r , -> CString -> CSize -> IO CInt +#ccall gpgme_strsource , -> IO CString +#ccall gpgme_err_code_from_errno , CInt -> IO +#ccall gpgme_err_code_to_errno , -> IO CInt +#ccall gpgme_err_make_from_errno , -> CInt -> IO +#ccall gpgme_error_from_errno , CInt -> IO + +-- * Data encoding +#integral_t gpgme_data_encoding_t +#num GPGME_DATA_ENCODING_NONE +#num GPGME_DATA_ENCODING_BINARY +#num GPGME_DATA_ENCODING_BASE64 +#num GPGME_DATA_ENCODING_ARMOR + +-- * Algorithms +-- ** Public key algorithms +#integral_t gpgme_pubkey_algo_t +#num GPGME_PK_RSA +#num GPGME_PK_RSA_E +#num GPGME_PK_RSA_S +#num GPGME_PK_ELG_E +#num GPGME_PK_DSA +#num GPGME_PK_ELG + +-- ** Hash algorithms +#integral_t gpgme_hash_algo_t +#num GPGME_MD_NONE +#num GPGME_MD_MD5 +#num GPGME_MD_SHA1 +#num GPGME_MD_RMD160 +#num GPGME_MD_MD2 +#num GPGME_MD_TIGER +#num GPGME_MD_HAVAL +#num GPGME_MD_SHA256 +#num GPGME_MD_SHA384 +#num GPGME_MD_SHA512 +#num GPGME_MD_MD4 +#num GPGME_MD_CRC32 +#num GPGME_MD_CRC32_RFC1510 +#num GPGME_MD_CRC24_RFC2440 + +-- * Signature mode +#integral_t gpgme_sig_mode_t +#num GPGME_SIG_MODE_NORMAL +#num GPGME_SIG_MODE_DETACH +#num GPGME_SIG_MODE_CLEAR + +-- * Identity validity +#integral_t gpgme_validity_t +#num GPGME_VALIDITY_UNKNOWN +#num GPGME_VALIDITY_UNDEFINED +#num GPGME_VALIDITY_NEVER +#num GPGME_VALIDITY_MARGINAL +#num GPGME_VALIDITY_FULL +#num GPGME_VALIDITY_ULTIMATE + +-- * Protocols +#integral_t gpgme_protocol_t +#num GPGME_PROTOCOL_OpenPGP +#num GPGME_PROTOCOL_CMS +#num GPGME_PROTOCOL_GPGCONF +#num GPGME_PROTOCOL_UNKNOWN + +-- * Key list modes +#integral_t gpgme_keylist_mode_t +#num GPGME_KEYLIST_MODE_LOCAL +#num GPGME_KEYLIST_MODE_EXTERN +#num GPGME_KEYLIST_MODE_SIGS +#num GPGME_KEYLIST_MODE_SIG_NOTATIONS +#num GPGME_KEYLIST_MODE_VALIDATE +#num GPGME_AUDITLOG_HTML +#num GPGME_AUDITLOG_WITH_HELP + +-- * Signature notations +#integral_t gpgme_sig_notation_flags_t +#num GPGME_SIG_NOTATION_HUMAN_READABLE +#num GPGME_SIG_NOTATION_CRITICAL + +#starttype struct _gpgme_sig_notation +#field next , Ptr <_gpgme_sig_notation> +#field name , CString +#field value , CString +#field name_len , CInt +#field value_len , CInt +#field flags , +#stoptype +#synonym_t gpgme_sig_notation_t , Ptr <_gpgme_sig_notation> + +-- * Status codes +#integral_t gpgme_status_code_t +#num GPGME_STATUS_EOF +#num GPGME_STATUS_ENTER +#num GPGME_STATUS_LEAVE +#num GPGME_STATUS_ABORT +#num GPGME_STATUS_GOODSIG +#num GPGME_STATUS_BADSIG +#num GPGME_STATUS_ERRSIG +#num GPGME_STATUS_BADARMOR +#num GPGME_STATUS_RSA_OR_IDEA +#num GPGME_STATUS_KEYEXPIRED +#num GPGME_STATUS_KEYREVOKED +#num GPGME_STATUS_TRUST_UNDEFINED +#num GPGME_STATUS_TRUST_NEVER +#num GPGME_STATUS_TRUST_MARGINAL +#num GPGME_STATUS_TRUST_FULLY +#num GPGME_STATUS_TRUST_ULTIMATE +#num GPGME_STATUS_SHM_INFO +#num GPGME_STATUS_SHM_GET +#num GPGME_STATUS_SHM_GET_BOOL +#num GPGME_STATUS_SHM_GET_HIDDEN +#num GPGME_STATUS_NEED_PASSPHRASE +#num GPGME_STATUS_VALIDSIG +#num GPGME_STATUS_SIG_ID +#num GPGME_STATUS_ENC_TO +#num GPGME_STATUS_NODATA +#num GPGME_STATUS_BAD_PASSPHRASE +#num GPGME_STATUS_NO_PUBKEY +#num GPGME_STATUS_NO_SECKEY +#num GPGME_STATUS_NEED_PASSPHRASE_SYM +#num GPGME_STATUS_DECRYPTION_FAILED +#num GPGME_STATUS_DECRYPTION_OKAY +#num GPGME_STATUS_MISSING_PASSPHRASE +#num GPGME_STATUS_GOOD_PASSPHRASE +#num GPGME_STATUS_GOODMDC +#num GPGME_STATUS_BADMDC +#num GPGME_STATUS_ERRMDC +#num GPGME_STATUS_IMPORTED +#num GPGME_STATUS_IMPORT_OK +#num GPGME_STATUS_IMPORT_PROBLEM +#num GPGME_STATUS_IMPORT_RES +#num GPGME_STATUS_FILE_START +#num GPGME_STATUS_FILE_DONE +#num GPGME_STATUS_FILE_ERROR +#num GPGME_STATUS_BEGIN_DECRYPTION +#num GPGME_STATUS_END_DECRYPTION +#num GPGME_STATUS_BEGIN_ENCRYPTION +#num GPGME_STATUS_END_ENCRYPTION +#num GPGME_STATUS_DELETE_PROBLEM +#num GPGME_STATUS_GET_BOOL +#num GPGME_STATUS_GET_LINE +#num GPGME_STATUS_GET_HIDDEN +#num GPGME_STATUS_GOT_IT +#num GPGME_STATUS_PROGRESS +#num GPGME_STATUS_SIG_CREATED +#num GPGME_STATUS_SESSION_KEY +#num GPGME_STATUS_NOTATION_NAME +#num GPGME_STATUS_NOTATION_DATA +#num GPGME_STATUS_POLICY_URL +#num GPGME_STATUS_BEGIN_STREAM +#num GPGME_STATUS_END_STREAM +#num GPGME_STATUS_KEY_CREATED +#num GPGME_STATUS_USERID_HINT +#num GPGME_STATUS_UNEXPECTED +#num GPGME_STATUS_INV_RECP +#num GPGME_STATUS_NO_RECP +#num GPGME_STATUS_ALREADY_SIGNED +#num GPGME_STATUS_SIGEXPIRED +#num GPGME_STATUS_EXPSIG +#num GPGME_STATUS_EXPKEYSIG +#num GPGME_STATUS_TRUNCATED +#num GPGME_STATUS_ERROR +#num GPGME_STATUS_NEWSIG +#num GPGME_STATUS_REVKEYSIG +#num GPGME_STATUS_SIG_SUBPACKET +#num GPGME_STATUS_NEED_PASSPHRASE_PIN +#num GPGME_STATUS_SC_OP_FAILURE +#num GPGME_STATUS_SC_OP_SUCCESS +#num GPGME_STATUS_CARDCTRL +#num GPGME_STATUS_BACKUP_KEY_CREATED +#num GPGME_STATUS_PKA_TRUST_BAD +#num GPGME_STATUS_PKA_TRUST_GOOD +#num GPGME_STATUS_PLAINTEXT + +-- * Engine information +#starttype struct _gpgme_engine_info +#field next , Ptr <_gpgme_engine_info> +#field protocol , +#field file_name , CString +#field version , CString +#field req_version , CString +#field home_dir , CString +#stoptype +#synonym_t gpgme_engine_info_t , Ptr <_gpgme_engine_info> + +-- * Keys +#starttype struct _gpgme_subkey +#field next , Ptr <_gpgme_subkey> +#field pubkey_algo , +#field length , CUInt +#field keyid , CString +#field fpr , CString +#field timestamp , CLong +#field expires , CLong +#field card_number , CString +#if GPGME_VERSION_NUMBER >= 0x010500 +#field curve , CString +#endif +#stoptype +#synonym_t gpgme_subkey_t , Ptr <_gpgme_subkey> + +#starttype struct _gpgme_key_sig +#field next , Ptr <_gpgme_key_sig> +#field pubkey_algo , +#field keyid , CString +#field timestamp , CLong +#field expires , CLong +#field status , +#field uid , CString +#field name , CString +#field email , CString +#field comment , CString +#field sig_class , CUInt +#field notations , +#stoptype +#synonym_t gpgme_key_sig_t , Ptr <_gpgme_key_sig> + +#starttype struct _gpgme_user_id +#field next , Ptr <_gpgme_user_id> +#field validity , +#field uid , CString +#field name , CString +#field email , CString +#field comment , CString +#field signatures , +#stoptype +#synonym_t gpgme_user_id_t , Ptr <_gpgme_user_id> + +#starttype struct _gpgme_key +#field protocol , +#field issuer_serial , CString +#field issuer_name , CString +#field chain_id , CString +#field owner_trust , +#field subkeys , +#field uids , +#field keylist_mode , +#stoptype +#synonym_t gpgme_key_t , Ptr <_gpgme_key> + +-- * Callback types +#callback_t gpgme_passphrase_cb_t , Ptr () -> CString -> CString -> CInt -> CInt -> IO +#callback_t gpgme_progress_cb_t , Ptr () -> CString -> CInt -> CInt -> CInt -> IO () +#callback_t gpgme_edit_cb_t , Ptr () -> -> CString -> CInt -> IO + +-- * Creating and configuring contexts +#ccall gpgme_new , Ptr -> IO +#ccall gpgme_release , -> IO () +#ccall gpgme_set_protocol , -> -> IO +#ccall gpgme_get_protocol , -> IO +#ccall gpgme_get_protocol_name , -> IO CString +#ccall gpgme_set_armor , -> CInt -> IO () +#ccall gpgme_get_armor , -> IO CInt +#ccall gpgme_set_textmode , -> CInt -> IO () +#ccall gpgme_get_textmode , -> IO CInt + +#num GPGME_INCLUDE_CERTS_DEFAULT + +#ccall gpgme_set_include_certs , -> CInt -> IO () +#ccall gpgme_get_include_certs , -> IO CInt +#ccall gpgme_set_keylist_mode , -> -> IO +#ccall gpgme_get_keylist_mode , -> IO +#ccall gpgme_set_passphrase_cb , -> -> Ptr () -> IO () +#ccall gpgme_get_passphrase_cb , -> Ptr -> Ptr (Ptr ()) -> IO () +#ccall gpgme_set_progress_cb , -> -> Ptr () -> IO () +#ccall gpgme_get_progress_cb , -> Ptr -> Ptr (Ptr ()) -> IO () +#ccall gpgme_set_locale , -> CInt -> CString -> IO +#ccall gpgme_ctx_get_engine_info , -> IO +#ccall gpgme_ctx_set_engine_info , -> -> CString -> CString -> IO +#ccall gpgme_pubkey_algo_name , -> IO CString +#ccall gpgme_hash_algo_name , -> IO CString +#ccall gpgme_signers_clear , -> IO () +#ccall gpgme_signers_add , -> -> IO +#ccall gpgme_signers_enum , -> CInt -> IO +#ccall gpgme_sig_notation_clear , -> IO () +#ccall gpgme_sig_notation_add , -> CString -> CString -> -> IO +#ccall gpgme_sig_notation_get , -> IO + +-- * IO events +#callback_t gpgme_io_cb_t , Ptr () -> CInt -> IO +#callback_t gpgme_register_io_cb_t , Ptr () -> CInt -> CInt -> -> Ptr () -> Ptr (Ptr ()) -> IO +#callback_t gpgme_remove_io_cb_t , Ptr () -> IO () + +#integral_t gpgme_event_io_t +#num GPGME_EVENT_START +#num GPGME_EVENT_DONE +#num GPGME_EVENT_NEXT_KEY +#num GPGME_EVENT_NEXT_TRUSTITEM + +#callback_t gpgme_event_io_cb_t , Ptr () -> -> Ptr () -> IO () + +#starttype struct gpgme_io_cbs +#field add , +#field add_priv , Ptr () +#field remove , +#field event , +#field event_priv , Ptr () +#stoptype + +#synonym_t gpgme_io_cbs_t , Ptr + +#ccall gpgme_set_io_cbs , -> -> IO () +#ccall gpgme_get_io_cbs , -> -> IO () +#ccall gpgme_wait , -> Ptr -> CInt -> IO +#ccall gpgme_cancel , -> IO +#ccall gpgme_cancel_async , -> IO + +-- * Data buffers +#callback_t gpgme_data_read_cb_t , Ptr () -> Ptr () -> CSize -> IO +#callback_t gpgme_data_write_cb_t , Ptr () -> Ptr () -> CSize -> IO +#callback_t gpgme_data_seek_cb_t , Ptr () -> -> CInt -> IO +#callback_t gpgme_data_release_cb_t , Ptr () -> IO () + +#starttype struct gpgme_data_cbs +#field read , +#field write , +#field seek , +#field release , +#stoptype + +#synonym_t gpgme_data_cbs_t , Ptr + +#ccall gpgme_data_read , -> Ptr () -> CSize -> IO +#ccall gpgme_data_write , -> Ptr () -> CSize -> IO +#ccall gpgme_data_seek , -> -> CInt -> IO +#ccall gpgme_data_new , Ptr -> IO +#ccall gpgme_data_release , -> IO () +#ccall gpgme_data_new_from_mem , Ptr -> CString -> CSize -> CInt -> IO +#ccall gpgme_data_release_and_get_mem , -> Ptr CSize -> IO CString +#ccall gpgme_free , Ptr () -> IO () +#ccall gpgme_data_new_from_cbs , Ptr -> -> Ptr () -> IO +#ccall gpgme_data_new_from_fd , Ptr -> CInt -> IO +#ccall gpgme_data_new_from_stream , Ptr -> Ptr CFile -> IO +#ccall gpgme_data_get_encoding , -> IO +#ccall gpgme_data_set_encoding , -> -> IO +#ccall gpgme_data_get_file_name , -> IO CString +#ccall gpgme_data_set_file_name , -> CString -> IO +#ccall gpgme_data_new_from_file , Ptr -> CString -> CInt -> IO +#ccall gpgme_data_new_from_filepart , Ptr -> CString -> Ptr CFile -> -> CSize -> IO + +-- * Key management +#ccall gpgme_get_key , -> CString -> Ptr -> CInt -> IO +#ccall gpgme_key_ref , -> IO () +#ccall gpgme_key_unref , -> IO () +#ccall gpgme_key_release , -> IO () + +-- * Encryption +#starttype struct _gpgme_invalid_key +#field next , <_gpgme_invalid_key> +#field fpr , CString +#field reason , +#stoptype +#synonym_t gpgme_invalid_key_t , Ptr <_gpgme_invalid_key> + +#starttype struct _gpgme_op_encrypt_result +#field invalid_recipients , +#stoptype +#synonym_t gpgme_encrypt_result_t , Ptr <_gpgme_op_encrypt_result> + +#ccall gpgme_op_encrypt_result , -> IO + +#integral_t gpgme_encrypt_flags_t +#num GPGME_ENCRYPT_ALWAYS_TRUST + +#ccall gpgme_op_encrypt_start , -> Ptr -> -> -> -> IO +#ccall gpgme_op_encrypt , -> Ptr -> -> -> -> IO +#ccall gpgme_op_encrypt_sign_start , -> Ptr -> -> -> -> IO +#ccall gpgme_op_encrypt_sign , -> Ptr -> -> -> -> IO + +-- * Decryption +#starttype struct _gpgme_recipient +#field next , Ptr <_gpgme_recipient> +#field keyid , CString +#field pubkey_algo , +#field status , +#stoptype +#synonym_t gpgme_recipient_t , Ptr <_gpgme_recipient> + +#starttype struct _gpgme_op_decrypt_result +#field unsupported_algorithm , CString +#field recipients , +#field file_name , CString +#stoptype +#synonym_t gpgme_decrypt_result_t , Ptr <_gpgme_op_decrypt_result> + +#ccall gpgme_op_decrypt_result , -> IO +#ccall gpgme_op_decrypt_start , -> -> -> IO +#ccall gpgme_op_decrypt , -> -> -> IO +#ccall gpgme_op_decrypt_verify_start , -> -> -> IO +#ccall gpgme_op_decrypt_verify , -> -> -> IO + +-- * Signing +#starttype struct _gpgme_new_signature +#field next , Ptr <_gpgme_new_signature> +#field type , +#field pubkey_algo , +#field hash_algo , +#field timestamp , CLong +#field fpr , CString +#field sig_class , CUInt +#stoptype +#synonym_t gpgme_new_signature_t , Ptr <_gpgme_new_signature> + +#starttype struct _gpgme_op_sign_result +#field invalid_signers , +#field signatures , +#stoptype +#synonym_t gpgme_sign_result_t , Ptr <_gpgme_op_sign_result> + +#ccall gpgme_op_sign_result , -> IO +#ccall gpgme_op_sign_start , -> -> -> -> IO +#ccall gpgme_op_sign , -> -> -> -> IO + +-- * Signature verification +#integral_t gpgme_sigsum_t +#num GPGME_SIGSUM_VALID +#num GPGME_SIGSUM_GREEN +#num GPGME_SIGSUM_RED +#num GPGME_SIGSUM_KEY_REVOKED +#num GPGME_SIGSUM_KEY_EXPIRED +#num GPGME_SIGSUM_SIG_EXPIRED +#num GPGME_SIGSUM_KEY_MISSING +#num GPGME_SIGSUM_CRL_MISSING +#num GPGME_SIGSUM_CRL_TOO_OLD +#num GPGME_SIGSUM_BAD_POLICY +#num GPGME_SIGSUM_SYS_ERROR + +#starttype struct _gpgme_signature +#field next , Ptr <_gpgme_signature> +#field summary , +#field fpr , CString +#field status , +#field notations , +#field timestamp , CULong +#field exp_timestamp , CULong +#field validity , +#field validity_reason , +#field pubkey_algo , +#field hash_algo , +#field pka_address , CString +#stoptype +#synonym_t gpgme_signature_t , Ptr <_gpgme_signature> + +#starttype struct _gpgme_op_verify_result +#field signatures , +#field file_name , CString +#stoptype +#synonym_t gpgme_verify_result_t , Ptr <_gpgme_op_verify_result> + +#ccall gpgme_op_verify_result , -> IO +#ccall gpgme_op_verify_start , -> -> -> -> IO +#ccall gpgme_op_verify , -> -> -> -> IO + +-- * Importing keys +#num GPGME_IMPORT_NEW +#num GPGME_IMPORT_UID +#num GPGME_IMPORT_SIG +#num GPGME_IMPORT_SUBKEY +#num GPGME_IMPORT_SECRET + +#starttype struct _gpgme_import_status +#field next , Ptr <_gpgme_import_status> +#field fpr , CString +#field result , +#field status , CUInt +#stoptype +#synonym_t gpgme_import_status_t , Ptr <_gpgme_import_status> + +#starttype struct _gpgme_op_import_result +#field considered , CInt +#field no_user_id , CInt +#field imported , CInt +#field imported_rsa , CInt +#field unchanged , CInt +#field new_user_ids , CInt +#field new_sub_keys , CInt +#field new_signatures , CInt +#field new_revocations , CInt +#field secret_read , CInt +#field secret_imported , CInt +#field secret_unchanged , CInt +#field skipped_new_keys , CInt +#field not_imported , CInt +#field imports , +#stoptype +#synonym_t gpgme_import_result_t , Ptr <_gpgme_op_import_result> + +#ccall gpgme_op_import_result , -> IO +#ccall gpgme_op_import_start , -> -> IO +#ccall gpgme_op_import , -> -> IO +#ccall gpgme_op_export_start , -> CString -> CUInt -> -> IO +#ccall gpgme_op_export , -> CString -> CUInt -> -> IO +#ccall gpgme_op_export_ext_start , -> Ptr CString -> CUInt -> -> IO +#ccall gpgme_op_export_ext , -> Ptr CString -> CUInt -> -> IO + +-- * Key generation and editing +#starttype struct _gpgme_op_genkey_result +#field fpr , CString +#stoptype +#synonym_t gpgme_genkey_result_t , Ptr <_gpgme_op_genkey_result> + +#ccall gpgme_op_genkey_start , -> CString -> -> -> IO +#ccall gpgme_op_genkey , -> CString -> -> -> IO +#ccall gpgme_op_genkey_result , -> IO +#ccall gpgme_op_delete_start , -> -> CInt -> IO +#ccall gpgme_op_delete , -> -> CInt -> IO +#ccall gpgme_op_delete_ext , -> -> CUInt -> IO +#ccall gpgme_op_delete_ext_start , -> -> CUInt -> IO +#ccall gpgme_op_edit_start , -> -> -> Ptr () -> -> IO +#ccall gpgme_op_edit , -> -> -> Ptr () -> -> IO +#ccall gpgme_op_card_edit_start , -> -> -> Ptr () -> -> IO +#ccall gpgme_op_card_edit , -> -> -> Ptr () -> -> IO + +-- * Listing keys +#starttype struct _gpgme_op_keylist_result +#stoptype +#synonym_t gpgme_keylist_result_t , Ptr <_gpgme_op_keylist_result> + +#ccall gpgme_op_keylist_result , -> IO +#ccall gpgme_op_keylist_start , -> CString -> CInt -> IO +#ccall gpgme_op_keylist_ext_start , -> Ptr CString -> CInt -> CInt -> IO +#ccall gpgme_op_keylist_next , -> Ptr -> IO +#ccall gpgme_op_keylist_end , -> IO + +-- * Trust items +#starttype struct _gpgme_trust_item +#field keyid , CString +#field type , CInt +#field level , CInt +#field owner_trust , CString +#field validity , CString +#field name , CString +#stoptype +#synonym_t gpgme_trust_item_t , Ptr <_gpgme_trust_item> + +#ccall gpgme_op_trustlist_start , -> CString -> CInt -> IO +#ccall gpgme_op_trustlist_next , -> Ptr -> IO +#ccall gpgme_op_trustlist_end , -> IO +#ccall gpgme_trust_item_ref , -> IO () +#ccall gpgme_trust_item_unref , -> IO () +#ccall gpgme_op_getauditlog_start , -> -> CUInt -> IO +#ccall gpgme_op_getauditlog , -> -> CUInt -> IO + +-- * Configuration +#integral_t gpgme_conf_level_t +#num GPGME_CONF_BASIC +#num GPGME_CONF_ADVANCED +#num GPGME_CONF_EXPERT +#num GPGME_CONF_INVISIBLE +#num GPGME_CONF_INTERNAL + +#integral_t gpgme_conf_type_t +#num GPGME_CONF_NONE +#num GPGME_CONF_STRING +#num GPGME_CONF_INT32 +#num GPGME_CONF_UINT32 +#num GPGME_CONF_FILENAME +#num GPGME_CONF_LDAP_SERVER +#num GPGME_CONF_KEY_FPR +#num GPGME_CONF_PUB_KEY +#num GPGME_CONF_SEC_KEY +#num GPGME_CONF_ALIAS_LIST + +#starttype struct gpgme_conf_arg +#field next , Ptr +#field no_arg , CUInt +#field value.count , CUInt +#field value.uint32 , CUInt +#field value.int32 , CInt +#field value.string , CString +#stoptype + +#synonym_t gpgme_conf_arg_t , Ptr + +#num GPGME_CONF_GROUP +#num GPGME_CONF_OPTIONAL +#num GPGME_CONF_LIST +#num GPGME_CONF_RUNTIME +#num GPGME_CONF_DEFAULT +#num GPGME_CONF_DEFAULT_DESC +#num GPGME_CONF_NO_ARG_DESC +#num GPGME_CONF_NO_CHANGE + +#starttype struct gpgme_conf_opt +#field next , Ptr +#field name , CString +#field flags , CUInt +#field level , +#field description , CString +#field type , +#field alt_type , +#field argname , CString +#field default_value , +#field default_description , CString +#field no_arg_value , +#field no_arg_description , CString +#field value , +#field change_value , CInt +#field new_value , +#field user_data , Ptr () +#stoptype + +#synonym_t gpgme_conf_opt_t , Ptr + +#starttype struct gpgme_conf_comp +#field next , Ptr +#field name , CString +#field description , CString +#field program_name , CString +#field options , Ptr +#stoptype + +#synonym_t gpgme_conf_comp_t , Ptr + +#ccall gpgme_conf_arg_new , Ptr -> -> Ptr () -> IO +#ccall gpgme_conf_arg_release , -> -> IO () +#ccall gpgme_conf_opt_change , -> CInt -> -> IO +#ccall gpgme_conf_release , -> IO () +#ccall gpgme_op_conf_load , -> Ptr -> IO +#ccall gpgme_op_conf_save , -> -> IO + +-- * Engine information +#ccall gpgme_check_version , CString -> IO CString +#ccall gpgme_get_engine_info , Ptr -> IO +#ccall gpgme_set_engine_info , -> CString -> CString -> IO +#ccall gpgme_engine_check_version , -> IO + +-- * Pinentry modes +#integral_t gpgme_pinentry_mode_t +#num GPGME_PINENTRY_MODE_DEFAULT +#num GPGME_PINENTRY_MODE_ASK +#num GPGME_PINENTRY_MODE_CANCEL +#num GPGME_PINENTRY_MODE_ERROR +#num GPGME_PINENTRY_MODE_LOOPBACK +#ccall gpgme_set_pinentry_mode , -> -> IO +#ccall gpgme_get_pinentry_mode , -> IO + +-- * I/O wrappers +-- These are needed when implementing passphrase callbacks. +#ccall gpgme_io_read , CInt -> Ptr () -> CSize -> IO CSize +#ccall gpgme_io_write , CInt -> Ptr () -> CSize -> IO CSize +#ccall gpgme_io_writen , CInt -> Ptr () -> CSize -> IO CSize diff --git a/src/inlines.c b/src/inlines.c new file mode 100644 --- /dev/null +++ b/src/inlines.c @@ -0,0 +1,8 @@ +#include +#include + +BC_INLINE2(gpgme_err_make,gpgme_err_source_t,gpgme_err_code_t,gpgme_error_t) +BC_INLINE1(gpgme_error,gpgme_err_code_t,gpgme_error_t) +BC_INLINE1(gpgme_err_code,gpgme_error_t,gpgme_err_code_t) +BC_INLINE1(gpgme_err_source,gpgme_error_t,gpgme_err_source_t) +