use systeminfo (solaris) if available
authorClaus Gittinger <cg@exept.de>
Thu, 08 May 1997 14:10:39 +0200
changeset 2632 195c5f4346a9
parent 2631 48f629517b65
child 2633 c301fadc468b
use systeminfo (solaris) if available
Unix.st
--- a/Unix.st	Thu May 08 13:43:56 1997 +0200
+++ b/Unix.st	Thu May 08 14:10:39 1997 +0200
@@ -134,6 +134,10 @@
 #ifdef IRIX5
 # include <sys/syssgi.h>
 #endif
+#ifdef solaris
+# include <sys/systeminfo.h>
+# define HAS_SYSTEMINFO
+#endif
 
 
 #ifdef transputer
@@ -6905,6 +6909,25 @@
 # endif
     }
 
+# ifdef HAS_SYSTEMINFO
+    {
+	char buffer[128];
+
+	if (sysinfo(SI_RELEASE, buffer, sizeof(buffer)) {
+	    rel = __MKSTRING(buffer);
+	}
+	if (sysinfo(SI_VERSION, buffer, sizeof(buffer)) {
+	    ver = __MKSTRING(buffer);
+	}
+	if (sysinfo(SI_ARCHITECTURE, buffer, sizeof(buffer)) {
+	    arch = __MKSTRING(buffer);
+	}
+	if (sysinfo(SI_MACHINE, buffer, sizeof(buffer)) {
+	    mach = __MKSTRING(buffer);
+	}
+    }
+# endif
+
 #else /* no uname */
 
 # ifdef WIN32 
@@ -9069,6 +9092,6 @@
 !OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.220 1997-05-08 11:43:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Attic/Unix.st,v 1.221 1997-05-08 12:10:39 cg Exp $'
 ! !
 OperatingSystem initialize!