[thirdparty/openssl.git] / crypto / dso / dso_dl.c

/* dso_dl.c */
/* Written by Richard Levitte (richard@levitte.org) for the OpenSSL
 * project 2000.
 */
/* ====================================================================
 * Copyright (c) 2000 The OpenSSL Project.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer. 
 *
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in
 *    the documentation and/or other materials provided with the
 *    distribution.
 *
 * 3. All advertising materials mentioning features or use of this
 *    software must display the following acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
 *
 * 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
 *    endorse or promote products derived from this software without
 *    prior written permission. For written permission, please contact
 *    licensing@OpenSSL.org.
 *
 * 5. Products derived from this software may not be called "OpenSSL"
 *    nor may "OpenSSL" appear in their names without prior written
 *    permission of the OpenSSL Project.
 *
 * 6. Redistributions of any form whatsoever must retain the following
 *    acknowledgment:
 *    "This product includes software developed by the OpenSSL Project
 *    for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
 *
 * THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
 * EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE OpenSSL PROJECT OR
 * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
 * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
 * OF THE POSSIBILITY OF SUCH DAMAGE.
 * ====================================================================
 *
 * This product includes cryptographic software written by Eric Young
 * (eay@cryptsoft.com).  This product includes software written by Tim
 * Hudson (tjh@cryptsoft.com).
 *
 */

#include <stdio.h>
#include "cryptlib.h"
#include <openssl/dso.h>

#ifndef DSO_DL
DSO_METHOD *DSO_METHOD_dl(void)
       {
       return NULL;
       }
#else

#include <dl.h>

/* Part of the hack in "dl_load" ... */
#define DSO_MAX_TRANSLATED_SIZE 256

static int dl_load(DSO *dso);
static int dl_unload(DSO *dso);
static void *dl_bind_var(DSO *dso, const char *symname);
static DSO_FUNC_TYPE dl_bind_func(DSO *dso, const char *symname);
#if 0
static int dl_unbind_var(DSO *dso, char *symname, void *symptr);
static int dl_unbind_func(DSO *dso, char *symname, DSO_FUNC_TYPE symptr);
static int dl_init(DSO *dso);
static int dl_finish(DSO *dso);
static int dl_ctrl(DSO *dso, int cmd, long larg, void *parg);
#endif
static char *dl_name_converter(DSO *dso, const char *filename);

static DSO_METHOD dso_meth_dl = {
	"OpenSSL 'dl' shared library method",
	dl_load,
	dl_unload,
	dl_bind_var,
	dl_bind_func,
/* For now, "unbind" doesn't exist */
#if 0
	NULL, /* unbind_var */
	NULL, /* unbind_func */
#endif
	NULL, /* ctrl */
	dl_name_converter,
	NULL, /* init */
	NULL  /* finish */
	};

DSO_METHOD *DSO_METHOD_dl(void)
	{
	return(&dso_meth_dl);
	}

/* For this DSO_METHOD, our meth_data STACK will contain;
 * (i) the handle (shl_t) returned from shl_load().
 * NB: I checked on HPUX11 and shl_t is itself a pointer
 * type so the cast is safe.
 */

static int dl_load(DSO *dso)
	{
	shl_t ptr = NULL;
	/* We don't do any fancy retries or anything, just take the method's
	 * (or DSO's if it has the callback set) best translation of the
	 * platform-independant filename and try once with that. */
	char *filename= DSO_convert_filename(dso, NULL);

	if(filename == NULL)
		{
		DSOerr(DSO_F_DL_LOAD,DSO_R_NO_FILENAME);
		goto err;
		}
	ptr = shl_load(filename, BIND_IMMEDIATE|DYNAMIC_PATH, NULL);
	if(ptr == NULL)
		{
		DSOerr(DSO_F_DL_LOAD,DSO_R_LOAD_FAILED);
		ERR_add_error_data(4, "filename(", filename, "): ",
			strerror(errno));
		goto err;
		}
	if(!sk_push(dso->meth_data, (char *)ptr))
		{
		DSOerr(DSO_F_DL_LOAD,DSO_R_STACK_ERROR);
		goto err;
		}
	/* Success, stick the converted filename we've loaded under into the DSO
	 * (it also serves as the indicator that we are currently loaded). */
	dso->loaded_filename = filename;
	return(1);
err:
	/* Cleanup! */
	if(filename != NULL)
		OPENSSL_free(filename);
	if(ptr != NULL)
		shl_unload(ptr);
	return(0);
	}

