From: Chris Hanson <org/chris-hanson/cph>
Date: Wed, 21 Oct 1998 07:52:13 +0000 (+0000)
Subject: Work around unpleasant behavior in Windows 98.
X-Git-Tag: 20090517-FFI~4733
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4a90ad458b1ff71a6bb0ca993c92e5525cff3d06;p=mit-scheme.git

Work around unpleasant behavior in Windows 98.
---

diff --git a/v7/src/microcode/nttop.c b/v7/src/microcode/nttop.c
index a922f054d..3fa95ebb3 100644
--- a/v7/src/microcode/nttop.c
+++ b/v7/src/microcode/nttop.c
@@ -1,6 +1,6 @@
 /* -*-C-*-
 
-$Id: nttop.c,v 1.27 1998/10/21 07:38:10 cph Exp $
+$Id: nttop.c,v 1.28 1998/10/21 07:52:13 cph Exp $
 
 Copyright (c) 1993-98 Massachusetts Institute of Technology
 
@@ -128,6 +128,23 @@ OS_under_emacs_p (void)
 
 enum windows_type NT_windows_type;
 
+static int
+empty_string_p (const char * s)
+{
+  const char * p = s;
+  while (1)
+    switch (*p++)
+      {
+      case '\0':
+	return (1);
+      case ' ':
+      case '\t':
+	break;
+      default:
+	return (0);
+      }
+}
+
 void
 OS_initialize (void)
 {
@@ -157,7 +174,7 @@ OS_initialize (void)
 		 (info.dwMajorVersion),
 		 (info.dwMinorVersion),
 		 (info.dwBuildNumber));
-	if (((info.szCSDVersion)[0]) != '\0')
+	if (!empty_string_p (info.szCSDVersion))
 	  {
 	    strcat (p, "; ");
 	    strcat (p, (info.szCSDVersion));
@@ -174,7 +191,7 @@ OS_initialize (void)
 		  ? "98"
 		  : "9?"),
 		 (LOWORD (info.dwBuildNumber)));
-	if (((info.szCSDVersion)[0]) != '\0')
+	if (!empty_string_p (info.szCSDVersion))
 	  {
 	    strcat (p, "; ");
 	    strcat (p, (info.szCSDVersion));