[unix-history] / usr / src / usr.bin / f77 / libU77 / unlink_.c

/*
char id_unlink[] = "@(#)unlink_.c	1.1";
 *
 * unlink (remove) a file
 *
 * calling sequence:
 *	integer unlink
 *	ierror = unlink(filename)
 * where:
 *	ierror will be a returned status (0 == OK)
 *	filename is the file to be unlinked
 */

#include "../libI77/f_errno.h"

long
unlink_(fname, namlen)
char *fname;
long namlen;
{
	char buf[128];

	if (namlen >= sizeof buf)
		return((long)(errno=F_ERARG));
	g_char(fname, namlen, buf);
	if (unlink(buf) != 0)
		return((long)errno);
	return(0L);
}
Commit	Line	Data
8790c335 DW	1	/*
	2	char id_unlink[] = "@(#)unlink_.c 1.1";
	3	*
	4	* unlink (remove) a file
	5	*
	6	* calling sequence:
	7	* integer unlink
	8	* ierror = unlink(filename)
	9	* where:
	10	* ierror will be a returned status (0 == OK)
	11	* filename is the file to be unlinked
	12	*/
	13
	14	#include "../libI77/f_errno.h"
	15
	16	long
	17	unlink_(fname, namlen)
	18	char *fname;
	19	long namlen;
	20	{
	21	char buf[128];
	22
	23	if (namlen >= sizeof buf)
	24	return((long)(errno=F_ERARG));
	25	g_char(fname, namlen, buf);
	26	if (unlink(buf) != 0)
	27	return((long)errno);
	28	return(0L);
	29	}