OS/HOSTNAME now defined in runtime system.

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index e97c2068ecbcd3ab4877fdc9cf2186e9bb732c3a..3af280ae4a59fff4df0b5b3d109dba294ede2501 100644 (file)
--- a/v7/src/edwin/dosfile.scm
+++ b/v7/src/edwin/dosfile.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: dosfile.scm,v 1.12 1997/10/26 01:35:35 cph Exp $
+;;;    $Id: dosfile.scm,v 1.13 1997/11/01 07:33:44 cph Exp $
 ;;;
 ;;;    Copyright (c) 1994-97 Massachusetts Institute of Technology
 ;;;
@@ -539,26 +539,6 @@ Switches may be concatenated, e.g. `-lt' is equivalent to `-l -t'."
   (let ((chars "]\\\\A-Za-z0-9!#$%&'()+,.:;=@[^_`{}~---"))
     (let ((start (skip-chars-backward chars point start)))
       (make-region start (skip-chars-forward chars start end)))))
-
-(define (os/hostname)
-  (if (not dos/cached-hostname)
-      (let ((buffer (temporary-buffer "*hostname*")))
-       (let ((status.reason
-              (run-synchronous-process #f (buffer-end buffer) #f #f
-                                       "hostname")))
-         (if (not (equal? status.reason '(EXITED . 0)))
-             (begin
-               (pop-up-buffer buffer)
-               (error "Error running HOSTNAME program:" status.reason))))
-       (set! dos/cached-hostname (string-trim (buffer-string buffer)))
-       (kill-buffer buffer)))
-  dos/cached-hostname)
-
-(define dos/cached-hostname #f)
-(add-event-receiver! event:after-restore
-  (lambda ()
-    (set! dos/cached-hostname #f)
-    unspecific))
 \f
 ;;;; File-Encoding Methods
 

diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 0df46cd6aeb6fe3ab80891a4f7b3961e4cbe5d8e..d2201339af2b155584af4dfb85c31c036b08cd17 100644 (file)
--- a/v7/src/edwin/unix.scm
+++ b/v7/src/edwin/unix.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;;    $Id: unix.scm,v 1.79 1997/06/09 08:12:28 cph Exp $
+;;;    $Id: unix.scm,v 1.80 1997/11/01 07:33:37 cph Exp $
 ;;;
 ;;;    Copyright (c) 1989-97 Massachusetts Institute of Technology
 ;;;
@@ -819,10 +819,6 @@ option, instead taking -P <filename>."
        file-executable?)
       "fakemail"))
 
-(define (os/hostname)
-  (or ((ucode-primitive full-hostname 0))
-      ((ucode-primitive hostname 0))))
-
 (define (os/newsrc-file-name server)
   (let ((homedir (user-homedir-pathname)))
     (let ((specific