swh:1:snp:7d9f1bc35e120776766db9334626062f837c20ad
Tip revision: 17ba60d446f6da77b1143f704f7e0af6839b1d9b authored by CRAN Team on 16 March 2021, 12:52:45 UTC
version 3.99-0.6
version 3.99-0.6
Tip revision: 17ba60d
xmlsecurity.c
#ifdef HAVE_LIBXMLSEC
#include <xmlsec/xmlsec.h>
#include <xmlsec/app.h>
#include <xmlsec/crypto.h>
#include "Rinternals.h"
void
R_xmlSecCryptoInit(int *els)
{
int status;
els[0] = status = xmlSecCryptoInit();
if(status != 0)
return;
els[1] = status = xmlSecCryptoAppInit(NULL);
if(status != 0)
return;
els[2] = status = xmlSecCryptoInit();
}
SEXP
R_xmlSecCryptoShutdown()
{
int status;
status = xmlSecCryptoShutdown();
return(ScalarInteger(status));
}
#else
// avoid a warning about an empty translation unit.
// instead, this gives one about an unused variable!
// static int foo;
void R_xmlSecCryptoInit(int *els) {}
#endif