From: Guillermo J. Rozas <edu/mit/csail/zurich/gjr>
Date: Wed, 23 Sep 1992 23:06:49 +0000 (+0000)
Subject: Split dired and comint into system-independent and system-dependent
X-Git-Tag: 20090517-FFI~8919
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=e170a2401200f367a759d3e9b72a5b8659130501;p=mit-scheme.git

Split dired and comint into system-independent and system-dependent
portions.  This eliminates the need for most process stubs under DOS.
---

diff --git a/v7/src/edwin/decls.scm b/v7/src/edwin/decls.scm
index 9852a0524..9be0878b7 100644
--- a/v7/src/edwin/decls.scm
+++ b/v7/src/edwin/decls.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/decls.scm,v 1.39 1992/08/27 06:32:33 jinx Exp $
+$Id: decls.scm,v 1.40 1992/09/23 23:05:59 jinx Exp $
 
 Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
@@ -124,6 +124,7 @@ MIT in each case. |#
 		"c-mode"
 		"calias"
 		"cinden"
+		"comhst"
 		"comint"
 		"compile"
 		"comtab"
@@ -132,6 +133,7 @@ MIT in each case. |#
 		"debug"
 		"debuge"
 		"dired"
+		"dirunx"
 		"dos"
 		"dosproc"
 		"ed-ffi"
diff --git a/v7/src/edwin/edwin.ldr b/v7/src/edwin/edwin.ldr
index 86cb2eaff..1e8f52ce1 100644
--- a/v7/src/edwin/edwin.ldr
+++ b/v7/src/edwin/edwin.ldr
@@ -1,5 +1,5 @@
 ;;; -*-Scheme-*-
-;;; $Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/edwin/edwin.ldr,v 1.33 1992/08/27 06:35:16 jinx Exp $
+;;; $Id: edwin.ldr,v 1.34 1992/09/23 23:06:49 jinx Exp $
 ;;; program to load package contents
 ;;; **** This program (unlike most .ldr files) is not generated by a program.
 
@@ -79,6 +79,7 @@
 				(->environment '(EDWIN X-SCREEN)))
       (load-set-and-initialize! '("key")
 				(->environment '(EDWIN KEYS)))
+
       (let ((env (->environment '(EDWIN CONSOLE-SCREEN))))
 	(load-set-and-initialize! '("termcap" "tterm") env)
 	(if (eq? (lookup 'os-type) 'dos)
@@ -86,6 +87,7 @@
 	      (load "ansi" env)
 	      (if (load "bios" env)
 		  ((access bios-initialize-package! env))))))
+
       (load "edtstr" environment)
       (load "editor" environment)
       (load "curren" environment)
@@ -123,10 +125,16 @@
       (load "bufmnu" (->environment '(EDWIN BUFFER-MENU)))
       (load "c-mode" environment)
       (load "cinden" (->environment '(EDWIN C-INDENTATION)))
+      (load "comhst" environment)
       (load "comint" environment)
       (load "compile" environment)
       (load "debug" (->environment '(EDWIN DEBUGGER)))
-      (load "dired" (->environment '(EDWIN DIRED)))
+
+      (let ((env (->environment '(EDWIN DIRED))))
+	(load "dired" env)
+	(if (eq? (lookup 'os-type) 'unix)
+	    (load "dirunx" env)))
+
       (load "evlcom" environment)
       (load "filcom" environment)
       (load "fill" environment)
diff --git a/v7/src/edwin/edwin.pkg b/v7/src/edwin/edwin.pkg
index db8569a56..e79d06d5d 100644
--- a/v7/src/edwin/edwin.pkg
+++ b/v7/src/edwin/edwin.pkg
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: edwin.pkg,v 1.99 1992/09/10 02:44:17 cph Exp $
+$Id: edwin.pkg,v 1.100 1992/09/23 23:06:38 jinx Exp $
 
-Copyright (c) 1989-92 Massachusetts Institute of Technology
+Copyright (c) 1989-1992 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -74,6 +74,7 @@ MIT in each case. |#
 	 "autosv"			; auto save
 	 "basic"			; basic commands
 	 "bufcom"			; buffer commands
+	 "comhst"			; command history
 	 "comint"			; command interpreter process stuff
 	 "compile"			; compilation subprocess
 	 "evlcom"			; evaluation commands
@@ -735,8 +736,11 @@ MIT in each case. |#
 
 (define-package (edwin dired)
   (files "dired")
+  (file-case os-type
+   ((unix) "dirunx"))
   (parent (edwin))
   (export (edwin)
+	  dired-filename-start			; needed by unix.scm
 	  edwin-command$dired
 	  edwin-command$dired-other-window
 	  edwin-command$dired-find-file
@@ -761,10 +765,7 @@ MIT in each case. |#
 	  edwin-command$list-directory
 	  edwin-mode$dired
 	  edwin-variable$dired-kept-versions
-	  edwin-variable$dired-listing-switches
 	  edwin-variable$dired-mode-hook
-	  edwin-variable$list-directory-brief-switches
-	  edwin-variable$list-directory-verbose-switches
 	  make-dired-buffer))
 
 (define-package (edwin info)
@@ -810,25 +811,21 @@ MIT in each case. |#
   (export (edwin)
 	  accept-process-output
 	  buffer-default-directory
-	  buffer-processes
+	  buffer-processes			; always present
 	  continue-process
-	  delete-process
+	  delete-process			; always present
 	  edwin-command$list-processes
 	  edwin-command$shell-command
 	  edwin-command$shell-command-on-region
-	  edwin-variable$backup-by-copying-when-linked
-	  edwin-variable$backup-by-copying-when-mismatch
+	  edwin-variable$delete-exited-processes
 	  edwin-variable$exec-path
-	  edwin-variable$kept-new-versions
-	  edwin-variable$kept-old-versions
 	  edwin-variable$process-connection-type
-	  edwin-variable$version-control
 	  find-program
-	  get-buffer-process
+	  get-buffer-process			; always present
 	  get-process-by-name
 	  handle-process-status-changes
 	  hangup-process
-	  initialize-processes!
+	  initialize-processes!			; always present
 	  interrupt-process
 	  kill-process
 	  process-arguments
@@ -838,7 +835,7 @@ MIT in each case. |#
 	  process-exit-reason
 	  process-filter
 	  process-kill-without-query
-	  process-list
+	  process-list				; always present
 	  process-mark
 	  process-name
 	  process-runnable?
@@ -857,6 +854,7 @@ MIT in each case. |#
 	  shell-command
 	  start-process
 	  stop-process
+	  subprocesses-available?		; always present
 	  run-synchronous-process))
 
 (define-package (edwin sendmail)