From 85046a842e1b3e3c98f7f52cc203380dcdfbc7fb Mon Sep 17 00:00:00 2001
From: Richard Tucker <rit@harlequin.com>
Date: Thu, 22 May 1997 14:31:25 +0100
Subject: [PATCH] Adapt to pc

Copied from Perforce
 Change: 18196
 ServerID: perforce.ravenbrook.com
---
 mps/qa/test/script/options | 21 ++++++++++++++++++---
 1 file changed, 18 insertions(+), 3 deletions(-)

diff --git a/mps/qa/test/script/options b/mps/qa/test/script/options
index 7ec5ed9d15c..19c76f6a219 100644
--- a/mps/qa/test/script/options
+++ b/mps/qa/test/script/options
@@ -4,6 +4,24 @@
 #
 # global options for qa commands
 #
+# this file also has the job of detecting what platform
+# we're on
+#
+
+# first to see where we are:
+
+if ($] =~ /perl for NT/) {
+ # it's NT, so find out what the processor is
+ #  from a system variable
+ $platform_class = "nt_".$ENV{"PROCESSOR_ARCHITECTURE"};
+ if ($platform_class = "nt_") {
+  $platform_class = "nt_dunno";
+ }
+} else {
+ # it's unix by default
+ $platform_class = `class`;
+ chop($platform_class);
+}
 
 %qa_options = (
  "v", "INTERFACE_VERSION",
@@ -15,9 +33,6 @@
 %qa_flags = (
 );
 
-$platform_class = `class`;
-chop($platform_class);
-
 %qa_defaults = (
  "INTERFACE_VERSION", "MO",
  "PLATFORM", $platform_class