From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 1 Nov 1997 07:33:44 +0000 (+0000)
Subject: OS/HOSTNAME now defined in runtime system.
X-Git-Tag: 20090517-FFI~4951
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=327cff2188d0bcdf6bd5fd9538650299a11a5a96;p=mit-scheme.git

OS/HOSTNAME now defined in runtime system.
---

diff --git a/v7/src/edwin/dosfile.scm b/v7/src/edwin/dosfile.scm
index e97c2068e..3af280ae4 100644
--- 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))
 
 ;;;; File-Encoding Methods
 
diff --git a/v7/src/edwin/unix.scm b/v7/src/edwin/unix.scm
index 0df46cd6a..d2201339a 100644
--- 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