home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 171.lha / SupLib / closelib.c < prev    next >
Encoding:
C/C++ Source or Header  |  1988-04-28  |  406 b   |  28 lines
  1.  
  2. /*
  3.  * CLOSELIBS(mask)
  4.  *
  5.  *    Close the indicated libraries.    Does not close libraries which
  6.  *    have not been openned.
  7.  */
  8.  
  9. #include "xmisc.h"
  10.  
  11. extern struct OLI strvar[];
  12.  
  13. closelibs(mask)
  14. register unsigned short mask;
  15. {
  16.     register struct OLI *sv;
  17.  
  18.     for (sv = &strvar[0]; mask && sv->name; mask >>= 1, ++sv){
  19.     if ((mask & 1) && *sv->var) {
  20.         CloseLibrary(*sv->var);
  21.         *sv->var = 0L;
  22.     }
  23.     }
  24. }
  25.  
  26.  
  27.  
  28.