Add directory-delete primitive.

diff --git a/v7/src/microcode/dosfs.c b/v7/src/microcode/dosfs.c
index 61bebbae896ae20138f25d042853942ee13f35fa..6bc353c18180481ff004de54c4e70ad6c9fa4cbc 100644 (file)
--- a/v7/src/microcode/dosfs.c
+++ b/v7/src/microcode/dosfs.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dosfs.c,v 1.1 1992/05/05 06:55:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/dosfs.c,v 1.2 1992/07/06 23:42:01 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -139,6 +139,12 @@ DEFUN (OS_directory_make, (name), CONST char * name)
 {
   STD_VOID_SYSTEM_CALL (syscall_mkdir, (DOS_mkdir (name)));
 }
+
+void
+DEFUN (OS_directory_delete, (name), CONST char * name)
+{
+  STD_VOID_SYSTEM_CALL (syscall_rmdir, (DOS_rmdir (name)));
+}
 \f
 /* This is such that directory open does not return the first file */
 typedef struct DIR_struct

diff --git a/v7/src/microcode/msdos.h b/v7/src/microcode/msdos.h
index c14342e9ea516b8caf979f3c6dee99f9b2a43b55..47803faf94c0679b4e364d8ef98d7fc4f8d77d23 100644 (file)
--- a/v7/src/microcode/msdos.h
+++ b/v7/src/microcode/msdos.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/msdos.h,v 1.1 1992/05/05 06:55:13 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/msdos.h,v 1.2 1992/07/06 23:42:02 jinx Exp $
 
 Copyright (c) 1992 Massachusetts Institute of Technology
 
@@ -105,6 +105,7 @@ enum syscall_names
   syscall_readlink,
   syscall_realloc,
   syscall_rename,
+  syscall_rmdir,
   syscall_select,
   syscall_setitimer,
   syscall_setpgid,

diff --git a/v7/src/microcode/osfs.h b/v7/src/microcode/osfs.h
index ed57869e9c21863469607818cf20ae331d9565fc..0d38ff0ae9719df25d5fb4574d10a67f49c132a7 100644 (file)
--- a/v7/src/microcode/osfs.h
+++ b/v7/src/microcode/osfs.h
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osfs.h,v 1.4 1992/02/08 14:54:10 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/osfs.h,v 1.5 1992/07/06 23:42:03 jinx Exp $
 
-Copyright (c) 1990-92 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -52,6 +52,7 @@ extern void EXFUN
 extern void EXFUN
   (OS_file_link_soft, (CONST char * from_name, CONST char * to_name));
 extern void EXFUN (OS_directory_make, (CONST char * name));
+extern void EXFUN (OS_directory_delete, (CONST char * name));
 extern unsigned int EXFUN (OS_directory_open, (CONST char * name));
 extern int EXFUN (OS_directory_valid_p, (long index));
 extern void EXFUN (OS_directory_close, (unsigned int index));

diff --git a/v7/src/microcode/prosfs.c b/v7/src/microcode/prosfs.c
index 081cd6d48adfc9d6699ffd15acc9c66bac5bb2e9..f702af8e55487a76ee0da7fb5f70aa0ca87770be 100644 (file)
--- a/v7/src/microcode/prosfs.c
+++ b/v7/src/microcode/prosfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.8 1992/05/04 21:14:49 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/prosfs.c,v 1.9 1992/07/06 23:42:04 jinx Exp $
 
-Copyright (c) 1987-92 Massachusetts Institute of Technology
+Copyright (c) 1987-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -240,6 +240,14 @@ DEFINE_PRIMITIVE ("DIRECTORY-MAKE", Prim_directory_make, 1, 1,
   OS_directory_make (STRING_ARG (1));
   PRIMITIVE_RETURN (UNSPECIFIC);
 }
+
+DEFINE_PRIMITIVE ("DIRECTORY-DELETE", Prim_directory_make, 1, 1,
+  "Create a new directory, called NAME.")
+{
+  PRIMITIVE_HEADER (1);
+  OS_directory_delete (STRING_ARG (1));
+  PRIMITIVE_RETURN (UNSPECIFIC);
+}
 \f
 DEFINE_PRIMITIVE ("DIRECTORY-OPEN-NOREAD", Prim_directory_open_noread, 1, 1,
   "Open the directory NAME for reading.")

diff --git a/v7/src/microcode/utabmd.scm b/v7/src/microcode/utabmd.scm
index fb329aa36a6bfa38003cf3a58ab413c1b3edfe70..0fe1707f14773e0917f131dff75e986745ae1205 100644 (file)
--- a/v7/src/microcode/utabmd.scm
+++ b/v7/src/microcode/utabmd.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.61 1992/02/08 14:54:14 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $
 ;;;
-;;;    Copyright (c) 1987-92 Massachusetts Institute of Technology
+;;;    Copyright (c) 1987-1992 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -48,6 +48,9 @@
 ;;; [] Types
 ;;; [] Returns
 ;;; [] Errors
