mirror of
https://github.com/reactos/reactos.git
synced 2024-11-04 22:00:55 +00:00
129 lines
2.9 KiB
C
129 lines
2.9 KiB
C
/* $Id: dlopen.c,v 1.4 2002/10/29 04:45:28 rex Exp $
|
|
*/
|
|
/*
|
|
* COPYRIGHT: See COPYING in the top level directory
|
|
* PROJECT: ReactOS POSIX+ Subsystem
|
|
* FILE: subsys/psx/lib/psxdll/dlfcn/dlopen.c
|
|
* PURPOSE: Gain access to an executable object file
|
|
* PROGRAMMER: KJK::Hyperion <noog@libero.it>
|
|
* UPDATE HISTORY:
|
|
* 19/12/2001: Created
|
|
*/
|
|
|
|
#include <ddk/ntddk.h>
|
|
#include <ntdll/rtl.h>
|
|
#include <ntdll/ldr.h>
|
|
#include <wchar.h>
|
|
#include <dlfcn.h>
|
|
#include <stdlib.h>
|
|
#include <psx/dlfcn.h>
|
|
#include <psx/errno.h>
|
|
#include <psx/debug.h>
|
|
|
|
void *__wdlopen(const wchar_t *, int);
|
|
|
|
void *dlopen(const char *file, int mode)
|
|
{
|
|
/* TODO: ANSI-to-Unicode stubs like this need to be standardized in some way */
|
|
void * pRetVal;
|
|
ANSI_STRING strFile;
|
|
UNICODE_STRING wstrFile;
|
|
|
|
RtlInitAnsiString(&strFile, (LPSTR)file);
|
|
RtlAnsiStringToUnicodeString (&wstrFile, &strFile, TRUE);
|
|
|
|
pRetVal = __wdlopen((wchar_t *)wstrFile.Buffer, mode);
|
|
|
|
free(wstrFile.Buffer);
|
|
|
|
return pRetVal;
|
|
|
|
}
|
|
|
|
void *__wdlopen(const wchar_t *file, int mode)
|
|
{
|
|
NTSTATUS nErrCode;
|
|
UNICODE_STRING wstrNativePath;
|
|
struct __dlobj * pdloObject;
|
|
|
|
if(file == 0)
|
|
{
|
|
/* POSIX dynamic linking allows for global symbol matching */
|
|
pdloObject = (struct __dlobj *)malloc(sizeof(struct __dlobj));
|
|
|
|
TODO("\
|
|
move the global symbol matching semantics into the PE Loader \
|
|
(NTDLL Ldr family of calls), and just return a pointer to the module \
|
|
image\
|
|
");
|
|
|
|
pdloObject->global = 1;
|
|
return (pdloObject);
|
|
}
|
|
|
|
FIXME("\
|
|
LdrLoadDll() only accepts DOS paths - probably because the POSIX \
|
|
standard didn't specify dynamic linking interfaces at the time Windows NT \
|
|
was born \
|
|
");
|
|
|
|
#if 0
|
|
/* TODO: LdrLoadNtDll() or LdrLoadDllEx() (the former is preferrable, since
|
|
the latter is more likely to be implemented with different purposes from
|
|
Microsoft), accepting native NT paths */
|
|
|
|
if(wcschr(file, '/'L) != NULL)
|
|
{
|
|
/* TODO: RtlPosixPathNameToNtPathName_U */
|
|
if(!RtlPosixPathNameToNtPathName_U((LPWSTR)file, &wstrNativePath, NULL, NULL))
|
|
{
|
|
__dl_set_last_error(ENOENT);
|
|
return (NULL);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
RtlInitUnicodeString(&wstrNativePath, (LPWSTR)file);
|
|
}
|
|
#endif
|
|
|
|
RtlInitUnicodeString(&wstrNativePath, (LPWSTR)file);
|
|
|
|
pdloObject = (struct __dlobj *)malloc(sizeof(struct __dlobj));
|
|
pdloObject->global = 0;
|
|
|
|
WARN("\
|
|
mode flags are not fully supported by Windows NT, due to the \
|
|
completely different semantics of dynamical linking (for \
|
|
example the global symbol matching is unsupported). This \
|
|
implementation will then behave as if mode was set to \
|
|
(RTLD_NOW | RTLD_GLOBAL), and fail if other flags are set.\
|
|
");
|
|
|
|
if(__dl_get_scope_flag(mode) == RTLD_LOCAL)
|
|
{
|
|
__dl_set_last_error(EINVAL);
|
|
return (NULL);
|
|
}
|
|
|
|
/* load the DLL */
|
|
nErrCode = LdrLoadDll
|
|
(
|
|
NULL,
|
|
0,
|
|
&wstrNativePath,
|
|
(PVOID*)&pdloObject->handle
|
|
);
|
|
|
|
if(!NT_SUCCESS(nErrCode))
|
|
{
|
|
__dl_set_last_error(__status_to_errno(nErrCode));
|
|
return (NULL);
|
|
}
|
|
|
|
return (pdloObject);
|
|
|
|
}
|
|
|
|
/* EOF */
|
|
|