annotate dynload/dynload_syms_pe.c @ 230:6c7591cef6a8

- dynload_syms_pe.c cleanup
author Tassilo Philipp
date Sun, 16 Apr 2017 16:17:47 +0200
parents 3e629dc19168
children f5577f6bf97a
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
1 /*
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
2
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
3 Package: dyncall
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
4 Library: dynload
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
5 File: dynload/dynload_syms_pe.c
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
6 Description:
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
7 License:
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
8
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
9 Copyright (c) 2007-2017 Daniel Adler <dadler@uni-goettingen.de>,
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
10 Tassilo Philipp <tphilipp@potion-studios.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
11 Olivier Chafik <olivier.chafik@gmail.com>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
12
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
13 Permission to use, copy, modify, and distribute this software for any
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
14 purpose with or without fee is hereby granted, provided that the above
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
15 copyright notice and this permission notice appear in all copies.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
16
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
17 THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
18 WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
19 MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
20 ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
21 WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
22 ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
23 OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
24
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
25 */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
26
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
27
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
28
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
29 #include "dynload.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
30 #include "dynload_alloc.h"
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
31
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
32 #include <windows.h>
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
33
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
34 struct DLSyms_
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
35 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
36 DLLib* pLib;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
37 const char* pBase;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
38 const DWORD* pNames;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
39 const DWORD* pFuncs;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
40 const unsigned short* pOrds;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
41 size_t count;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
42 };
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
43
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
44
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
45 DLSyms* dlSymsInit(const char* libPath)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
46 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
47 DLLib* pLib;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
48 DLSyms* pSyms;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
49 IMAGE_DOS_HEADER* pDOSHeader;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
50 IMAGE_NT_HEADERS* pNTHeader;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
51 IMAGE_DATA_DIRECTORY* pExportsDataDir;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
52 IMAGE_EXPORT_DIRECTORY* pExports;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
53 const char* base;
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
54
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
55 pLib = dlLoadLibrary(libPath);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
56 if(!pLib)
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
57 return NULL;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
58
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
59 base = (const char*)pLib;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
60 pDOSHeader = (IMAGE_DOS_HEADER*)base;
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
61 pNTHeader = (IMAGE_NT_HEADERS*)(base + pDOSHeader->e_lfanew);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
62 pExportsDataDir = &pNTHeader->OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_EXPORT];
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
63 pExports = (IMAGE_EXPORT_DIRECTORY*)(base + pExportsDataDir->VirtualAddress);
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
64
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
65 pSyms = (DLSyms*)dlAllocMem(sizeof(DLSyms));
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
66 pSyms->pBase = base;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
67 pSyms->pNames = (DWORD*)(base + pExports->AddressOfNames);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
68 pSyms->pFuncs = (DWORD*)(base + pExports->AddressOfFunctions);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
69 pSyms->pOrds = (unsigned short*)(base + pExports->AddressOfNameOrdinals);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
70 pSyms->count = (size_t)pExports->NumberOfNames;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
71 pSyms->pLib = pLib;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
72
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
73 return pSyms;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
74 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
75
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
76
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
77 void dlSymsCleanup(DLSyms* pSyms)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
78 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
79 if(pSyms) {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
80 dlFreeLibrary(pSyms->pLib);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
81 dlFreeMem(pSyms);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
82 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
83 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
84
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
85
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
86 int dlSymsCount(DLSyms* pSyms)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
87 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
88 return (int)pSyms->count;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
89 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
90
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
91
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
92 const char* dlSymsName(DLSyms* pSyms, int index)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
93 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
94 return pSyms->pBase + pSyms->pNames[index];
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
95 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
96
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
97
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
98 const char* dlSymsNameFromValue(DLSyms* pSyms, void* value)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
99 {
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
100 int i, c=dlSymsCount(pSyms);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
101 for(i=0; i<c; ++i)
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
102 {
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
103 if((void*)(pSyms->pBase + pSyms->pFuncs[pSyms->pOrds[i]]) == value)
0
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
104 return dlSymsName(pSyms, i);
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
105 }
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
106
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
107 /* Not found. */
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
108 return NULL;
3e629dc19168 initial from svn dyncall-1745
Daniel Adler
parents:
diff changeset
109 }
230
6c7591cef6a8 - dynload_syms_pe.c cleanup
Tassilo Philipp
parents: 0
diff changeset
110