Re: [Mingw-users] dlfcn for MinGW

[Vincent T. <vt...@un...>]

Hey,

there is already some code in the ML, from Roge Wells.

I paste it below.

Maybe that code should go into Mingw.

regards

Vincent Torri


#define RTLD_LAZY 1 /* lazy function call binding */
#define RTLD_NOW 2 /* immediate function call binding */
#define RTLD_GLOBAL 4 /* symbols in this dlopen'ed obj are visible
 			 to other dlopen'ed objs */

static char *dlerr_ptr;
static char dlerr_data[80];

void *dlopen (const char *file, int mode)
{
   HMODULE hmodule;

   hmodule = LoadLibrary(file);
   if (hmodule == NULL) {
     int error;

     error = GetLastError();
     sprintf(dlerr_data, "LoadLibraryEx returned %d.", error);
     dlerr_ptr = dlerr_data;
   }
   return hmodule;
}

int dlclose (void *handle)
{
   if (FreeLibrary(handle)) {
     return 0;
   }
   else {
     int error;

     error = GetLastError();
     sprintf(dlerr_data, "FreeLibrary returned %d.", error);
     dlerr_ptr = dlerr_data;
     return -1;
   }
}

void *dlsym (void *handle, const char *name)
{
   FARPROC fp;

   fp = GetProcAddress(handle, name);
   if (fp == NULL) {
     int error;

     error = GetLastError();
     sprintf(dlerr_data, "GetProcAddress returned %d.", error);
     dlerr_ptr = dlerr_data;
   }
   return fp;
}

char *dlerror (void)
{
   if (dlerr_ptr != NULL) {
     dlerr_ptr = NULL;
     return dlerr_data;
   }
   else {
     return NULL;
   }
}



On Thu, 28 Jun 2007, ra...@li... wrote:

> Hello,
>
> I've seen many many different hacks for dlfcn (libdl) for Windows on the
> Internet while I was trying to compile vhooks in FFmpeg (which require
> them, and FFmpeg is quite strict on not letting in hacks into their source
> code).
>
> At that time I just used one of the hacks, but had decided to write a
> proper POSIX compliant one.
>
> Here it is now:
> http://code.google.com/p/dlfcn-win32/
>
> Could you folks take a look and help me improve it?
>
> As far as I'm concerned, it's POSIX compliant.
>
> Ramiro Polla
>
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> MinGW-users mailing list
> Min...@li...
>
> You may change your MinGW Account Options or unsubscribe at:
> https://lists.sourceforge.net/lists/listinfo/mingw-users
>
> -- 
> Ce message a été vérifié par MailScanner
> pour des virus ou des polluriels et rien de
> suspect n'a été trouvé.
> Message délivré par le serveur de messagerie de l'Université d'Evry.
>
>