Glue for the python shared library: an init routine that remembers
where we're loaded from and PyMac_AddLibResources() which adds that
file to the resource file list.
diff --git a/Mac/Python/macshlglue.c b/Mac/Python/macshlglue.c
new file mode 100644
index 0000000..a6885d4
--- /dev/null
+++ b/Mac/Python/macshlglue.c
@@ -0,0 +1,65 @@
+/*
+** mac shared lib glue.
+**
+** Partially stolen from MW Startup.c, which is
+** Copyright © 1993 metrowerks inc. All Rights Reserved.
+*/
+
+#include <CPlusLibPPC.h>
+#include <Quickdraw.h>
+#include <SegLoad.h>
+#include <setjmp.h>
+#include <FragLoad.h>
+#include <Files.h>
+#include <Resources.h>
+
+#include <stdio.h>
+
+char *macstrerror();
+
+DestructorChain *__local_destructor_chain; /* chain of local objects that need destruction */
+
+ /* public data */
+
+QDGlobals qd; /* define the Quickdraw globals here! */
+jmp_buf __program_exit; /* exit() does a longjmp() to here */
+void (*__atexit_hook)(void); /* atexit() sets this up if it is ever called */
+void (*___atexit_hook)(void); /* _atexit() sets this up if it is ever called */
+int __aborting; /* abort() sets this and longjmps to __program_exit */
+
+int library_fss_valid;
+FSSpec library_fss;
+/*
+** Routine called upon fragment load. We attempt to save the FSSpec from which we're
+** loaded. We always return noErr (we just continue without the resources).
+*/
+OSErr
+__sinit(InitBlockPtr data)
+{
+ if ( data == NULL ) return noErr;
+ if ( data->fragLocator.where == kOnDiskFlat ) {
+ library_fss = *data->fragLocator.u.onDisk.fileSpec;
+ library_fss_valid = 1;
+ } else if ( data->fragLocator.where == kOnDiskSegmented ) {
+ library_fss = *data->fragLocator.u.inSegs.fileSpec;
+ library_fss_valid = 1;
+ }
+ return noErr;
+}
+
+/*
+** Insert the library resources into the search path. Put them after
+** the resources from the application (which we assume is the current
+** resource file). Again, we ignore errors.
+*/
+void
+PyMac_AddLibResources()
+{
+ OSErr err;
+ short fd, curfd;
+
+ if ( !library_fss_valid )
+ return;
+ fd = FSpOpenResFile(&library_fss, fsRdWrShPerm);
+}
+