+;;; [] Terminations
+;;; [] System-call names
+;;; [] System-call errors
 ;;; [] Identification
 \f
 ;;; [] Fixed
@@ -610,6 +613,7 @@
               READLINK
               REALLOC
               RENAME
+              RMDIR
               SELECT
               SETITIMER
               SETPGID
@@ -698,4 +702,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.61 1992/02/08 14:54:14 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $"
\ No newline at end of file

diff --git a/v7/src/microcode/ux.h b/v7/src/microcode/ux.h
index c00f125f1ce61597d5ba27bd84a2f3f48c256dad..a04419512bd68389788bc9807c8c6b849aee64a4 100644 (file)
--- a/v7/src/microcode/ux.h
+++ b/v7/src/microcode/ux.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.32 1992/06/11 12:44:52 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/ux.h,v 1.33 1992/07/06 23:42:06 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -102,6 +102,7 @@ enum syscall_names
   syscall_readlink,
   syscall_realloc,
   syscall_rename,
+  syscall_rmdir,
   syscall_select,
   syscall_setitimer,
   syscall_setpgid,

diff --git a/v7/src/microcode/uxfs.c b/v7/src/microcode/uxfs.c
index f73db428820cd4a9f5d9ce483129270fa76316dc..dc38968ad187b6304f363506cb057956ee98ee24 100644 (file)
--- a/v7/src/microcode/uxfs.c
+++ b/v7/src/microcode/uxfs.c
@@ -1,8 +1,8 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfs.c,v 1.7 1992/02/09 03:41:48 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/uxfs.c,v 1.8 1992/07/06 23:42:07 jinx Exp $
 
-Copyright (c) 1990-92 Massachusetts Institute of Technology
+Copyright (c) 1990-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -179,6 +179,12 @@ DEFUN (OS_directory_make, (name), CONST char * name)
 {
   STD_VOID_SYSTEM_CALL (syscall_mkdir, (UX_mkdir (name, MODE_DIR)));
 }
+
+void
+DEFUN (OS_directory_delete, (name), CONST char * name)
+{
+  STD_VOID_SYSTEM_CALL (syscall_rmdir, (UX_rmdir (name)));
+}
 \f
 int OS_directory_index;
 

diff --git a/v7/src/microcode/version.h b/v7/src/microcode/version.h
index 30a869e61935515ea9c320c8db8cdd92576581b6..7a406553cd072252be5259a425286b3a8ae22a1d 100644 (file)
--- a/v7/src/microcode/version.h
+++ b/v7/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.115 1992/06/11 18:52:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/microcode/Attic/version.h,v 11.116 1992/07/06 23:42:08 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     115
+#define SUBVERSION     116
 #endif

diff --git a/v8/src/microcode/utabmd.scm b/v8/src/microcode/utabmd.scm
index 7cb3a6487028940ee9385c45aaa7dd745fcab09e..7c043fd46a6720eff3d0107aa09b1dfbd771a18e 100644 (file)
--- a/v8/src/microcode/utabmd.scm
+++ b/v8/src/microcode/utabmd.scm
@@ -1,8 +1,8 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.61 1992/02/08 14:54:14 cph Exp $
+;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $
 ;;;
-;;;    Copyright (c) 1987-92 Massachusetts Institute of Technology
+;;;    Copyright (c) 1987-1992 Massachusetts Institute of Technology
 ;;;
 ;;;    This material was developed by the Scheme project at the
 ;;;    Massachusetts Institute of Technology, Department of
@@ -48,6 +48,9 @@
 ;;; [] Types
 ;;; [] Returns
 ;;; [] Errors
+;;; [] Terminations
+;;; [] System-call names
+;;; [] System-call errors
 ;;; [] Identification
 \f
 ;;; [] Fixed
@@ -610,6 +613,7 @@
               READLINK
               REALLOC
               RENAME
+              RMDIR
               SELECT
               SETITIMER
               SETPGID
@@ -698,4 +702,4 @@
 
 ;;; This identification string is saved by the system.
 
-"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.61 1992/02/08 14:54:14 cph Exp $"
\ No newline at end of file
+"$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/utabmd.scm,v 9.62 1992/07/06 23:42:05 jinx Exp $"
\ No newline at end of file

diff --git a/v8/src/microcode/version.h b/v8/src/microcode/version.h
index f7a3a8b2bbe710a7e884afc7f5e269e4bcda66e0..be1a5b193d13e8af343e440133f048270964c677 100644 (file)
--- a/v8/src/microcode/version.h
+++ b/v8/src/microcode/version.h
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.115 1992/06/11 18:52:16 jinx Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v8/src/microcode/version.h,v 11.116 1992/07/06 23:42:08 jinx Exp $
 
 Copyright (c) 1988-1992 Massachusetts Institute of Technology
 
@@ -46,5 +46,5 @@ MIT in each case. */
 #define VERSION                11
 #endif
 #ifndef SUBVERSION
-#define SUBVERSION     115
+#define SUBVERSION     116
 #endif