static int dl_unload(DSO *dso)
	{
	shl_t ptr;
	if(dso == NULL)
		{
		DSOerr(DSO_F_DL_UNLOAD,ERR_R_PASSED_NULL_PARAMETER);
		return(0);
		}
	if(sk_num(dso->meth_data) < 1)
		return(1);
	/* Is this statement legal? */
	ptr = (shl_t)sk_pop(dso->meth_data);
	if(ptr == NULL)
		{
		DSOerr(DSO_F_DL_UNLOAD,DSO_R_NULL_HANDLE);
		/* Should push the value back onto the stack in
		 * case of a retry. */
		sk_push(dso->meth_data, (char *)ptr);
		return(0);
		}
	shl_unload(ptr);
	return(1);
	}

static void *dl_bind_var(DSO *dso, const char *symname)
	{
	shl_t ptr;
	void *sym;

	if((dso == NULL) || (symname == NULL))
		{
		DSOerr(DSO_F_DL_BIND_VAR,ERR_R_PASSED_NULL_PARAMETER);
		return(NULL);
		}
	if(sk_num(dso->meth_data) < 1)
		{
		DSOerr(DSO_F_DL_BIND_VAR,DSO_R_STACK_ERROR);
		return(NULL);
		}
	ptr = (shl_t)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
	if(ptr == NULL)
		{
		DSOerr(DSO_F_DL_BIND_VAR,DSO_R_NULL_HANDLE);
		return(NULL);
		}
	if (shl_findsym(&ptr, symname, TYPE_UNDEFINED, &sym) < 0)
		{
		DSOerr(DSO_F_DL_BIND_VAR,DSO_R_SYM_FAILURE);
		ERR_add_error_data(4, "symname(", symname, "): ",
			strerror(errno));
		return(NULL);
		}
	return(sym);
	}

static DSO_FUNC_TYPE dl_bind_func(DSO *dso, const char *symname)
	{
	shl_t ptr;
	void *sym;

	if((dso == NULL) || (symname == NULL))
		{
		DSOerr(DSO_F_DL_BIND_FUNC,ERR_R_PASSED_NULL_PARAMETER);
		return(NULL);
		}
	if(sk_num(dso->meth_data) < 1)
		{
		DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_STACK_ERROR);
		return(NULL);
		}
	ptr = (shl_t)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
	if(ptr == NULL)
		{
		DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_NULL_HANDLE);
		return(NULL);
		}
	if (shl_findsym(&ptr, symname, TYPE_UNDEFINED, &sym) < 0)
		{
		DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_SYM_FAILURE);
		ERR_add_error_data(4, "symname(", symname, "): ",
			strerror(errno));
		return(NULL);
		}
	return((DSO_FUNC_TYPE)sym);
	}

/* This function is identical to the one in dso_dlfcn.c, but as it is highly
 * unlikely that both the "dl" *and* "dlfcn" variants are being compiled at the
 * same time, there's no great duplicating the code. Figuring out an elegant 
 * way to share one copy of the code would be more difficult and would not
 * leave the implementations independant. */
#if defined(__hpux)
static const char extension[] = ".sl";
#else
static const char extension[] = ".so";
#endif
static char *dl_name_converter(DSO *dso, const char *filename)
	{
	char *translated;
	int len, rsize, transform;

	len = strlen(filename);
	rsize = len + 1;
	transform = (strstr(filename, "/") == NULL);
		{
		/* We will convert this to "%s.s?" or "lib%s.s?" */
		rsize += strlen(extension);/* The length of ".s?" */
		if ((DSO_flags(dso) & DSO_FLAG_NAME_TRANSLATION_EXT_ONLY) == 0)
			rsize += 3; /* The length of "lib" */
		}
	translated = OPENSSL_malloc(rsize);
	if(translated == NULL)
		{
		DSOerr(DSO_F_DL_NAME_CONVERTER,
				DSO_R_NAME_TRANSLATION_FAILED); 
		return(NULL);   
		}
	if(transform)
		{
		if ((DSO_flags(dso) & DSO_FLAG_NAME_TRANSLATION_EXT_ONLY) == 0)
			sprintf(translated, "lib%s%s", filename, extension);
		else
			sprintf(translated, "%s%s", filename, extension);
		}
	else
		sprintf(translated, "%s", filename);
	return(translated);
	}

