Current News Archived News Search News Discussion Forum Old Forum Install Programs More Downloads... Troubleshooting Source Code Format Specs. Misc. Information Non-SF Stuff Links Small banner for links to this site: |
1 /*\r
2 Storm.cpp\r
3 */\r
4 \r
5 #include "storm.h"\r
6 \r
7 struct STORMMODULE {\r
8 STORMMODULE();\r
9 ~STORMMODULE();\r
10 } Storm;\r
11 \r
12 HINSTANCE hStorm = 0;\r
13 BOOL AlreadyLoaded = FALSE;\r
14 \r
15 // Storm Function Names\r
16 funcSFileCloseArchive SFileCloseArchive = 0;\r
17 funcSFileCloseFile SFileCloseFile = 0;\r
18 funcSFileDestroy SFileDestroy = 0;\r
19 funcSFileGetFileArchive SFileGetFileArchive = 0;\r
20 funcSFileGetFileSize SFileGetFileSize = 0;\r
21 funcSFileOpenArchive SFileOpenArchive = 0;\r
22 funcSFileOpenFile SFileOpenFile = 0;\r
23 funcSFileOpenFileEx SFileOpenFileEx = 0;\r
24 funcSFileReadFile SFileReadFile = 0;\r
25 funcSFileSetBasePath SFileSetBasePath = 0;\r
26 funcSFileSetFilePointer SFileSetFilePointer = 0;\r
27 funcSFileSetLocale SFileSetLocale = 0;\r
28 funcSFileGetBasePath SFileGetBasePath = 0;\r
29 funcSFileGetArchiveName SFileGetArchiveName = 0;\r
30 funcSFileGetFileName SFileGetFileName = 0;\r
31 \r
32 STORMMODULE::STORMMODULE()\r
33 {\r
34 if (hStorm!=0) return;\r
35 const char STORM_DLL[] = "Storm.dll";\r
36 hStorm = GetModuleHandle(STORM_DLL);\r
37 if (hStorm == NULL) hStorm = LoadLibrary(STORM_DLL);\r
38 else AlreadyLoaded=TRUE;\r
39 \r
40 if (hStorm != NULL)\r
41 {\r
42 SFileCloseArchive = (funcSFileCloseArchive)GetProcAddress(hStorm, (LPCSTR)0xFC);\r
43 SFileCloseFile = (funcSFileCloseFile)GetProcAddress(hStorm, (LPCSTR)0xFD);\r
44 SFileDestroy = (funcSFileDestroy)GetProcAddress(hStorm, (LPCSTR)0x106);\r
45 SFileGetFileArchive = (funcSFileGetFileArchive)GetProcAddress(hStorm, (LPCSTR)0x108);\r
46 SFileGetFileSize = (funcSFileGetFileSize)GetProcAddress(hStorm, (LPCSTR)0x109);\r
47 SFileOpenArchive = (funcSFileOpenArchive)GetProcAddress(hStorm, (LPCSTR)0x10A);\r
48 SFileOpenFile = (funcSFileOpenFile)GetProcAddress(hStorm, (LPCSTR)0x10B);\r
49 SFileOpenFileEx = (funcSFileOpenFileEx)GetProcAddress(hStorm, (LPCSTR)0x10C);\r
50 SFileReadFile = (funcSFileReadFile)GetProcAddress(hStorm, (LPCSTR)0x10D);\r
51 SFileSetBasePath = (funcSFileSetBasePath)GetProcAddress(hStorm, (LPCSTR)0x10E);\r
52 SFileSetFilePointer = (funcSFileSetFilePointer)GetProcAddress(hStorm, (LPCSTR)0x10F);\r
53 SFileSetLocale = (funcSFileSetLocale)GetProcAddress(hStorm, (LPCSTR)0x110);\r
54 SFileGetBasePath = (funcSFileGetBasePath)GetProcAddress(hStorm, (LPCSTR)0x111);\r
55 SFileGetArchiveName = (funcSFileGetArchiveName)GetProcAddress(hStorm, (LPCSTR)0x113);\r
56 SFileGetFileName = (funcSFileGetFileName)GetProcAddress(hStorm, (LPCSTR)0x114);\r
57 }\r
58 if (SFileDestroy && !AlreadyLoaded) SFileDestroy();\r
59 }\r
60 \r
61 STORMMODULE::~STORMMODULE()\r
62 {\r
63 SFileCloseArchive = 0;\r
64 SFileCloseFile = 0;\r
65 SFileDestroy = 0;\r
66 SFileGetFileArchive = 0;\r
67 SFileGetFileSize = 0;\r
68 SFileOpenArchive = 0;\r
69 SFileOpenFile = 0;\r
70 SFileOpenFileEx = 0;\r
71 SFileReadFile = 0;\r
72 SFileSetBasePath = 0;\r
73 SFileSetFilePointer = 0;\r
74 SFileSetLocale = 0;\r
75 SFileGetBasePath = 0;\r
76 SFileGetArchiveName = 0;\r
77 SFileGetFileName = 0;\r
78 \r
79 if (hStorm==0) return;\r
80 \r
81 if (AlreadyLoaded==FALSE) FreeLibrary(hStorm);\r
82 hStorm = 0;\r
83 }\r
84 \r
85 HINSTANCE LoadStorm(char * DllFileName)\r
86 {\r
87 if (hStorm!=0) return 0;\r
88 hStorm = GetModuleHandle(DllFileName);\r
89 if (hStorm == NULL) hStorm = LoadLibrary(DllFileName);\r
90 else AlreadyLoaded=TRUE;\r
91 \r
92 if (hStorm != NULL)\r
93 {\r
94 SFileCloseArchive = (funcSFileCloseArchive)GetProcAddress(hStorm, (LPCSTR)0xFC);\r
95 SFileCloseFile = (funcSFileCloseFile)GetProcAddress(hStorm, (LPCSTR)0xFD);\r
96 SFileDestroy = (funcSFileDestroy)GetProcAddress(hStorm, (LPCSTR)0x106);\r
97 SFileGetFileArchive = (funcSFileGetFileArchive)GetProcAddress(hStorm, (LPCSTR)0x108);\r
98 SFileGetFileSize = (funcSFileGetFileSize)GetProcAddress(hStorm, (LPCSTR)0x109);\r
99 SFileOpenArchive = (funcSFileOpenArchive)GetProcAddress(hStorm, (LPCSTR)0x10A);\r
100 SFileOpenFile = (funcSFileOpenFile)GetProcAddress(hStorm, (LPCSTR)0x10B);\r
101 SFileOpenFileEx = (funcSFileOpenFileEx)GetProcAddress(hStorm, (LPCSTR)0x10C);\r
102 SFileReadFile = (funcSFileReadFile)GetProcAddress(hStorm, (LPCSTR)0x10D);\r
103 SFileSetBasePath = (funcSFileSetBasePath)GetProcAddress(hStorm, (LPCSTR)0x10E);\r
104 SFileSetFilePointer = (funcSFileSetFilePointer)GetProcAddress(hStorm, (LPCSTR)0x10F);\r
105 SFileSetLocale = (funcSFileSetLocale)GetProcAddress(hStorm, (LPCSTR)0x110);\r
106 SFileGetBasePath = (funcSFileGetBasePath)GetProcAddress(hStorm, (LPCSTR)0x111);\r
107 SFileGetArchiveName = (funcSFileGetArchiveName)GetProcAddress(hStorm, (LPCSTR)0x113);\r
108 SFileGetFileName = (funcSFileGetFileName)GetProcAddress(hStorm, (LPCSTR)0x114);\r
109 }\r
110 if (SFileDestroy && !AlreadyLoaded) SFileDestroy();\r
111 if (AlreadyLoaded==TRUE) return 0;\r
112 return hStorm;\r
113 }\r
114 \r
|