/** 

 * XML Security Library (http://www.aleksey.com/xmlsec).

 *

 *

 * This is free software; see Copyright file in the source

 * distribution for preciese wording.

 * 

 * Copyright (C) 2002-2003 Aleksey Sanin <aleksey@aleksey.com>

 * Portion Copyright © 2009 Nokia Corporation and/or its subsidiary(-ies). All rights reserved. 

 */

#include "xmlsec_globals.h"

#include <stdlib.h>

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#include <time.h>  

#include <libxml2_tree.h>

#include "xmlsec_xmlsec.h"

#include "xmlsec_app.h"

#include "xmlsec_list.h"

#include "xmlsec_keysdata.h"

#include "xmlsec_keys.h"

#include "xmlsec_keysmngr.h"

#include "xmlsec_transforms.h"

#include "xmlsec_private.h"

#include "xmlsec_xmltree.h"

#include "xmlsec_errors.h"

#include "xmlsec_dl.h"

#ifndef XMLSEC_NO_CRYPTO_DYNAMIC_LOADING

#include "xmlsec-ltdl.h"

/***********************************************************************

 *

 * loaded libraries list

 *

 **********************************************************************/

typedef struct _xmlSecCryptoDLLibrary					xmlSecCryptoDLLibrary,

									*xmlSecCryptoDLLibraryPtr;

struct _xmlSecCryptoDLLibrary {

    xmlChar*	name;

    xmlChar* 	filename;

    xmlChar* 	getFunctionsName;

    xmlSecCryptoDLFunctionsPtr functions;

    xmlsec_lt_dlhandle handle;

};

static xmlSecCryptoDLLibraryPtr	xmlSecCryptoDLLibraryCreate		(const xmlChar* name);

static void			xmlSecCryptoDLLibraryDestroy		(xmlSecCryptoDLLibraryPtr lib);

static xmlSecCryptoDLLibraryPtr	xmlSecCryptoDLLibraryDuplicate		(xmlSecCryptoDLLibraryPtr lib);

static xmlChar*			xmlSecCryptoDLLibraryConstructFilename	(const xmlChar* name);

static xmlChar*			xmlSecCryptoDLLibraryConstructGetFunctionsName(const xmlChar* name);

static xmlSecPtrListKlass xmlSecCryptoDLLibrariesListKlass = {

    BAD_CAST "dl-libraries-list",

    (xmlSecPtrDuplicateItemMethod)xmlSecCryptoDLLibraryDuplicate,/* xmlSecPtrDuplicateItemMethod duplicateItem; */

    (xmlSecPtrDestroyItemMethod)xmlSecCryptoDLLibraryDestroy,	/* xmlSecPtrDestroyItemMethod destroyItem; */

    NULL,							/* xmlSecPtrDebugDumpItemMethod debugDumpItem; */

    NULL,							/* xmlSecPtrDebugDumpItemMethod debugXmlDumpItem; */

};

static xmlSecPtrListId		xmlSecCryptoDLLibrariesListGetKlass	(void);

static int			xmlSecCryptoDLLibrariesListFindByName	(xmlSecPtrListPtr list, 

									 const xmlChar* name);

typedef xmlSecCryptoDLFunctionsPtr (*xmlSecCryptoGetFunctionsCallback)(void);

static xmlSecCryptoDLLibraryPtr	