#endif /* DSO_DL */
Commit	Line	Data
8f4fac7f	1	/* dso_dl.c */
f3229ee1	2	/* Written by Richard Levitte (richard@levitte.org) for the OpenSSL
8f4fac7f GT	3	* project 2000.
	4	*/
	5	/* ====================================================================
	6	* Copyright (c) 2000 The OpenSSL Project. All rights reserved.
	7	*
	8	* Redistribution and use in source and binary forms, with or without
	9	* modification, are permitted provided that the following conditions
	10	* are met:
	11	*
	12	* 1. Redistributions of source code must retain the above copyright
	13	* notice, this list of conditions and the following disclaimer.
	14	*
	15	* 2. Redistributions in binary form must reproduce the above copyright
	16	* notice, this list of conditions and the following disclaimer in
	17	* the documentation and/or other materials provided with the
	18	* distribution.
	19	*
	20	* 3. All advertising materials mentioning features or use of this
	21	* software must display the following acknowledgment:
	22	* "This product includes software developed by the OpenSSL Project
	23	* for use in the OpenSSL Toolkit. (http://www.OpenSSL.org/)"
	24	*
	25	* 4. The names "OpenSSL Toolkit" and "OpenSSL Project" must not be used to
	26	* endorse or promote products derived from this software without
	27	* prior written permission. For written permission, please contact
	28	* licensing@OpenSSL.org.
	29	*
	30	* 5. Products derived from this software may not be called "OpenSSL"
	31	* nor may "OpenSSL" appear in their names without prior written
	32	* permission of the OpenSSL Project.
	33	*
	34	* 6. Redistributions of any form whatsoever must retain the following
	35	* acknowledgment:
	36	* "This product includes software developed by the OpenSSL Project
	37	* for use in the OpenSSL Toolkit (http://www.OpenSSL.org/)"
	38	*
	39	* THIS SOFTWARE IS PROVIDED BY THE OpenSSL PROJECT ``AS IS'' AND ANY
	40	* EXPRESSED OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	41	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
	42	* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE OpenSSL PROJECT OR
	43	* ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
	44	* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
	45	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
	46	* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	47	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	48	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
	49	* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED
	50	* OF THE POSSIBILITY OF SUCH DAMAGE.
	51	* ====================================================================
	52	*
	53	* This product includes cryptographic software written by Eric Young
	54	* (eay@cryptsoft.com). This product includes software written by Tim
	55	* Hudson (tjh@cryptsoft.com).
	56	*
	57	*/
	58
	59	#include <stdio.h>
	60	#include "cryptlib.h"
	61	#include <openssl/dso.h>
	62
	63	#ifndef DSO_DL
	64	DSO_METHOD *DSO_METHOD_dl(void)
	65	{
	66	return NULL;
67	}
68	#else
69
70	#include <dl.h>
71
b9e63915 GT	72	/* Part of the hack in "dl_load" ... */
	73	#define DSO_MAX_TRANSLATED_SIZE 256
	74
51c8dc37	75	static int dl_load(DSO *dso);
8f4fac7f	76	static int dl_unload(DSO *dso);
e9a68cfb GT	77	static void dl_bind_var(DSO dso, const char *symname);
e9a68cfb GT	78	static DSO_FUNC_TYPE dl_bind_func(DSO dso, const char symname);
8f4fac7f	79	#if 0
e9a68cfb GT	80	static int dl_unbind_var(DSO dso, char symname, void *symptr);
e9a68cfb GT	81	static int dl_unbind_func(DSO dso, char symname, DSO_FUNC_TYPE symptr);
8f4fac7f GT	82	static int dl_init(DSO *dso);
8f4fac7f GT	83	static int dl_finish(DSO *dso);
b9e63915	84	static int dl_ctrl(DSO dso, int cmd, long larg, void parg);
75a382bd	85	#endif
51c8dc37	86	static char dl_name_converter(DSO dso, const char *filename);
8f4fac7f GT	87
	88	static DSO_METHOD dso_meth_dl = {
	89	"OpenSSL 'dl' shared library method",
	90	dl_load,
	91	dl_unload,
e9a68cfb GT	92	dl_bind_var,
e9a68cfb GT	93	dl_bind_func,
8f4fac7f GT	94	/* For now, "unbind" doesn't exist */
8f4fac7f GT	95	#if 0
e9a68cfb GT	96	NULL, /* unbind_var */
e9a68cfb GT	97	NULL, /* unbind_func */
8f4fac7f	98	#endif
75a382bd	99	NULL, /* ctrl */
51c8dc37	100	dl_name_converter,
8f4fac7f GT	101	NULL, /* init */
	102	NULL /* finish */
	103	};
	104
	105	DSO_METHOD *DSO_METHOD_dl(void)
	106	{
	107	return(&dso_meth_dl);
	108	}
	109
	110	/* For this DSO_METHOD, our meth_data STACK will contain;
	111	* (i) the handle (shl_t) returned from shl_load().
	112	* NB: I checked on HPUX11 and shl_t is itself a pointer
	113	* type so the cast is safe.
	114	*/
	115
