newlib/winsup/cygwin/dlfcn.cc

157 lines
3.5 KiB
C++
Raw Normal View History

2000-02-17 20:38:33 +01:00
/* dlfcn.cc
2001-03-18 04:34:05 +01:00
Copyright 1998, 2000, 2001 Red Hat, Inc.
2000-02-17 20:38:33 +01:00
This file is part of Cygwin.
This software is a copyrighted work licensed under the terms of the
Cygwin license. Please consult the file "CYGWIN_LICENSE" for
details. */
#include "winsup.h"
2000-02-17 20:38:33 +01:00
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <ctype.h>
#include "security.h"
#include "fhandler.h"
2001-03-05 07:28:25 +01:00
#include "perprocess.h"
#include "path.h"
#include "thread.h"
#include "dlfcn.h"
#include "dll_init.h"
#include "cygerrno.h"
2000-02-17 20:38:33 +01:00
#define _dl_error _reent_winsup ()->_dl_error
#define _dl_buffer _reent_winsup ()->_dl_buffer
2000-02-17 20:38:33 +01:00
static void __stdcall
set_dl_error (const char *str)
{
__small_sprintf (_dl_buffer, "%s: %E", str);
_dl_error = 1;
}
/* Look for an executable file given the name and the environment
variable to use for searching (eg., PATH); returns the full
pathname (static buffer) if found or NULL if not. */
inline const char * __stdcall
check_path_access (const char *mywinenv, const char *name, path_conv& buf)
2000-02-17 20:38:33 +01:00
{
return find_exec (name, buf, mywinenv, FE_NNF | FE_NATIVE | FE_CWD);
2000-02-17 20:38:33 +01:00
}
/* Search LD_LIBRARY_PATH for dll, if it exists.
Return Windows version of given path. */
2000-02-17 20:38:33 +01:00
static const char * __stdcall
get_full_path_of_dll (const char* str, char *name)
2000-02-17 20:38:33 +01:00
{
int len = strlen (str);
2000-02-17 20:38:33 +01:00
/* empty string or too long to be legal win32 pathname? */
2000-02-17 20:38:33 +01:00
if (len == 0 || len >= MAX_PATH - 1)
return str; /* Yes. Let caller deal with it. */
2000-02-17 20:38:33 +01:00
const char *ret;
2000-02-17 20:38:33 +01:00
strcpy (name, str); /* Put it somewhere where we can manipulate it. */
2000-02-17 20:38:33 +01:00
/* Add extension if necessary */
2000-02-17 20:38:33 +01:00
if (str[len - 1] != '.')
{
/* Add .dll only if no extension provided. */
2000-02-17 20:38:33 +01:00
const char *p = strrchr (str, '.');
if (!p || strpbrk (p, "\\/"))
2000-02-17 20:38:33 +01:00
strcat (name, ".dll");
}
path_conv real_filename;
2000-02-17 20:38:33 +01:00
if (isabspath (name) ||
(ret = check_path_access ("LD_LIBRARY_PATH=", name, real_filename)) == NULL)
real_filename.check (name); /* Convert */
2000-02-17 20:38:33 +01:00
if (!real_filename.error)
ret = strcpy (name, real_filename);
else
2000-02-17 20:38:33 +01:00
{
set_errno (real_filename.error);
ret = NULL;
2000-02-17 20:38:33 +01:00
}
return ret;
}
void *
dlopen (const char *name, int)
{
SetResourceLock (LOCK_DLL_LIST, READ_LOCK | WRITE_LOCK, "dlopen");
2000-02-17 20:38:33 +01:00
2001-03-05 07:28:25 +01:00
void *ret;
2000-02-17 20:38:33 +01:00
if (name == NULL)
2001-03-05 07:28:25 +01:00
ret = (void *) GetModuleHandle (NULL); /* handle for the current module */
2000-02-17 20:38:33 +01:00
else
{
char buf[MAX_PATH];
/* handle for the named library */
const char *fullpath = get_full_path_of_dll (name, buf);
if (!fullpath)
ret = NULL;
else
{
ret = (void *) LoadLibrary (fullpath);
if (ret == NULL)
__seterrno ();
}
2000-02-17 20:38:33 +01:00
}
if (!ret)
set_dl_error ("dlopen");
debug_printf ("ret %p", ret);
ReleaseResourceLock (LOCK_DLL_LIST, READ_LOCK | WRITE_LOCK, "dlopen");
2000-02-17 20:38:33 +01:00
return ret;
}
void *
dlsym (void *handle, const char *name)
{
void *ret = (void *) GetProcAddress ((HMODULE) handle, name);
if (!ret)
set_dl_error ("dlsym");
debug_printf ("ret %p", ret);
return ret;
}
int
dlclose (void *handle)
{
SetResourceLock (LOCK_DLL_LIST, READ_LOCK | WRITE_LOCK, "dlclose");
2000-02-17 20:38:33 +01:00
int ret = -1;
void *temphandle = (void *) GetModuleHandle (NULL);
if (temphandle == handle || FreeLibrary ((HMODULE) handle))
2000-02-17 20:38:33 +01:00
ret = 0;
if (ret)
set_dl_error ("dlclose");
CloseHandle ((HMODULE) temphandle);
2000-02-17 20:38:33 +01:00
ReleaseResourceLock (LOCK_DLL_LIST, READ_LOCK | WRITE_LOCK, "dlclose");
2000-02-17 20:38:33 +01:00
return ret;
}
char *
dlerror ()
{
char *res;
if (!_dl_error)
res = NULL;
else
{
_dl_error = 0;
res = _dl_buffer;
}
return res;
2000-02-17 20:38:33 +01:00
}