Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102a/clib/unlink.c

@@ -0,0 +1,37 @@
+/***************************************************************************
+ *									    
+ *			U n l i n k   F u n c t i o n			    
+ *			-----------------------------			    
+ *	Copyright 1982 by Digital Research Inc.  All rights reserved.	    
+ *									    
+ *	The unlink function is used to delete a CP/M file by name.	    
+ *									    
+ *	Calling Sequence:						    
+ *									    
+ *		ret = unlink(filename);					    
+ *									    
+ *	Where:								    
+ *		filename	Is the null-terminated name of the file	    
+ *									    
+ *		ret		Is 0 for success, -1 for failure	    
+ *									    
+ ****************************************************************************/
+
+#include "portab.h"
+#include "osif.h"
+
+WORD	unlink(filename)			/* CLEAR FUNCTION ***********/
+	BYTE	*filename;			/* -> filename	 	    */
+{						/****************************/
+REG	WORD	ch;				/* Channel number	    */
+REG	WORD	ret;				/* Temp return value	    */
+						/****************************/
+	if((ch=_allocc()) < 0)			/* Allocate a channel	    */
+		return(FAILURE);		/* Can't		    */
+						/*			    */
+	__chinit(ch);				/* Init fcb and ccb	    */
+	ret = __open(ch,filename,DELETE);	/* Delete the file	    */
+	_freec(ch);				/* Free the channel	    */
+	return(ret);				/* Return result of DELETE  */
+}						/****************************/
+