From e5888a1ffdae813d7575f5fb02275c6bb07e5199 Mon Sep 17 00:00:00 2001
From: Taru Karttunen <taruti@taruti.net>
Date: Wed, 30 Mar 2011 15:46:40 +0300
Subject: Import sources from 2011-03-30 iso image

---
 sys/src/ape/lib/ap/plan9/access.c | 62 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100755 sys/src/ape/lib/ap/plan9/access.c

(limited to 'sys/src/ape/lib/ap/plan9/access.c')

diff --git a/sys/src/ape/lib/ap/plan9/access.c b/sys/src/ape/lib/ap/plan9/access.c
new file mode 100755
index 000000000..c51b37d6c
--- /dev/null
+++ b/sys/src/ape/lib/ap/plan9/access.c
@@ -0,0 +1,62 @@
+#include "lib.h"
+#include <string.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <unistd.h>
+#include <errno.h>
+#include <stdlib.h>
+#include "sys9.h"
+#include "dir.h"
+
+int
+access(const char *name, int mode)
+{
+	int fd, n;
+	Dir *db;
+	struct stat st;
+	static char omode[] = {
+		0,
+		3,
+		1,
+		2,
+		0,
+		2,
+		2,
+		2
+	};
+	char tname[1024];
+
+	if(mode == 0){
+		db = _dirstat(name);
+		if(db == nil){
+			_syserrno();
+			return -1;
+		}
+		free(db);
+		return 0;
+	}
+	fd = open(name, omode[mode&7]);
+	if(fd >= 0){
+		close(fd);
+		return 0;
+	}
+	else if(stat(name, &st)==0 && S_ISDIR(st.st_mode)){
+		if(mode & (R_OK|X_OK)){
+			fd = open(name, O_RDONLY);
+			if(fd < 0)
+				return -1;
+			close(fd);
+		}
+		if(mode & W_OK){
+			strncpy(tname, name, sizeof(tname)-9);
+			strcat(tname, "/_AcChAcK");
+			fd = creat(tname, 0666);
+			if(fd < 0)
+				return -1;
+			close(fd);
+			_REMOVE(tname);
+		}
+		return 0;
+	}
+	return -1;
+}
-- 
cgit v1.2.3