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 9852a0524948c3509d56b5f60dea9e79f7581e66..9be0878b71e4e594cf65b840ba5f5270e0595aae 100644 (file)
--- 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 86cb2eafff78be4224afc100adc087eee2c6c124..1e8f52ce1b677db38b5fad45e44abafd165db5cb 100644 (file)
--- 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 db8569a5660f482b0f5815ad1f88c3f2df843556..e79d06d5da0b2daa03d01a8d227a8a03e5211886 100644 (file)
--- 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)