osdFindSymbol.c File Reference

#include <windows.h>
#include <psapi.h>
#include "epicsStdio.h"
#include "epicsFindSymbol.h"

Include dependency graph for osdFindSymbol.c:

Go to the source code of this file.

Macros
#define	epicsEnumProcessModules   EnumProcessModules
#define	STORE   static

Functions
LIBCOM_API void *	epicsLoadLibrary (const char *name)
LIBCOM_API const char *	epicsLoadError (void)
LIBCOM_API void *epicsStdCall	epicsFindSymbol (const char *name)

Variables
STORE DWORD	epicsLoadErrorCode = 0

Macro Definition Documentation

#define epicsEnumProcessModules   EnumProcessModules

Definition at line 15 of file osdFindSymbol.c.

#define STORE   static

Definition at line 29 of file osdFindSymbol.c.

Function Documentation

LIBCOM_API void* epicsStdCall epicsFindSymbol

(

const char *

name

)

Definition at line 76 of file osdFindSymbol.c.

{
    HANDLE proc = GetCurrentProcess();
    HMODULE *dlls=NULL;
    DWORD nalloc=0u, needed=0u;
    void* ret = NULL;

    /* As a handle returned by LoadLibrary() isn't available to us,
     * try all loaded modules in arbitrary order.
     */

    if(!epicsEnumProcessModules(proc, NULL, 0, &needed)) {
        epicsLoadErrorCode = GetLastError();
        return ret;
    }

    if(!(dlls = malloc(nalloc = needed))) {
        epicsLoadErrorCode = ERROR_NOT_ENOUGH_MEMORY;
        return ret;
    }

    if(epicsEnumProcessModules(proc, dlls, nalloc, &needed)) {
        DWORD i, ndlls;

        /* settle potential races w/o retry by iterating smaller of nalloc or needed */
        if(nalloc > needed)
            nalloc = needed;

        for(i=0, ndlls = nalloc/sizeof(*dlls); !ret && i<ndlls; i++) {
            ret = GetProcAddress(dlls[i], name);
            if(!ret && GetLastError()!=ERROR_PROC_NOT_FOUND) {
                break;
            }
        }
    }

    epicsLoadErrorCode = ret ? 0 : GetLastError();
    free(dlls);
    return ret;
}

LIBCOM_API const char* epicsLoadError

(

void

)

Definition at line 45 of file osdFindSymbol.c.

{
    STORE char buffer[100];
    DWORD n;

    n = FormatMessage(
        FORMAT_MESSAGE_FROM_SYSTEM|FORMAT_MESSAGE_IGNORE_INSERTS,
        NULL,
        epicsLoadErrorCode,
        0,
        buffer,
        sizeof(buffer)-1, NULL );

    if(n) {
        /* n - number of chars stored excluding nil.
         *
         * Some messages include a trailing newline, which we strip.
         */
        for(; n>=1 && (buffer[n-1]=='\n' || buffer[n-1]=='\r'); n--)
            buffer[n-1] = '\0';
    } else {
         epicsSnprintf(buffer, sizeof(buffer),
                       "Unable to format WIN32 error code %lu",
                       (unsigned long)epicsLoadErrorCode);
         buffer[sizeof(buffer)-1] = '\0';

    }

    return buffer;
}

LIBCOM_API void* epicsLoadLibrary

(

const char *

name

)

Definition at line 35 of file osdFindSymbol.c.

{
    HMODULE lib;

    epicsLoadErrorCode = 0;
    lib = LoadLibrary(name);
    epicsLoadErrorCode = lib ? 0 : GetLastError();
    return lib;
}

Variable Documentation

STORE DWORD epicsLoadErrorCode = 0

Definition at line 33 of file osdFindSymbol.c.