Win32OperatingSystem.st
changeset 4135 6de6bac5347c
parent 4132 d046236cf67e
child 4144 39921fe12390
--- a/Win32OperatingSystem.st	Mon May 03 21:04:49 1999 +0200
+++ b/Win32OperatingSystem.st	Mon May 03 21:05:13 1999 +0200
@@ -224,11 +224,6 @@
 #  endif
 # endif
 
-# if defined(HAS_UNAME)
-#  include <sys/utsname.h>
-# endif
-
-
 /*
  * sigaction dummies (you won't believe these call themself ``POSIX'' systems ...)
  */
@@ -4394,31 +4389,12 @@
 	name = __MKSTRING(buffer);
     }
 #else
-# if defined(HAS_UNAME)
-    struct utsname ubuff;
-
-    if (uname(&ubuff) >= 0) {
-	name = __MKSTRING(ubuff.nodename);
-    }
-# else
-#  if defined(HAS_SYSINFO) && defined(SI_HOSTNAME)
-    char buffer[256];
-    int ret;
- 
-    if ((ret = sysinfo(SI_HOSTNAME, buffer, sizeof(buffer))) >= 0 && ret <= sizeof(buffer)) {
-	name = __MKSTRING(buffer);
-    }
-#  else
-#   ifdef WIN32
     char buffer[128];
     int buffSize = sizeof(buffer);
 
     if (GetComputerName(buffer, &buffSize) == TRUE) {
 	name = __MKSTRING(buffer);
     }
-#   endif
-#  endif
-# endif
 #endif
 %}.
     name isNil ifTrue:[
@@ -5985,11 +5961,7 @@
       a subprocesses status (to avoid blocking)."
 
 %{ /*NOCONTEXT*/
-#if defined(HAS_WAITPID) || defined(HAS_WAIT3) || defined(WIN32) || defined(__VMS__)
     RETURN(false);
-#else
-    RETURN(true);
-#endif
 %}
 !
 
@@ -6687,6 +6659,6 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.43 1999-04-30 09:32:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.44 1999-05-03 19:05:13 ps Exp $'
 ! !
 Win32OperatingSystem initialize!