Upload

Digital Research

CPM OPERATING SYSTEMS/CPM 68K/1.0X SOURCES/v102/clib/access.c

@@ -0,0 +1,41 @@
+/*************************************************************************
+*
+*			a c c e s s   F u n c t i o n
+*			-----------------------------
+*	Copyright 1982 by Digital Research Inc.  All rights reserved.
+*
+*	"access" returns 0 if access to a file is allowed, -1 o.w.
+*	Under CP/M, this just tests for existence.
+*
+*	Calling sequence:
+*		ret = access(fname,mode)
+*	Where:
+*		ret = 0 if accessable, -1 o.w.
+*		fname -> file's name, NULL terminated string
+*		mode = test for read, write, exec, dir path access
+*			(ignored by CP/M)
+*
+*	Made O/S independent 20-Aug-83 sw
+*
+**************************************************************************/
+#include <portab.h>
+#include <cpm.h>
+#include <errno.h>
+WORD access(fname,mode)
+REG	BYTE *fname;
+REG	WORD mode;
+{
+REG	WORD ich;
+REG	WORD rval;
+REG	FD *fp;
+
+	rval = FAILURE;
+	if((rval=open(fname,READ)) >= 0 )	/* File must be there ... */
+	{
+		close(rval);			/* Free up fd 		  */
+		rval = SUCCESS;
+	}
+	if( rval == SUCCESS )
+		return(SUCCESS);
+	else	RETERR(FAILURE,ENOENT);
+}