Experimental Physics and
Industrial Control System

Dirk Zimoch <[email protected]> · Fri, 24 May 2013 15:00:55 +0200

Hi all,

Yesterday I found that there is no Windows implementation of the file

epicsFindSymbol.c which provides epicsLoadLibrary(), epicsLoadError(),

and epicsFindSymbol().

Since I find calling epicsLoadLibrary from the iocsh quite useful, I

have written the windows implementation.

Usage:

1) copy the attached file to
<base>/src/libCom/osi/os/WIN32/osdFindSymbol.c

2) rebuild base

Dirk

/*************************************************************************\
* Copyright (c) 2013 Dirk Zimoch, PSI
* EPICS BASE is distributed subject to a Software License Agreement found
* in file LICENSE that is included with this distribution. 
\*************************************************************************/
/* osi/os/WIN32/epicsFindSymbol.c */

#include <windows.h>

#define epicsExportSharedSymbols
#include "epicsFindSymbol.h"

static int epicsLoadErrorCode = 0;

epicsShareFunc void * epicsLoadLibrary(const char *name)
{
    HMODULE lib;

    epicsLoadErrorCode = 0;
    lib = LoadLibrary(name);
    if (lib == NULL)
    {
        epicsLoadErrorCode = GetLastError();
    }
    return lib;
}

epicsShareFunc const char *epicsLoadError(void)
{
    static char buffer[100];

    FormatMessage(
        FORMAT_MESSAGE_FROM_SYSTEM,
        NULL,
        epicsLoadErrorCode,
        0,
        buffer,
        sizeof(buffer)-1, NULL );
    return buffer;
}

epicsShareFunc void * epicsShareAPI epicsFindSymbol(const char *name)
{
    return GetProcAddress(0, name);
}

Experimental Physics and Industrial Control System

Experimental Physics and
Industrial Control System