swh:1:snp:7d9f1bc35e120776766db9334626062f837c20ad
Raw File
Tip revision: 7bffe7c9d018ea3347b1c23b79860749bd7fa09d authored by Duncan Temple Lang on 28 March 2013, 00:00:00 UTC
version 3.96-1.1
Tip revision: 7bffe7c
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
static int foo;
#endif
back to top