Windows version added

2013-06-25 07:30:00 +00:00
parent 56dac5971e
commit f0d8697640
1 changed files with 46 additions and 0 deletions
@@ -0,0 +1,46 @@
+/*************************************************************************\
+* 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);
+}