tinycobol/lib/dlfcnwin32.h

60 lines
1.8 KiB
C

/*
* Copyright (C) 2004 David Essex.
* Copyright (C) 2001, 2000, 1999 Rildo Pragana, Jim Noeth,
* Andrew Cameron, David Essex.
* Copyright (C) 1993, 1991 Rildo Pragana.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
* as published by the Free Software Foundation; either version 2.1,
* or (at your option) any later version.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; see the file COPYING.LIB. If
* not, write to the Free Software Foundation, Inc., 59 Temple Place,
* Suite 330, Boston, MA 02111-1307 USA
*
*
* This source is derived from a post on the MinGW list by Wu Yongwei.
*
* Emulates some of the POSIX functions found in "dlfcn.h"
*
*/
#ifndef _DLFCN_WIN32_H
#define _DLFCN_WIN32_H
#ifdef WIN32_LEAN_AND_MEAN
# include <windows.h>
#else
# define WIN32_LEAN_AND_MEAN
# include <windows.h>
# undef WIN32_LEAN_AND_MEAN
#endif
#include <errno.h>
#define dlopen(P,G) (void*)LoadLibrary(P)
#define dlsym(D,F) (void*)GetProcAddress((HMODULE)(D),(F))
#define dlclose(D) FreeLibrary((HMODULE)(D))
__inline const char* dlerror()
{
static char szMsgBuf[256];
FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM | FORMAT_MESSAGE_IGNORE_INSERTS,
NULL,
GetLastError(),
MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT),
szMsgBuf,
sizeof szMsgBuf,
NULL);
return szMsgBuf;
}
#endif /* _DLFCN_WIN32_H */