home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d1xx
/
d126
/
suplib.lha
/
Suplib
/
closelibs.c
< prev
next >
Wrap
C/C++ Source or Header
|
1988-01-02
|
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;
}
}
}