/*
 * 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;
	}
    }
}