summaryrefslogtreecommitdiffstats
path: root/Python/importdl.c
diff options
context:
space:
mode:
authorJack Jansen <jack.jansen@cwi.nl>1995-02-13 22:42:34 (GMT)
committerJack Jansen <jack.jansen@cwi.nl>1995-02-13 22:42:34 (GMT)
commit4e0437307364e25f63b444923a21a57cb1ce2cab (patch)
treed32926ea9d1b9169742b7d93ae8ded425cbfd10b /Python/importdl.c
parentf2038a3593432b4c154a0b6743b6399f70503ce4 (diff)
downloadcpython-4e0437307364e25f63b444923a21a57cb1ce2cab.zip
cpython-4e0437307364e25f63b444923a21a57cb1ce2cab.tar.gz
cpython-4e0437307364e25f63b444923a21a57cb1ce2cab.tar.bz2
Added code to import dynamic modules using mac CFM.
Diffstat (limited to 'Python/importdl.c')
-rw-r--r--Python/importdl.c43
1 files changed, 41 insertions, 2 deletions
diff --git a/Python/importdl.c b/Python/importdl.c
index 00a033e..882402c 100644
--- a/Python/importdl.c
+++ b/Python/importdl.c
@@ -43,6 +43,7 @@ extern int verbose; /* Defined in pythonrun.c */
NT -- NT style dynamic linking (using DLLs)
_DL_FUNCPTR_DEFINED -- if the typedef dl_funcptr has been defined
WITH_MAC_DL -- Mac dynamic linking (highly experimental)
+ USE_MAC_SHARED_LIBRARY -- Another mac dynamic linking method
SHORT_EXT -- short extension for dynamic module, e.g. ".so"
LONG_EXT -- long extension, e.g. "module.so"
hpux -- HP-UX Dynamic Linking - defined by the compiler
@@ -98,6 +99,15 @@ typedef FARPROC dl_funcptr;
#define DYNAMIC_LINK
#endif
+#ifdef USE_MAC_SHARED_LIBRARY
+#define DYNAMIC_LINK
+#define SHORT_EXT ".shlb"
+#define LONG_EXT "module.shlb"
+#ifndef _DL_FUNCPTR_DEFINED
+typedef void (*dl_funcptr)();
+#endif
+#endif
+
#if !defined(DYNAMIC_LINK) && defined(HAVE_DLFCN_H) && defined(HAVE_DLOPEN)
#define DYNAMIC_LINK
#define USE_SHLIB
@@ -138,6 +148,13 @@ typedef void (*dl_funcptr)();
#include "dynamic_load.h"
#endif
+#ifdef USE_MAC_SHARED_LIBRARY
+#include <CodeFragments.h>
+#include <Files.h>
+#include "macdefs.h"
+#include "macglue.h"
+#endif
+
#ifdef USE_RLD
#include <mach-o/rld.h>
#define FUNCNAME_PATTERN "_init%.200s"
@@ -163,9 +180,9 @@ extern char *getprogramname();
#endif /* DYNAMIC_LINK */
-/* Max length of module suffix searched for -- accommodates "module.so" */
+/* Max length of module suffix searched for -- accommodates "module.shlb" */
#ifndef MAXSUFFIXSIZE
-#define MAXSUFFIXSIZE 10
+#define MAXSUFFIXSIZE 12
#endif
/* Pass it on to import.c */
@@ -203,6 +220,28 @@ load_dynamic_module(name, pathname)
return NULL;
}
#else /* !WITH_MAC_DL */
+#ifdef USE_MAC_SHARED_LIBRARY
+ /* Another way to do dynloading on the mac, use CFM */
+ {
+ FSSpec libspec;
+ CFragConnectionID connID;
+ Ptr mainAddr;
+ Str255 errMessage;
+ OSErr err;
+
+ (void)FSMakeFSSpec(0, 0, Pstring(pathname), &libspec);
+ err = GetDiskFragment(&libspec, 0, 0, Pstring(name), kLoadCFrag, &connID, &mainAddr,
+ errMessage);
+ if ( err ) {
+ char buf[512];
+
+ sprintf(buf, "%#s: %s", errMessage, macstrerror(err));
+ err_setstr(ImportError, buf);
+ return NULL;
+ }
+ p = (dl_funcptr)mainAddr;
+ }
+#endif /* USE_MAC_SHARED_LIBRARY */
#ifdef USE_SHLIB
{
#ifdef RTLD_NOW