swh:1:snp:7d9f1bc35e120776766db9334626062f837c20ad
Tip revision: 2dea04a1ef06f53429143cf07f247203a6e73f8b authored by CRAN Team on 29 November 2023, 11:55:26 UTC
version 3.99-0.16
version 3.99-0.16
Tip revision: 2dea04a
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