cpython-lru_cache-weakref: Python/importdl.c annotate

annotate Python/importdl.c @ 9033:9962833d49fd legacy-trunk

Ted Horst writes in psa-members@python.org: This is a patch that Bill Bummgarner did for 1.4 that hasn't made its way into the distribution yet. This is important if you want to use the ObjC module.

author	Guido van Rossum <guido@python.org>
date	Mon, 24 Aug 1998 14:15:44 +0000
parents	bd47ee068b83
children	2088f80253db

rev	line source
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	1 /***********************************************************
2062 d0d0a69b5ca3 Added 1995 to copyright message. Guido van Rossum <guido@python.org> parents: 2052 diff changeset	2 Copyright 1991-1995 by Stichting Mathematisch Centrum, Amsterdam,
d0d0a69b5ca3 Added 1995 to copyright message. Guido van Rossum <guido@python.org> parents: 2052 diff changeset	3 The Netherlands.
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	4
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	5 All Rights Reserved
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	6
4503 65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	7 Permission to use, copy, modify, and distribute this software and its
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	8 documentation for any purpose and without fee is hereby granted,
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	9 provided that the above copyright notice appear in all copies and that
4503 65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	10 both that copyright notice and this permission notice appear in
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	11 supporting documentation, and that the names of Stichting Mathematisch
4503 65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	12 Centrum or CWI or Corporation for National Research Initiatives or
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	13 CNRI not be used in advertising or publicity pertaining to
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	14 distribution of the software without specific, written prior
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	15 permission.
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	16
4503 65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	17 While CWI is the initial source for this software, a modified version
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	18 is made available by the Corporation for National Research Initiatives
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	19 (CNRI) at the Internet address ftp://ftp.python.org.
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	20
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	21 STICHTING MATHEMATISCH CENTRUM AND CNRI DISCLAIM ALL WARRANTIES WITH
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	22 REGARD TO THIS SOFTWARE, INCLUDING ALL IMPLIED WARRANTIES OF
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	23 MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL STICHTING MATHEMATISCH
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	24 CENTRUM OR CNRI BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	25 DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	26 PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	27 TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
65d2d8e67da3 New permission notice, includes CNRI. Guido van Rossum <guido@python.org> parents: 4291 diff changeset	28 PERFORMANCE OF THIS SOFTWARE.
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	29
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	30 ******************************************************************/
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	31
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	32 /* Support for dynamic loading of extension modules */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	33 /* If no dynamic linking is supported, this file still generates some code! */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	34
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	35 #include "Python.h"
7988 0263d3324f0b Move #include <sys/param.h> to before osdefs.h (Donn Cave). Guido van Rossum <guido@python.org> parents: 7121 diff changeset	36
0263d3324f0b Move #include <sys/param.h> to before osdefs.h (Donn Cave). Guido van Rossum <guido@python.org> parents: 7121 diff changeset	37 #ifdef HAVE_SYS_PARAM_H
0263d3324f0b Move #include <sys/param.h> to before osdefs.h (Donn Cave). Guido van Rossum <guido@python.org> parents: 7121 diff changeset	38 /* osdefs.h will define MAXPATHLEN if it's not already defined. */
0263d3324f0b Move #include <sys/param.h> to before osdefs.h (Donn Cave). Guido van Rossum <guido@python.org> parents: 7121 diff changeset	39 #include <sys/param.h>
0263d3324f0b Move #include <sys/param.h> to before osdefs.h (Donn Cave). Guido van Rossum <guido@python.org> parents: 7121 diff changeset	40 #endif
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	41 #include "osdefs.h"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	42 #include "importdl.h"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	43
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	44 /* Explanation of some of the the various #defines used by dynamic linking...
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	45
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	46 symbol -- defined for:
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	47
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	48 DYNAMIC_LINK -- any kind of dynamic linking
2733 dc64df7f1ad6 re-enabled NeXT dynamic linking (#ifdef NeXT) Guido van Rossum <guido@python.org> parents: 2729 diff changeset	49 USE_RLD -- NeXT dynamic linking
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	50 USE_DL -- Jack's dl for IRIX 4 or GNU dld with emulation for Jack's dl
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	51 USE_SHLIB -- SunOS or IRIX 5 (SVR4?) shared libraries
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	52 _AIX -- AIX style dynamic linking
4291 1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	53 MS_WIN32 -- Windows NT style dynamic linking (using DLLs)
1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	54 MS_WIN16 -- Windows 16-bit dynamic linking (using DLLs)
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	55 PYOS_OS2 -- IBM OS/2 dynamic linking (using DLLs)
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	56 _DL_FUNCPTR_DEFINED -- if the typedef dl_funcptr has been defined
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	57 USE_MAC_DYNAMIC_LOADING -- Mac CFM shared libraries
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	58 SHORT_EXT -- short extension for dynamic module, e.g. ".so"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	59 LONG_EXT -- long extension, e.g. "module.so"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	60 hpux -- HP-UX Dynamic Linking - defined by the compiler
7114 fa09372f7872 Better #ifdefs for NetBSD, taking into account that at least on netBSD Guido van Rossum <guido@python.org> parents: 6724 diff changeset	61 __NetBSD__ -- NetBSD shared libraries
fa09372f7872 Better #ifdefs for NetBSD, taking into account that at least on netBSD Guido van Rossum <guido@python.org> parents: 6724 diff changeset	62 (assuming dlerror() was introduced between 1.2 and 1.3)
3420 013bbe4ef943 __FreeBSD__ shared libraries Guido van Rossum <guido@python.org> parents: 3327 diff changeset	63 __FreeBSD__ -- FreeBSD shared libraries
8822 bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	64 __BEOS__ -- BeOS shared libraries - defined by the compiler
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	65
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	66 (The other WITH_* symbols are used only once, to set the
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	67 appropriate symbols.)
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	68 */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	69
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	70 /* Configure dynamic linking */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	71
3327 49f7a4a1f0f6 __hpux -> hpux equivalence Guido van Rossum <guido@python.org> parents: 3224 diff changeset	72 #ifdef __hpux
4042 6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	73 #ifndef hpux
3327 49f7a4a1f0f6 __hpux -> hpux equivalence Guido van Rossum <guido@python.org> parents: 3224 diff changeset	74 #define hpux
49f7a4a1f0f6 __hpux -> hpux equivalence Guido van Rossum <guido@python.org> parents: 3224 diff changeset	75 #endif
4042 6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	76 #endif
3327 49f7a4a1f0f6 __hpux -> hpux equivalence Guido van Rossum <guido@python.org> parents: 3224 diff changeset	77
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	78 #ifdef hpux
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	79 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	80 #include <errno.h>
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	81 typedef void (*dl_funcptr)();
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	82 #define _DL_FUNCPTR_DEFINED 1
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	83 #define SHORT_EXT ".sl"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	84 #define LONG_EXT "module.sl"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	85 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	86
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	87 #if defined(PYOS_OS2)
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	88 #define DYNAMIC_LINK
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	89 #define INCL_DOSERRORS
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	90 #define INCL_DOSMODULEMGR
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	91 #include <os2.h>
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	92 typedef int (* APIENTRY dl_funcptr)();
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	93 #define _DL_FUNCPTR_DEFINED 1
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	94 #define SHORT_EXT ".pyd"
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	95 #define LONG_EXT ".dll"
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	96 #endif
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	97
7114 fa09372f7872 Better #ifdefs for NetBSD, taking into account that at least on netBSD Guido van Rossum <guido@python.org> parents: 6724 diff changeset	98 #if defined(__NetBSD__) && (NetBSD < 199712)
2199 f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	99 #define DYNAMIC_LINK
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	100 #define USE_SHLIB
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	101
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	102 #define dlerror() "error in dynamic linking"
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	103 #endif
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	104
4291 1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	105 #ifdef MS_WINDOWS /* i.e. MS_WIN32 or MS_WIN16 */
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	106 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	107 #include <windows.h>
8569 450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	108 #include <direct.h>
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	109 typedef FARPROC dl_funcptr;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	110 #define _DL_FUNCPTR_DEFINED
8356 a7423e68cee9 In debug mode on MS Windows, DLLs are called foo_d.pyd or foo_d.dll. Guido van Rossum <guido@python.org> parents: 8032 diff changeset	111 #ifdef _DEBUG
a7423e68cee9 In debug mode on MS Windows, DLLs are called foo_d.pyd or foo_d.dll. Guido van Rossum <guido@python.org> parents: 8032 diff changeset	112 #define SHORT_EXT "_d.pyd"
a7423e68cee9 In debug mode on MS Windows, DLLs are called foo_d.pyd or foo_d.dll. Guido van Rossum <guido@python.org> parents: 8032 diff changeset	113 #define LONG_EXT "_d.dll"
a7423e68cee9 In debug mode on MS Windows, DLLs are called foo_d.pyd or foo_d.dll. Guido van Rossum <guido@python.org> parents: 8032 diff changeset	114 #else
2085 8921a2881fc7 NT dlls have .pyd extension instead of .dll Guido van Rossum <guido@python.org> parents: 2062 diff changeset	115 #define SHORT_EXT ".pyd"
3491 16a5f6048461 Under NT, change "long" sharedlib extension to ".dll". (Mark H.) Guido van Rossum <guido@python.org> parents: 3420 diff changeset	116 #define LONG_EXT ".dll"
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	117 #endif
8356 a7423e68cee9 In debug mode on MS Windows, DLLs are called foo_d.pyd or foo_d.dll. Guido van Rossum <guido@python.org> parents: 8032 diff changeset	118 #endif
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	119
2733 dc64df7f1ad6 re-enabled NeXT dynamic linking (#ifdef NeXT) Guido van Rossum <guido@python.org> parents: 2729 diff changeset	120 #ifdef NeXT
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	121 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	122 #define USE_RLD
9033 9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	123 /* Define this to 1 if you want be able to load ObjC modules as well:
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	124 it switches between two different way of loading modules on the NeXT,
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	125 one that directly interfaces with the dynamic loader (rld_load(), which
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	126 does not correctly load ObjC object files), and another that uses the
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	127 ObjC runtime (objc_loadModules()) to do the job.
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	128 You'll have to add ``-ObjC'' to the compiler flags if you set this to 1.
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	129 */
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	130 #define HANDLE_OBJC_MODULES 1
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	131 #if HANDLE_OBJC_MODULES
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	132 #include <objc/Object.h>
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	133 #include <objc/objc-load.h>
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	134 #endif
6081 0eb14a6484f3 set sharedlib extensions properly for NeXT (Ted Horst) Guido van Rossum <guido@python.org> parents: 5926 diff changeset	135 #define SHORT_EXT ".so"
0eb14a6484f3 set sharedlib extensions properly for NeXT (Ted Horst) Guido van Rossum <guido@python.org> parents: 5926 diff changeset	136 #define LONG_EXT "module.so"
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	137 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	138
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	139 #ifdef WITH_SGI_DL
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	140 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	141 #define USE_DL
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	142 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	143
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	144 #ifdef WITH_DL_DLD
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	145 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	146 #define USE_DL
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	147 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	148
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	149 #ifdef USE_MAC_DYNAMIC_LOADING
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	150 #define DYNAMIC_LINK
2374 397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	151 #define SHORT_EXT ".slb"
4042 6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	152 #ifdef __CFM68K__
6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	153 #define LONG_EXT ".CFM68K.slb"
6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	154 #else
6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	155 #define LONG_EXT ".ppc.slb"
6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	156 #endif
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	157 #ifndef _DL_FUNCPTR_DEFINED
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	158 typedef void (*dl_funcptr)();
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	159 #endif
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	160 #endif
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	161
4068 4c54ecfadce5 Don't require <dlfcn.h> -- rely on existence of dlopen(). Guido van Rossum <guido@python.org> parents: 4042 diff changeset	162 #if !defined(DYNAMIC_LINK) && (defined(HAVE_DLOPEN) \|\| defined(M_UNIX))
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	163 #define DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	164 #define USE_SHLIB
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	165 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	166
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	167 #ifdef _AIX
5894 e2df95b7be78 Removed some variables that are used to exchange data between import.c and Guido van Rossum <guido@python.org> parents: 5511 diff changeset	168 #undef USE_SHLIB /* AIX 4.2 and higher have dlfcn.h but we don't want it */
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	169 #define DYNAMIC_LINK
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	170 #define SHORT_EXT ".so"
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	171 #define LONG_EXT "module.so"
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	172 #include <sys/ldr.h>
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	173 typedef void (*dl_funcptr)();
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	174 #define _DL_FUNCPTR_DEFINED
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	175 static int aix_getoldmodules(void **);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	176 static int aix_bindnewmodule(void , void );
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	177 static void aix_loaderror(char *);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	178 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	179
8822 bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	180 #ifdef __BEOS__
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	181 # undef USE_SHLIB /* probably not defined anyway */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	182 # define DYNAMIC_LINK
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	183 # define SHORT_EXT ".so"
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	184 # define LONG_EXT "module.so"
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	185 typedef void (*dl_funcptr)(void);
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	186 # define _DL_FUNCPTR_DEFINED
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	187
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	188 # if defined(MAXPATHLEN) && !defined(_SYS_PARAM_H)
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	189 # undef MAXPATHLEN
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	190 # endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	191
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	192 # include <kernel/image.h>
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	193 # include <kernel/OS.h>
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	194 # include <stdlib.h>
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	195 # include <unistd.h>
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	196
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	197 # ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	198 # include "thread.h"
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	199 static type_lock beos_dyn_lock;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	200 # endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	201
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	202 static PyObject *beos_dyn_images = NULL;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	203
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	204 static void beos_init_dyn( void );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	205 static void beos_cleanup_dyn( void );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	206 static void beos_nuke_dyn( PyObject *item );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	207 static void beos_add_dyn( char *pathname, image_id id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	208
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	209 /* External interface for finding image IDs; useful if you need to
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	210 * do your own symbol lookup in dynamically loaded modules. [Donn Cave]
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	211 *
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	212 * Hmm, could we hack up the Sun dlmodule instead for this sort of thing?
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	213 * That might be more generally useful. [chrish]
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	214 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	215 image_id PyImport_BeImageID( char *name );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	216 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	217
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	218 #ifdef DYNAMIC_LINK
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	219
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	220 #ifdef USE_SHLIB
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	221 #include <sys/types.h>
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	222 #include <sys/stat.h>
7114 fa09372f7872 Better #ifdefs for NetBSD, taking into account that at least on netBSD Guido van Rossum <guido@python.org> parents: 6724 diff changeset	223 #if defined(__NetBSD__) && (NetBSD < 199712)
2199 f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	224 #include <nlist.h>
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	225 #include <link.h>
f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	226 #else
4068 4c54ecfadce5 Don't require <dlfcn.h> -- rely on existence of dlopen(). Guido van Rossum <guido@python.org> parents: 4042 diff changeset	227 #ifdef HAVE_DLFCN_H
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	228 #include <dlfcn.h>
2199 f4671b681ab9 added changes for NetBSD dynamic linking; removed shared linking for NeXT Guido van Rossum <guido@python.org> parents: 2094 diff changeset	229 #endif
4068 4c54ecfadce5 Don't require <dlfcn.h> -- rely on existence of dlopen(). Guido van Rossum <guido@python.org> parents: 4042 diff changeset	230 #endif
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	231 #ifndef _DL_FUNCPTR_DEFINED
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	232 typedef void (*dl_funcptr)();
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	233 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	234 #ifndef RTLD_LAZY
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	235 #define RTLD_LAZY 1
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	236 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	237 #define SHORT_EXT ".so"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	238 #define LONG_EXT "module.so"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	239 #endif /* USE_SHLIB */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	240
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	241 #if defined(USE_DL) \|\| defined(hpux)
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	242 #include "dl.h"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	243 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	244
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	245 #ifdef USE_MAC_DYNAMIC_LOADING
3224 2fb398ab3e6a Added missing include for <Aliases.h> Jack Jansen <jack.jansen@cwi.nl> parents: 2843 diff changeset	246 #include <Aliases.h>
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	247 #include <CodeFragments.h>
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	248 #ifdef SYMANTEC__CFM68K__ /* Really an older version of Universal Headers */
2374 397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	249 #define CFragConnectionID ConnectionID
397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	250 #define kLoadCFrag 0x01
397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	251 #endif
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	252 #include <Files.h>
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	253 #include "macdefs.h"
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	254 #include "macglue.h"
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	255 #endif
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	256
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	257 #ifdef USE_RLD
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	258 #include <mach-o/rld.h>
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	259 #define FUNCNAME_PATTERN "_init%.200s"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	260 #ifndef _DL_FUNCPTR_DEFINED
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	261 typedef void (*dl_funcptr)();
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	262 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	263 #endif /* USE_RLD */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	264
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	265 extern char *Py_GetProgramName();
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	266
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	267 #ifndef FUNCNAME_PATTERN
8032 5cce81e23349 Support for OpenBSD :-( Guido van Rossum <guido@python.org> parents: 7988 diff changeset	268 #if defined(__hp9000s300) \|\| defined(__NetBSD__) \|\| defined(__FreeBSD__) \|\| defined(__OpenBSD__) \|\| defined(__BORLANDC__)
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	269 #define FUNCNAME_PATTERN "_init%.200s"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	270 #else
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	271 #define FUNCNAME_PATTERN "init%.200s"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	272 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	273 #endif
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	274
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	275 #if !defined(SHORT_EXT) && !defined(LONG_EXT)
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	276 #define SHORT_EXT ".o"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	277 #define LONG_EXT "module.o"
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	278 #endif /* !SHORT_EXT && !LONG_EXT */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	279
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	280 #endif /* DYNAMIC_LINK */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	281
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	282 struct filedescr _PyImport_Filetab[] = {
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	283 #ifdef SHORT_EXT
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	284 {SHORT_EXT, "rb", C_EXTENSION},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	285 #endif /* !SHORT_EXT */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	286 #ifdef LONG_EXT
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	287 {LONG_EXT, "rb", C_EXTENSION},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	288 #endif /* !LONG_EXT */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	289 {".py", "r", PY_SOURCE},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	290 {".pyc", "rb", PY_COMPILED},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	291 {0, 0}
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	292 };
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	293
3898 94c6bf6fd7f4 If NO_DYNAMIC_LINK is defined, load_dynamic_module() will always fail. Guido van Rossum <guido@python.org> parents: 3732 diff changeset	294 #ifdef NO_DYNAMIC_LINK
94c6bf6fd7f4 If NO_DYNAMIC_LINK is defined, load_dynamic_module() will always fail. Guido van Rossum <guido@python.org> parents: 3732 diff changeset	295 #undef DYNAMIC_LINK
94c6bf6fd7f4 If NO_DYNAMIC_LINK is defined, load_dynamic_module() will always fail. Guido van Rossum <guido@python.org> parents: 3732 diff changeset	296 #endif
94c6bf6fd7f4 If NO_DYNAMIC_LINK is defined, load_dynamic_module() will always fail. Guido van Rossum <guido@python.org> parents: 3732 diff changeset	297
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	298 PyObject *
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	299 _PyImport_LoadDynamicModule(name, pathname, fp)
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	300 char *name;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	301 char *pathname;
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	302 FILE *fp;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	303 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	304 #ifndef DYNAMIC_LINK
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	305 PyErr_SetString(PyExc_ImportError,
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	306 "dynamically linked modules not supported");
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	307 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	308 #else
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	309 PyObject m, d, *s;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	310 char funcname[258];
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	311 char lastdot, shortname, *packagecontext;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	312 dl_funcptr p = NULL;
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	313 #ifdef USE_SHLIB
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	314 static struct {
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	315 dev_t dev;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	316 ino_t ino;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	317 void *handle;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	318 } handles[128];
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	319 static int nhandles = 0;
3988 efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	320 char pathbuf[260];
efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	321 if (strchr(pathname, '/') == NULL) {
efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	322 /* Prefix bare filename with "./" */
efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	323 sprintf(pathbuf, "./%-.255s", pathname);
efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	324 pathname = pathbuf;
efb3a5a2cdea Insert "./" in front of pathname when it contains no '/' (if USE_SHLIB) Guido van Rossum <guido@python.org> parents: 3907 diff changeset	325 }
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	326 #endif
5926 8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	327 if ((m = _PyImport_FindExtension(name, pathname)) != NULL) {
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	328 Py_INCREF(m);
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	329 return m;
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	330 }
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	331 lastdot = strrchr(name, '.');
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	332 if (lastdot == NULL) {
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	333 packagecontext = NULL;
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	334 shortname = name;
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	335 }
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	336 else {
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	337 packagecontext = name;
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	338 shortname = lastdot+1;
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	339 }
4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	340 sprintf(funcname, FUNCNAME_PATTERN, shortname);
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	341 #ifdef USE_SHLIB
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	342 if (fp != NULL) {
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	343 int i;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	344 struct stat statb;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	345 fstat(fileno(fp), &statb);
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	346 for (i = 0; i < nhandles; i++) {
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	347 if (statb.st_dev == handles[i].dev &&
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	348 statb.st_ino == handles[i].ino) {
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	349 p = (dl_funcptr) dlsym(handles[i].handle,
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	350 funcname);
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	351 goto got_it;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	352 }
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	353 }
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	354 if (nhandles < 128) {
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	355 handles[nhandles].dev = statb.st_dev;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	356 handles[nhandles].ino = statb.st_ino;
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	357 }
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	358 }
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	359 #endif /* USE_SHLIB */
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	360 #ifdef USE_MAC_DYNAMIC_LOADING
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	361 /*
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	362 ** Dynamic loading of CFM shared libraries on the Mac. The
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	363 ** code has become more convoluted than it was, because we
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	364 ** want to be able to put multiple modules in a single
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	365 ** file. For this reason, we have to determine the fragment
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	366 ** name, and we cannot use the library entry point but we have
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	367 ** to locate the correct init routine "by hand".
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	368 */
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	369 {
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	370 FSSpec libspec;
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	371 CFragConnectionID connID;
2374 397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	372 Ptr mainAddr;
397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	373 Str255 errMessage;
397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	374 OSErr err;
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	375 Boolean isfolder, didsomething;
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	376 char buf[512];
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	377 Str63 fragname;
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	378 Ptr symAddr;
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	379 CFragSymbolClass class;
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	380
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	381 /* First resolve any aliases to find the real file */
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	382 (void)FSMakeFSSpec(0, 0, Pstring(pathname), &libspec);
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	383 err = ResolveAliasFile(&libspec, 1, &isfolder, &didsomething);
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	384 if ( err ) {
5389 5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	385 sprintf(buf, "%.255s: %.200s",
5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	386 pathname, PyMac_StrError(err));
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	387 PyErr_SetString(PyExc_ImportError, buf);
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	388 return NULL;
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	389 }
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	390 /* Next, determine the fragment name,
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	391 by stripping '.slb' and 'module' */
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	392 memcpy(fragname+1, libspec.name+1, libspec.name[0]);
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	393 fragname[0] = libspec.name[0];
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	394 if( strncmp((char *)(fragname+1+fragname[0]-4),
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	395 ".slb", 4) == 0 )
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	396 fragname[0] -= 4;
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	397 if ( strncmp((char *)(fragname+1+fragname[0]-6),
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	398 "module", 6) == 0 )
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	399 fragname[0] -= 6;
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	400 /* Load the fragment
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	401 (or return the connID if it is already loaded */
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	402 err = GetDiskFragment(&libspec, 0, 0, fragname,
2374 397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	403 kLoadCFrag, &connID, &mainAddr,
397478bca0c4 ported to 68K Mac; changed suffix to .slb Guido van Rossum <guido@python.org> parents: 2331 diff changeset	404 errMessage);
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	405 if ( err ) {
5389 5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	406 sprintf(buf, "%.*s: %.200s",
5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	407 errMessage[0], errMessage+1,
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	408 PyMac_StrError(err));
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	409 PyErr_SetString(PyExc_ImportError, buf);
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	410 return NULL;
242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	411 }
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	412 /* Locate the address of the correct init function */
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	413 err = FindSymbol(connID, Pstring(funcname), &symAddr, &class);
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	414 if ( err ) {
5389 5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	415 sprintf(buf, "%s: %.200s",
5a9706965a4e Avoid some potential (though unlikely) sprintf buffer overflows. Guido van Rossum <guido@python.org> parents: 5373 diff changeset	416 funcname, PyMac_StrError(err));
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	417 PyErr_SetString(PyExc_ImportError, buf);
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	418 return NULL;
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	419 }
5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	420 p = (dl_funcptr)symAddr;
2331 242dd5ed3b08 Added code to import dynamic modules using mac CFM. Jack Jansen <jack.jansen@cwi.nl> parents: 2199 diff changeset	421 }
2729 5af6db1f6c0c Mac dynloading is now enabled by USE_MAC_DYNAMIC_LOADING. Jack Jansen <jack.jansen@cwi.nl> parents: 2724 diff changeset	422 #endif /* USE_MAC_DYNAMIC_LOADING */
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	423 #ifdef USE_SHLIB
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	424 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	425 #ifdef RTLD_NOW
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	426 /* RTLD_NOW: resolve externals now
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	427 (i.e. core dump now if some are missing) */
8361 e80d4c3dbb78 Remove use of RTLD_GLOBAL. Guido van Rossum <guido@python.org> parents: 8356 diff changeset	428 void *handle = dlopen(pathname, RTLD_NOW);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	429 #else
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	430 void *handle;
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	431 if (Py_VerboseFlag)
6724 2e3acb2140bf Add the flag RTLD_GLOBAL to the dlopen() options. Guido van Rossum <guido@python.org> parents: 6626 diff changeset	432 printf("dlopen(\"%s\", %d);\n", pathname,
8361 e80d4c3dbb78 Remove use of RTLD_GLOBAL. Guido van Rossum <guido@python.org> parents: 8356 diff changeset	433 RTLD_LAZY);
e80d4c3dbb78 Remove use of RTLD_GLOBAL. Guido van Rossum <guido@python.org> parents: 8356 diff changeset	434 handle = dlopen(pathname, RTLD_LAZY);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	435 #endif /* RTLD_NOW */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	436 if (handle == NULL) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	437 PyErr_SetString(PyExc_ImportError, dlerror());
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	438 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	439 }
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	440 if (fp != NULL && nhandles < 128)
6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	441 handles[nhandles++].handle = handle;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	442 p = (dl_funcptr) dlsym(handle, funcname);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	443 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	444 #endif /* USE_SHLIB */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	445 #ifdef _AIX
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	446 /*
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	447 -- Invoke load() with L_NOAUTODEFER leaving the imported symbols
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	448 -- of the shared module unresolved. Thus we have to resolve them
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	449 -- explicitely with loadbind. The new module is loaded, then we
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	450 -- resolve its symbols using the list of already loaded modules
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	451 -- (only those that belong to the python executable). Get these
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	452 -- with loadquery(L_GETINFO).
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	453 */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	454 {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	455 static void *staticmodlistptr = NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	456
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	457 if (!staticmodlistptr)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	458 if (aix_getoldmodules(&staticmodlistptr) == -1)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	459 return NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	460 p = (dl_funcptr) load(pathname, L_NOAUTODEFER, 0);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	461 if (p == NULL) {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	462 aix_loaderror(pathname);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	463 return NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	464 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	465 if (aix_bindnewmodule((void *)p, staticmodlistptr) == -1) {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	466 aix_loaderror(pathname);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	467 return NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	468 }
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	469 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	470 #endif /* _AIX */
4291 1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	471 #ifdef MS_WIN32
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	472 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	473 HINSTANCE hDLL;
8569 450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	474 char pathbuf[260];
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	475 if (strchr(pathname, SEP) == NULL &&
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	476 strchr(pathname, ALTSEP) == NULL)
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	477 {
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	478 /* Prefix bare filename with ".\" */
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	479 char *p = pathbuf;
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	480 *p = '\0';
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	481 _getcwd(pathbuf, sizeof pathbuf);
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	482 if (*p != '\0' && p[1] == ':')
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	483 p += 2;
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	484 sprintf(p, ".\\%-.255s", pathname);
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	485 pathname = pathbuf;
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	486 }
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	487 hDLL = LoadLibrary(pathname);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	488 if (hDLL==NULL){
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	489 char errBuf[256];
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	490 unsigned int errorCode;
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	491
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	492 /* Get an error string from Win32 error code */
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	493 char theInfo[256]; /* Pointer to error text
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	494 from system */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	495 int theLength; /* Length of error text */
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	496
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	497 errorCode = GetLastError();
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	498
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	499 theLength = FormatMessage(
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	500 FORMAT_MESSAGE_FROM_SYSTEM, /* flags */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	501 NULL, /* message source */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	502 errorCode, /* the message (error) ID */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	503 0, /* default language environment */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	504 (LPTSTR) theInfo, /* the buffer */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	505 sizeof(theInfo), /* the buffer size */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	506 NULL); /* no additional format args. */
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	507
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	508 /* Problem: could not get the error message.
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	509 This should not happen if called correctly. */
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	510 if (theLength == 0) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	511 sprintf(errBuf,
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	512 "DLL load failed with error code %d",
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	513 errorCode);
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	514 } else {
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	515 int len;
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	516 /* For some reason a \r\n
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	517 is appended to the text */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	518 if (theLength >= 2 &&
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	519 theInfo[theLength-2] == '\r' &&
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	520 theInfo[theLength-1] == '\n') {
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	521 theLength -= 2;
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	522 theInfo[theLength] = '\0';
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	523 }
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	524 strcpy(errBuf, "DLL load failed: ");
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	525 len = strlen(errBuf);
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	526 strncpy(errBuf+len, theInfo,
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	527 sizeof(errBuf)-len);
2843 8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	528 errBuf[sizeof(errBuf)-1] = '\0';
8d92a3bb9c1f NT specific change for nicer error message (Mark H) Guido van Rossum <guido@python.org> parents: 2793 diff changeset	529 }
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	530 PyErr_SetString(PyExc_ImportError, errBuf);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	531 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	532 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	533 p = GetProcAddress(hDLL, funcname);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	534 }
4291 1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	535 #endif /* MS_WIN32 */
1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	536 #ifdef MS_WIN16
3591 1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	537 {
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	538 HINSTANCE hDLL;
8569 450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	539 char pathbuf[16];
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	540 if (strchr(pathname, SEP) == NULL &&
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	541 strchr(pathname, ALTSEP) == NULL)
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	542 {
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	543 /* Prefix bare filename with ".\" */
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	544 sprintf(pathbuf, ".\\%-.13s", pathname);
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	545 pathname = pathbuf;
450076068b22 Windows-specific hack to make sure that when LoadLibrary() is called, Guido van Rossum <guido@python.org> parents: 8361 diff changeset	546 }
3591 1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	547 hDLL = LoadLibrary(pathname);
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	548 if (hDLL < HINSTANCE_ERROR){
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	549 char errBuf[256];
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	550 sprintf(errBuf,
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	551 "DLL load failed with error code %d", hDLL);
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	552 PyErr_SetString(PyExc_ImportError, errBuf);
3591 1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	553 return NULL;
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	554 }
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	555 p = GetProcAddress(hDLL, funcname);
1c18f90636fb removed verbose decl; added win3.1 dynamic linking. Guido van Rossum <guido@python.org> parents: 3491 diff changeset	556 }
4291 1427d61f1307 Rationalized MS ifdefs Guido van Rossum <guido@python.org> parents: 4068 diff changeset	557 #endif /* MS_WIN16 */
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	558
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	559 #if defined(PYOS_OS2)
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	560 {
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	561 APIRET rc;
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	562 HMODULE hDLL;
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	563 char failreason[256];
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	564
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	565 rc = DosLoadModule(failreason,
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	566 sizeof(failreason),
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	567 pathname,
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	568 &hDLL);
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	569
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	570 if (rc != NO_ERROR) {
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	571 char errBuf[256];
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	572 sprintf(errBuf,
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	573 "DLL load failed, rc = %d, problem '%s': %s",
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	574 rc, failreason);
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	575 PyErr_SetString(PyExc_ImportError, errBuf);
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	576 return NULL;
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	577 }
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	578
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	579 rc = DosQueryProcAddr(hDLL, 0L, funcname, &p);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	580 if (rc != NO_ERROR)
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	581 p = NULL; /* Signify Failure to Acquire Entrypoint */
6626 5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	582 }
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	583 #endif /* PYOS_OS2 */
5e31d381fa47 os2 patch by Jeff Rush Guido van Rossum <guido@python.org> parents: 6602 diff changeset	584
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	585 #ifdef USE_DL
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	586 p = dl_loadmod(Py_GetProgramName(), pathname, funcname);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	587 #endif /* USE_DL */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	588 #ifdef USE_RLD
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	589 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	590 NXStream *errorStream;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	591 struct mach_header *new_header;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	592 const char *filenames[2];
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	593 long ret;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	594 unsigned long ptr;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	595
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	596 errorStream = NXOpenMemory(NULL, 0, NX_WRITEONLY);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	597 filenames[0] = pathname;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	598 filenames[1] = NULL;
9033 9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	599
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	600 #if HANDLE_OBJC_MODULES
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	601
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	602 /* The following very bogus line of code ensures that
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	603 objc_msgSend, etc are linked into the binary. Without
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	604 it, dynamic loading of a module that includes objective-c
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	605 method calls will fail with "undefined symbol _objc_msgSend()".
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	606 This remains true even in the presence of the -ObjC flag
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	607 to the compiler
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	608 */
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	609
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	610 [Object name];
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	611
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	612 /* objc_loadModules() dynamically loads the object files
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	613 indicated by the paths in filenames. If there are any
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	614 errors generated during loading -- typically due to the
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	615 inability to find particular symbols -- an error message
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	616 will be written to errorStream.
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	617 It returns 0 if the module is successfully loaded, 1
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	618 otherwise.
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	619 */
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	620
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	621 ret = !objc_loadModules(filenames, errorStream,
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	622 NULL, &new_header, NULL);
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	623
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	624 #else /* !HANDLE_OBJC_MODULES */
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	625
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	626 ret = rld_load(errorStream, &new_header,
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	627 filenames, NULL);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	628
9033 9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	629 #endif /* HANDLE_OBJC_MODULES */
9962833d49fd Ted Horst writes in psa-members@python.org: Guido van Rossum <guido@python.org> parents: 8822 diff changeset	630
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	631 /* extract the error messages for the exception */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	632 if(!ret) {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	633 char *streamBuf;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	634 int len, maxLen;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	635
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	636 NXPutc(errorStream, (char)0);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	637
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	638 NXGetMemoryBuffer(errorStream,
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	639 &streamBuf, &len, &maxLen);
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	640 PyErr_SetString(PyExc_ImportError, streamBuf);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	641 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	642
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	643 if(ret && rld_lookup(errorStream, funcname, &ptr))
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	644 p = (dl_funcptr) ptr;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	645
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	646 NXCloseMemory(errorStream, NX_FREEBUFFER);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	647
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	648 if(!ret)
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	649 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	650 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	651 #endif /* USE_RLD */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	652 #ifdef hpux
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	653 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	654 shl_t lib;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	655 int flags;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	656
4593 72d0dfb919fe Some extra flags that an HPUX user wants me to add. Guido van Rossum <guido@python.org> parents: 4503 diff changeset	657 flags = BIND_FIRST \| BIND_DEFERRED;
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	658 if (Py_VerboseFlag) {
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	659 flags = DYNAMIC_PATH \| BIND_FIRST \| BIND_IMMEDIATE \|
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	660 BIND_NONFATAL \| BIND_VERBOSE;
8650 3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	661 printf("shl_load %s\n",pathname);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	662 }
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	663 lib = shl_load(pathname, flags, 0);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	664 /* XXX Chuck Blake once wrote that 0 should be BIND_NOSTART? */
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	665 if (lib == NULL) {
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	666 char buf[256];
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	667 if (Py_VerboseFlag)
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	668 perror(pathname);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	669 sprintf(buf, "Failed to load %.200s", pathname);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	670 PyErr_SetString(PyExc_ImportError, buf);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	671 return NULL;
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	672 }
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	673 if (Py_VerboseFlag)
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	674 printf("shl_findsym %s\n", funcname);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	675 shl_findsym(&lib, funcname, TYPE_UNDEFINED, (void *) &p);
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	676 if (p == NULL && Py_VerboseFlag)
3be906467740 Reindented some OS/2 and hpux code that looked ugly or at least Guido van Rossum <guido@python.org> parents: 8569 diff changeset	677 perror(funcname);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	678 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	679 #endif /* hpux */
8822 bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	680 #ifdef __BEOS__
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	681 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	682 image_id the_id;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	683 status_t retval;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	684 char fullpath[PATH_MAX];
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	685
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	686 if( Py_VerboseFlag ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	687 printf( "load_add_on( %s )\n", pathname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	688 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	689
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	690 /* Hmm, this old bug appears to have regenerated itself; if the
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	691 * path isn't absolute, load_add_on() will fail. Reported to Be
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	692 * April 21, 1998.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	693 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	694 if( pathname[0] != '/' ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	695 (void)getcwd( fullpath, PATH_MAX );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	696 (void)strncat( fullpath, "/", PATH_MAX );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	697 (void)strncat( fullpath, pathname, PATH_MAX );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	698
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	699 if( Py_VerboseFlag ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	700 printf( "load_add_on( %s )\n", fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	701 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	702 } else {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	703 (void)strcpy( fullpath, pathname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	704 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	705
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	706 the_id = load_add_on( fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	707 if( the_id < B_NO_ERROR ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	708 /* It's too bad load_add_on() doesn't set errno or something...
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	709 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	710 char buff[256]; /* hate hard-coded string sizes... */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	711
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	712 if( Py_VerboseFlag ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	713 printf( "load_add_on( %s ) failed", fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	714 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	715
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	716 switch( the_id ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	717 case B_ERROR:
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	718 sprintf( buff, "BeOS: Failed to load %.200s", fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	719 break;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	720 default:
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	721 sprintf( buff, "Unknown error loading %.200s", fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	722 break;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	723 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	724
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	725 PyErr_SetString( PyExc_ImportError, buff );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	726 return NULL;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	727 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	728
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	729 if( Py_VerboseFlag ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	730 printf( "get_image_symbol( %s )\n", funcname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	731 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	732
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	733 retval = get_image_symbol( the_id, funcname, B_SYMBOL_TYPE_TEXT, &p );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	734 if( retval != B_NO_ERROR \|\| p == NULL ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	735 /* That's bad, we can't find that symbol in the module...
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	736 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	737 char buff[256]; /* hate hard-coded string sizes... */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	738
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	739 if( Py_VerboseFlag ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	740 printf( "get_image_symbol( %s ) failed", funcname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	741 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	742
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	743 switch( retval ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	744 case B_BAD_IMAGE_ID:
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	745 sprintf( buff, "can't load init function for dynamic module: "
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	746 "Invalid image ID for %.180s", fullpath );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	747 break;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	748 case B_BAD_INDEX:
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	749 sprintf( buff, "can't load init function for dynamic module: "
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	750 "Bad index for %.180s", funcname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	751 break;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	752 default:
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	753 sprintf( buff, "can't load init function for dynamic module: "
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	754 "Unknown error looking up %.180s", funcname );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	755 break;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	756 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	757
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	758 retval = unload_add_on( the_id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	759
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	760 PyErr_SetString( PyExc_ImportError, buff );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	761 return NULL;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	762 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	763
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	764 /* Save the module name and image ID for later so we can clean up
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	765 * gracefully.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	766 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	767 beos_add_dyn( name, the_id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	768 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	769 #endif /* __BEOS__ */
5287 5af766a1b531 Tweaks to keep the Microsoft compiler quier. Guido van Rossum <guido@python.org> parents: 4593 diff changeset	770 #ifdef USE_SHLIB
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	771 got_it:
5287 5af766a1b531 Tweaks to keep the Microsoft compiler quier. Guido van Rossum <guido@python.org> parents: 4593 diff changeset	772 #endif
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	773 if (p == NULL) {
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	774 PyErr_Format(PyExc_ImportError,
7121 c8745d205122 Protect PyErr_Format format string argument from overflow. Guido van Rossum <guido@python.org> parents: 7114 diff changeset	775 "dynamic module does not define init function (%.200s)",
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	776 funcname);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	777 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	778 }
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	779 _Py_PackageContext = packagecontext;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	780 (*p)();
6602 4514a5ea3ec4 Fix importing of shared libraries from inside packages. Guido van Rossum <guido@python.org> parents: 6479 diff changeset	781 _Py_PackageContext = NULL;
5926 8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	782 if (PyErr_Occurred())
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	783 return NULL;
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	784 if (_PyImport_FixupExtension(name, pathname) == NULL)
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	785 return NULL;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	786
5894 e2df95b7be78 Removed some variables that are used to exchange data between import.c and Guido van Rossum <guido@python.org> parents: 5511 diff changeset	787 m = PyDict_GetItemString(PyImport_GetModuleDict(), name);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	788 if (m == NULL) {
5926 8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	789 PyErr_SetString(PyExc_SystemError,
8d2194e22e67 The last of the mass checkins for separate (sub)interpreters. Guido van Rossum <guido@python.org> parents: 5894 diff changeset	790 "dynamic module not initialized properly");
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	791 return NULL;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	792 }
4042 6b4d0f1a0ae9 Many little fixes: Guido van Rossum <guido@python.org> parents: 3988 diff changeset	793 /* Remember the filename as the __file__ attribute */
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	794 d = PyModule_GetDict(m);
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	795 s = PyString_FromString(pathname);
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	796 if (s == NULL \|\| PyDict_SetItemString(d, "__file__", s) != 0)
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	797 PyErr_Clear(); /* Not important enough to report */
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	798 Py_XDECREF(s);
5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	799 if (Py_VerboseFlag)
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	800 fprintf(stderr,
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	801 "import %s # dynamically loaded from %s\n",
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	802 name, pathname);
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	803 Py_INCREF(m);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	804 return m;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	805 #endif /* DYNAMIC_LINK */
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	806 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	807
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	808
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	809 #ifdef _AIX
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	810
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	811 #include <ctype.h> /* for isdigit() */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	812 #include <errno.h> /* for global errno */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	813 #include <string.h> /* for strerror() */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	814 #include <stdlib.h> /* for malloc(), free() */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	815
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	816 typedef struct Module {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	817 struct Module *next;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	818 void *entry;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	819 } Module, *ModulePtr;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	820
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	821 static int
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	822 aix_getoldmodules(modlistptr)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	823 void **modlistptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	824 {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	825 register ModulePtr modptr, prevmodptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	826 register struct ld_info *ldiptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	827 register char *ldibuf;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	828 register int errflag, bufsize = 1024;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	829 register unsigned int offset;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	830
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	831 /*
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	832 -- Get the list of loaded modules into ld_info structures.
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	833 */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	834 if ((ldibuf = malloc(bufsize)) == NULL) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	835 PyErr_SetString(PyExc_ImportError, strerror(errno));
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	836 return -1;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	837 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	838 while ((errflag = loadquery(L_GETINFO, ldibuf, bufsize)) == -1
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	839 && errno == ENOMEM) {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	840 free(ldibuf);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	841 bufsize += 1024;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	842 if ((ldibuf = malloc(bufsize)) == NULL) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	843 PyErr_SetString(PyExc_ImportError, strerror(errno));
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	844 return -1;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	845 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	846 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	847 if (errflag == -1) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	848 PyErr_SetString(PyExc_ImportError, strerror(errno));
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	849 return -1;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	850 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	851 /*
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	852 -- Make the modules list from the ld_info structures.
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	853 */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	854 ldiptr = (struct ld_info *)ldibuf;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	855 prevmodptr = NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	856 do {
6479 58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	857 if (strstr(ldiptr->ldinfo_filename, "python") == NULL) {
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	858 /*
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	859 -- Extract only the modules containing "python" as a
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	860 -- substring, like the "python[version]" executable or
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	861 -- "libpython[version].a" in case python is embedded.
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	862 */
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	863 offset = (unsigned int)ldiptr->ldinfo_next;
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	864 ldiptr = (struct ld_info *)((unsigned int)
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	865 ldiptr + offset);
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	866 continue;
58b4d9ea8e51 Shared libraries didn't quite work under AIX because of the change in Guido van Rossum <guido@python.org> parents: 6081 diff changeset	867 }
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	868 if ((modptr = (ModulePtr)malloc(sizeof(Module))) == NULL) {
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	869 PyErr_SetString(PyExc_ImportError, strerror(errno));
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	870 while (*modlistptr) {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	871 modptr = (ModulePtr)*modlistptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	872 modlistptr = (void )modptr->next;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	873 free(modptr);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	874 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	875 return -1;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	876 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	877 modptr->entry = ldiptr->ldinfo_dataorg;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	878 modptr->next = NULL;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	879 if (prevmodptr == NULL)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	880 modlistptr = (void )modptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	881 else
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	882 prevmodptr->next = modptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	883 prevmodptr = modptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	884 offset = (unsigned int)ldiptr->ldinfo_next;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	885 ldiptr = (struct ld_info *)((unsigned int)ldiptr + offset);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	886 } while (offset);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	887 free(ldibuf);
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	888 return 0;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	889 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	890
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	891 static int
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	892 aix_bindnewmodule(newmoduleptr, modlistptr)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	893 void *newmoduleptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	894 void *modlistptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	895 {
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	896 register ModulePtr modptr;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	897
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	898 /*
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	899 -- Bind the new module with the list of loaded modules.
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	900 */
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	901 for (modptr = (ModulePtr)modlistptr; modptr; modptr = modptr->next)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	902 if (loadbind(0, modptr->entry, newmoduleptr) != 0)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	903 return -1;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	904 return 0;
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	905 }
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	906
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	907 static void
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	908 aix_loaderror(pathname)
ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	909 char *pathname;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	910 {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	911
3732 523f49a1e42a Corrections to aix_loaderror(), by Manus Hand. Guido van Rossum <guido@python.org> parents: 3591 diff changeset	912 char *message[1024], errbuf[1024];
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	913 register int i,j;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	914
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	915 struct errtab {
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	916 int errNo;
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	917 char *errstr;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	918 } load_errtab[] = {
2724 6a9ecb05c679 Check if we've already loaded a dynamic module under a different name. Sjoerd Mullender <sjoerd@acm.org> parents: 2435 diff changeset	919 {L_ERROR_TOOMANY, "too many errors, rest skipped."},
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	920 {L_ERROR_NOLIB, "can't load library:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	921 {L_ERROR_UNDEF, "can't find symbol in library:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	922 {L_ERROR_RLDBAD,
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	923 "RLD index out of range or bad relocation type:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	924 {L_ERROR_FORMAT, "not a valid, executable xcoff file:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	925 {L_ERROR_MEMBER,
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	926 "file not an archive or does not contain requested member:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	927 {L_ERROR_TYPE, "symbol table mismatch:"},
3732 523f49a1e42a Corrections to aix_loaderror(), by Manus Hand. Guido van Rossum <guido@python.org> parents: 3591 diff changeset	928 {L_ERROR_ALIGN, "text alignment in file is wrong."},
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	929 {L_ERROR_SYSTEM, "System error:"},
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	930 {L_ERROR_ERRNO, NULL}
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	931 };
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	932
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	933 #define LOAD_ERRTAB_LEN (sizeof(load_errtab)/sizeof(load_errtab[0]))
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	934 #define ERRBUF_APPEND(s) strncat(errbuf, s, sizeof(errbuf)-strlen(errbuf)-1)
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	935
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	936 sprintf(errbuf, "from module %.200s ", pathname);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	937
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	938 if (!loadquery(L_GETMESSAGES, &message[0], sizeof(message))) {
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	939 ERRBUF_APPEND(strerror(errno));
3732 523f49a1e42a Corrections to aix_loaderror(), by Manus Hand. Guido van Rossum <guido@python.org> parents: 3591 diff changeset	940 ERRBUF_APPEND("\n");
523f49a1e42a Corrections to aix_loaderror(), by Manus Hand. Guido van Rossum <guido@python.org> parents: 3591 diff changeset	941 }
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	942 for(i = 0; message[i] && *message[i]; i++) {
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	943 int nerr = atoi(message[i]);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	944 for (j=0; j<LOAD_ERRTAB_LEN ; j++) {
3907 ac1d5abfd78e Changes for AIX sharedlibs. Guido van Rossum <guido@python.org> parents: 3898 diff changeset	945 if (nerr == load_errtab[j].errNo && load_errtab[j].errstr)
3732 523f49a1e42a Corrections to aix_loaderror(), by Manus Hand. Guido van Rossum <guido@python.org> parents: 3591 diff changeset	946 ERRBUF_APPEND(load_errtab[j].errstr);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	947 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	948 while (isdigit(*message[i])) message[i]++ ;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	949 ERRBUF_APPEND(message[i]);
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	950 ERRBUF_APPEND("\n");
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	951 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	952 errbuf[strlen(errbuf)-1] = '\0'; /* trim off last newline */
5373 5880384d7c71 Quickly renamed the remaining files -- this directory is done. Guido van Rossum <guido@python.org> parents: 5314 diff changeset	953 PyErr_SetString(PyExc_ImportError, errbuf);
2052 d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	954 return;
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	955 }
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	956
d7e91437f0a2 Lots of changes, most minor (fatal() instead of abort(), use of Guido van Rossum <guido@python.org> parents: diff changeset	957 #endif /* _AIX */
8822 bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	958
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	959 #ifdef __BEOS__
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	960 /* ----------------------------------------------------------------------
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	961 * BeOS dynamic loading support
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	962 *
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	963 * This uses shared libraries, but BeOS has its own way of doing things
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	964 * (much easier than dlfnc.h, from the look of things). We'll use a
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	965 * Python Dictionary object to store the images_ids so we can be very
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	966 * nice and unload them when we exit.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	967 *
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	968 * Note that this is thread-safe. Probably irrelevent, because of losing
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	969 * systems... Python probably disables threads while loading modules.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	970 * Note the use of "probably"! Better to be safe than sorry. [chrish]
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	971 *
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	972 * As of 1.5.1 this should also work properly when you've configured
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	973 * Python without thread support; the 1.5 version required it, which wasn't
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	974 * very friendly. Note that I haven't tested it without threading... why
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	975 * would you want to avoid threads on BeOS? [chrish]
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	976 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	977
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	978 /*
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	979 * Initialize our dictionary, and the dictionary mutex.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	980 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	981 static void beos_init_dyn( void )
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	982 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	983 /* We're protected from a race condition here by the atomic init_count
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	984 * variable.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	985 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	986 static int32 init_count = 0;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	987 int32 val;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	988
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	989 val = atomic_add( &init_count, 1 );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	990 if( beos_dyn_images == NULL && val == 0 ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	991 beos_dyn_images = PyDict_New();
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	992 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	993 beos_dyn_lock = PyThread_allocate_lock();
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	994 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	995 atexit( beos_cleanup_dyn );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	996 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	997 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	998
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	999 /* atexit() handler that'll call unload_add_on() for every item in the
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1000 * dictionary.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1001 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1002 static void beos_cleanup_dyn( void )
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1003 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1004 if( beos_dyn_images ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1005 int idx;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1006 int list_size;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1007 PyObject *id_list;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1008
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1009 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1010 PyThread_acquire_lock( beos_dyn_lock, 1 );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1011 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1012
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1013 id_list = PyDict_Values( beos_dyn_images );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1014
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1015 list_size = PyList_Size( id_list );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1016 for( idx = 0; idx < list_size; idx++ ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1017 PyObject *the_item;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1018
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1019 the_item = PyList_GetItem( id_list, idx );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1020 beos_nuke_dyn( the_item );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1021 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1022
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1023 PyDict_Clear( beos_dyn_images );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1024
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1025 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1026 PyThread_free_lock( beos_dyn_lock );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1027 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1028 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1029 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1030
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1031 /* Whack an item; the item is an image_id in disguise, so we'll call
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1032 * unload_add_on() for it.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1033 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1034 static void beos_nuke_dyn( PyObject *item )
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1035 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1036 status_t retval;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1037
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1038 if( item ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1039 image_id id = (image_id)PyInt_AsLong( item );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1040
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1041 retval = unload_add_on( id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1042 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1043 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1044
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1045 /*
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1046 * Add an image_id to the dictionary; the module name of the loaded image
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1047 * is the key. Note that if the key is already in the dict, we unload
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1048 * that image; this should allow reload() to work on dynamically loaded
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1049 * modules (super-keen!).
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1050 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1051 static void beos_add_dyn( char *name, image_id id )
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1052 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1053 int retval;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1054 PyObject *py_id;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1055
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1056 if( beos_dyn_images == NULL ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1057 beos_init_dyn();
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1058 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1059
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1060 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1061 retval = PyThread_acquire_lock( beos_dyn_lock, 1 );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1062 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1063
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1064 /* If there's already an object with this key in the dictionary,
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1065 * we're doing a reload(), so let's nuke it.
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1066 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1067 py_id = PyDict_GetItemString( beos_dyn_images, name );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1068 if( py_id ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1069 beos_nuke_dyn( py_id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1070 retval = PyDict_DelItemString( beos_dyn_images, name );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1071 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1072
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1073 py_id = PyInt_FromLong( (long)id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1074 if( py_id ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1075 retval = PyDict_SetItemString( beos_dyn_images, name, py_id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1076 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1077
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1078 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1079 PyThread_release_lock( beos_dyn_lock );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1080 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1081 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1082
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1083 /* Given a module name, return the image_id (if it's a dynamically loaded
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1084 * module). [Donn Cave]
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1085 */
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1086 image_id PyImport_BeImageID( char *name )
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1087 {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1088 int retval;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1089 PyObject *py_id;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1090 long id;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1091
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1092 if( !beos_dyn_images ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1093 return B_ERROR;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1094 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1095
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1096 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1097 retval = PyThread_acquire_lock( beos_dyn_lock, 1 );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1098 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1099
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1100 py_id = PyDict_GetItemString( beos_dyn_images, name );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1101 if( py_id ) {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1102 id = PyInt_AsLong( py_id );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1103 } else {
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1104 id = B_ERROR;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1105 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1106
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1107 #ifdef WITH_THREAD
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1108 PyThread_release_lock( beos_dyn_lock );
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1109 #endif
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1110
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1111 return (image_id)id;
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1112 }
bd47ee068b83 Changes for BeOS, QNX and long long, by Chris Herborth. Guido van Rossum <guido@python.org> parents: 8650 diff changeset	1113 #endif /* __BEOS__ */

Mercurial > cpython-lru_cache-weakref

annotate Python/importdl.c @ 9033:9962833d49fd legacy-trunk