From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Thu, 25 Feb 1993 03:13:14 +0000 (+0000)
Subject: Add dos commands and pseudo shell.
X-Git-Tag: 20090517-FFI~8460
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=447265f6cfaab667cbfb6a6850e114cfecaef2cb;p=mit-scheme.git

Add dos commands and pseudo shell.
---

diff --git a/v7/src/edwin/loadef.scm b/v7/src/edwin/loadef.scm
index a775cdb2b..39490649e 100644
--- a/v7/src/edwin/loadef.scm
+++ b/v7/src/edwin/loadef.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;	$Id: loadef.scm,v 1.19 1992/11/13 22:22:53 cph Exp $
+;;;	$Id: loadef.scm,v 1.20 1993/02/25 03:13:14 gjr Exp $
 ;;;
 ;;;	Copyright (c) 1986, 1989-92 Massachusetts Institute of Technology
 ;;;
@@ -220,4 +220,23 @@ variable's value is #F, the text is printed using LPR-COMMAND."
   "Sort lines by the numeric value of a field.")
 
 (define-autoload-command 'sort-columns 'SORT
-  "Sort lines by the text in a range of columns.")
\ No newline at end of file
+  "Sort lines by the text in a range of columns.")
+
+;;;; DOS-specific commands
+
+(if (string=? microcode-id/operating-system-name "dos")
+    (begin
+      (define-library 'DOSCOM
+	'("doscom" (EDWIN DOSJOB)))
+      (define-autoload-command 'shell-command 'DOSCOM
+	"Execute string COMMAND in inferior shell; display output, if any.")
+      (define-autoload-command 'shell-command-on-region 'DOSCOM
+	"Execute string COMMAND in inferior shell with region as input.")
+
+      (define-library 'DOSSHELL
+	'("dosshell" (EDWIN DOSJOB)))
+      (define-autoload-major-mode 'pseudo-shell 'fundamental "Pseudo Shell"
+	'DOSSHELL
+	"Major mode for executing DOS commands.")
+      (define-autoload-command 'shell 'DOSSHELL
+	"Run an inferior pseudo shell, with I/O through buffer *shell*.")))
\ No newline at end of file