xmlSecCryptoDLLibraryCreate(const xmlChar* name) {

    xmlSecCryptoDLLibraryPtr lib;

    xmlSecCryptoGetFunctionsCallback getFunctions;

    xmlSecAssert2(name != NULL, NULL);

    /* fprintf (stderr, "loading \"library %s\"...\n", name); */

    /* Allocate a new xmlSecCryptoDLLibrary and fill the fields. */

    lib = (xmlSecCryptoDLLibraryPtr)xmlMalloc(sizeof(xmlSecCryptoDLLibrary));

    if(lib == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    NULL,

		    XMLSEC_ERRORS_R_MALLOC_FAILED,

		    "size=%d", sizeof(lib)); 

	return(NULL);

    }

    memset(lib, 0, sizeof(xmlSecCryptoDLLibrary));

    lib->name = xmlStrdup(name);

    if(lib->name == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "xmlStrdup",

		    NULL,

		    XMLSEC_ERRORS_R_MALLOC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE); 

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    lib->filename = xmlSecCryptoDLLibraryConstructFilename(name);

    if(lib->filename == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "xmlSecCryptoDLLibraryConstructFilename",

		    NULL,

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE); 

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    lib->getFunctionsName = xmlSecCryptoDLLibraryConstructGetFunctionsName(name);

    if(lib->getFunctionsName == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "xmlSecCryptoDLLibraryConstructGetFunctionsName",

		    NULL,

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE); 

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    lib->handle = xmlsec_lt_dlopen((char*)lib->filename);

    if(lib->handle == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "xmlsec_lt_dlopen",

		    NULL,

		    XMLSEC_ERRORS_R_IO_FAILED,

		    "filename=%s",

		    xmlSecErrorsSafeString(lib->filename));

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    getFunctions = (xmlSecCryptoGetFunctionsCallback)xmlsec_lt_dlsym(lib->handle, (char*)lib->getFunctionsName);

    if(getFunctions == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "xmlsec_lt_dlsym",

		    NULL,

		    XMLSEC_ERRORS_R_IO_FAILED,

		    "function=%s",

		    xmlSecErrorsSafeString(lib->getFunctionsName));

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    if(getFunctions == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    NULL,

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    "invalid configuration: no way to load library");

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }    

    lib->functions = getFunctions();

    if(lib->functions == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    "getFunctions",

		    NULL,

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE); 

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    /* fprintf (stderr, "library %s loaded\n", name); */

    return(lib);

}

static void 

xmlSecCryptoDLLibraryDestroy(xmlSecCryptoDLLibraryPtr lib) {

    xmlSecAssert(lib != NULL);

    /* fprintf (stderr, "unloading \"library %s\"...\n", lib->name); */

    if(lib->name != NULL) {

	xmlFree(lib->name);

    }

    if(lib->filename != NULL) {

	xmlFree(lib->filename);

    }

    if(lib->getFunctionsName != NULL) {

	xmlFree(lib->getFunctionsName);

    }

    if(lib->handle != NULL) {	

	int ret;

	ret = xmlsec_lt_dlclose(lib->handle);

	if(ret != 0) {

	    xmlSecError(XMLSEC_ERRORS_HERE,

		        "xmlsec_lt_dlclose",

			NULL,

		        XMLSEC_ERRORS_R_IO_FAILED,

                        XMLSEC_ERRORS_NO_MESSAGE);

	}

    }

    memset(lib, 0, sizeof(xmlSecCryptoDLLibrary));

    xmlFree(lib);

}

static xmlSecCryptoDLLibraryPtr	

xmlSecCryptoDLLibraryDuplicate(xmlSecCryptoDLLibraryPtr lib) {

    xmlSecAssert2(lib != NULL, NULL);

    xmlSecAssert2(lib->name != NULL, NULL);

    return(xmlSecCryptoDLLibraryCreate(lib->name));

}

static xmlChar*	

xmlSecCryptoDLLibraryConstructFilename(const xmlChar* name) {

    static xmlChar tmpl[] = "lib%s-%s" LTDL_SHLIB_EXT;

    xmlChar* res;

    int len;

    xmlSecAssert2(name != NULL, NULL);

    len = xmlStrlen(BAD_CAST PACKAGE) + xmlStrlen(name) + xmlStrlen(tmpl) + 1;

    res = (xmlChar*)xmlMalloc(len + 1);

    if(res == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    NULL,

		    XMLSEC_ERRORS_R_MALLOC_FAILED,

		    "size=%d", len + 1); 

	return(NULL);

    }

    xmlSecStrPrintf(res, len, tmpl, PACKAGE, name);

    return(res);

}

static xmlChar*	

xmlSecCryptoDLLibraryConstructGetFunctionsName(const xmlChar* name) {

    static xmlChar tmpl[] = "xmlSecCryptoGetFunctions_%s";

    xmlChar* res;

    int len;

    xmlSecAssert2(name != NULL, NULL);

    len = xmlStrlen(name) + xmlStrlen(tmpl) + 1;

    res = (xmlChar*)xmlMalloc(len + 1);

    if(res == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    NULL,

		    XMLSEC_ERRORS_R_MALLOC_FAILED,

		    "size=%d", len + 1); 

	return(NULL);

    }

    xmlSecStrPrintf(res, len, tmpl, name);

    return(res);

}

static xmlSecPtrListId 

xmlSecCryptoDLLibrariesListGetKlass(void) {

    return(&xmlSecCryptoDLLibrariesListKlass);

}

static int