51c8dc37	116	static int dl_load(DSO *dso)
8f4fac7f	117	{
51c8dc37 GT	118	shl_t ptr = NULL;
	119	/* We don't do any fancy retries or anything, just take the method's
	120	* (or DSO's if it has the callback set) best translation of the
	121	* platform-independant filename and try once with that. */
	122	char *filename= DSO_convert_filename(dso, NULL);
8f4fac7f	123
51c8dc37	124	if(filename == NULL)
b9e63915	125	{
51c8dc37 GT	126	DSOerr(DSO_F_DL_LOAD,DSO_R_NO_FILENAME);
51c8dc37 GT	127	goto err;
b9e63915	128	}
e06433d9	129	ptr = shl_load(filename, BIND_IMMEDIATE\|DYNAMIC_PATH, NULL);
8f4fac7f GT	130	if(ptr == NULL)
	131	{
	132	DSOerr(DSO_F_DL_LOAD,DSO_R_LOAD_FAILED);
acf60ef7 RL	133	ERR_add_error_data(4, "filename(", filename, "): ",
acf60ef7 RL	134	strerror(errno));
51c8dc37	135	goto err;
8f4fac7f GT	136	}
	137	if(!sk_push(dso->meth_data, (char *)ptr))
	138	{
	139	DSOerr(DSO_F_DL_LOAD,DSO_R_STACK_ERROR);
51c8dc37	140	goto err;
8f4fac7f	141	}
51c8dc37 GT	142	/* Success, stick the converted filename we've loaded under into the DSO
	143	* (it also serves as the indicator that we are currently loaded). */
	144	dso->loaded_filename = filename;
8f4fac7f	145	return(1);
51c8dc37 GT	146	err:
	147	/* Cleanup! */
	148	if(filename != NULL)
	149	OPENSSL_free(filename);
	150	if(ptr != NULL)
	151	shl_unload(ptr);
	152	return(0);
8f4fac7f GT	153	}
	154
	155	static int dl_unload(DSO *dso)
	156	{
	157	shl_t ptr;
	158	if(dso == NULL)
	159	{
	160	DSOerr(DSO_F_DL_UNLOAD,ERR_R_PASSED_NULL_PARAMETER);
	161	return(0);
	162	}
	163	if(sk_num(dso->meth_data) < 1)
ebbaebf7	164	return(1);
8f4fac7f GT	165	/* Is this statement legal? */
	166	ptr = (shl_t)sk_pop(dso->meth_data);
	167	if(ptr == NULL)
	168	{
	169	DSOerr(DSO_F_DL_UNLOAD,DSO_R_NULL_HANDLE);
	170	/* Should push the value back onto the stack in
	171	* case of a retry. */
	172	sk_push(dso->meth_data, (char *)ptr);
	173	return(0);
	174	}
	175	shl_unload(ptr);
	176	return(1);
	177	}
	178
