Remove definitions that are now present in the runtime system.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index 8f3738db39da8440cb943ccab35aca1ec241e020..f647c764701f6f306bc215b5dacb48437514fc09 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: dosfile.scm,v 1.25 1999/01/16 06:32:51 cph Exp $
+;;; $Id: dosfile.scm,v 1.26 1999/02/01 03:30:56 cph Exp $
 ;;;
 ;;; Copyright (c) 1994-1999 Massachusetts Institute of Technology
 ;;;
@@ -465,89 +465,11 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
 \f
 ;;;; Subprocess/Shell Support
 
-(define (os/parse-path-string string)
-  (let ((end (string-length string))
-       (substring
-        (lambda (string start end)
-          (pathname-as-directory (substring string start end)))))
-    (let loop ((start 0))
-      (if (< start end)
-         (let ((index (substring-find-next-char string start end #\;)))
-           (if index
-               (if (= index start)
-                   (loop (+ index 1))
-                   (cons (substring string start index)
-                         (loop (+ index 1))))
-               (list (substring string start end))))
-         '()))))
-
-(define (os/find-program program default-directory)
-  (or (dos/find-program program (ref-variable exec-path) default-directory)
-      (error "Can't find program:" (->namestring program))))
-
-(define (dos/find-program program exec-path default-directory)
-  (let* ((try
-         (let ((types (os/executable-pathname-types)))
-           (lambda (pathname)
-             (let ((type (pathname-type pathname)))
-               (if type
-                   (and (member type types)
-                        (file-exists? pathname)
-                        (->namestring pathname))
-                   (let loop ((types types))
-                     (and (not (null? types))
-                          (let ((p (pathname-new-type pathname (car types))))
-                            (if (file-exists? p)
-                                (->namestring p)
-                                (loop (cdr types)))))))))))
-        (try-dir
-         (lambda (directory)
-           (try (merge-pathnames program directory)))))
-    (if (pathname-absolute? program)
-       (try program)
-       (or (and (eq? 'NT microcode-id/operating-system)
-                (let ((ns (nt/scheme-executable-pathname)))
-                  (and ns
-                       (try-dir (directory-pathname ns)))))
-           (if (not default-directory)
-               (let loop ((path exec-path))
-                 (and (not (null? path))
-                      (or (and (pathname-absolute? (car path))
-                               (try-dir (car path)))
-                          (loop (cdr path)))))
-               (let ((default-directory (merge-pathnames default-directory)))
-                 (let loop ((path exec-path))
-                   (and (not (null? path))
-                        (or (try-dir (merge-pathnames (car path)
-                                                      default-directory))
-                            (loop (cdr path)))))))))))
-
-(define (nt/scheme-executable-pathname)
-  (let ((handle
-        (get-module-handle
-         (file-namestring
-          (pathname-default-type
-           ((make-primitive-procedure 'SCHEME-PROGRAM-NAME))
-           "exe"))))
-       (buf (make-string 256)))
-    (substring buf 0 (get-module-file-name handle buf 256))))
-\f
-(define (os/shell-file-name)
-  (or (get-environment-variable "SHELL")
-      (get-environment-variable "COMSPEC")
-      (dos/default-shell-file-name)))
-
 (define (os/shell-name pathname)
   (if (member (pathname-type pathname) (os/executable-pathname-types))
       (pathname-name pathname)
       (file-namestring pathname)))
 
-(define (os/form-shell-command command)
-  (list "/c" command))
-
-(define (os/executable-pathname-types)
-  '("exe" "com" "bat" "btm"))
-
 (define (os/default-shell-args)
   '())
 

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index a16e7a127d5163bd3fccf7b82a08232062483552..001ecf95ba8a345d4d0393b0fc22caf5311c6d1e 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: unix.scm,v 1.91 1999/01/16 06:04:29 cph Exp $
+;;; $Id: unix.scm,v 1.92 1999/02/01 03:31:01 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1999 Massachusetts Institute of Technology
 ;;;
@@ -592,62 +592,6 @@ CANNOT contain the 'F' option."
 \f
 ;;;; Subprocess/Shell Support
 
-(define (os/parse-path-string string)
-  (let ((end (string-length string))
-       (substring
-        (lambda (string start end)
-          (pathname-as-directory (substring string start end)))))
-    (let loop ((start 0))
-      (if (< start end)
-         (let ((index (substring-find-next-char string start end #\:)))
-           (if index
-               (cons (if (= index start)
-                         false
-                         (substring string start index))
-                     (loop (+ index 1)))
-               (list (substring string start end))))
-         '()))))
-
-(define (os/find-program program default-directory)
-  (or (unix/find-program program (ref-variable exec-path) default-directory)
-      (error "Can't find program:" (->namestring program))))
-
-(define (unix/find-program program exec-path default-directory)
-  (let ((try
-        (lambda (pathname)
-          (and (file-access pathname 1)
-               (->namestring pathname)))))
-    (cond ((pathname-absolute? program)
-          (try program))
-         ((not default-directory)
-          (let loop ((path exec-path))
-            (and (not (null? path))
-                 (or (and (car path)
-                          (pathname-absolute? (car path))
-                          (try (merge-pathnames program (car path))))
-                     (loop (cdr path))))))
-         (else
-          (let ((default-directory (merge-pathnames default-directory)))
-            (let loop ((path exec-path))
-              (and (not (null? path))
-                   (or (try (merge-pathnames
-                             program
-                             (if (car path)
-                                 (merge-pathnames (car path)
-                                                  default-directory)
-                                 default-directory)))
-                       (loop (cdr path))))))))))
-
-(define (os/shell-file-name)
-  (or (get-environment-variable "SHELL")
-      "/bin/sh"))
-
-(define (os/form-shell-command command)
-  (list "-c" command))
-
-(define (os/executable-pathname-types)
-  '())
-
 (define (os/shell-name pathname)
   (file-namestring pathname))
 
@@ -662,7 +606,7 @@ Value is a list of strings."
       ;; than us about what terminal modes to use.
       '("-i" "-T")
       '("-i")))
-\f
+
 (define (os/default-shell-prompt-pattern)
   "^[^#$>]*[#$>] *")