| 
									
										
										
										
											1999-12-20 21:18:49 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | /* Support for dynamic loading of extension modules */ | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #define  INCL_DOSERRORS
 | 
					
						
							|  |  |  | #define  INCL_DOSMODULEMGR
 | 
					
						
							|  |  |  | #include <os2.h>
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | #include "Python.h"
 | 
					
						
							|  |  |  | #include "importdl.h"
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | const struct filedescr _PyImport_DynLoadFiletab[] = { | 
					
						
							|  |  |  | 	{".pyd", "rb", C_EXTENSION}, | 
					
						
							|  |  |  | 	{".dll", "rb", C_EXTENSION}, | 
					
						
							|  |  |  | 	{0, 0} | 
					
						
							|  |  |  | }; | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											1999-12-22 14:09:35 +00:00
										 |  |  | dl_funcptr _PyImport_GetDynLoadFunc(const char *fqname, const char *shortname, | 
					
						
							| 
									
										
										
										
											1999-12-20 21:18:49 +00:00
										 |  |  | 				    const char *pathname, FILE *fp) | 
					
						
							|  |  |  | { | 
					
						
							|  |  |  | 	dl_funcptr p; | 
					
						
							|  |  |  | 	APIRET  rc; | 
					
						
							|  |  |  | 	HMODULE hDLL; | 
					
						
							|  |  |  | 	char failreason[256]; | 
					
						
							| 
									
										
										
										
											1999-12-22 14:09:35 +00:00
										 |  |  | 	char funcname[258]; | 
					
						
							| 
									
										
										
										
											1999-12-20 21:18:49 +00:00
										 |  |  | 
 | 
					
						
							|  |  |  | 	rc = DosLoadModule(failreason, | 
					
						
							|  |  |  | 			   sizeof(failreason), | 
					
						
							|  |  |  | 			   pathname, | 
					
						
							|  |  |  | 			   &hDLL); | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | 	if (rc != NO_ERROR) { | 
					
						
							|  |  |  | 		char errBuf[256]; | 
					
						
							| 
									
										
										
										
											2001-11-28 20:42:20 +00:00
										 |  |  | 		PyOS_snprintf(errBuf, sizeof(errBuf), | 
					
						
							|  |  |  | 			      "DLL load failed, rc = %d: %.200s", | 
					
						
							|  |  |  | 			      rc, failreason); | 
					
						
							| 
									
										
										
										
											1999-12-20 21:18:49 +00:00
										 |  |  | 		PyErr_SetString(PyExc_ImportError, errBuf); | 
					
						
							|  |  |  | 		return NULL; | 
					
						
							|  |  |  | 	} | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2001-11-28 20:42:20 +00:00
										 |  |  | 	PyOS_snprintf(funcname, sizeof(funcname), "init%.200s", shortname); | 
					
						
							| 
									
										
										
										
											1999-12-20 21:18:49 +00:00
										 |  |  | 	rc = DosQueryProcAddr(hDLL, 0L, funcname, &p); | 
					
						
							|  |  |  | 	if (rc != NO_ERROR) | 
					
						
							|  |  |  | 		p = NULL; /* Signify Failure to Acquire Entrypoint */ | 
					
						
							|  |  |  | 	return p; | 
					
						
							|  |  |  | } |