e9a68cfb	179	static void dl_bind_var(DSO dso, const char *symname)
8f4fac7f GT	180	{
	181	shl_t ptr;
	182	void *sym;
	183
e9a68cfb	184	if((dso == NULL) \|\| (symname == NULL))
8f4fac7f	185	{
e9a68cfb GT	186	DSOerr(DSO_F_DL_BIND_VAR,ERR_R_PASSED_NULL_PARAMETER);
e9a68cfb GT	187	return(NULL);
8f4fac7f GT	188	}
	189	if(sk_num(dso->meth_data) < 1)
	190	{
e9a68cfb GT	191	DSOerr(DSO_F_DL_BIND_VAR,DSO_R_STACK_ERROR);
e9a68cfb GT	192	return(NULL);
8f4fac7f	193	}
8f4fac7f GT	194	ptr = (shl_t)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
	195	if(ptr == NULL)
	196	{
e9a68cfb GT	197	DSOerr(DSO_F_DL_BIND_VAR,DSO_R_NULL_HANDLE);
e9a68cfb GT	198	return(NULL);
8f4fac7f	199	}
e9a583aa	200	if (shl_findsym(&ptr, symname, TYPE_UNDEFINED, &sym) < 0)
8f4fac7f	201	{
e9a68cfb	202	DSOerr(DSO_F_DL_BIND_VAR,DSO_R_SYM_FAILURE);
acf60ef7 RL	203	ERR_add_error_data(4, "symname(", symname, "): ",
acf60ef7 RL	204	strerror(errno));
e9a68cfb	205	return(NULL);
8f4fac7f	206	}
e9a68cfb GT	207	return(sym);
	208	}
	209
	210	static DSO_FUNC_TYPE dl_bind_func(DSO dso, const char symname)
	211	{
	212	shl_t ptr;
	213	void *sym;
	214
	215	if((dso == NULL) \|\| (symname == NULL))
	216	{
	217	DSOerr(DSO_F_DL_BIND_FUNC,ERR_R_PASSED_NULL_PARAMETER);
	218	return(NULL);
	219	}
	220	if(sk_num(dso->meth_data) < 1)
	221	{
	222	DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_STACK_ERROR);
	223	return(NULL);
	224	}
	225	ptr = (shl_t)sk_value(dso->meth_data, sk_num(dso->meth_data) - 1);
	226	if(ptr == NULL)
	227	{
	228	DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_NULL_HANDLE);
	229	return(NULL);
	230	}
e9a583aa	231	if (shl_findsym(&ptr, symname, TYPE_UNDEFINED, &sym) < 0)
e9a68cfb GT	232	{
e9a68cfb GT	233	DSOerr(DSO_F_DL_BIND_FUNC,DSO_R_SYM_FAILURE);
acf60ef7 RL	234	ERR_add_error_data(4, "symname(", symname, "): ",
acf60ef7 RL	235	strerror(errno));
e9a68cfb GT	236	return(NULL);
	237	}
	238	return((DSO_FUNC_TYPE)sym);
8f4fac7f GT	239	}
8f4fac7f GT	240
51c8dc37 GT	241	/* This function is identical to the one in dso_dlfcn.c, but as it is highly
51c8dc37 GT	242	* unlikely that both the "dl" and "dlfcn" variants are being compiled at the
551e5990 RL	243	* same time, there's no great duplicating the code. Figuring out an elegant
	244	* way to share one copy of the code would be more difficult and would not
	245	* leave the implementations independant. */
	246	#if defined(__hpux)
	247	static const char extension[] = ".sl";
	248	#else
	249	static const char extension[] = ".so";
	250	#endif
51c8dc37 GT	251	static char dl_name_converter(DSO dso, const char *filename)
	252	{
	253	char *translated;
d9efa361	254	int len, rsize, transform;
51c8dc37 GT	255
51c8dc37 GT	256	len = strlen(filename);
d9efa361	257	rsize = len + 1;
51c8dc37	258	transform = (strstr(filename, "/") == NULL);
d9efa361	259	{
551e5990 RL	260	/* We will convert this to "%s.s?" or "lib%s.s?" */
551e5990 RL	261	rsize += strlen(extension);/* The length of ".s?" */
d9efa361 RL	262	if ((DSO_flags(dso) & DSO_FLAG_NAME_TRANSLATION_EXT_ONLY) == 0)
	263	rsize += 3; /* The length of "lib" */
	264	}
	265	translated = OPENSSL_malloc(rsize);
51c8dc37 GT	266	if(translated == NULL)
	267	{
	268	DSOerr(DSO_F_DL_NAME_CONVERTER,
	269	DSO_R_NAME_TRANSLATION_FAILED);
	270	return(NULL);
	271	}
	272	if(transform)
d9efa361 RL	273	{
d9efa361 RL	274	if ((DSO_flags(dso) & DSO_FLAG_NAME_TRANSLATION_EXT_ONLY) == 0)
551e5990	275	sprintf(translated, "lib%s%s", filename, extension);
d9efa361	276	else
551e5990	277	sprintf(translated, "%s%s", filename, extension);
d9efa361	278	}
51c8dc37 GT	279	else
	280	sprintf(translated, "%s", filename);
	281	return(translated);
	282	}
	283
8f4fac7f	284	#endif /* DSO_DL */