syscalls: link at

src/sys/syscalls/linkat.c

@@ -0,0 +1,95 @@
+#include <kernel/syscalls.h>
+#include <kernel/vfs.h>
+#include <sys/types.h>
+#include <arch/cls.h>
+#include <kernel/fd.h>
+#include <kernel/sched.h>
+#include <string.h>
+
+
+static int gettarget(fd_t** targ, dirnode_t** targnode, int ifd, proc_t* proc){
+	
+	if(ifd != AT_FDCWD){
+		
+		int err = fd_access(&proc->fdtable, targ, ifd);
+
+		if(err)
+			return err;
+		
+		
+		if(GETTYPE((*targ)->mode) != TYPE_DIR)
+			return ENOTDIR;
+		
+
+		*targnode = (*targ)->node;
+	}
+	else
+		*targnode = proc->cwd;
+
+}
+
+
+// flags is ignored for now
+
+syscallret syscall_linkat(int srcdirfd, const char* srcpath, int tgtdirfd, const char* tgtpath, int flags){
+	
+	syscallret retv;
+	retv.ret = -1;
+	
+	
+	if(srcpath > USER_SPACE_END || tgtpath > USER_SPACE_END){
+		retv.errno = EFAULT;
+		return retv;
+	}
+	
+	size_t srclen = strlen(srcpath);
+	size_t tgtlen = strlen(tgtpath);
+	
+	char srcbuff[srclen+1];
+	char tgtbuff[tgtlen+1];
+
+	strcpy(srcbuff, srcpath);
+	strcpy(tgtbuff, tgtpath);
+
+	proc_t* proc = arch_getcls()->thread->proc;
+
+
+	dirnode_t* source;
+	fd_t* srcfd = NULL;
+	dirnode_t* target;
+	fd_t* tgtfd = NULL;
+	
+	retv.errno = gettarget(&srcfd, &source, srcdirfd, proc);
+
+	if(retv.errno)
+		goto _fail;
+
+	retv.errno = gettarget(&tgtfd, &target, tgtdirfd, proc);
+
+	if(retv.errno)
+		goto _fail;
+
+	vnode_t* node;
+	
+	retv.errno = vfs_open(&node, srcbuff[0] == '/' ? proc->root : source, srcbuff);
+
+	if(retv.errno)
+		goto _fail;
+
+	retv.errno = vfs_link(tgtbuff[0] == '/' ? proc->root : target, node, tgtbuff);
+
+	vfs_close(node);
+
+	_fail:
+
+	if(srcdirfd != AT_FDCWD && srcfd)
+		fd_release(srcfd);
+
+	if(tgtdirfd != AT_FDCWD && tgtfd)
+		fd_release(tgtfd);
+
+	retv.ret = retv.errno ? -1 : 0;
+	
+	return retv;
+
+}