From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 1 Nov 1997 07:36:14 +0000 (+0000)
Subject: Add new procedure OS/HOSTNAME.
X-Git-Tag: 20090517-FFI~4950
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c4a128195eda59f679274b046449fb036e6fa3a0;p=mit-scheme.git

Add new procedure OS/HOSTNAME.
---

diff --git a/v7/src/runtime/runtime.pkg b/v7/src/runtime/runtime.pkg
index 33b604d9b..8a6491224 100644
--- a/v7/src/runtime/runtime.pkg
+++ b/v7/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.287 1997/08/08 21:29:19 cph Exp $
+$Id: runtime.pkg,v 14.288 1997/11/01 07:36:14 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2281,6 +2281,7 @@ MIT in each case. |#
 	  open-tcp-stream-socket-channel
 	  open-unix-stream-socket
 	  open-unix-stream-socket-channel
+	  os/hostname
 	  tcp-server-connection-accept))
 
 (define-package (runtime subprocess)
diff --git a/v7/src/runtime/socket.scm b/v7/src/runtime/socket.scm
index dab892f6a..971929341 100644
--- a/v7/src/runtime/socket.scm
+++ b/v7/src/runtime/socket.scm
@@ -1,8 +1,8 @@
 #| -*-Scheme-*-
 
-$Id: socket.scm,v 1.8 1996/05/18 06:15:24 cph Exp $
+$Id: socket.scm,v 1.9 1997/11/01 07:31:40 cph Exp $
 
-Copyright (c) 1990-96 Massachusetts Institute of Technology
+Copyright (c) 1990-97 Massachusetts Institute of Technology
 
 This material was developed by the Scheme project at the Massachusetts
 Institute of Technology, Department of Electrical Engineering and
@@ -61,6 +61,10 @@ MIT in each case. |#
     (lambda ()
       ((ucode-primitive get-host-by-name 1) host-name))))
 
+(define (os/hostname)
+  ((ucode-primitive canonical-host-name 1)
+   ((ucode-primitive get-host-name 0))))
+
 (define (open-unix-stream-socket-channel filename)
   (open-channel
    (lambda (p)
diff --git a/v8/src/runtime/runtime.pkg b/v8/src/runtime/runtime.pkg
index 4a727c61f..1c72e52a3 100644
--- a/v8/src/runtime/runtime.pkg
+++ b/v8/src/runtime/runtime.pkg
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: runtime.pkg,v 14.293 1997/08/08 21:29:26 cph Exp $
+$Id: runtime.pkg,v 14.294 1997/11/01 07:35:47 cph Exp $
 
 Copyright (c) 1988-97 Massachusetts Institute of Technology
 
@@ -2285,6 +2285,7 @@ MIT in each case. |#
 	  open-tcp-stream-socket-channel
 	  open-unix-stream-socket
 	  open-unix-stream-socket-channel
+	  os/hostname
 	  tcp-server-connection-accept))
 
 (define-package (runtime subprocess)