xmlSecCryptoDLLibrariesListFindByName(xmlSecPtrListPtr list, const xmlChar* name) {

    xmlSecSize i, size;

    xmlSecCryptoDLLibraryPtr lib;

    xmlSecAssert2(xmlSecPtrListCheckId(list, xmlSecCryptoDLLibrariesListGetKlass()), -1);

    xmlSecAssert2(name != NULL, -1);

    size = xmlSecPtrListGetSize(list);

    for(i = 0; i < size; ++i) {

	lib = (xmlSecCryptoDLLibraryPtr)xmlSecPtrListGetItem(list, i);

	if((lib != NULL) && (lib->name != NULL) && (xmlStrcmp(lib->name, name) == 0)) {

	    return(i);

	}

    }

    return(-1);

}

/******************************************************************************

 *

 * Dynamic load functions

 *

 *****************************************************************************/

static xmlSecCryptoDLFunctionsPtr gXmlSecCryptoDLFunctions = NULL;

static xmlSecPtrList gXmlSecCryptoDLLibraries;

static xmlsec_lt_ptr xmlSecCryptoDLMalloc(size_t size) {

    xmlsec_lt_ptr res;

    res = (xmlsec_lt_ptr)xmlMalloc(size);

    if(res == NULL) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    NULL,

		    XMLSEC_ERRORS_R_MALLOC_FAILED,

		    "size=%d", size);

        return(NULL);

    }

    memset(res, 0, size);

    return(res);

}

static void xmlSecCryptoDLFree(xmlsec_lt_ptr ptr) {

    if(ptr != NULL) {

	xmlFree(ptr);

    }

}

/**

 * xmlSecCryptoDLInit:

 * 

 * Initializes dynamic loading engine. This is an internal function

 * and should not be called by application directly.

 *

 * Returns 0 on success or a negative value if an error occurs.

 */

int 

xmlSecCryptoDLInit(void) {

    int ret;

    ret = xmlSecPtrListInitialize(&gXmlSecCryptoDLLibraries, xmlSecCryptoDLLibrariesListGetKlass());

    if(ret < 0) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    "xmlSecPtrListPtrInitialize",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    "xmlSecCryptoDLLibrariesListGetKlass");

        return(-1);

    }

    /* use xmlMalloc/xmlFree */

    xmlsec_lt_dlmalloc	= xmlSecCryptoDLMalloc;

    xmlsec_lt_dlfree	= xmlSecCryptoDLFree;

    ret = xmlsec_lt_dlinit ();

    if(ret != 0) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    "xmlsec_lt_dlinit",

		    XMLSEC_ERRORS_R_IO_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE);

        return(-1);

    }

    return(0);

}

/**

 * xmlSecCryptoDLShutdown:

 * 

 * Shutdowns dynamic loading engine. This is an internal function

 * and should not be called by application directly.

 *

 * Returns 0 on success or a negative value if an error occurs.

 */

int 

xmlSecCryptoDLShutdown(void) {

    int ret;

    xmlSecPtrListFinalize(&gXmlSecCryptoDLLibraries);

    ret = xmlsec_lt_dlexit ();

    if(ret != 0) {

	xmlSecError(XMLSEC_ERRORS_HERE,

		    NULL,

		    "xmlsec_lt_dlexit",

		    XMLSEC_ERRORS_R_IO_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE);

    }

    return(0);

}

/** 

 * xmlSecCryptoDLLoadLibrary:

 * @crypto:		the desired crypto library name ("openssl", "nss", ...).

 *

 * Loads the xmlsec-<crypto> library. This function is NOT thread safe, 

 * application MUST NOT call #xmlSecCryptoDLLoadLibrary, #xmlSecCryptoDLGetLibraryFunctions,

 * and #xmlSecCryptoDLUnloadLibrary functions from multiple threads.

 *

 * Returns 0 on success or a negative value if an error occurs.

 */

int 

xmlSecCryptoDLLoadLibrary(const xmlChar* crypto) {

    xmlSecCryptoDLFunctionsPtr functions;

    int ret;

    xmlSecAssert2(crypto != NULL, -1);

    functions = xmlSecCryptoDLGetLibraryFunctions(crypto);

    if(functions == NULL) {

        xmlSecError(XMLSEC_ERRORS_HERE,

	    	    NULL,

		    "xmlSecCryptoDLGetLibraryFunctions",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE);

	return(-1);

    }

    ret = xmlSecCryptoDLSetFunctions(functions);

    if(ret < 0) {

        xmlSecError(XMLSEC_ERRORS_HERE,

	    	    NULL,

		    "xmlSecCryptoDLSetFunctions",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE);

	return(-1);

    }

    return(0);

}

