Initial source

1 files changed, 80 insertions, 0 deletions

diff --git a/i386/dos/dos_rename.c b/i386/dos/dos_rename.c
new file mode 100644
index 00000000..e780ba43
--- /dev/null
+++ b/i386/dos/dos_rename.c
@@ -0,0 +1,80 @@
+/* 
+ * Copyright (c) 1995-1994 The University of Utah and
+ * the Computer Systems Laboratory at the University of Utah (CSL).
+ * All rights reserved.
+ *
+ * Permission to use, copy, modify and distribute this software is hereby
+ * granted provided that (1) source code retains these copyright, permission,
+ * and disclaimer notices, and (2) redistributions including binaries
+ * reproduce the notices in supporting documentation, and (3) all advertising
+ * materials mentioning features or use of this software display the following
+ * acknowledgement: ``This product includes software developed by the
+ * Computer Systems Laboratory at the University of Utah.''
+ *
+ * THE UNIVERSITY OF UTAH AND CSL ALLOW FREE USE OF THIS SOFTWARE IN ITS "AS
+ * IS" CONDITION.  THE UNIVERSITY OF UTAH AND CSL DISCLAIM ANY LIABILITY OF
+ * ANY KIND FOR ANY DAMAGES WHATSOEVER RESULTING FROM THE USE OF THIS SOFTWARE.
+ *
+ * CSL requests users of this software to return to csl-dist@cs.utah.edu any
+ * improvements that they make and grant CSL redistribution rights.
+ *
+ *      Author: Bryan Ford, University of Utah CSL
+ */
+
+#include <unistd.h>
+#include <errno.h>
+
+#include "dos_io.h"
+#include "vm_param.h"
+
+int dos_rename(const char *oldpath, const char *newpath)
+{
+	/* This function isn't fully atomic like on Unix,
+	   but it's as close as I know how to do under DOS.  */
+
+	struct real_call_data real_call_data;
+	vm_offset_t dos_buf_phys = (vm_offset_t)kvtophys(dos_buf);
+	int err;
+
+	dos_init_rcd(&real_call_data);
+
+	/* Put the oldpath in the first half of dos_buf,
+	   and the newpath in the second half.  */
+	if ((strlen(oldpath)+1 > DOS_BUF_SIZE/2)
+	    || (strlen(newpath)+1 > DOS_BUF_SIZE/2))
+		{ errno = E2BIG; return -1; }
+	strcpy(dos_buf, oldpath);
+	strcpy(dos_buf+DOS_BUF_SIZE/2, newpath);
+
+	/* Try once to rename the file.  */
+	real_call_data.eax = 0x5600;
+	real_call_data.ds = dos_buf_phys >> 4;
+	real_call_data.edx = dos_buf_phys & 15;
+	real_call_data.es = dos_buf_phys >> 4;
+	real_call_data.edi = (dos_buf_phys & 15) + DOS_BUF_SIZE/2;
+	real_int(0x21, &real_call_data);
+
+	/* If that failed, delete newpath and then retry the rename.
+	   We _hope_ the failure was because newpath already existed;
+	   the DOS error codes I'm getting back seem to be bogus.  */
+	if (err = dos_check_err(&real_call_data))
+	{
+		real_call_data.eax = 0x4100;
+		real_call_data.ds = dos_buf_phys >> 4;
+		real_call_data.edx = (dos_buf_phys & 15) + DOS_BUF_SIZE/2;
+		real_int(0x21, &real_call_data);
+		if (err = dos_check_err(&real_call_data))
+			return err;
+
+		real_call_data.eax = 0x5600;
+		real_call_data.ds = dos_buf_phys >> 4;
+		real_call_data.edx = dos_buf_phys & 15;
+		real_call_data.es = dos_buf_phys >> 4;
+		real_call_data.edi = (dos_buf_phys & 15) + DOS_BUF_SIZE/2;
+		real_int(0x21, &real_call_data);
+		err = dos_check_err(&real_call_data);
+	}
+
+	return err;
+}
+