/* -*-c,save-*- */
/*
 * luclose.c - library close and exit functions
 * Robert Heller. Created: Sat Nov 8, 1986 15:48:29.29
 * Last Mod: 
 * 
 * (c) Copyright 1986 by Robert Heller
 *     All Rights Reserved
 * 
 * 
 */

#include <stdio.h>		/* STD I/O defs */
#include <ctype.h>		/* char type defs */

#include "ludef.h"		/* ludefs */

#include "luvars.h"		/* lu variables */

lu_close(argcc,argvv)
FAST int *argcc;
FAST char ***argvv;
{
    if (!lu_openp) 
	fprintf(stderr,"lu: library file not open!\n");
    else {
	if (lu_modp) put_dire();
	close(lu_fd);
	lu_modp = lu_openp = FALSE;
	printf("lu: old library %s closed\n",lu_libr);
	}
    while (*argcc > 0 && ***argvv != '-') {
	*argcc -= 1;
	*argvv += 1;
	}
    return;
    }
lu_exit(argcc,argvv)
FAST int *argcc;
FAST char ***argvv;
{
    if (lu_openp) lu_close(argcc,argvv);
    exit(1);
    }