/** 

 * xmlSecCryptoDLGetLibraryFunctions:

 * @crypto:		the desired crypto library name ("openssl", "nss", ...).

 *

 * Loads the xmlsec-<crypto> library and gets global crypto functions/transforms/keys data/keys store 

 * table. This function is NOT thread safe, application MUST NOT call #xmlSecCryptoDLLoadLibrary, 

 * #xmlSecCryptoDLGetLibraryFunctions, and #xmlSecCryptoDLUnloadLibrary functions from multiple threads.

 *

 * Returns the table or NULL if an error occurs.

 */

xmlSecCryptoDLFunctionsPtr 

xmlSecCryptoDLGetLibraryFunctions(const xmlChar* crypto) {

    xmlSecCryptoDLLibraryPtr lib;

    int pos;

    int ret;

    xmlSecAssert2(crypto != NULL, NULL);

    pos = xmlSecCryptoDLLibrariesListFindByName(&gXmlSecCryptoDLLibraries, crypto);

    if(pos >= 0) {

        lib = (xmlSecCryptoDLLibraryPtr)xmlSecPtrListGetItem(&gXmlSecCryptoDLLibraries, pos);

	xmlSecAssert2(lib != NULL, NULL);

	xmlSecAssert2(lib->functions != NULL, NULL);

	return(lib->functions);

    }

    lib = xmlSecCryptoDLLibraryCreate(crypto);

    if(lib == NULL) {

        xmlSecError(XMLSEC_ERRORS_HERE,

	    	    NULL,

		    "xmlSecCryptoDLLibraryCreate",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    "crypto=%s",

		    xmlSecErrorsSafeString(crypto));

	return(NULL);

    }

    ret = xmlSecPtrListAdd(&gXmlSecCryptoDLLibraries, lib);    

    if(ret < 0) {

        xmlSecError(XMLSEC_ERRORS_HERE,

	    	    NULL,

		    "xmlSecPtrListAdd",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    "crypto=%s",

		    xmlSecErrorsSafeString(crypto));

	xmlSecCryptoDLLibraryDestroy(lib);

	return(NULL);

    }

    return(lib->functions);

}

/** 

 * xmlSecCryptoDLUnloadLibrary:

 * @crypto:		the desired crypto library name ("openssl", "nss", ...).

 *

 * Unloads the xmlsec-<crypto> library. All pointers to this library

 * functions tables became invalid. This function is NOT thread safe, 

 * application MUST NOT call #xmlSecCryptoDLLoadLibrary, #xmlSecCryptoDLGetLibraryFunctions,

 * and #xmlSecCryptoDLUnloadLibrary functions from multiple threads.

 *

 * Returns 0 on success or a negative value if an error occurs.

 */

int 

xmlSecCryptoDLUnloadLibrary(const xmlChar* crypto) {

    xmlSecCryptoDLLibraryPtr lib;

    int pos;

    int ret;

    xmlSecAssert2(crypto != NULL, -1);

    pos = xmlSecCryptoDLLibrariesListFindByName(&gXmlSecCryptoDLLibraries, crypto);

    if(pos < 0) {

	return(0);

    }

    lib = (xmlSecCryptoDLLibraryPtr)xmlSecPtrListGetItem(&gXmlSecCryptoDLLibraries, pos);

    if((lib != NULL) && (lib->functions == gXmlSecCryptoDLFunctions)) {

	gXmlSecCryptoDLFunctions = NULL;

    }

    ret = xmlSecPtrListRemove(&gXmlSecCryptoDLLibraries, pos);

    if(ret < 0) {

        xmlSecError(XMLSEC_ERRORS_HERE,

	    	    NULL,

		    "xmlSecPtrListRemove",

		    XMLSEC_ERRORS_R_XMLSEC_FAILED,

		    XMLSEC_ERRORS_NO_MESSAGE);

	return(-1);

    }

    return(0);

}

/** 

 * xmlSecCryptoDLSetFunctions:

 * @functions:		the new table

 *

 * Sets global crypto functions/transforms/keys data/keys store table.

 *

 * Returns 0 on success or a negative value if an error occurs.

 */

int

xmlSecCryptoDLSetFunctions(xmlSecCryptoDLFunctionsPtr functions) {

    xmlSecAssert2(functions != NULL, -1);