home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Applications / Python 1.3 / source code / Mac / macshlglue.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-12-17  |  1.7 KB  |  67 lines  |  [TEXT/R*ch]
  1. /*
  2. ** Mac shared lib glue.
  3. */
  4.  
  5. #include <Quickdraw.h>
  6. #include <SegLoad.h>
  7. #include <FragLoad.h>
  8. #include <Files.h>
  9. #include <Resources.h>
  10.  
  11. #ifdef __MWERKS__
  12. /*
  13. ** This part is copied from MW Startup.c, which is
  14. **    Copyright © 1993 metrowerks inc. All Rights Reserved.
  15. */
  16. #include <setjmp.h>
  17. #include <stdio.h>
  18.  
  19. void    *__local_destructor_chain;    /*    chain of local objects that need destruction    */
  20.  
  21.     /*    public data        */
  22.  
  23. QDGlobals qd;                        /*    define the Quickdraw globals here!    */
  24. jmp_buf __program_exit;                /*    exit() does a longjmp() to here        */
  25. void (*__atexit_hook)(void);        /*    atexit()  sets this up if it is ever called    */
  26. void (*___atexit_hook)(void);        /*    _atexit() sets this up if it is ever called    */
  27. int __aborting;                        /*    abort() sets this and longjmps to __program_exit    */
  28. #endif
  29.  
  30. /*
  31. ** Variables passed from shared lib initialization to PyMac_AddLibResources.
  32. */
  33. static int library_fss_valid;
  34. static FSSpec library_fss;
  35.  
  36. /*
  37. ** Routine called upon fragment load. We attempt to save the FSSpec from which we're
  38. ** loaded. We always return noErr (we just continue without the resources).
  39. */
  40. OSErr pascal
  41. __sinit(InitBlockPtr data)
  42. {
  43.     if ( data == nil ) return noErr;
  44.     if ( data->fragLocator.where == kOnDiskFlat ) {
  45.         library_fss = *data->fragLocator.u.onDisk.fileSpec;
  46.         library_fss_valid = 1;
  47.     } else if ( data->fragLocator.where == kOnDiskSegmented ) {
  48.         library_fss = *data->fragLocator.u.inSegs.fileSpec;
  49.         library_fss_valid = 1;
  50.     }
  51.     return noErr;
  52. }
  53.  
  54. /*
  55. ** Insert the library resources into the search path. Put them after
  56. ** the resources from the application (which we assume is the current
  57. ** resource file). Again, we ignore errors.
  58. */
  59. void
  60. PyMac_AddLibResources()
  61. {
  62.     if ( !library_fss_valid ) 
  63.         return;
  64.     (void)FSpOpenResFile(&library_fss, fsRdPerm);
  65. }
  66.  
  67.