home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Club Amiga de Montreal - CAM
/
CAM_CD_1.iso
/
files
/
171.lha
/
SupLib
/
closelib.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-04-28
|
406b
|
28 lines
/*
* CLOSELIBS(mask)
*
* Close the indicated libraries. Does not close libraries which
* have not been openned.
*/
#include "xmisc.h"
extern struct OLI strvar[];
closelibs(mask)
register unsigned short mask;
{
register struct OLI *sv;
for (sv = &strvar[0]; mask && sv->name; mask >>= 1, ++sv){
if ((mask & 1) && *sv->var) {
CloseLibrary(*sv->var);
*sv->var = 0L;
}
}
}