home *** CD-ROM | disk | FTP | other *** search
/ Fish 'n' More 2 / fishmore-publicdomainlibraryvol.ii1991xetec.iso / dirs / projmot_453.lzh / ProjMot / src / glibunload.c < prev    next >
C/C++ Source or Header  |  1991-02-18  |  695b  |  27 lines
  1. /*    
  2.  * glibunload.c 
  3.  * ~~~~~~~~~~~~~~~~~~
  4.  * unloads libraries intuition, graphics and req., math and trig
  5.  * © Copyright 1991 Christian E. Hopps
  6. */
  7. #include <intuition/intuition.h>
  8. #include <graphics/gfxbase.h>
  9. #include <libraries/reqbase.h>
  10. #include <libraries/mathffp.h>
  11.  
  12. extern struct IntuitionBase     *IntuitionBase;
  13. extern struct GfxBase         *GfxBase;
  14. extern struct ReqLib        *ReqBase; 
  15. extern struct Library        *MathBase;
  16. extern struct Library        *MathTransBase;
  17.  
  18. void GLibUnload()
  19. {
  20.  
  21. if(MathTransBase)    CloseLibrary(MathTransBase);
  22. if(MathBase)        CloseLibrary(MathBase);
  23. if(IntuitionBase)     CloseLibrary(IntuitionBase);
  24. if(GfxBase)        CloseLibrary(GfxBase);
  25. if(ReqBase)         CloseLibrary(ReqBase); 
  26.  
  27. }