home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 100-199 / ff126.lzh / Suplib / closelibs.c < prev    next >
C/C++ Source or Header  |  1988-01-02  |  406b  |  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.