1996-08-21 15:03:37 +00:00
|
|
|
/********************************************************************
|
|
|
|
|
1996-08-22 00:06:59 +00:00
|
|
|
import_nt.c
|
1996-08-21 15:03:37 +00:00
|
|
|
|
|
|
|
Win32 specific import code.
|
|
|
|
|
|
|
|
*/
|
|
|
|
|
1997-05-05 21:45:44 +00:00
|
|
|
#include "Python.h"
|
1996-08-21 15:03:37 +00:00
|
|
|
#include "osdefs.h"
|
|
|
|
#include <windows.h>
|
|
|
|
#include "importdl.h"
|
|
|
|
|
1997-08-13 19:53:11 +00:00
|
|
|
/* Return whether this is Win32s, i.e., Win32 API on Win 3.1(1).
|
|
|
|
This function is exported! */
|
|
|
|
|
|
|
|
BOOL PyWin_IsWin32s()
|
|
|
|
{
|
|
|
|
static BOOL bIsWin32s = -1; /* flag as "not yet looked" */
|
|
|
|
|
|
|
|
if (bIsWin32s == -1) {
|
|
|
|
OSVERSIONINFO ver;
|
|
|
|
ver.dwOSVersionInfoSize = sizeof(ver);
|
|
|
|
GetVersionEx(&ver);
|
|
|
|
bIsWin32s = ver.dwPlatformId == VER_PLATFORM_WIN32s;
|
|
|
|
}
|
|
|
|
return bIsWin32s;
|
|
|
|
}
|
1996-08-21 15:03:37 +00:00
|
|
|
|
|
|
|
FILE *PyWin_FindRegisteredModule( const char *moduleName, struct filedescr **ppFileDesc, char *pathBuf, int pathLen)
|
|
|
|
{
|
|
|
|
char moduleKey[128];
|
|
|
|
struct filedescr *fdp = NULL;
|
|
|
|
FILE *fp;
|
|
|
|
int modNameSize = pathLen;
|
|
|
|
HKEY keyBase = PyWin_IsWin32s() ? HKEY_CLASSES_ROOT : HKEY_LOCAL_MACHINE;
|
1996-08-23 18:42:39 +00:00
|
|
|
strcpy(moduleKey, "Software\\Python\\PythonCore\\" MS_DLL_ID "\\Modules\\");
|
1996-08-21 15:03:37 +00:00
|
|
|
strcat(moduleKey, moduleName);
|
|
|
|
if (RegQueryValue(keyBase, moduleKey, pathBuf, &modNameSize)!=ERROR_SUCCESS)
|
|
|
|
return NULL;
|
|
|
|
// use the file extension to locate the type entry.
|
1997-05-08 23:43:52 +00:00
|
|
|
for (fdp = _PyImport_Filetab; fdp->suffix != NULL; fdp++) {
|
1996-08-21 15:03:37 +00:00
|
|
|
int extLen=strlen(fdp->suffix);
|
|
|
|
if (modNameSize>extLen && strnicmp(pathBuf+(modNameSize-extLen-1),fdp->suffix,extLen)==0)
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
if (fdp->suffix==NULL)
|
|
|
|
return NULL;
|
|
|
|
fp = fopen(pathBuf, fdp->mode);
|
|
|
|
if (fp != NULL)
|
|
|
|
*ppFileDesc = fdp;
|
|
|
|
return fp;
|
|
|
|
}
|