gnutls-guile-rsa-export.patch

   1 --- gnutls-3.2.12/guile/src/core.c.orig 2014-03-05 11:15:18.553666903 +0100
   2 +++ gnutls-3.2.12/guile/src/core.c      2014-03-05 11:15:22.743666728 +0100
   3 @@ -1314,6 +1314,7 @@
   4  #undef FUNC_NAME
   5  \f
   6
   7 +#ifdef ENABLE_RSA_EXPORT
   8  /* RSA parameters.  */
   9
  10  SCM_DEFINE (scm_gnutls_make_rsa_parameters, "make-rsa-parameters", 1, 0, 0,
  11 @@ -1413,6 +1414,7 @@
  12  }
  13
  14  #undef FUNC_NAME
  15 +#endif
  16  \f
  17
  18  /* Certificate credentials.  */
  19 @@ -1537,6 +1539,7 @@
  20
  21  #undef FUNC_NAME
  22
  23 +#ifdef ENABLE_RSA_EXPORT
  24  SCM_DEFINE (scm_gnutls_set_certificate_credentials_rsa_export_params_x,
  25              "set-certificate-credentials-rsa-export-parameters!",
  26              2, 0, 0,
  27 @@ -1558,6 +1561,7 @@
  28  }
  29
  30  #undef FUNC_NAME
  31 +#endif
  32
  33  SCM_DEFINE (scm_gnutls_set_certificate_credentials_x509_key_files_x,
  34              "set-certificate-credentials-x509-key-files!",
  35 --- gnutls-3.2.12/guile/modules/gnutls/build/smobs.scm.orig     2013-11-10 18:59:14.000000000 +0100
  36 +++ gnutls-3.2.12/guile/modules/gnutls/build/smobs.scm  2014-03-05 11:35:54.030281722 +0100
  37 @@ -169,10 +169,6 @@
  38    (make-smob-type "gnutls_dh_params_t" 'dh-parameters
  39                    "gnutls_dh_params_deinit"))
  40
  41 -(define %rsa-parameters-smob
  42 -  (make-smob-type "gnutls_rsa_params_t" 'rsa-parameters
  43 -                  "gnutls_rsa_params_deinit"))
  44 -
  45  (define %certificate-credentials-smob
  46    (make-smob-type "gnutls_certificate_credentials_t" 'certificate-credentials
  47                    "gnutls_certificate_free_credentials"))
  48 @@ -218,7 +214,6 @@
  49    ;; All SMOB types.
  50    (list %session-smob %anonymous-client-credentials-smob
  51          %anonymous-server-credentials-smob %dh-parameters-smob
  52 -        %rsa-parameters-smob
  53          %certificate-credentials-smob
  54          %srp-server-credentials-smob %srp-client-credentials-smob
  55          %psk-server-credentials-smob %psk-client-credentials-smob