/*
© 2000 Compaq Computer Corporation

COMPAQ Registered in U.S. Patent and Trademark Office.

Confidential computer software.  Valid license from Compaq required for
possession, use or copying.  Consistent with FAR 12.211 and 12.212, Commercial
Computer Software, Computer Software Documentation, and Technical Data for
Commercial Items are licensed to the U.S. Government under vendor's standard
commercial license.
*/
/*
**	unlink() - Fudge to allow the UNIX function to work
**
**	Author:	Trevor Taylor
**
**	Date:	May-1989
**
*/

#include <descrip.h>



unlink(filename)		/*--- Delete (unlink) a file ---*/
char filename[];
{
    char tempname[255];
    $DESCRIPTOR(file_desc, tempname);

    file_desc.dsc$w_length = strlen(filename);
    strcpy(tempname, filename);

    return (LIB$DELETE_FILE(&file_desc));

} /*** End unlink() ***/