https://github.com/cran/XML
Tip revision: 3cc154f91cacaa5bc05a347c841f07984b5a28a6 authored by CRAN Team on 22 January 2024, 13:30:59 UTC
version 3.99-0.16.1
version 3.99-0.16.1
Tip revision: 3cc154f
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